source: WorldVistAEHR/trunk/r/VICTORY_PROGRAMMING_ENVIRONMENT-ZVEM/ZVEMSF7.m@ 1604

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

initial load of WorldVistAEHR

File size: 3.2 KB
Line 
1ZVEMSF7 ;DJB,VSHL**DIP,DIPT [07/16/94]
2 ;;12;VPE;;COPYRIGHT David Bolduc @1993
3 ;
4DIP ;;;
5 ;;; D I P Print Data
6 ;;;
7 ;;; 1. ENTRY POINT: EN1^DIP
8 ;;; Kills all input variables before it quits.
9 ;;;
10 ;;; 2. INPUT VARIABLES
11 ;;; L........Set to zero or a string whose numeric evaluation is zero.
12 ;;; DIC......The global root or file number.
13 ;;; FLDS.....Fields to be printed, separated by commas.
14 ;;; FLDS=".01,.03,1;C20"
15 ;;; FLDS="[DEMO]"
16 ;;; FLDS(1)..If there are more fields than can fit in string FLDS.
17 ;;; BY.......Sort fields separated by commas. If BY is undefined, user is
18 ;;; prompted for sort conditions.
19 ;;; BY=".01;C1,.02"
20 ;;; BY="DIAGNOSIS,@" @ will ask user for that SORT BY response.
21 ;;; BY="[DEMOSORT]"
22 ;;; If BY includes more than one field, the same comma-piece
23 ;;; will identify the field in the FR and TO variables.
24 ;;; FR.......The START WITH: values of the SORT BY fields. If FR is
25 ;;; undefined, user will be asked START WITH: questions.
26 ;;; Each comma-piece can be:
27 ;;; The START WITH value.
28 ;;; Null. Sort will start from beginning of file.
29 ;;; ?. Causes START WITH: prompt.
30 ;;; @. Sort will begin with null values (entries that have no data).
31 ;;; TO.......The GO TO: values. Its characteristics are same as FR.
32 ;;; DHD......The header desired for the output. Can be:
33 ;;; @ if no header is desired.
34 ;;; @@ if no header and no formfeed is desired.
35 ;;; A literal.
36 ;;; A line of M code which must begin with a write statement.
37 ;;; Ex. DHD="W ?0 D ^ZZHDR"
38 ;;; A print template enclosed in brackets.
39 ;;; Two print templates separated by a minus sign. The first will
40 ;;; be the header and the second the trailer. ("[DEMO]-[DEMO1]")
41 ;;; DIASKHD...If set to null user will be prompted to enter a header.
42 ;;; PG........Starting page number.
43 ;;; DHIT......M code which will be executed for every entry after all the
44 ;;; fields specified in FLDS have been printed.
45 ;;; DIOEND....M code executed after printout has finished.
46 ;;; DIOBEG....M code executed before printout starts.
47 ;;; DCOPIES...If %ZIS chooses an SDP. Gives multiple copies.
48 ;;; IOP.......Set equal to a device name to preanswer the DEVICE prompt.
49 ;;; Set IOP="Q;MY PRINTER" to establish queueing.
50 ;;; DQTIME....If output is queued, this contains time to print (T@1500).
51 ;;; DIS(0)....Screen out certain entries. Contains an IF statement. If TRUE
52 ;;; the entry will print. D0 will equal internal entry number.
53 ;;; DIS(n)....You can set other elements of the DIS array. If many elements,
54 ;;; DIS(0) must be true and any one of the other elements must be
55 ;;; true for the entry to print.
56 ;;;***
57DIPT ;;;
58 ;;; D I P T Print and Sort Template Display
59 ;;;
60 ;;; 1. ENTRY POINT: ^DIPT
61 ;;;
62 ;;; 2. INPUT VARIABLES
63 ;;; D0.....Internal number of PRINT TEMPLATE file.
64 ;;;
65 ;;; 1. ENTRY POINT: DIBT^DIPT
66 ;;;
67 ;;; 2. INPUT VARIABLES
68 ;;; D0.....Internal number of SORT TEMPLATE file.
69 ;;;***
Note: See TracBrowser for help on using the repository browser.