1 | ZVEMSF7 ;DJB,VSHL**DIP,DIPT [07/16/94]
|
---|
2 | ;;12;VPE;;COPYRIGHT David Bolduc @1993
|
---|
3 | ;
|
---|
4 | DIP ;;;
|
---|
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 | ;;;***
|
---|
57 | DIPT ;;;
|
---|
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 | ;;;***
|
---|