[MEDITECH-L] Phone Number reformat
Caruso, Charlie
I am trying to write an NPR report to a vendor's specs for supplying the
patient phone number in 10 characters or less numeric only format,
stripping Meditech format of any parenthesis and /or dashes. Anyone
willing to share this one?
Thank you,
Charlie Caruso
CIO
Goodall Hospital
25 June Street
Sanford, ME 04073
Phone: 207-490-7481
email: cca...@goodallhospital.org
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
To subscribe or unsubscribe to the meditech-l, visit MTUsers.NET.
To check the status of the meditech-l, visit MTUsers.NET.
For help, email sup...@MTUsers.NET.
Visit the MTUsers WikiPedia at MTUsers.NET/mwiki
______________________________________
meditech-l mailing list
medit...@MTUsers.com
http://mtusers.com/mailman/listinfo/meditech-l
Joe Cocuzzo
down to just digits, then reformat.
http://www.iatric.com/_docs/updates-mar2006.pdf
There is also a report in our library MIS.zcus.is.util with a macro:
%MIS.zcus.is.rw.util.M.numeric(A) that will strip all but numbers from
A.
This is the way it is done, with the "not tilde" operator.
@phone.number'~(D(255):48_("0123456789")_(D(255):70)))
Joe Cocuzzo
Vice President
NPR Services
Iatric Systems, Inc.
Phone/Fax: (978) 805-4115
Email: jo...@iatric.com
Web: www.iatric.com
Raisch, Mark
;WORK PHONE NUMBER
;BELOW WILL STRIP OUT ALL EXCEPT THE NUMBERS
IF{0-1^I,0^N,""^Y1^S^T^END^P,
DO{'END @dft.phone#(I+1^I)^EX,
IF{EX?0N N+1^N,S_EX^S,""^P;IF{S Y1_S^Y1,T_Q(L(S))^T,""^S},
N'<10 1^END;EX?0P P_EX^P;1^END}},Y1},
;STRIP THE FIRST NUMBER IF GREATER THAN 10 NUMBERS
IF{L(Y1)<11 Y1^Y2;Y1%0^Y2},
Y2^!,
Mark Raisch
Sr. System Analyst
All Children's Hospital
Work: (727) 767-8223
Fax: (727) 767-8460
E-mail: rai...@allkids.org
Confidentiality Notice: This e-mail message, including any attachments,
is for the sole use of intended recipient(s) and may contain
confidential and privileged information. Any unauthorized review; use,
disclosure or distribution is prohibited. If you are not the intended
recipient, please contact the sender by reply e-mail and destroy all
copes of the original message.
-----Original Message-----
From: medit...@MTUsers.com [mailto:medit...@MTUsers.com] On Behalf
Of Caruso, Charlie
Sent: Tuesday, April 10, 2007 10:53 AM
To: medit...@MTUsers.com
Subject: [MEDITECH-L] Phone Number reformat
Purvins, James A.
Create a Macro - lets call it <init> and enter the following code below.
(Then on page 3 in Footnotes do an AL START init)
Whenever you want to convert a computed field just do something like :
@phone'~/INTEGER : Will strip anything but numbers.
I believe Iatric has this on their site as well.
@TRANSLATE.NUMBER.STRING
TRANSLATE.TO.INTEGER
D(255):48_("0123456789")_(D(255):69)^/INTEGER
James Purvins
Inland Northwest Health Services
(509) 232-8384
This e-mail and any attachments are confidential and may also be
privileged. If you are not the named recipient, or have otherwise
received this communication in error, please delete it from your inbox,
notify the sender immediately by replying to the message, and do not
disclose its contents to any other person, use the information for any
purpose or store or copy the information in any medium. Thank you for
your cooperation
-----Original Message-----
From: medit...@MTUsers.com [mailto:medit...@MTUsers.com] On Behalf
Of Caruso, Charlie
Sent: Tuesday, April 10, 2007 7:53 AM
To: medit...@MTUsers.com
Subject: [MEDITECH-L] Phone Number reformat
Stewart, Donald
VAL=@phone.number'~(D(255):48_("0123456789")_(D(255):70))
Donald F. Stewart
Sr. Programmer Analyst
Upson Regional Medical Center
801 W. Gordon St.
Thomaston, GA 30286
(706)647-8111 x1696
dfst...@urmc.org
All,
Thank you,
For help, email sup...@MTUsers.NET.
--
This message has been scanned by the Securiant SpiderISA for spam and
viruses, and is believed to be safe and clean.
--
This message has been scanned by the Securiant SpiderISA for spam and viruses, and is believed to be safe and clean.
Silas, Clay
You can use string extraction to remove any unwanted characters.
However, in order for the string extraction to be the same, your
dictionary has to have the same number format setup for each vendor.
Clay H. Silas
Financial Applications Specialist
Johnston Memorial Hospital
919-938-7593 Direct/Vmail
919-934-9753 Fax
csi...@johnstonmemorial.org
www.johnstonmemorial.org
-----Original Message-----
From: medit...@MTUsers.com [mailto:medit...@MTUsers.com] On Behalf
Of Caruso, Charlie
Sent: Tuesday, April 10, 2007 10:53 AM
To: medit...@MTUsers.com
Subject: [MEDITECH-L] Phone Number reformat
All,
Thank you,
For help, email sup...@MTUsers.NET.
______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________________________________
DISCLAIMER: The contents of this e-mail message may be privileged and/or confidential. If you are not the intended recipient, any review, dissemination, copying,distribution or other use of the contents of this message or any attachment by you is strictly prohibited. If you receive this communication in error, please notify us immediately by return e-mail or by telephone (919-934-8171), and please delete this message and all attachments from your system. Thank you.
READER BEWARE: Unencrypted, unauthenticated Internet e-mail is inherently insecure. Internet messages may be corrupted or incomplete, or may incorrectly identify the sender. Please contact me if you wish to arrange for more secure communication or to authenticate this message.
Compliance Officer
Johnston Memorial Hospital
Mike McEldowney
In MIS is have a report called "zcus.utils". In that report I have a macro called "numeric". The macro only has one line:
A'~(D(255):48_("0123456789")_(D(255):70));
In the report I create a custom field as such:
DAT=FREE
LEN=10
VAL=%MIS.zcus.utils.M.numeric(@home.phone)
Hope that helps.
Mike