43 lines
1.5 KiB
Mathematica
43 lines
1.5 KiB
Mathematica
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
|