source: WorldVistAEHR/trunk/r/VICTORY_PROGRAMMING_ENVIRONMENT-ZVEM/ZVEMSF3.m@ 1046

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

initial load of WorldVistAEHR

File size: 3.3 KB
Line 
1ZVEMSF3 ;DJB,VSHL**DIC1,DICN [04/17/94]
2 ;;12;VPE;;COPYRIGHT David Bolduc @1993
3 ;
4DIC1 ;;;
5 ;;; D I C 1 Custom Look-up & File Information Setup
6 ;;;
7 ;;; 1. ENTRY POINT: DO^DIC1
8 ;;; If $D(DO), DO^DIC1 will QUIT. If DIC("W") is defined it won't be changed.
9 ;;;
10 ;;; 2. INPUT VARIABLES
11 ;;; DIC......Global root
12 ;;; DIC(0)...Same as ^DIC
13 ;;;
14 ;;; 3. OUTPUT VARIABLES
15 ;;; DO.......File name^file number and specifiers. This is the file
16 ;;; descriptor node. (Use letter O, not zero.)
17 ;;; DO(2)....File number and specifiers. This is the 2nd piece of DO.
18 ;;; +DO(2) will always equal the file number.
19 ;;; DIC("W")..Contains write logic for identifiers. ^DD(+DO(2),0,"ID",value)
20 ;;; Specifier I, must be in DO(2) for Fileman to look at ID nodes.
21 ;;; DO("SCR")..Contains IF statement that screens out entries. Screen is
22 ;;; applied to inquiries and printouts as well as look-ups.
23 ;;;
24 ;;; 1. ENTRY POINT: MIX^DIC1
25 ;;; ^DIC does look-up starting with B cross ref. You can make it do a
26 ;;; look-up on a specific set of cross references by calling DIC1 at MIX.
27 ;;;
28 ;;; 2. INPUT VARIABLES
29 ;;; DIC......Global root
30 ;;; DIC(0)...Same as ^DIC. If it doesn't contain M, only first cross ref
31 ;;; in D will be used for look-up.
32 ;;; D........The list of cross references, separated by up-arrow.
33 ;;; X........If DIC(0) doesn't contain A, variable X must be equal to the
34 ;;; value you want to look-up.
35 ;;;
36 ;;; 3. OUTPUT VARIABLES
37 ;;; Y........Y=-1 Look-up unsuccessful.
38 ;;; Y=N^S N is the internal number, S is the .01 field.
39 ;;; Y=N^S^1 1 indicates entry has just been added.
40 ;;; Y(0).....Set to zero node if DIC(0) contains Z.
41 ;;; Y(0,0)...External form of .01 field if DIC(0) contains Z.
42 ;;; DTOUT....Time-out occurred.
43 ;;; DUOUT....User entered "^".
44 ;;;***
45DICN ;;;
46 ;;; D I C N Adding New Entries. YES/NO Prompts.
47 ;;;
48 ;;; 1. ENTRY POINT: FILE^DICN
49 ;;; You must Kill DD. If DO does not contain the characteristics of the file
50 ;;; you are adding to, then DO should be killed.
51 ;;;
52 ;;; 2. INPUT VARIABLES
53 ;;; DIC......Global root
54 ;;; DIC(0)...Same as ^DIC
55 ;;; X........The value of the .01 field. Programmer must insure value has
56 ;;; already met input transform criteria.
57 ;;; DINUM....Optional. Identifies subscript where data is to be stored.
58 ;;; DIC("DR")..Optional. Used to input other data elements when entry is made.
59 ;;;
60 ;;; 3. OUTPUT VARIABLES
61 ;;; Y........Y=-1 Look-up unsuccessful. No new entry.
62 ;;; Y=N^S^1 1 indicates entry has just been added.
63 ;;; Y(0).....Set to zero node if DIC(0) contains Z.
64 ;;; Y(0,0)...External form of .01 field if DIC(0) contains Z.
65 ;;; DTOUT....Time-out occurred.
66 ;;; DUOUT....User entered "^".
67 ;;;
68 ;;; 1. ENTRY POINT: YN^DICN
69 ;;; Process a YES/NO response.
70 ;;;
71 ;;; 2. INPUT VARIABLES
72 ;;; %........Default response. 0=No default
73 ;;; 1=YES
74 ;;; 2=NO
75 ;;;
76 ;;; 3. OUTPUT VARIABLES
77 ;;; %.......-1 User entered ^
78 ;;; 0 User entered ?
79 ;;; 1 User entered YES
80 ;;; 2 User entered NO
81 ;;; %Y.......Actual text that the user entered.
82 ;;;***
Note: See TracBrowser for help on using the repository browser.