©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ORUH ; slc/JER - XECUTABLE HELP for format functions ;10/3/91 15:05
;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
HELP ; XECUTABLE HELP for formatting functions
Q:'$D(ORTYPE)
N X
S X=$P(^ORD(100.22,+ORTYPE,0),"^",5)
I '$L($T(@X)) W !?5,"Sorry, no formats have been specified.",! Q
W ?6,"Allowable values include: ",!
D @X
Q
NAME ; Xecutable help for name formats
W ?10,"LAST - Last Name",!
W ?10,"FIRST - First Name",!
W ?10,"MI - Middle Initial",!
W ?10,"FI - First Initial",!
W ?10,"LI - Last Initial",!
W ?6,"All other characters will be treated as delimiters.",!
W ?6,"Examples: ",?16,"LAST,FIRST MI ==> DOE, JOHN M or",!?19,"FI MI LAST ==> J M DOE",!
Q
DATE ; Xecutable help for date formats
W ?10,"MM - Numeric months",!
W ?10,"DD - Numeric Days",!
W ?10,"YY - Numeric Years",!
W ?10,"CC - Numeric Century",!
W ?10,"HR - Numeric Hour of Day",!
W ?10,"MIN - Numeric Minute",!
W ?10,"SEC - Numeric Second",!
W ?10,"AMTH - Alphabetic Month",!
W ?6,"All other characters will be treated as delimiters.",!
W ?6,"Examples: ",?16,"MM/DD/YY HR:MIN ==> 04/29/91 11:15, or",!?19,"DD AMTH CCYY ==> 29 APR 1991",!
Q
WORD ; Xecutable help for Word Processing formats
W ?6,"Enter the WIDTH to which you want the word processing text to be justified.",!
Q
FORMAT ; Xecutable help for Freetext formats
W ?6,"Enter the WIDTH to which you want the freetext to be justified.",!
Q
TEXT ; Xecutable help for TEXT formats
W ?6,"Enter the WIDTH to which you want the order text to be justified.",!
Q
TMPWRAP ;
Q