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

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

initial load of WorldVistAEHR

File size: 6.6 KB
Line 
1DIPKI005 ; ; 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 Q:'DIFQ(9.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) X NO E S @X=Y
5Q Q
6 ;;^DD(9.42,.01,21,1,0)
7 ;;=This multiple is used for documentation purposes only and does
8 ;;^DD(9.42,.01,21,2,0)
9 ;;=not control anything during the INIT process. It is used to document
10 ;;^DD(9.42,.01,21,3,0)
11 ;;=the routines that are included in this Package.
12 ;;^DD(9.42,.01,22)
13 ;;=
14 ;;^DD(9.42,.01,"DT")
15 ;;=2850211
16 ;;^DD(9.43,0)
17 ;;=*GLOBAL SUB-FIELD^NL^5^3
18 ;;^DD(9.43,0,"DT")
19 ;;=2910827
20 ;;^DD(9.43,0,"IX","B",9.43,.01)
21 ;;=
22 ;;^DD(9.43,0,"NM","*GLOBAL")
23 ;;=
24 ;;^DD(9.43,0,"UP")
25 ;;=9.4
26 ;;^DD(9.43,.01,0)
27 ;;=GLOBAL^MF^^0;1^K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>15!($L(X)<1) X
28 ;;^DD(9.43,.01,1,0)
29 ;;=^.1
30 ;;^DD(9.43,.01,1,1,0)
31 ;;=9.43^B
32 ;;^DD(9.43,.01,1,1,1)
33 ;;=S ^DIC(9.4,DA(1),3,"B",X,DA)=""
34 ;;^DD(9.43,.01,1,1,2)
35 ;;=K ^DIC(9.4,DA(1),3,"B",X,DA)
36 ;;^DD(9.43,.01,3)
37 ;;=Enter name of global used in this package. Answer must be 1-15 characters in length. (Used for documentation only.)
38 ;;^DD(9.43,.01,21,0)
39 ;;=^^2^2^2920513^^^
40 ;;^DD(9.43,.01,21,1,0)
41 ;;=The name of a global which is part of this Package. Used for documentation
42 ;;^DD(9.43,.01,21,2,0)
43 ;;=only.
44 ;;^DD(9.43,.01,"DT")
45 ;;=2910827
46 ;;^DD(9.43,4,0)
47 ;;=DESCRIPTION^9.431^^4;0
48 ;;^DD(9.43,4,21,0)
49 ;;=^^1^1^2920513^^
50 ;;^DD(9.43,4,21,1,0)
51 ;;=This is a description of the global and how it is used by the Package.
52 ;;^DD(9.43,5,0)
53 ;;=JOURNALLING^S^M:mandatory!;O:optional--not required;N:not recommended;^5;1^Q
54 ;;^DD(9.43,5,21,0)
55 ;;=^^1^1^2920513^^^
56 ;;^DD(9.43,5,21,1,0)
57 ;;=Advises whether or not to Journal this global.
58 ;;^DD(9.43,5,"DT")
59 ;;=2850228
60 ;;^DD(9.431,0)
61 ;;=DESCRIPTION SUB-FIELD^NL^.01^1
62 ;;^DD(9.431,0,"NM","DESCRIPTION")
63 ;;=
64 ;;^DD(9.431,0,"UP")
65 ;;=9.43
66 ;;^DD(9.431,.01,0)
67 ;;=DESCRIPTION^W^^0;1^Q
68 ;;^DD(9.431,.01,21,0)
69 ;;=^^1^1^2920513^^^
70 ;;^DD(9.431,.01,21,1,0)
71 ;;=This is a description of the global and how it is used by the Package.
72 ;;^DD(9.431,.01,"DT")
73 ;;=2850228
74 ;;^DD(9.432,0)
75 ;;=*EXCLUDED NAME SPACE SUB-FIELD^NL^.01^1
76 ;;^DD(9.432,0,"NM","*EXCLUDED NAME SPACE")
77 ;;=
78 ;;^DD(9.432,0,"UP")
79 ;;=9.4
80 ;;^DD(9.432,.01,0)
81 ;;=EXCLUDED NAME SPACE^MFX^^0;1^K:$L(X)>7!($L(X)<2)!'(X?1U1UN.UN) X
82 ;;^DD(9.432,.01,3)
83 ;;=Please enter the prefix of the excluded name space (2-7 characters).
84 ;;^DD(9.432,.01,4)
85 ;;=W !,?5,"When DIFROM builds '",$P(^DIC(9.4,D0,0),"^",2),"INIT',",!?5,"OPTIONS, FUNCTIONS, SECURITY KEYS, and BULLETINS beginning with",!?5,"these characters WON'T be included.",!
86 ;;^DD(9.432,.01,21,0)
87 ;;=^^2^2^2851008^
88 ;;^DD(9.432,.01,21,1,0)
89 ;;=This specifies a sub-set of the Package's namespace which is not to
90 ;;^DD(9.432,.01,21,2,0)
91 ;;=be exported by the DIFROM routines.
92 ;;^DD(9.432,.01,"DT")
93 ;;=2841128
94 ;;^DD(9.44,0)
95 ;;=*FILE SUB-FIELD^NL^223^9
96 ;;^DD(9.44,0,"DT")
97 ;;=2890928
98 ;;^DD(9.44,0,"IX","B",9.44,.01)
99 ;;=
100 ;;^DD(9.44,0,"NM","*FILE")
101 ;;=
102 ;;^DD(9.44,0,"UP")
103 ;;=9.4
104 ;;^DD(9.44,.01,0)
105 ;;=FILE^M*P1'^DIC(^0;1^S DIC("S")="I Y>1.9999" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
106 ;;^DD(9.44,.01,.1)
107 ;;=REQUIRED FILES FOR THIS PACKAGE
108 ;;^DD(9.44,.01,1,0)
109 ;;=^.1
110 ;;^DD(9.44,.01,1,1,0)
111 ;;=9.44^B
112 ;;^DD(9.44,.01,1,1,1)
113 ;;=S ^DIC(9.4,DA(1),4,"B",X,DA)=""
114 ;;^DD(9.44,.01,1,1,2)
115 ;;=K ^DIC(9.4,DA(1),4,"B",X,DA)
116 ;;^DD(9.44,.01,1,2,0)
117 ;;=9.4^AR
118 ;;^DD(9.44,.01,1,2,1)
119 ;;=S ^DIC(9.4,"AR",$E(X,1,30),DA(1),DA)=""
120 ;;^DD(9.44,.01,1,2,2)
121 ;;=K ^DIC(9.4,"AR",$E(X,1,30),DA(1),DA)
122 ;;^DD(9.44,.01,3)
123 ;;=Please enter the name of a FILE that is known to VA FileMan.
124 ;;^DD(9.44,.01,12)
125 ;;=Select a file which is used by this package.
126 ;;^DD(9.44,.01,12.1)
127 ;;=S DIC("S")="I Y>1.9999"
128 ;;^DD(9.44,.01,21,0)
129 ;;=^^2^2^2920513^^^^
130 ;;^DD(9.44,.01,21,1,0)
131 ;;=The name of a VA FileMan file which you wish to transport with
132 ;;^DD(9.44,.01,21,2,0)
133 ;;=this package. This may be any file whose number is 2 or greater.
134 ;;^DD(9.44,.01,"DT")
135 ;;=2890928
136 ;;^DD(9.44,2,0)
137 ;;=FIELD^9.45A^^1;0
138 ;;^DD(9.44,2,21,0)
139 ;;=^^3^3^2920513^^^
140 ;;^DD(9.44,2,21,1,0)
141 ;;=The names of the FileMan Fields required by this Package. Enter data
142 ;;^DD(9.44,2,21,2,0)
143 ;;=here ONLY if you wish to send just selected fields from a Data Dictionary
144 ;;^DD(9.44,2,21,3,0)
145 ;;=instead of the entire DD (i.e., a partial DD).
146 ;;^DD(9.44,222.1,0)
147 ;;=UPDATE THE DATA DICTIONARY^S^y:YES;n:NO;^222;1^Q
148 ;;^DD(9.44,222.1,21,0)
149 ;;=^^8^8^2920513^^^^
150 ;;^DD(9.44,222.1,21,1,0)
151 ;;=YES means that the Data Dictionary for this file should be updated when
152 ;;^DD(9.44,222.1,21,2,0)
153 ;;=this version of the package is installed.
154 ;;^DD(9.44,222.1,21,3,0)
155 ;;=
156 ;;^DD(9.44,222.1,21,4,0)
157 ;;=NO means that this Data Dictionary has not changed since the last version,
158 ;;^DD(9.44,222.1,21,5,0)
159 ;;=and therefore, need not be updated.
160 ;;^DD(9.44,222.1,21,6,0)
161 ;;=
162 ;;^DD(9.44,222.1,21,7,0)
163 ;;=If the Data Dictionary does not exist on the recipient system, then this
164 ;;^DD(9.44,222.1,21,8,0)
165 ;;=field does not apply. The DD will be put in place.
166 ;;^DD(9.44,222.1,"DT")
167 ;;=2890627
168 ;;^DD(9.44,222.2,0)
169 ;;=ASSIGN A VERSION NUMBER^S^y:YES;n:NO;^222;2^Q
170 ;;^DD(9.44,222.2,3)
171 ;;=
172 ;;^DD(9.44,222.2,21,0)
173 ;;=^^5^5^2920513^^^^
174 ;;^DD(9.44,222.2,21,1,0)
175 ;;=YES means that you want to set ^DD(file#,0,"VR") to the version
176 ;;^DD(9.44,222.2,21,2,0)
177 ;;=number of this package when the init is finished.
178 ;;^DD(9.44,222.2,21,3,0)
179 ;;=
180 ;;^DD(9.44,222.2,21,4,0)
181 ;;=NO means that you intend for the version number to remain as it is.
182 ;;^DD(9.44,222.2,21,5,0)
183 ;;=This may mean that this DD has no version number at all.
184 ;;^DD(9.44,222.4,0)
185 ;;=MAY USER OVERRIDE DD UPDATE^S^y:YES;n:NO;^222;4^Q
186 ;;^DD(9.44,222.4,3)
187 ;;=
188 ;;^DD(9.44,222.4,21,0)
189 ;;=^^5^5^2920513^^^^
190 ;;^DD(9.44,222.4,21,1,0)
191 ;;=YES means that the user may decide at installation time whether or not
192 ;;^DD(9.44,222.4,21,2,0)
193 ;;=to update the data dictionary for this file.
194 ;;^DD(9.44,222.4,21,3,0)
195 ;;=
196 ;;^DD(9.44,222.4,21,4,0)
197 ;;=NO means that the developer building the INIT is determining if the
198 ;;^DD(9.44,222.4,21,5,0)
199 ;;=data dictionary is to be updated.
200 ;;^DD(9.44,222.7,0)
201 ;;=DATA COMES WITH FILE^S^y:YES;n:NO;^222;7^Q
202 ;;^DD(9.44,222.7,2)
203 ;;=DATA COMES WITH FILE
204 ;;^DD(9.44,222.7,21,0)
205 ;;=^^4^4^2920513^^^^
206 ;;^DD(9.44,222.7,21,1,0)
207 ;;=YES means that the data should be included in the initialization
208 ;;^DD(9.44,222.7,21,2,0)
209 ;;=routines.
210 ;;^DD(9.44,222.7,21,3,0)
211 ;;=
212 ;;^DD(9.44,222.7,21,4,0)
213 ;;=NO means that the data should be left out.
214 ;;^DD(9.44,222.7,"DT")
215 ;;=2940502
216 ;;^DD(9.44,222.8,0)
217 ;;=MERGE OR OVERWRITE SITE'S DATA^S^m:MERGE;o:OVERWRITE;^222;8^Q
Note: See TracBrowser for help on using the repository browser.