source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT291.m@ 1423

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

initial load of FOIAVistA 6/30/08 version

File size: 6.7 KB
Line 
1DINIT291 ;SFISC/MKO-FORM AND BLOCK FILES ;10:49 AM 30 Mar 1999
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
5 G ^DINIT292
6Q Q
7 ;;^DD(.403,7,1,1,3)
8 ;;=Programmer only
9 ;;^DD(.403,7,1,1,"%D",0)
10 ;;=^^2^2^2900911^
11 ;;^DD(.403,7,1,1,"%D",0,"LE")
12 ;;=1
13 ;;^DD(.403,7,1,1,"%D",1,0)
14 ;;=This cross-reference is used to quickly find all ScreenMan templates
15 ;;^DD(.403,7,1,1,"%D",2,0)
16 ;;=associated with a file.
17 ;;^DD(.403,7,1,1,"DT")
18 ;;=2900911
19 ;;^DD(.403,7,3)
20 ;;=Answer must be 1-16 characters in length.
21 ;;^DD(.403,7,21,0)
22 ;;=^^2^2^2920407^
23 ;;^DD(.403,7,21,1,0)
24 ;;=Enter a file number, greater than or equal to 2, which represents the data
25 ;;^DD(.403,7,21,2,0)
26 ;;=dictionary number of the primary file for this form.
27 ;;^DD(.403,7,"DT")
28 ;;=2920407
29 ;;^DD(.403,8,0)
30 ;;=DISPLAY ONLY^SI^0:NO;1:YES;^0;9^Q
31 ;;^DD(.403,8,21,0)
32 ;;=^^2^2^2931027^^^^
33 ;;^DD(.403,8,21,1,0)
34 ;;=This is a flag that indicates none of the blocks on the form are edit
35 ;;^DD(.403,8,21,2,0)
36 ;;=blocks. This flag is set during form compilation.
37 ;;^DD(.403,8,"DT")
38 ;;=2931028
39 ;;^DD(.403,9,0)
40 ;;=FORM ONLY^SI^0:NO;1:YES;^0;10^Q
41 ;;^DD(.403,9,21,0)
42 ;;=^^2^2^2931027^
43 ;;^DD(.403,9,21,1,0)
44 ;;=This is a flag that indicates none of the fields on the form are data
45 ;;^DD(.403,9,21,2,0)
46 ;;=dictionary fields. This flag is set during form compilation.
47 ;;^DD(.403,9,"DT")
48 ;;=2931028
49 ;;^DD(.403,10,0)
50 ;;=COMPILED^SI^0:NO;1:YES;^0;11^Q
51 ;;^DD(.403,10,1,0)
52 ;;=^.1^^0
53 ;;^DD(.403,10,21,0)
54 ;;=^^2^2^2940908^
55 ;;^DD(.403,10,21,1,0)
56 ;;=This is a flag that indicates that the form is compiled. This flag is
57 ;;^DD(.403,10,21,2,0)
58 ;;=set during form compilation.
59 ;;^DD(.403,10,"DT")
60 ;;=2940701
61 ;;^DD(.403,11,0)
62 ;;=PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
63 ;;^DD(.403,11,3)
64 ;;=Enter standard MUMPS code which will be executed at the beginning of the form.
65 ;;^DD(.403,11,9)
66 ;;=@
67 ;;^DD(.403,11,21,0)
68 ;;=^^2^2^2940906^
69 ;;^DD(.403,11,21,1,0)
70 ;;=This is MUMPS code that is executed when the form is first invoked,
71 ;;^DD(.403,11,21,2,0)
72 ;;=before any of the pages are loaded and displayed.
73 ;;^DD(.403,12,0)
74 ;;=POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
75 ;;^DD(.403,12,3)
76 ;;=Enter standard MUMPS code which will be executed at the end of the form.
77 ;;^DD(.403,12,9)
78 ;;=@
79 ;;^DD(.403,12,21,0)
80 ;;=^^2^2^2940906^^
81 ;;^DD(.403,12,21,1,0)
82 ;;=This is MUMPS code that is executed before ScreenMan returns to the
83 ;;^DD(.403,12,21,2,0)
84 ;;=calling application.
85 ;;^DD(.403,14,0)
86 ;;=POST SAVE^K^^14;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
87 ;;^DD(.403,14,3)
88 ;;=This is Standard MUMPS code.
89 ;;^DD(.403,14,9)
90 ;;=@
91 ;;^DD(.403,14,21,0)
92 ;;=^^2^2^2940906^
93 ;;^DD(.403,14,21,1,0)
94 ;;=This is MUMPS code that is executed when the user saves changes. It is
95 ;;^DD(.403,14,21,2,0)
96 ;;=executed only if all data is valid, and after all data has been filed.
97 ;;^DD(.403,14,"DT")
98 ;;=2930813
99 ;;^DD(.403,15,0)
100 ;;=DESCRIPTION^.40315^^15;0
101 ;;^DD(.403,20,0)
102 ;;=DATA VALIDATION^K^^20;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
103 ;;^DD(.403,20,3)
104 ;;=Enter standard MUMPS code.
105 ;;^DD(.403,20,9)
106 ;;=@
107 ;;^DD(.403,20,21,0)
108 ;;=^^8^8^2940906^
109 ;;^DD(.403,20,21,1,0)
110 ;;=This is MUMPS code that is executed when the user attempts to save changes
111 ;;^DD(.403,20,21,2,0)
112 ;;=to the form. If the code sets DDSERROR, the user is unable to save
113 ;;^DD(.403,20,21,3,0)
114 ;;=changes. If the code sets DDSBR, the user is taken to the specified
115 ;;^DD(.403,20,21,4,0)
116 ;;=field.
117 ;;^DD(.403,20,21,5,0)
118 ;;=
119 ;;^DD(.403,20,21,6,0)
120 ;;=In addition to $$GET^DDSVAL, PUT^DDSVAL, and HLP^DDSUTL, you
121 ;;^DD(.403,20,21,7,0)
122 ;;=can use MSG^DDSUTL to print on a separate screen messages to the user
123 ;;^DD(.403,20,21,8,0)
124 ;;=about the validity of the data.
125 ;;^DD(.403,21,0)
126 ;;=RECORD SELECTION PAGE^NJ5,1^^21;1^K:+X'=X!(X>999.9)!(X<1)!(X?.E1"."2N.N) X
127 ;;^DD(.403,21,3)
128 ;;=Type a Number between 1 and 999.9, 1 Decimal Digit
129 ;;^DD(.403,21,21,0)
130 ;;=^^12^12^2940906^
131 ;;^DD(.403,21,21,1,0)
132 ;;=Enter the page number of the page that is used for record selection.
133 ;;^DD(.403,21,21,2,0)
134 ;;=
135 ;;^DD(.403,21,21,3,0)
136 ;;=If you define a Record Selection Page, the user can select another entry
137 ;;^DD(.403,21,21,4,0)
138 ;;=in the file, and, if LAYGO is allowed, add another entry into the file
139 ;;^DD(.403,21,21,5,0)
140 ;;=without exiting the form. The Record Selection Page should be a pop-up
141 ;;^DD(.403,21,21,6,0)
142 ;;=page that contains one form-only field that performs a pointer-type read
143 ;;^DD(.403,21,21,7,0)
144 ;;=into the Primary File of the form. The Record Selection Page property
145 ;;^DD(.403,21,21,8,0)
146 ;;=should be set equal to the Page Number of the Record Selection Page.
147 ;;^DD(.403,21,21,9,0)
148 ;;=
149 ;;^DD(.403,21,21,10,0)
150 ;;=The user can open the Record Selection Page by pressing <PF1>L. After the
151 ;;^DD(.403,21,21,11,0)
152 ;;=user selects a record and closes the Record Selection Page, the data for
153 ;;^DD(.403,21,21,12,0)
154 ;;=the selected record is displayed.
155 ;;^DD(.403,21,"DT")
156 ;;=2930225
157 ;;^DD(.403,40,0)
158 ;;=PAGE^.4031I^^40;0
159 ;;^DD(.403,40,"DT")
160 ;;=2930218
161 ;;^DD(.4031,0)
162 ;;=PAGE SUB-FIELD^^40^13
163 ;;^DD(.4031,0,"DT")
164 ;;=2940506
165 ;;^DD(.4031,0,"ID","WRITE")
166 ;;=D:$D(^(1))#2 EN^DDIOL($P(^(1),U),"","?12")
167 ;;^DD(.4031,0,"IX","AC",.4031,5)
168 ;;=
169 ;;^DD(.4031,0,"IX","B",.4031,.01)
170 ;;=
171 ;;^DD(.4031,0,"IX","C",.4031,7)
172 ;;=
173 ;;^DD(.4031,0,"NM","PAGE")
174 ;;=
175 ;;^DD(.4031,0,"UP")
176 ;;=.403
177 ;;^DD(.4031,.01,0)
178 ;;=PAGE NUMBER^MNJ5,1X^^0;1^K:+X'=X!(X>999.9)!(X<1)!(X?.E1"."2N.N)!$D(^DIST(.403,DA(1),40,"B",X)) X
179 ;;^DD(.4031,.01,1,0)
180 ;;=^.1
181 ;;^DD(.4031,.01,1,1,0)
182 ;;=.4031^B
183 ;;^DD(.4031,.01,1,1,1)
184 ;;=S ^DIST(.403,DA(1),40,"B",$E(X,1,30),DA)=""
185 ;;^DD(.4031,.01,1,1,2)
186 ;;=K ^DIST(.403,DA(1),40,"B",$E(X,1,30),DA)
187 ;;^DD(.4031,.01,3)
188 ;;=Enter a number between 1 and 999.9, up to 1 Decimal Digit, that identifies the page.
189 ;;^DD(.4031,.01,21,0)
190 ;;=^^2^2^2940907^^^
191 ;;^DD(.4031,.01,21,1,0)
192 ;;=This is the unique page number of the page. You can use this number to
193 ;;^DD(.4031,.01,21,2,0)
194 ;;=refer to the page in ScreenMan functions and utilities.
195 ;;^DD(.4031,1,0)
196 ;;=HEADER BLOCK^P.404^DIST(.404,^0;2^Q
197 ;;^DD(.4031,1,1,0)
198 ;;=^.1
199 ;;^DD(.4031,1,1,1,0)
200 ;;=.403^AC
201 ;;^DD(.4031,1,1,1,1)
202 ;;=S ^DIST(.403,"AC",$E(X,1,30),DA(1),DA)=""
203 ;;^DD(.4031,1,1,1,2)
204 ;;=K ^DIST(.403,"AC",$E(X,1,30),DA(1),DA)
205 ;;^DD(.4031,1,1,1,"DT")
206 ;;=2930702
207 ;;^DD(.4031,1,3)
208 ;;=Enter the block which will be used as a header for this page.
209 ;;^DD(.4031,1,21,0)
210 ;;=^^7^7^2940907^^^
211 ;;^DD(.4031,1,21,1,0)
212 ;;=The header block always appears at row 1, column 1 relative to the page
213 ;;^DD(.4031,1,21,2,0)
214 ;;=on which it is defined. It is for display purposes only -- the user
Note: See TracBrowser for help on using the repository browser.