source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORUH.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.5 KB
Line 
1ORUH ; slc/JER - XECUTABLE HELP for format functions ;10/3/91 15:05
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
3HELP ; 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
11NAME ; 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
20DATE ; 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
32WORD ; 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
35FORMAT ; Xecutable help for Freetext formats
36 W ?6,"Enter the WIDTH to which you want the freetext to be justified.",!
37 Q
38TEXT ; Xecutable help for TEXT formats
39 W ?6,"Enter the WIDTH to which you want the order text to be justified.",!
40 Q
41TMPWRAP ;
42 Q
Note: See TracBrowser for help on using the repository browser.