| 1 | ORUH ; slc/JER - XECUTABLE HELP for format functions ;10/3/91  15:05
 | 
|---|
| 2 |  ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
 | 
|---|
| 3 | HELP ; XECUTABLE HELP for formatting functions
 | 
|---|
| 4 |  Q:'$D(ORTYPE)
 | 
|---|
| 5 |  N X
 | 
|---|
| 6 |  S X=$P(^ORD(100.22,+ORTYPE,0),"^",5)
 | 
|---|
| 7 |  I '$L($T(@X)) W !?5,"Sorry, no formats have been specified.",! Q
 | 
|---|
| 8 |  W ?6,"Allowable values include: ",!
 | 
|---|
| 9 |  D @X
 | 
|---|
| 10 |  Q
 | 
|---|
| 11 | NAME ; Xecutable help for name formats
 | 
|---|
| 12 |  W ?10,"LAST  - Last Name",!
 | 
|---|
| 13 |  W ?10,"FIRST - First Name",!
 | 
|---|
| 14 |  W ?10,"MI    - Middle Initial",!
 | 
|---|
| 15 |  W ?10,"FI    - First Initial",!
 | 
|---|
| 16 |  W ?10,"LI    - Last Initial",!
 | 
|---|
| 17 |  W ?6,"All other characters will be treated as delimiters.",!
 | 
|---|
| 18 |  W ?6,"Examples: ",?16,"LAST,FIRST MI ==> DOE, JOHN M or",!?19,"FI MI LAST ==> J M DOE",!
 | 
|---|
| 19 |  Q
 | 
|---|
| 20 | DATE ; Xecutable help for date formats
 | 
|---|
| 21 |  W ?10,"MM   - Numeric months",!
 | 
|---|
| 22 |  W ?10,"DD   - Numeric Days",!
 | 
|---|
| 23 |  W ?10,"YY   - Numeric Years",!
 | 
|---|
| 24 |  W ?10,"CC   - Numeric Century",!
 | 
|---|
| 25 |  W ?10,"HR   - Numeric Hour of Day",!
 | 
|---|
| 26 |  W ?10,"MIN  - Numeric Minute",!
 | 
|---|
| 27 |  W ?10,"SEC  - Numeric Second",!
 | 
|---|
| 28 |  W ?10,"AMTH - Alphabetic Month",!
 | 
|---|
| 29 |  W ?6,"All other characters will be treated as delimiters.",!
 | 
|---|
| 30 |  W ?6,"Examples: ",?16,"MM/DD/YY HR:MIN ==> 04/29/91 11:15, or",!?19,"DD AMTH CCYY ==> 29 APR 1991",!
 | 
|---|
| 31 |  Q
 | 
|---|
| 32 | WORD ; Xecutable help for Word Processing formats
 | 
|---|
| 33 |  W ?6,"Enter the WIDTH to which you want the word processing text to be justified.",!
 | 
|---|
| 34 |  Q
 | 
|---|
| 35 | FORMAT ; Xecutable help for Freetext formats
 | 
|---|
| 36 |  W ?6,"Enter the WIDTH to which you want the freetext to be justified.",!
 | 
|---|
| 37 |  Q
 | 
|---|
| 38 | TEXT ; Xecutable help for TEXT formats
 | 
|---|
| 39 |  W ?6,"Enter the WIDTH to which you want the order text to be justified.",!
 | 
|---|
| 40 |  Q
 | 
|---|
| 41 | TMPWRAP ;
 | 
|---|
| 42 |  Q
 | 
|---|