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

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

initial load of WorldVistAEHR
File size: 6.6 KB
Line 
1DINIT0FF ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;06:21 PM 2 Apr 2001
2 ;;22.0;VA FileMan;**8,62,82**;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="" ^DINIT0FG S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.402011,40,11,21,0)
8 ;;=^^5^5^3010402
9 ;;^DIST(.404,.402011,40,11,21,1,0)
10 ;;=Enter a valid MUMPS routine name of from 3 to 8 characters. This must
11 ;;^DIST(.404,.402011,40,11,21,2,0)
12 ;;=be entered without a leading up-arrow, and cannot begin with "DI".
13 ;;^DIST(.404,.402011,40,11,21,3,0)
14 ;;=It must name a routine currently on the system.
15 ;;^DIST(.404,.402011,40,11,21,4,0)
16 ;;=This special lookup routine will be executed instead of the standard
17 ;;^DIST(.404,.402011,40,11,21,5,0)
18 ;;=FileMan lookup logic, whenever a call is made to ^DIC.
19 ;;^DIST(.404,.402011,40,12,0)
20 ;;=12^CROSS-REFERENCE ROUTINE^2^^CROSS-REFERENCE ROUTINE
21 ;;^DIST(.404,.402011,40,12,2)
22 ;;=17,26^6^17,1
23 ;;^DIST(.404,.402011,40,12,3)
24 ;;=!M
25 ;;^DIST(.404,.402011,40,12,3.1)
26 ;;=S Y=$G(^DD(DA,0,"DIK"))
27 ;;^DIST(.404,.402011,40,12,14)
28 ;;=I X?1"DI".E!(X'?3U.3NU),X]"" S DDSERROR=1
29 ;;^DIST(.404,.402011,40,12,20)
30 ;;=F
31 ;;^DIST(.404,.402011,40,12,21,0)
32 ;;=^^11^11^2981029
33 ;;^DIST(.404,.402011,40,12,21,1,0)
34 ;;=
35 ;;^DIST(.404,.402011,40,12,21,2,0)
36 ;;=Enter a valid MUMPS routine name of from 3 to 6 characters. This must
37 ;;^DIST(.404,.402011,40,12,21,3,0)
38 ;;=be entered without a leading up-arrow, and cannot begin with "DI".
39 ;;^DIST(.404,.402011,40,12,21,4,0)
40 ;;=
41 ;;^DIST(.404,.402011,40,12,21,5,0)
42 ;;=This will become the namespace of the compiled routine(s).
43 ;;^DIST(.404,.402011,40,12,21,6,0)
44 ;;=
45 ;;^DIST(.404,.402011,40,12,21,7,0)
46 ;;=If a NEW routine name is entered, but the cross-references are not
47 ;;^DIST(.404,.402011,40,12,21,8,0)
48 ;;=compiled at this time, the routine name will be automatically deleted.
49 ;;^DIST(.404,.402011,40,12,21,9,0)
50 ;;=
51 ;;^DIST(.404,.402011,40,12,21,10,0)
52 ;;=If the routine name is deleted, the cross-references are considered
53 ;;^DIST(.404,.402011,40,12,21,11,0)
54 ;;=un-compiled, and FileMan will not use the routine for re-indexing.
55 ;;^DIST(.404,.402011,40,13,0)
56 ;;=1.8^DEVELOPER^3
57 ;;^DIST(.404,.402011,40,13,1)
58 ;;=20
59 ;;^DIST(.404,.402011,40,13,2)
60 ;;=5,36^35^5,25
61 ;;^DIST(.404,.402011,40,15,0)
62 ;;=1.2^Select APPLICATION GROUP^3
63 ;;^DIST(.404,.402011,40,15,1)
64 ;;=10
65 ;;^DIST(.404,.402011,40,15,2)
66 ;;=4,36^5^4,10
67 ;;^DIST(.404,.402011,40,16,0)
68 ;;=.1^^4^^NUMBER
69 ;;^DIST(.404,.402011,40,16,2)
70 ;;=3,49^18
71 ;;^DIST(.404,.402011,40,16,30)
72 ;;=S Y="(File # "_DA_")"
73 ;;^DIST(.404,.402011,40,17,0)
74 ;;=.2^FILE NAME^2^^NAME
75 ;;^DIST(.404,.402011,40,17,2)
76 ;;=2,12^45^2,1
77 ;;^DIST(.404,.402011,40,17,3)
78 ;;=!M
79 ;;^DIST(.404,.402011,40,17,3.1)
80 ;;=S Y=$P($G(^DIC(DA,0)),U)
81 ;;^DIST(.404,.402011,40,17,13)
82 ;;=I X="" S DDACT="EX"
83 ;;^DIST(.404,.402011,40,17,20)
84 ;;=F^^3:45
85 ;;^DIST(.404,.402011,40,18,0)
86 ;;=13^^4^^FORMERLY COMPILED AS
87 ;;^DIST(.404,.402011,40,18,2)
88 ;;=17,37^31
89 ;;^DIST(.404,.402011,40,18,30)
90 ;;=S Y="" I '$D(^DD(DA,0,"DIK")) S Y=$G(^("DIKOLD")) S:Y]"" Y="(formerly compiled as '"_Y_"')"
91 ;;^DIST(.404,.403011,0)
92 ;;=DDGF BLOCK EDIT 1^.4032
93 ;;^DIST(.404,.403011,11)
94 ;;=I $$GET^DDSVAL(DIE,.DA,3)="d" D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",1)
95 ;;^DIST(.404,.403011,40,0)
96 ;;=^.4044I^10^8
97 ;;^DIST(.404,.403011,40,1,0)
98 ;;=1^ Block Properties Stored in FORM File ^1
99 ;;^DIST(.404,.403011,40,1,2)
100 ;;=^^1,20^1
101 ;;^DIST(.404,.403011,40,2,0)
102 ;;=3^BLOCK ORDER^3
103 ;;^DIST(.404,.403011,40,2,1)
104 ;;=1
105 ;;^DIST(.404,.403011,40,2,2)
106 ;;=3,69^4^3,56
107 ;;^DIST(.404,.403011,40,2,4)
108 ;;=1
109 ;;^DIST(.404,.403011,40,3,0)
110 ;;=4^TYPE OF BLOCK^3
111 ;;^DIST(.404,.403011,40,3,1)
112 ;;=3
113 ;;^DIST(.404,.403011,40,3,2)
114 ;;=4,18^7^4,3
115 ;;^DIST(.404,.403011,40,3,4)
116 ;;=1
117 ;;^DIST(.404,.403011,40,3,13)
118 ;;=D:X="d" PUT^DDSVAL(.404,$$GET^DDSVAL(DIE,.DA,.01),2,"") D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",$E(1,X="d"))
119 ;;^DIST(.404,.403011,40,5,0)
120 ;;=6^POINTER LINK^3
121 ;;^DIST(.404,.403011,40,5,1)
122 ;;=4
123 ;;^DIST(.404,.403011,40,5,2)
124 ;;=6,18^57^6,4
125 ;;^DIST(.404,.403011,40,6,0)
126 ;;=2^BLOCK NAME^3
127 ;;^DIST(.404,.403011,40,6,1)
128 ;;=.01
129 ;;^DIST(.404,.403011,40,6,2)
130 ;;=3,18^30^3,6
131 ;;^DIST(.404,.403011,40,8,0)
132 ;;=7^PRE ACTION^3
133 ;;^DIST(.404,.403011,40,8,1)
134 ;;=11
135 ;;^DIST(.404,.403011,40,8,2)
136 ;;=7,18^57^7,6
137 ;;^DIST(.404,.403011,40,9,0)
138 ;;=9^POST ACTION^3
139 ;;^DIST(.404,.403011,40,9,1)
140 ;;=12
141 ;;^DIST(.404,.403011,40,9,2)
142 ;;=8,18^57^8,5
143 ;;^DIST(.404,.403011,40,10,0)
144 ;;=5^OTHER PARAMETERS...^2
145 ;;^DIST(.404,.403011,40,10,2)
146 ;;=4,69^1^4,49^1
147 ;;^DIST(.404,.403011,40,10,7)
148 ;;=^11
149 ;;^DIST(.404,.403011,40,10,20)
150 ;;=F^^0:0
151 ;;^DIST(.404,.403011,40,10,21,0)
152 ;;=^^1^1^2940928
153 ;;^DIST(.404,.403011,40,10,21,1,0)
154 ;;=Press <RET> to edit additional properties of the block
155 ;;^DIST(.404,.403012,0)
156 ;;=DDGF BLOCK EDIT 2^.404
157 ;;^DIST(.404,.403012,40,0)
158 ;;=^.4044I^7^7
159 ;;^DIST(.404,.403012,40,1,0)
160 ;;=1^----------------- Block Properties Stored in BLOCK File ------------------^1
161 ;;^DIST(.404,.403012,40,1,2)
162 ;;=^^1,2^1
163 ;;^DIST(.404,.403012,40,2,0)
164 ;;=2^NAME^2
165 ;;^DIST(.404,.403012,40,2,2)
166 ;;=3,16^30^3,10
167 ;;^DIST(.404,.403012,40,2,3)
168 ;;=!M
169 ;;^DIST(.404,.403012,40,2,3.1)
170 ;;=S Y=DDGFBKNO
171 ;;^DIST(.404,.403012,40,2,20)
172 ;;=DD^^.404,.01
173 ;;^DIST(.404,.403012,40,2,23)
174 ;;=S DDGFBKNN=X
175 ;;^DIST(.404,.403012,40,3,0)
176 ;;=3^DESCRIPTION (WP)^3
177 ;;^DIST(.404,.403012,40,3,1)
178 ;;=15
179 ;;^DIST(.404,.403012,40,3,2)
180 ;;=3,69^1^3,51
181 ;;^DIST(.404,.403012,40,4,0)
182 ;;=4^DD NUMBER^3
183 ;;^DIST(.404,.403012,40,4,1)
184 ;;=1
185 ;;^DIST(.404,.403012,40,4,2)
186 ;;=4,16^16^4,5
187 ;;^DIST(.404,.403012,40,5,0)
188 ;;=5^DISABLE NAVIGATION^3
189 ;;^DIST(.404,.403012,40,5,1)
190 ;;=2
191 ;;^DIST(.404,.403012,40,5,2)
192 ;;=4,69^5^4,49
193 ;;^DIST(.404,.403012,40,6,0)
194 ;;=6^PRE ACTION^3
195 ;;^DIST(.404,.403012,40,6,1)
196 ;;=11
197 ;;^DIST(.404,.403012,40,6,2)
198 ;;=6,16^59^6,4
199 ;;^DIST(.404,.403012,40,7,0)
200 ;;=7^POST ACTION^3
201 ;;^DIST(.404,.403012,40,7,1)
202 ;;=12
203 ;;^DIST(.404,.403012,40,7,2)
204 ;;=7,16^59^7,3
205 ;;^DIST(.404,.403013,0)
206 ;;=DDGF BLOCK EDIT OTHER^.4032
207 ;;^DIST(.404,.403013,11)
208 ;;=I $$GET^DDSVAL(DIE,.DA,"REPLICATION")<2 N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION","ASK 'OK'" D UNED^DDSUTL(DDGFZ,"","",1)
209 ;;^DIST(.404,.403013,40,0)
210 ;;=^.4044I^9^9
211 ;;^DIST(.404,.403013,40,1,0)
212 ;;=1^ Other Block Parameters ^1
213 ;;^DIST(.404,.403013,40,1,2)
214 ;;=^^1,16
215 ;;^DIST(.404,.403013,40,2,0)
216 ;;=2^BLOCK COORDINATE^2
217 ;;^DIST(.404,.403013,40,2,2)
218 ;;=3,24^7^3,6
219 ;;^DIST(.404,.403013,40,2,3)
220 ;;=!M
221 ;;^DIST(.404,.403013,40,2,3.1)
222 ;;=S Y=DDGFBKCO
223 ;;^DIST(.404,.403013,40,2,4)
224 ;;=1
225 ;;^DIST(.404,.403013,40,2,20)
226 ;;=DD^^.4032,2
227 ;;^DIST(.404,.403013,40,2,23)
228 ;;=S DDGFBKCN=X
Note: See TracBrowser for help on using the repository browser.