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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORUH 1598 printed Sep 23, 2025@20:10:45 Page 2
ORUH ; slc/JER - XECUTABLE HELP for format functions ;10/3/91 15:05
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
HELP ; XECUTABLE HELP for formatting functions
+1 if '$DATA(ORTYPE)
QUIT
+2 NEW X
+3 SET X=$PIECE(^ORD(100.22,+ORTYPE,0),"^",5)
+4 IF '$LENGTH($TEXT(@X))
WRITE !?5,"Sorry, no formats have been specified.",!
QUIT
+5 WRITE ?6,"Allowable values include: ",!
+6 DO @X
+7 QUIT
NAME ; Xecutable help for name formats
+1 WRITE ?10,"LAST - Last Name",!
+2 WRITE ?10,"FIRST - First Name",!
+3 WRITE ?10,"MI - Middle Initial",!
+4 WRITE ?10,"FI - First Initial",!
+5 WRITE ?10,"LI - Last Initial",!
+6 WRITE ?6,"All other characters will be treated as delimiters.",!
+7 WRITE ?6,"Examples: ",?16,"LAST,FIRST MI ==> DOE, JOHN M or",!?19,"FI MI LAST ==> J M DOE",!
+8 QUIT
DATE ; Xecutable help for date formats
+1 WRITE ?10,"MM - Numeric months",!
+2 WRITE ?10,"DD - Numeric Days",!
+3 WRITE ?10,"YY - Numeric Years",!
+4 WRITE ?10,"CC - Numeric Century",!
+5 WRITE ?10,"HR - Numeric Hour of Day",!
+6 WRITE ?10,"MIN - Numeric Minute",!
+7 WRITE ?10,"SEC - Numeric Second",!
+8 WRITE ?10,"AMTH - Alphabetic Month",!
+9 WRITE ?6,"All other characters will be treated as delimiters.",!
+10 WRITE ?6,"Examples: ",?16,"MM/DD/YY HR:MIN ==> 04/29/91 11:15, or",!?19,"DD AMTH CCYY ==> 29 APR 1991",!
+11 QUIT
WORD ; Xecutable help for Word Processing formats
+1 WRITE ?6,"Enter the WIDTH to which you want the word processing text to be justified.",!
+2 QUIT
FORMAT ; Xecutable help for Freetext formats
+1 WRITE ?6,"Enter the WIDTH to which you want the freetext to be justified.",!
+2 QUIT
TEXT ; Xecutable help for TEXT formats
+1 WRITE ?6,"Enter the WIDTH to which you want the order text to be justified.",!
+2 QUIT
TMPWRAP ;
+1 QUIT
