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

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

initial load of FOIAVistA 6/30/08 version

File size: 6.7 KB
Line 
1DIPKI006 ; ; 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.44,222.8,3)
7 ;;=
8 ;;^DD(9.44,222.8,21,0)
9 ;;=^^7^7^2920513^^^^
10 ;;^DD(9.44,222.8,21,1,0)
11 ;;=
12 ;;^DD(9.44,222.8,21,2,0)
13 ;;=If the data being sent is to be MERGED, then only data which is not
14 ;;^DD(9.44,222.8,21,3,0)
15 ;;=already on file at the recipient site will be put in place.
16 ;;^DD(9.44,222.8,21,4,0)
17 ;;=
18 ;;^DD(9.44,222.8,21,5,0)
19 ;;=If the data being sent is to OVERWRITE, then the data included in
20 ;;^DD(9.44,222.8,21,6,0)
21 ;;=the initialization routines will be put in place regardless of what
22 ;;^DD(9.44,222.8,21,7,0)
23 ;;=is on file at the recipient site.
24 ;;^DD(9.44,222.8,"DT")
25 ;;=2890627
26 ;;^DD(9.44,222.9,0)
27 ;;=MAY USER OVERRIDE DATA UPDATE^S^y:YES;n:NO;^222;9^Q
28 ;;^DD(9.44,222.9,2)
29 ;;=MAY USER OVERRIDE DATA UPDATE
30 ;;^DD(9.44,222.9,3)
31 ;;=
32 ;;^DD(9.44,222.9,21,0)
33 ;;=^^7^7^2920513^^^^
34 ;;^DD(9.44,222.9,21,1,0)
35 ;;=YES means that the user has the option to determine whether or not
36 ;;^DD(9.44,222.9,21,2,0)
37 ;;=to bring in the data that has been sent with the package. However,
38 ;;^DD(9.44,222.9,21,3,0)
39 ;;=he does not get the ability to change from merge to overwrite or
40 ;;^DD(9.44,222.9,21,4,0)
41 ;;=from overwrite to merge.
42 ;;^DD(9.44,222.9,21,5,0)
43 ;;=
44 ;;^DD(9.44,222.9,21,6,0)
45 ;;=No means that the developer of the INIT will control whether the data
46 ;;^DD(9.44,222.9,21,7,0)
47 ;;=will be installed at the target site.
48 ;;^DD(9.44,222.9,"DT")
49 ;;=2940502
50 ;;^DD(9.44,223,0)
51 ;;=SCREEN TO DETERMINE DD UPDATE^KX^^223;E1,245^K:$L(X)>240 X I $D(X) D ^DIM
52 ;;^DD(9.44,223,3)
53 ;;=This is Standard MUMPS code from 1 to 240 characters in length.
54 ;;^DD(9.44,223,9)
55 ;;=@
56 ;;^DD(9.44,223,21,0)
57 ;;=^^7^7^2920513^^
58 ;;^DD(9.44,223,21,1,0)
59 ;;=This field contains standard MUMPS code which is used to determine
60 ;;^DD(9.44,223,21,2,0)
61 ;;=whether or not a data dictionary should be updated. This code must
62 ;;^DD(9.44,223,21,3,0)
63 ;;=set $T. If $T=1, the DD will be updated. If $T=0, it will not.
64 ;;^DD(9.44,223,21,4,0)
65 ;;=
66 ;;^DD(9.44,223,21,5,0)
67 ;;=This code will be executed within VA FileMan which may be being called
68 ;;^DD(9.44,223,21,6,0)
69 ;;=from within MailMan which is being called from within MenuMan.
70 ;;^DD(9.44,223,21,7,0)
71 ;;=Namespace your variables.
72 ;;^DD(9.44,223,"DT")
73 ;;=2890927
74 ;;^DD(9.444,0)
75 ;;=*STATUS SUB-FIELD^NL^2^4
76 ;;^DD(9.444,0,"NM","*STATUS")
77 ;;=
78 ;;^DD(9.444,0,"UP")
79 ;;=9.4
80 ;;^DD(9.444,.01,0)
81 ;;=DATE^DX^^0;1^S %DT="E" D ^%DT S (DINUM,X)=Y K:Y<1 X,DINUM
82 ;;^DD(9.444,.01,3)
83 ;;=Please enter the date at which the current status took effect.
84 ;;^DD(9.444,.01,21,0)
85 ;;=^^1^1^2851008^^
86 ;;^DD(9.444,.01,21,1,0)
87 ;;=This is the date at which the current status took effect.
88 ;;^DD(9.444,.01,"DT")
89 ;;=2840814
90 ;;^DD(9.444,1,0)
91 ;;=STATUS^S^A:ASSIGNED;P:PENDING;T:TEMPORARY;X:NO LONGER USED;^0;2^Q
92 ;;^DD(9.444,1,21,0)
93 ;;=^^2^2^2851008^
94 ;;^DD(9.444,1,21,1,0)
95 ;;=This specifies the current status of the namespace, i.e. Temporary,
96 ;;^DD(9.444,1,21,2,0)
97 ;;=Pending, Assigned, etc.
98 ;;^DD(9.444,1,"DT")
99 ;;=2840814
100 ;;^DD(9.444,1.5,0)
101 ;;=EXPIRATION DATE^D^^2;1^S %DT="E" D ^%DT S X=Y K:Y<1 X
102 ;;^DD(9.444,1.5,3)
103 ;;=Please enter the date at which the namespace was de-assigned.
104 ;;^DD(9.444,1.5,21,0)
105 ;;=^^2^2^2851008^^
106 ;;^DD(9.444,1.5,21,1,0)
107 ;;=This is the date at which the assignment of the namespace to
108 ;;^DD(9.444,1.5,21,2,0)
109 ;;=this Package expired.
110 ;;^DD(9.444,1.5,"DT")
111 ;;=2840815
112 ;;^DD(9.444,2,0)
113 ;;=COMMENTS^9.454^^1;0
114 ;;^DD(9.444,2,21,0)
115 ;;=^^1^1^2851008^
116 ;;^DD(9.444,2,21,1,0)
117 ;;=These are any comments about the status of this Package's namespace.
118 ;;^DD(9.45,0)
119 ;;=FIELD SUB-FIELD^NL^.01^1
120 ;;^DD(9.45,0,"IX","B",9.45,.01)
121 ;;=
122 ;;^DD(9.45,0,"NM","FIELD")
123 ;;=
124 ;;^DD(9.45,0,"UP")
125 ;;=9.44
126 ;;^DD(9.45,.01,0)
127 ;;=FIELD^MFX^^0;1^S %=+^DIC(9.4,DA(2),4,DA(1),0),X=$S($L(X)>30:X,$D(^DD(%,"B",X)):X,X'?.NP:0,'$D(^DD(%,X,0)):0,1:$P(^(0),U,1)) K:X=0 X
128 ;;^DD(9.45,.01,.1)
129 ;;=FIELDS REQUIRED FOR THE PACKAGE
130 ;;^DD(9.45,.01,1,0)
131 ;;=^.1
132 ;;^DD(9.45,.01,1,1,0)
133 ;;=9.45^B
134 ;;^DD(9.45,.01,1,1,1)
135 ;;=S ^DIC(9.4,DA(2),4,DA(1),1,"B",X,DA)=""
136 ;;^DD(9.45,.01,1,1,2)
137 ;;=K ^DIC(9.4,DA(2),4,DA(1),1,"B",X,DA)
138 ;;^DD(9.45,.01,3)
139 ;;=Please enter the name of a field.
140 ;;^DD(9.45,.01,21,0)
141 ;;=^^4^4^2920513^^^^
142 ;;^DD(9.45,.01,21,1,0)
143 ;;=The name of a FileMan field required by this Package. This field is
144 ;;^DD(9.45,.01,21,2,0)
145 ;;=only to be filled in if you wish to send only selected fields in
146 ;;^DD(9.45,.01,21,3,0)
147 ;;=an INIT of this file, instead of the full data dictionary. (i.e.,
148 ;;^DD(9.45,.01,21,4,0)
149 ;;=a partial DD).
150 ;;^DD(9.45,.01,"DT")
151 ;;=2840302
152 ;;^DD(9.454,0)
153 ;;=COMMENTS SUB-FIELD^NL^.01^1
154 ;;^DD(9.454,0,"NM","COMMENTS")
155 ;;=
156 ;;^DD(9.454,0,"UP")
157 ;;=9.444
158 ;;^DD(9.454,.01,0)
159 ;;=COMMENTS^W^^0;1^Q
160 ;;^DD(9.454,.01,21,0)
161 ;;=^^1^1^2851008^
162 ;;^DD(9.454,.01,21,1,0)
163 ;;=These are comments about the status of this Package's namespace.
164 ;;^DD(9.454,.01,"DT")
165 ;;=2840815
166 ;;^DD(9.455,0)
167 ;;=*KEY VARIABLE SUB-FIELD^NL^1^3
168 ;;^DD(9.455,0,"DT")
169 ;;=2920928
170 ;;^DD(9.455,0,"IX","AB",9.455,.01)
171 ;;=
172 ;;^DD(9.455,0,"NM","*KEY VARIABLE")
173 ;;=
174 ;;^DD(9.455,0,"UP")
175 ;;=9.4
176 ;;^DD(9.455,.01,0)
177 ;;=KEY VARIABLE^MF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<1) X
178 ;;^DD(9.455,.01,1,0)
179 ;;=^.1
180 ;;^DD(9.455,.01,1,1,0)
181 ;;=9.455^AB
182 ;;^DD(9.455,.01,1,1,1)
183 ;;=S ^DIC(9.4,DA(1),1933,"AB",$E(X,1,30),DA)=""
184 ;;^DD(9.455,.01,1,1,2)
185 ;;=K ^DIC(9.4,DA(1),1933,"AB",$E(X,1,30),DA)
186 ;;^DD(9.455,.01,3)
187 ;;=Please enter the name of a MUMPS Variable needed by this Package (1-17 characters).
188 ;;^DD(9.455,.01,21,0)
189 ;;=^^2^2^2851009^^
190 ;;^DD(9.455,.01,21,1,0)
191 ;;=The name of a MUMPS variable which the Package would like defined
192 ;;^DD(9.455,.01,21,2,0)
193 ;;=prior to entry into the routines.
194 ;;^DD(9.455,.01,"DT")
195 ;;=2850228
196 ;;^DD(9.455,.02,0)
197 ;;=PURPOSE FOR ERR REPORTS^F^^0;2^K:$L(X)>40!($L(X)<3) X
198 ;;^DD(9.455,.02,3)
199 ;;=Answer must be 3-40 characters in length. This will be displayed to indicate the purpose of this variable on error reports
200 ;;^DD(9.455,.02,21,0)
201 ;;=^^8^8^2920928^
202 ;;^DD(9.455,.02,21,1,0)
203 ;;=This field is meant to contain a brief description of the purpose or role
204 ;;^DD(9.455,.02,21,2,0)
205 ;;=of this KEY VARIABLE. If this variable is present in an error which has
206 ;;^DD(9.455,.02,21,3,0)
207 ;;=been trapped, and a user selects display of key variables, then this
208 ;;^DD(9.455,.02,21,4,0)
209 ;;=description will be displayed to aid the user in interpeting the variable
210 ;;^DD(9.455,.02,21,5,0)
211 ;;=and its value at the time the error occurred. If this description is not
Note: See TracBrowser for help on using the repository browser.