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

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

initial load of WorldVistAEHR

File size: 6.6 KB
Line 
1DINIT0FL ;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="" ^DINIT0FM S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.442,40,7,4)
8 ;;=^^^^0
9 ;;^DIST(.404,.442,40,7,7)
10 ;;=^3
11 ;;^DIST(.404,.443,0)
12 ;;=DDXP FF BLK3^.441^0
13 ;;^DIST(.404,.443,15,0)
14 ;;=^^2^2^2920925
15 ;;^DIST(.404,.443,15,1,0)
16 ;;=Block for subpage containing fields from the OTHER NAME FOR FORMAT
17 ;;^DIST(.404,.443,15,2,0)
18 ;;=multiple. Used in defining a foreign file format.
19 ;;^DIST(.404,.443,40,0)
20 ;;=^.4044I^2^2
21 ;;^DIST(.404,.443,40,1,0)
22 ;;=1^OTHER NAME^3
23 ;;^DIST(.404,.443,40,1,1)
24 ;;=.01
25 ;;^DIST(.404,.443,40,1,2)
26 ;;=2,20^15^2,8^0
27 ;;^DIST(.404,.443,40,2,0)
28 ;;=2^DESCRIPTION (WP)^3
29 ;;^DIST(.404,.443,40,2,1)
30 ;;=1
31 ;;^DIST(.404,.443,40,2,2)
32 ;;=4,20^1^4,2^0
33 ;;^DIST(.404,.4611,0)
34 ;;=DDMP SPECS 1^.44
35 ;;^DIST(.404,.4611,15,0)
36 ;;=^^2^2^2950216
37 ;;^DIST(.404,.4611,15,1,0)
38 ;;=Block contains specifications of data import including source file, VA
39 ;;^DIST(.404,.4611,15,2,0)
40 ;;=FileMan target file, and format of the incoming data.
41 ;;^DIST(.404,.4611,40,0)
42 ;;=^.4044I^23^21
43 ;;^DIST(.404,.4611,40,1,0)
44 ;;=1^DATA IMPORT^1
45 ;;^DIST(.404,.4611,40,1,2)
46 ;;=^^1,35
47 ;;^DIST(.404,.4611,40,2,0)
48 ;;=2^Page 1^1
49 ;;^DIST(.404,.4611,40,2,2)
50 ;;=^^1,72
51 ;;^DIST(.404,.4611,40,3,0)
52 ;;=1.1^===========^1
53 ;;^DIST(.404,.4611,40,3,2)
54 ;;=^^2,35^1
55 ;;^DIST(.404,.4611,40,4,0)
56 ;;=6^SOURCE FILE^1
57 ;;^DIST(.404,.4611,40,4,2)
58 ;;=^^4,53^1
59 ;;^DIST(.404,.4611,40,5,0)
60 ;;=6.1^-----------^1
61 ;;^DIST(.404,.4611,40,5,2)
62 ;;=^^5,53^1
63 ;;^DIST(.404,.4611,40,6,0)
64 ;;=6.2^Full path^2^^PTH
65 ;;^DIST(.404,.4611,40,6,2)
66 ;;=6,61^19^6,50
67 ;;^DIST(.404,.4611,40,6,3)
68 ;;=!M
69 ;;^DIST(.404,.4611,40,6,3.1)
70 ;;=S Y=$$PWD^%ZISH
71 ;;^DIST(.404,.4611,40,6,4)
72 ;;=1
73 ;;^DIST(.404,.4611,40,6,20)
74 ;;=F^^1:245
75 ;;^DIST(.404,.4611,40,6,21,0)
76 ;;=^^2^2^2950216
77 ;;^DIST(.404,.4611,40,6,21,1,0)
78 ;;=Enter the full path to the host file that contains the data you want to
79 ;;^DIST(.404,.4611,40,6,21,2,0)
80 ;;=import. Do not include the name of the file itself.
81 ;;^DIST(.404,.4611,40,6,23)
82 ;;=S DDMPHOST("PATH")=X
83 ;;^DIST(.404,.4611,40,7,0)
84 ;;=6.3^Host file name^2^^HST_FL
85 ;;^DIST(.404,.4611,40,7,2)
86 ;;=7,61^19^7,45
87 ;;^DIST(.404,.4611,40,7,4)
88 ;;=1
89 ;;^DIST(.404,.4611,40,7,20)
90 ;;=F^^1:100
91 ;;^DIST(.404,.4611,40,7,21,0)
92 ;;=^^1^1^2960611
93 ;;^DIST(.404,.4611,40,7,21,1,0)
94 ;;=^D HOSTHELP^DDMPSM1
95 ;;^DIST(.404,.4611,40,7,23)
96 ;;=S DDMPHOST("FILE")=X
97 ;;^DIST(.404,.4611,40,8,0)
98 ;;=7^VA FILEMAN FILE^1
99 ;;^DIST(.404,.4611,40,8,2)
100 ;;=^^10,51^1
101 ;;^DIST(.404,.4611,40,9,0)
102 ;;=7.1^---------------^1
103 ;;^DIST(.404,.4611,40,9,2)
104 ;;=^^11,51^1
105 ;;^DIST(.404,.4611,40,10,0)
106 ;;=7.2^Primary file^2^^F_SEL
107 ;;^DIST(.404,.4611,40,10,2)
108 ;;=12,61^18^12,47
109 ;;^DIST(.404,.4611,40,10,13)
110 ;;=D FILESEL^DDMPSM
111 ;;^DIST(.404,.4611,40,10,20)
112 ;;=P^^1:ANEF
113 ;;^DIST(.404,.4611,40,10,21,0)
114 ;;=^^3^3^2960918
115 ;;^DIST(.404,.4611,40,10,21,1,0)
116 ;;=Enter the name or number of the VA FileMan file into which the data will
117 ;;^DIST(.404,.4611,40,10,21,2,0)
118 ;;=be imported. If the FileMan file is specified in the source file, enter
119 ;;^DIST(.404,.4611,40,10,21,3,0)
120 ;;=nothing here.
121 ;;^DIST(.404,.4611,40,10,23)
122 ;;=S DDMPSELF=X
123 ;;^DIST(.404,.4611,40,10,24)
124 ;;=S DIR("S")="N DIFILE,DIAC S DIFILE=Y,DIAC=""WR"" D ^DIAC I DIAC"
125 ;;^DIST(.404,.4611,40,11,0)
126 ;;=5^DATA FORMAT^1
127 ;;^DIST(.404,.4611,40,11,2)
128 ;;=^^4,16
129 ;;^DIST(.404,.4611,40,12,0)
130 ;;=5.1^-----------^1
131 ;;^DIST(.404,.4611,40,12,2)
132 ;;=^^5,16^1
133 ;;^DIST(.404,.4611,40,13,0)
134 ;;=5.2^Internal or external^2^^INT_EXT
135 ;;^DIST(.404,.4611,40,13,2)
136 ;;=6,23^8^6,1
137 ;;^DIST(.404,.4611,40,13,3)
138 ;;=External
139 ;;^DIST(.404,.4611,40,13,20)
140 ;;=S^OM^E:EXTERNAL;I:INTERNAL
141 ;;^DIST(.404,.4611,40,13,21,0)
142 ;;=^^3^3^2950216
143 ;;^DIST(.404,.4611,40,13,21,1,0)
144 ;;=Specify whether the imported data is in internal or external format.
145 ;;^DIST(.404,.4611,40,13,21,2,0)
146 ;;=Internal format means the way the data is stored inside of VA FileMan
147 ;;^DIST(.404,.4611,40,13,21,3,0)
148 ;;=files. External means the format that a user enter.
149 ;;^DIST(.404,.4611,40,13,23)
150 ;;=S DDMPIORE=X
151 ;;^DIST(.404,.4611,40,14,0)
152 ;;=5.3^Foreign format^2^^FOR_FMT
153 ;;^DIST(.404,.4611,40,14,2)
154 ;;=8,23^17^8,7
155 ;;^DIST(.404,.4611,40,14,13)
156 ;;=D FF^DDMPSM
157 ;;^DIST(.404,.4611,40,14,20)
158 ;;=P^^.44:EAM
159 ;;^DIST(.404,.4611,40,14,21,0)
160 ;;=^^6^6^2950228
161 ;;^DIST(.404,.4611,40,14,21,1,0)
162 ;;=Enter the foreign format that corresponds to the structure of the data
163 ;;^DIST(.404,.4611,40,14,21,2,0)
164 ;;=being imported. These formats are stored in the Foreign Format file. If
165 ;;^DIST(.404,.4611,40,14,21,3,0)
166 ;;=you do not choose a format here, you must specify whether the incoming
167 ;;^DIST(.404,.4611,40,14,21,4,0)
168 ;;=data is fixed length, what the field delimiter is (if any), and whether
169 ;;^DIST(.404,.4611,40,14,21,5,0)
170 ;;=some field values are quoted. If you enter a format here, any attributes
171 ;;^DIST(.404,.4611,40,14,21,6,0)
172 ;;=of the format that you specified below will be deleted.
173 ;;^DIST(.404,.4611,40,16,0)
174 ;;=5.5^Data fixed length?^2^^FIX
175 ;;^DIST(.404,.4611,40,16,2)
176 ;;=10,23^3^10,4^1
177 ;;^DIST(.404,.4611,40,16,13)
178 ;;=S DDMPSMFF("FIXED")=DDSEXT
179 ;;^DIST(.404,.4611,40,16,20)
180 ;;=Y
181 ;;^DIST(.404,.4611,40,16,21,0)
182 ;;=^^4^4^2950216
183 ;;^DIST(.404,.4611,40,16,21,1,0)
184 ;;=Enter YES or NO.
185 ;;^DIST(.404,.4611,40,16,21,2,0)
186 ;;=If the incoming data is in fixed length fields, enter YES.
187 ;;^DIST(.404,.4611,40,16,21,3,0)
188 ;;=If the fields are delimited by a special character, enter NO and enter the
189 ;;^DIST(.404,.4611,40,16,21,4,0)
190 ;;=field delimiter at the prompt below.
191 ;;^DIST(.404,.4611,40,17,0)
192 ;;=5.6^Field delimiter^2^^FLD_DLM
193 ;;^DIST(.404,.4611,40,17,2)
194 ;;=11,23^3^11,6
195 ;;^DIST(.404,.4611,40,17,13)
196 ;;=S DDMPSMFF("FDELIM")=DDSEXT
197 ;;^DIST(.404,.4611,40,17,20)
198 ;;=F^^1:15
199 ;;^DIST(.404,.4611,40,17,21,0)
200 ;;=^^8^8^2960823
201 ;;^DIST(.404,.4611,40,17,21,1,0)
202 ;;=If the incoming data is not in fixed length fields, enter the character or
203 ;;^DIST(.404,.4611,40,17,21,2,0)
204 ;;=characters that separate fields.
205 ;;^DIST(.404,.4611,40,17,21,3,0)
206 ;;=
207 ;;^DIST(.404,.4611,40,17,21,4,0)
208 ;;=Identify the delimiter either by 1-15 characters or by the delimiter's 3
209 ;;^DIST(.404,.4611,40,17,21,5,0)
210 ;;=digit ascii value. Up to 4 ascii-character values can be specified,
211 ;;^DIST(.404,.4611,40,17,21,6,0)
212 ;;=separated by commas. Use the ascii value when the delimiter is a
213 ;;^DIST(.404,.4611,40,17,21,7,0)
214 ;;=non-printing character (e.g., <TAB>, ascii=009) or a character that has a
215 ;;^DIST(.404,.4611,40,17,21,8,0)
216 ;;=special meaning at a ScreenMan prompt (e.g., ^, ascii=094).
Note: See TracBrowser for help on using the repository browser.