I wrote this in a macro for the provider phone number:
;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: [EMAIL PROTECTED]
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: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf
Of Caruso, Charlie
Sent: Tuesday, April 10, 2007 10:53 AM
To: [EMAIL PROTECTED]
Subject: [MEDITECH-L] Phone Number reformat
All,
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: [EMAIL PROTECTED]
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
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 [EMAIL PROTECTED]
Visit the MTUsers WikiPedia at MTUsers.NET/mwiki
______________________________________
meditech-l mailing list
[EMAIL PROTECTED]
http://mtusers.com/mailman/listinfo/meditech-l
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
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 [EMAIL PROTECTED]
Visit the MTUsers WikiPedia at MTUsers.NET/mwiki
______________________________________
meditech-l mailing list
[EMAIL PROTECTED]
http://mtusers.com/mailman/listinfo/meditech-l
