source: WorldVistAEHR/trunk/r/VICTORY_PROGRAMMING_ENVIRONMENT-ZVEM/ZVEMSF9.m@ 1489

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

initial load of WorldVistAEHR

File size: 3.2 KB
Line 
1ZVEMSF9 ;DJB,VSHL**DIWF [07/16/94]
2 ;;12;VPE;;COPYRIGHT David Bolduc @1993
3 ;
4DIWF ;;;
5 ;;; D I W F Form Document Print
6 ;;;
7 ;;; DIWF uses contents of a word processing field as a target document into which
8 ;;; data can be inserted at print time. The data may come from another file or be
9 ;;; provided by the user interactively when the document is printed. The word
10 ;;; processing text uses windows into which data from the target file gets
11 ;;; inserted by DIWF. Any nonmultiple field label or computed expression can be
12 ;;; used within a "|" window. If the expression can't be evaluated or the field
13 ;;; doesn't exist, and the output is being sent to a different terminal than
14 ;;; the one used to call up the output, then the user will be asked to type in
15 ;;; a value for the window, for each data entry printed.
16 ;;;
17 ;;; 1. ENTRY POINT: ^DIWF
18 ;;; Invoking DIWF at the top results in an interactive dialogue:
19 ;;; Select Document File: FORM LETTER
20 ;;; Select DOCUMENT: APPOINTMENT REMINDER
21 ;;; Print from what FILE: EMPLOYEE
22 ;;; WANT EACH ENTRY ON A SEPARATE PAGE? YES//
23 ;;; SORT BY: NAME// FOLLOWUP DATE=MAY 1, 1986
24 ;;; DEVICE:
25 ;;; In this example, the word processing text found in the APPOINTMENT
26 ;;; REMINDER entry of the FORM LETTER file is used to print a sheet of output
27 ;;; for each entry in the EMPLOYEE file whose FOLLOWUP DATE equals May 1,1986.
28 ;;;
29 ;;; If the document file contains a pointer field pointing to file #1, and if
30 ;;; the document entry selected has a value for that pointer, then the file
31 ;;; pointed to will be used to print from and the user will not be asked
32 ;;; "Print from what FILE:".
33 ;;; NOTE: Read access is checked for both files selected.
34 ;;;
35 ;;; 1. ENTRY POINT: EN1^DIWF
36 ;;; This entry point is used when calling program knows which file contains
37 ;;; the desired word processing text to be used as a target document.
38 ;;;
39 ;;; 2. INPUT VARIABLES
40 ;;; DIC......Global root or file number.
41 ;;;
42 ;;; 3. OUTPUT VARIABLES
43 ;;; Y........-1 only if the DIC file doesn't contain a word processing field.
44 ;;;
45 ;;; 1. ENTRY POINT: EN2^DIWF
46 ;;; This entry point is used when calling program knows both the document file
47 ;;; and the entry within that file which contains the desired word processing
48 ;;; text to be used as a target document.
49 ;;;
50 ;;; 2. INPUT VARIABLES
51 ;;; DIWF......Global root at which text is stored. Thus, if APPOINTMENT
52 ;;; REMINDER is the third document in the FORM LETTER file (^DIZ(16001,) and
53 ;;; the word processing field is stored in subscript 1, you can:
54 ;;; SET DIWF="^DIZ(16001,3,1,"
55 ;;; DIWF(1)...If calling program wants to specifiy which file should be used
56 ;;; as a source for generating output, the number of the file should be in
57 ;;; DIWF(1). Otherwise, the user will be asked the "Print from what FILE:"
58 ;;; question.
59 ;;;
60 ;;; After this point, EN1^DIP is invoked. The calling program can set the
61 ;;; usual BY, FR, and TO variables if it wants to control the SORT sequence.
62 ;;;
63 ;;; 3. OUTPUT VARIABLES
64 ;;; Y........Will be -1 if:
65 ;;; There is no data beneath the root passed in DIWF.
66 ;;; The file passed in DIWF(1) could not be found.
67 ;;;***
Note: See TracBrowser for help on using the repository browser.