ORUH.m

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 ---ORUH   1598     printed  Apr 09, 2024@21:42:28                                                                                                                                                                                                        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