source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0FH.m@ 1800

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

initial load of WorldVistAEHR
File size: 6.6 KB
Line 
1DINIT0FH ;SFISC/MKO-DATA FOR 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(ENTRY+I) G:X="" ^DINIT0FI S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.403051,40,9,2)
8 ;;=4,20^50^4,13
9 ;;^DIST(.404,.403051,40,10,0)
10 ;;=10^READ ACCESS^3
11 ;;^DIST(.404,.403051,40,10,1)
12 ;;=1
13 ;;^DIST(.404,.403051,40,10,2)
14 ;;=13,20^15^13,7
15 ;;^DIST(.404,.403051,40,11,0)
16 ;;=11^WRITE ACCESS^3
17 ;;^DIST(.404,.403051,40,11,1)
18 ;;=2
19 ;;^DIST(.404,.403051,40,11,2)
20 ;;=14,20^15^14,6
21 ;;^DIST(.404,.403061,0)
22 ;;=DDGF HEADER BLOCK EDIT^.4031
23 ;;^DIST(.404,.403061,40,0)
24 ;;=^.4044I^2^2
25 ;;^DIST(.404,.403061,40,1,0)
26 ;;=2^HEADER BLOCK^3
27 ;;^DIST(.404,.403061,40,1,1)
28 ;;=1
29 ;;^DIST(.404,.403061,40,1,2)
30 ;;=3,17^30^3,3
31 ;;^DIST(.404,.403061,40,1,13)
32 ;;=D:X]"" PUT^DDSVALF("NAME","DDGF BLOCK EDIT 2","",DDSEXT,"I")
33 ;;^DIST(.404,.403061,40,1,14)
34 ;;=D HBVAL^DDGFU
35 ;;^DIST(.404,.403061,40,2,0)
36 ;;=1^ Edit Header Block Parameters ^1
37 ;;^DIST(.404,.403061,40,2,2)
38 ;;=^^1,24
39 ;;^DIST(.404,.404011,0)
40 ;;=DDGF FIELD ADD
41 ;;^DIST(.404,.404011,40,0)
42 ;;=^.4044I^3^3
43 ;;^DIST(.404,.404011,40,1,0)
44 ;;=1^Select BLOCK^2
45 ;;^DIST(.404,.404011,40,1,2)
46 ;;=1,15^30^1,1
47 ;;^DIST(.404,.404011,40,1,3)
48 ;;=!M
49 ;;^DIST(.404,.404011,40,1,3.1)
50 ;;=N X,DA,DIC S DA(2)=+DDGFFM,DA(1)=+DDGFPG,X=" ",DIC="^DIST(.403,"_DA(2)_",""40"","_DA(1)_",""40"",",DIC(0)="M" D ^DIC S Y=$S(Y=-1:"",1:"`"_+Y) I Y="",$P($G(^DIST(.403,+DDGFFM,40,+DDGFPG,40,0)),U,4)=1 S Y=+$O(^(0)),Y=$S(Y:"`"_Y,1:"")
51 ;;^DIST(.404,.404011,40,1,13)
52 ;;=I X]"" D PUT^DDSVALF("FIELD ORDER","","",$O(^DIST(.404,X,40,"B",""),-1)+1\1) D:$D(DUZ)#2 RECALL^DILFD(.4032,X_","_+DDGFPG_","_+DDGFFM_",",DUZ),RECALL^DILFD(.404,X_",",DUZ)
53 ;;^DIST(.404,.404011,40,1,20)
54 ;;=P^^DIST(.403,+DDGFFM,40,+DDGFPG,40,:QEAFMZ
55 ;;^DIST(.404,.404011,40,1,23)
56 ;;=S DDGFBLCK=X
57 ;;^DIST(.404,.404011,40,2,0)
58 ;;=2^FIELD ORDER^2
59 ;;^DIST(.404,.404011,40,2,2)
60 ;;=2,15^4^2,2
61 ;;^DIST(.404,.404011,40,2,3)
62 ;;=!M
63 ;;^DIST(.404,.404011,40,2,3.1)
64 ;;=N V S V=$$GET^DDSVALF("BLOCK") I V]"" S Y=$O(^DIST(.404,V,40,"B",""),-1)+1\1
65 ;;^DIST(.404,.404011,40,2,20)
66 ;;=N^^0:99.9:1
67 ;;^DIST(.404,.404011,40,2,21,0)
68 ;;=^^1^1^2940630
69 ;;^DIST(.404,.404011,40,2,21,1,0)
70 ;;=This must be a number not already used
71 ;;^DIST(.404,.404011,40,2,22)
72 ;;=N V S V=$$GET^DDSVALF("BLOCK") I V]"",$O(^DIST(.404,V,40,"B",X,""))]"" K X
73 ;;^DIST(.404,.404011,40,2,23)
74 ;;=S DDGFFORD=X
75 ;;^DIST(.404,.404011,40,3,0)
76 ;;=3^FIELD TYPE^2
77 ;;^DIST(.404,.404011,40,3,2)
78 ;;=3,15^30^3,3
79 ;;^DIST(.404,.404011,40,3,3)
80 ;;=DATA DICTIONARY
81 ;;^DIST(.404,.404011,40,3,20)
82 ;;=DD^^.4044,2
83 ;;^DIST(.404,.404011,40,3,23)
84 ;;=S DDGFTYPE=X
85 ;;^DIST(.404,.404021,0)
86 ;;=DDGF FIELD CAPTION ONLY^.4044
87 ;;^DIST(.404,.404021,40,0)
88 ;;=^.4044I^9^6
89 ;;^DIST(.404,.404021,40,1,0)
90 ;;=1^ Caption-Only Field Properties ^1
91 ;;^DIST(.404,.404021,40,1,2)
92 ;;=^^1,22
93 ;;^DIST(.404,.404021,40,2,0)
94 ;;=2^FIELD ORDER^3
95 ;;^DIST(.404,.404021,40,2,1)
96 ;;=.01
97 ;;^DIST(.404,.404021,40,2,2)
98 ;;=3,21^4^3,8
99 ;;^DIST(.404,.404021,40,6,0)
100 ;;=3^CAPTION^2
101 ;;^DIST(.404,.404021,40,6,2)
102 ;;=4,21^50^4,12
103 ;;^DIST(.404,.404021,40,6,3)
104 ;;=!M
105 ;;^DIST(.404,.404021,40,6,3.1)
106 ;;=S Y=DDGFCAP0
107 ;;^DIST(.404,.404021,40,6,4)
108 ;;=1
109 ;;^DIST(.404,.404021,40,6,13)
110 ;;=D:DDSOLD="!M" PUT^DDSVAL(.4044,.DA,1.1,"")
111 ;;^DIST(.404,.404021,40,6,20)
112 ;;=DD^^.4044,1
113 ;;^DIST(.404,.404021,40,6,23)
114 ;;=S DDGFCAP=X
115 ;;^DIST(.404,.404021,40,7,0)
116 ;;=5^EXECUTABLE CAPTION^3
117 ;;^DIST(.404,.404021,40,7,1)
118 ;;=1.1
119 ;;^DIST(.404,.404021,40,7,2)
120 ;;=7,21^50^7,1
121 ;;^DIST(.404,.404021,40,7,13)
122 ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
123 ;;^DIST(.404,.404021,40,8,0)
124 ;;=6^CAPTION COORDINATE^2
125 ;;^DIST(.404,.404021,40,8,2)
126 ;;=8,21^7^8,1
127 ;;^DIST(.404,.404021,40,8,3)
128 ;;=!M
129 ;;^DIST(.404,.404021,40,8,3.1)
130 ;;=S Y=DDGFCC0
131 ;;^DIST(.404,.404021,40,8,4)
132 ;;=1
133 ;;^DIST(.404,.404021,40,8,20)
134 ;;=DD^^.4044,5.1
135 ;;^DIST(.404,.404021,40,8,23)
136 ;;=S DDGFCC=X
137 ;;^DIST(.404,.404021,40,9,0)
138 ;;=4^UNIQUE NAME^3
139 ;;^DIST(.404,.404021,40,9,1)
140 ;;=3.1
141 ;;^DIST(.404,.404021,40,9,2)
142 ;;=5,21^50^5,8
143 ;;^DIST(.404,.404031,0)
144 ;;=DDGF FIELD DD^.4044
145 ;;^DIST(.404,.404031,40,0)
146 ;;=^.4044I^17^14
147 ;;^DIST(.404,.404031,40,1,0)
148 ;;=1^ Data Dictionary Field Properties ^1
149 ;;^DIST(.404,.404031,40,1,2)
150 ;;=^^1,22
151 ;;^DIST(.404,.404031,40,2,0)
152 ;;=2^FIELD ORDER^3
153 ;;^DIST(.404,.404031,40,2,1)
154 ;;=.01
155 ;;^DIST(.404,.404031,40,2,2)
156 ;;=3,26^4^3,13
157 ;;^DIST(.404,.404031,40,3,0)
158 ;;=3^FIELD^3
159 ;;^DIST(.404,.404031,40,3,1)
160 ;;=4
161 ;;^DIST(.404,.404031,40,3,2)
162 ;;=3,66^10^3,59
163 ;;^DIST(.404,.404031,40,3,4)
164 ;;=1
165 ;;^DIST(.404,.404031,40,3,13)
166 ;;=D POSTCH1^DDGFU
167 ;;^DIST(.404,.404031,40,5,0)
168 ;;=8^DEFAULT^3
169 ;;^DIST(.404,.404031,40,5,1)
170 ;;=6
171 ;;^DIST(.404,.404031,40,5,2)
172 ;;=8,26^50^8,17
173 ;;^DIST(.404,.404031,40,5,13)
174 ;;=D:DDSOLD="!M" PUT^DDSVAL(.4044,.DA,6.01,"")
175 ;;^DIST(.404,.404031,40,7,0)
176 ;;=11^BRANCHING LOGIC^3
177 ;;^DIST(.404,.404031,40,7,1)
178 ;;=10
179 ;;^DIST(.404,.404031,40,7,2)
180 ;;=12,26^50^12,9
181 ;;^DIST(.404,.404031,40,8,0)
182 ;;=12^PRE ACTION^3
183 ;;^DIST(.404,.404031,40,8,1)
184 ;;=11
185 ;;^DIST(.404,.404031,40,8,2)
186 ;;=13,26^50^13,14
187 ;;^DIST(.404,.404031,40,9,0)
188 ;;=13^POST ACTION^3
189 ;;^DIST(.404,.404031,40,9,1)
190 ;;=12
191 ;;^DIST(.404,.404031,40,9,2)
192 ;;=14,26^50^14,13
193 ;;^DIST(.404,.404031,40,10,0)
194 ;;=14^POST ACTION ON CHANGE^3
195 ;;^DIST(.404,.404031,40,10,1)
196 ;;=13
197 ;;^DIST(.404,.404031,40,10,2)
198 ;;=15,26^50^15,3
199 ;;^DIST(.404,.404031,40,12,0)
200 ;;=10^EXECUTABLE DEFAULT^3
201 ;;^DIST(.404,.404031,40,12,1)
202 ;;=6.01
203 ;;^DIST(.404,.404031,40,12,2)
204 ;;=10,26^50^10,6
205 ;;^DIST(.404,.404031,40,12,13)
206 ;;=D PUT^DDSVAL(.4044,.DA,6,$S(X="":"",1:"!M"))
207 ;;^DIST(.404,.404031,40,13,0)
208 ;;=4^OTHER PARAMETERS...^2
209 ;;^DIST(.404,.404031,40,13,2)
210 ;;=4,26^1^4,6^1
211 ;;^DIST(.404,.404031,40,13,10)
212 ;;=N DDGFFLD,DDGFSUB S DDSSTACK=11,DDGFFLD=$$GET^DDSVAL(.4044,.DA,4) I DDGFFLD S DDGFSUB=+$P($G(^DD(DDGFDD,DDGFFLD,0)),U,2) S:DDGFSUB DDSSTACK=$S(DDGFSUB_$P($G(^DD(DDGFSUB,.01,0)),U,2)'["W":21,1:31)
213 ;;^DIST(.404,.404031,40,13,20)
214 ;;=F^^0:0
215 ;;^DIST(.404,.404031,40,13,21,0)
216 ;;=^^1^1^2940928
217 ;;^DIST(.404,.404031,40,13,21,1,0)
218 ;;=Press <RET> to edit additional properties of this Data Dictionary field
219 ;;^DIST(.404,.404031,40,14,0)
220 ;;=7^CAPTION^2
221 ;;^DIST(.404,.404031,40,14,2)
222 ;;=7,26^50^7,17
223 ;;^DIST(.404,.404031,40,14,3)
224 ;;=!M
225 ;;^DIST(.404,.404031,40,14,3.1)
226 ;;=S Y=DDGFCAP0
227 ;;^DIST(.404,.404031,40,14,13)
228 ;;=D DDCAP^DDGFU
229 ;;^DIST(.404,.404031,40,14,20)
230 ;;=DD^^.4044,1
231 ;;^DIST(.404,.404031,40,14,23)
232 ;;=S DDGFCAP=X
233 ;;^DIST(.404,.404031,40,15,0)
234 ;;=5^SUPPRESS COLON AFTER CAPTION?^2
235 ;;^DIST(.404,.404031,40,15,2)
236 ;;=4,66^3^4,36^1
237 ;;^DIST(.404,.404031,40,15,3)
238 ;;=!M
239 ;;^DIST(.404,.404031,40,15,3.1)
240 ;;=S Y=DDGFSUP0
Note: See TracBrowser for help on using the repository browser.