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

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

initial load of FOIAVistA 6/30/08 version

File size: 6.5 KB
Line 
1DINIT2C0 ;SFISC/MKO-IMPORT TEMPLATE FILE ;10:52 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 ^DINIT3
6Q Q
7 ;;^DIC(.46,0,"GL")
8 ;;=^DIST(.46,
9 ;;^DIC("B","IMPORT TEMPLATE",.46)
10 ;;=
11 ;;^DD(.46,0)
12 ;;=FIELD^^2^9
13 ;;^DD(.46,0,"DDA")
14 ;;=N
15 ;;^DD(.46,0,"DT")
16 ;;=2960531
17 ;;^DD(.46,0,"ID","WRITE")
18 ;;=N D,D1,D2 S D2=^(0) S:$X>30 D1(1,"F")="!" S D=$P(D2,U,2) S:D D1(2)="("_$$FMTE^DILIBF(D)_")",D1(2,"F")="?30" S D=$P(D2,U,5) S:D D1(3)="User #"_D,D1(3,"F")="?47" S D=$P(D2,U,4) S:D D1(4)=" File #"_D,D1(4,"F")="?59" D EN^DDIOL(.D1)
19 ;;^DD(.46,0,"IX","B",.46,.01)
20 ;;=
21 ;;^DD(.46,0,"IX","F",.46,4)
22 ;;=
23 ;;^DD(.46,0,"IX","F1",.46,.01)
24 ;;=
25 ;;^DD(.46,0,"NM","IMPORT TEMPLATE")
26 ;;=
27 ;;^DD(.46,.01,0)
28 ;;=NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
29 ;;^DD(.46,.01,1,0)
30 ;;=^.1^^-1
31 ;;^DD(.46,.01,1,1,0)
32 ;;=.46^B
33 ;;^DD(.46,.01,1,1,1)
34 ;;=S ^DIST(.46,"B",$E(X,1,30),DA)=""
35 ;;^DD(.46,.01,1,1,2)
36 ;;=K ^DIST(.46,"B",$E(X,1,30),DA)
37 ;;^DD(.46,.01,1,3,0)
38 ;;=.46^F1^MUMPS
39 ;;^DD(.46,.01,1,3,1)
40 ;;=N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,4) I DDMPX]"" S ^DIST(.46,"F"_DDMPX,X,DA)=""
41 ;;^DD(.46,.01,1,3,2)
42 ;;=N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,4) I DDMPX]"" K ^DIST(.46,"F"_DDMPX,X,DA)
43 ;;^DD(.46,.01,1,3,3)
44 ;;=Along with F cross-reference manages F_file# index.
45 ;;^DD(.46,.01,1,3,"%D",0)
46 ;;=^^2^2^2960531^^
47 ;;^DD(.46,.01,1,3,"%D",1,0)
48 ;;=Creates a cross-reference based on F_file# that is used as a lookup
49 ;;^DD(.46,.01,1,3,"%D",2,0)
50 ;;=cross-reference. Allows quick lookups by file number.
51 ;;^DD(.46,.01,1,3,"DT")
52 ;;=2960531
53 ;;^DD(.46,.01,3)
54 ;;=NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
55 ;;^DD(.46,.01,"DT")
56 ;;=2960531
57 ;;^DD(.46,2,0)
58 ;;=DATE CREATED^D^^0;2^S %DT="E" D ^%DT S X=Y K:Y<1 X
59 ;;^DD(.46,2,21,0)
60 ;;=^^1^1^2960531^
61 ;;^DD(.46,2,21,1,0)
62 ;;=Date that the import template was created.
63 ;;^DD(.46,2,"DT")
64 ;;=2960531
65 ;;^DD(.46,3,0)
66 ;;=READ ACCESS^F^^0;3^K:$L(X)>15!($L(X)<1) X
67 ;;^DD(.46,3,3)
68 ;;=Answer must be 1-15 characters in length.
69 ;;^DD(.46,3,21,0)
70 ;;=^^2^2^2960531^
71 ;;^DD(.46,3,21,1,0)
72 ;;=Access codes necessary to use the Import Template.
73 ;;^DD(.46,3,21,2,0)
74 ;;=If null, anyone can use the template.
75 ;;^DD(.46,3,"DT")
76 ;;=2960531
77 ;;^DD(.46,4,0)
78 ;;=PRIMARY FILE^RP1'^DIC(^0;4^Q
79 ;;^DD(.46,4,1,0)
80 ;;=^.1
81 ;;^DD(.46,4,1,1,0)
82 ;;=.46^F^MUMPS
83 ;;^DD(.46,4,1,1,1)
84 ;;=N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,1) I DDMPX]"" S ^DIST(.46,"F"_X,DDMPX,DA)=""
85 ;;^DD(.46,4,1,1,2)
86 ;;=N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,1) I DDMPX]"" K ^DIST(.46,"F"_X,DDMPX,DA)
87 ;;^DD(.46,4,1,1,3)
88 ;;=With F1 cross-reference manages the F_file# index.
89 ;;^DD(.46,4,1,1,"%D",0)
90 ;;=^^2^2^2960531^
91 ;;^DD(.46,4,1,1,"%D",1,0)
92 ;;=Creates an index under F_file# that is used as a compound index for
93 ;;^DD(.46,4,1,1,"%D",2,0)
94 ;;=lookups when the file# is known.
95 ;;^DD(.46,4,1,1,"DT")
96 ;;=2960531
97 ;;^DD(.46,4,21,0)
98 ;;=^^1^1^2960531^^^
99 ;;^DD(.46,4,21,1,0)
100 ;;=File that is the starting point for data import.
101 ;;^DD(.46,4,"DT")
102 ;;=2960531
103 ;;^DD(.46,5,0)
104 ;;=CREATOR^P200'^VA(200,^0;5^Q
105 ;;^DD(.46,5,21,0)
106 ;;=^^1^1^2960531^
107 ;;^DD(.46,5,21,1,0)
108 ;;=Person who created the import template.
109 ;;^DD(.46,5,"DT")
110 ;;=2960531
111 ;;^DD(.46,6,0)
112 ;;=WRITE ACCESS^F^^0;6^K:$L(X)>15!($L(X)<1) X
113 ;;^DD(.46,6,3)
114 ;;=Answer must be 1-15 characters in length.
115 ;;^DD(.46,6,21,0)
116 ;;=^^2^2^2960531^
117 ;;^DD(.46,6,21,1,0)
118 ;;=Access codes needed to change or delete the import template. If null,
119 ;;^DD(.46,6,21,2,0)
120 ;;=anyone can change or delete the template.
121 ;;^DD(.46,6,"DT")
122 ;;=2960531
123 ;;^DD(.46,7,0)
124 ;;=DATE LAST USED^D^^0;7^S %DT="EX" D ^%DT S X=Y K:Y<1 X
125 ;;^DD(.46,7,21,0)
126 ;;=^^1^1^2960531^
127 ;;^DD(.46,7,21,1,0)
128 ;;=Date template was last used.
129 ;;^DD(.46,7,"DT")
130 ;;=2960531
131 ;;^DD(.46,10,0)
132 ;;=DESCRIPTION^.461^^10;0
133 ;;^DD(.46,30,0)
134 ;;=IMPORT FIELDS^.463^^30;0
135 ;;^DD(.461,0)
136 ;;=DESCRIPTION SUB-FIELD^^.01^1
137 ;;^DD(.461,0,"DT")
138 ;;=2960531
139 ;;^DD(.461,0,"NM","DESCRIPTION")
140 ;;=
141 ;;^DD(.461,0,"UP")
142 ;;=.46
143 ;;^DD(.461,.01,0)
144 ;;=DESCRIPTION^W^^0;1^Q
145 ;;^DD(.461,.01,"DT")
146 ;;=2960531
147 ;;^DD(.463,0)
148 ;;=IMPORT FIELDS SUB-FIELD^^20^6
149 ;;^DD(.463,0,"DT")
150 ;;=2960530
151 ;;^DD(.463,0,"IX","B",.463,.01)
152 ;;=
153 ;;^DD(.463,0,"NM","IMPORT FIELDS")
154 ;;=
155 ;;^DD(.463,0,"UP")
156 ;;=.46
157 ;;^DD(.463,.01,0)
158 ;;=IMPORT SEQUENCE^MRNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
159 ;;^DD(.463,.01,1,0)
160 ;;=^.1
161 ;;^DD(.463,.01,1,1,0)
162 ;;=.463^B
163 ;;^DD(.463,.01,1,1,1)
164 ;;=S ^DIST(.46,DA(1),30,"B",$E(X,1,30),DA)=""
165 ;;^DD(.463,.01,1,1,2)
166 ;;=K ^DIST(.46,DA(1),30,"B",$E(X,1,30),DA)
167 ;;^DD(.463,.01,3)
168 ;;=Type a Number between 1 and 999, 0 Decimal Digits
169 ;;^DD(.463,.01,21,0)
170 ;;=^^1^1^2960530^^
171 ;;^DD(.463,.01,21,1,0)
172 ;;=Sequence of fields being imported.
173 ;;^DD(.463,.01,"DT")
174 ;;=2960530
175 ;;^DD(.463,1,0)
176 ;;=FILE^RP1'^DIC(^0;2^Q
177 ;;^DD(.463,1,21,0)
178 ;;=^^2^2^2960530^
179 ;;^DD(.463,1,21,1,0)
180 ;;=The file or subfile number in which the imported data for a field will
181 ;;^DD(.463,1,21,2,0)
182 ;;=be filed.
183 ;;^DD(.463,1,"DT")
184 ;;=2960530
185 ;;^DD(.463,2,0)
186 ;;=FIELD^RF^^0;3^K:$L(X)>12!($L(X)<1) X
187 ;;^DD(.463,2,3)
188 ;;=Answer must be 1-12 characters in length.
189 ;;^DD(.463,2,21,0)
190 ;;=^^1^1^2960530^
191 ;;^DD(.463,2,21,1,0)
192 ;;=Field into which imported data will be filed.
193 ;;^DD(.463,2,"DT")
194 ;;=2960530
195 ;;^DD(.463,3,0)
196 ;;=LENGTH^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
197 ;;^DD(.463,3,3)
198 ;;=Type a Number between 0 and 9999, 0 Decimal Digits
199 ;;^DD(.463,3,21,0)
200 ;;=^^2^2^2960530^
201 ;;^DD(.463,3,21,1,0)
202 ;;=Length of data for an imported field. Relevant only for fixed length
203 ;;^DD(.463,3,21,2,0)
204 ;;=imports.
205 ;;^DD(.463,3,"DT")
206 ;;=2960530
207 ;;^DD(.463,10,0)
208 ;;=PATH^F^^10;E1,245^K:$L(X)>245!($L(X)<1) X
209 ;;^DD(.463,10,3)
210 ;;=Answer must be 1-245 characters in length.
211 ;;^DD(.463,10,21,0)
212 ;;=^^3^3^2960530^
213 ;;^DD(.463,10,21,1,0)
214 ;;=The path from the Primary File to the field being imported. Format
215 ;;^DD(.463,10,21,2,0)
216 ;;=is field#^file#[:field#^file#]... where field# is a multiple indicating
217 ;;^DD(.463,10,21,3,0)
218 ;;=subfile at next lower level.
219 ;;^DD(.463,10,"DT")
220 ;;=2960530
221 ;;^DD(.463,20,0)
222 ;;=CAPTION^F^^20;E1,245^K:$L(X)>245!($L(X)<1) X
223 ;;^DD(.463,20,3)
224 ;;=Answer must be 1-245 characters in length.
225 ;;^DD(.463,20,21,0)
226 ;;=^^2^2^2960530^
227 ;;^DD(.463,20,21,1,0)
228 ;;=The readable description of the field being imported, including any
229 ;;^DD(.463,20,21,2,0)
230 ;;=higher level files and subfiles.
231 ;;^DD(.463,20,"DT")
232 ;;=2960530
Note: See TracBrowser for help on using the repository browser.