![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT04.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman|
Return to DINIT04.m CVS log | Up to [Coherent Logic Development] / freem_fileman |
1.1 snw 1: DINIT04 ;ISCSF/DPC - BLOCK1 FOR FOREIGN FORMAT;1/11/93 2:19 PM
2: ;;21.0;VA FileMan;;Dec 28, 1994
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="" ^DINIT05 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5: Q
6: ENTRY ;
7: ;;^DIST(.404,.441,0)
8: ;;=DDXP FF BLK1^.44
9: ;;^DIST(.404,.441,15,0)
10: ;;=^^2^2^2930107^^^^
11: ;;^DIST(.404,.441,15,1,0)
12: ;;=Block makes up page 1 of DDXP FF FORM. It is used to define a foreign
13: ;;^DIST(.404,.441,15,2,0)
14: ;;=format.
15: ;;^DIST(.404,.441,40,0)
16: ;;=^.4044I^21^16
17: ;;^DIST(.404,.441,40,1,0)
18: ;;=1^FOREIGN FILE FORMAT^0^
19: ;;^DIST(.404,.441,40,1,1)
20: ;;=.01
21: ;;^DIST(.404,.441,40,1,2)
22: ;;=1,42^30^1,21^0
23: ;;^DIST(.404,.441,40,3,0)
24: ;;=3^!M^1^
25: ;;^DIST(.404,.441,40,3,.1)
26: ;;=N I S Y="" F I=1:1:21+$L($G(DDXPFMNM)) S Y=Y_"="
27: ;;^DIST(.404,.441,40,3,2)
28: ;;=^^2,21^
29: ;;^DIST(.404,.441,40,4,0)
30: ;;=4^FIELD DELIMITER^0
31: ;;^DIST(.404,.441,40,4,1)
32: ;;=1
33: ;;^DIST(.404,.441,40,4,2)
34: ;;=4,23^15^4,6^0
35: ;;^DIST(.404,.441,40,5,0)
36: ;;=5^RECORD LENGTH FIXED?^0
37: ;;^DIST(.404,.441,40,5,1)
38: ;;=5
39: ;;^DIST(.404,.441,40,5,2)
40: ;;=4,69^3^4,48^1
41: ;;^DIST(.404,.441,40,6,0)
42: ;;=4.7^RECORD DELIMITER^0
43: ;;^DIST(.404,.441,40,6,1)
44: ;;=2
45: ;;^DIST(.404,.441,40,6,2)
46: ;;=6,23^15^6,5^0
47: ;;^DIST(.404,.441,40,7,0)
48: ;;=7^MAXIMUM OUTPUT LENGTH^0
49: ;;^DIST(.404,.441,40,7,1)
50: ;;=7
51: ;;^DIST(.404,.441,40,7,2)
52: ;;=5,69^5^5,46^0
53: ;;^DIST(.404,.441,40,7,3)
54: ;;=80
55: ;;^DIST(.404,.441,40,8,0)
56: ;;=8^NEED FOREIGN FIELD NAMES?^0
57: ;;^DIST(.404,.441,40,8,1)
58: ;;=6
59: ;;^DIST(.404,.441,40,8,2)
60: ;;=6,69^3^6,43^1
61: ;;^DIST(.404,.441,40,9,0)
62: ;;=9^FILE HEADER^0
63: ;;^DIST(.404,.441,40,9,1)
64: ;;=20
65: ;;^DIST(.404,.441,40,9,2)
66: ;;=8,23^40^8,10^0
67: ;;^DIST(.404,.441,40,10,0)
68: ;;=10^FILE TRAILER^0
69: ;;^DIST(.404,.441,40,10,1)
70: ;;=25
71: ;;^DIST(.404,.441,40,10,2)
72: ;;=9,23^40^9,9^0
73: ;;^DIST(.404,.441,40,11,0)
74: ;;=11^DATE FORMAT^0
75: ;;^DIST(.404,.441,40,11,1)
76: ;;=27
77: ;;^DIST(.404,.441,40,11,2)
78: ;;=10,23^40^10,10^0
79: ;;^DIST(.404,.441,40,16,0)
80: ;;=16^Go to next page to document format.^1^
81: ;;^DIST(.404,.441,40,16,2)
82: ;;=^^17,45^
83: ;;^DIST(.404,.441,40,17,0)
84: ;;=2^PAGE 1^1^
85: ;;^DIST(.404,.441,40,17,2)
86: ;;=^^1,74^
87: ;;^DIST(.404,.441,40,18,0)
88: ;;=12^QUOTE NON-NUMERIC?^0
89: ;;^DIST(.404,.441,40,18,1)
90: ;;=8
91: ;;^DIST(.404,.441,40,18,2)
92: ;;=13,23^3^13,4^1
93: ;;^DIST(.404,.441,40,19,0)
94: ;;=13^PROMPT FOR DATA TYPE?^0
95: ;;^DIST(.404,.441,40,19,1)
96: ;;=9
97: ;;^DIST(.404,.441,40,19,2)
98: ;;=14,23^3^14,1^1
99: ;;^DIST(.404,.441,40,20,0)
100: ;;=4.5^SEND LAST DELIMITER?^0
101: ;;^DIST(.404,.441,40,20,1)
102: ;;=10
103: ;;^DIST(.404,.441,40,20,2)
104: ;;=5,23^3^5,2^1
105: ;;^DIST(.404,.441,40,20,3)
106: ;;=YES
107: ;;^DIST(.404,.441,40,21,0)
108: ;;=11.5^SUBSTITUTE FOR NULL^0
109: ;;^DIST(.404,.441,40,21,1)
110: ;;=11
111: ;;^DIST(.404,.441,40,21,2)
112: ;;=12,23^15^12,2^0
113: ;;^DIST(.404,.441,40,"B",1,1)
114: ;;=
115: ;;^DIST(.404,.441,40,"B",2,17)
116: ;;=
117: ;;^DIST(.404,.441,40,"B",3,3)
118: ;;=
119: ;;^DIST(.404,.441,40,"B",4,4)
120: ;;=
121: ;;^DIST(.404,.441,40,"B",4.5,20)
122: ;;=
123: ;;^DIST(.404,.441,40,"B",4.7,6)
124: ;;=
125: ;;^DIST(.404,.441,40,"B",5,5)
126: ;;=
127: ;;^DIST(.404,.441,40,"B",7,7)
128: ;;=
129: ;;^DIST(.404,.441,40,"B",8,8)
130: ;;=
131: ;;^DIST(.404,.441,40,"B",9,9)
132: ;;=
133: ;;^DIST(.404,.441,40,"B",10,10)
134: ;;=
135: ;;^DIST(.404,.441,40,"B",11,11)
136: ;;=
137: ;;^DIST(.404,.441,40,"B",11.5,21)
138: ;;=
139: ;;^DIST(.404,.441,40,"B",12,18)
140: ;;=
141: ;;^DIST(.404,.441,40,"B",13,19)
142: ;;=
143: ;;^DIST(.404,.441,40,"B",16,16)
144: ;;=
145: ;;^DIST(.404,.441,40,"C","DATE FORMAT",11)
146: ;;=
147: ;;^DIST(.404,.441,40,"C","FIELD DELIMITER",4)
148: ;;=
149: ;;^DIST(.404,.441,40,"C","FILE HEADER",9)
150: ;;=
151: ;;^DIST(.404,.441,40,"C","FILE TRAILER",10)
152: ;;=
153: ;;^DIST(.404,.441,40,"C","FOREIGN FILE FORMAT",1)
154: ;;=
155: ;;^DIST(.404,.441,40,"C","GO TO NEXT PAGE TO DOCUMENT FORMAT.",16)
156: ;;=
157: ;;^DIST(.404,.441,40,"C","MAXIMUM OUTPUT LENGTH",7)
158: ;;=
159: ;;^DIST(.404,.441,40,"C","NEED FOREIGN FIELD NAMES?",8)
160: ;;=
161: ;;^DIST(.404,.441,40,"C","PAGE 1",17)
162: ;;=
163: ;;^DIST(.404,.441,40,"C","PROMPT FOR DATA TYPE?",19)
164: ;;=
165: ;;^DIST(.404,.441,40,"C","QUOTE NON-NUMERIC?",18)
166: ;;=
167: ;;^DIST(.404,.441,40,"C","RECORD DELIMITER",6)
168: ;;=
169: ;;^DIST(.404,.441,40,"C","RECORD LENGTH FIXED?",5)
170: ;;=
171: ;;^DIST(.404,.441,40,"C","SEND LAST DELIMITER?",20)
172: ;;=
173: ;;^DIST(.404,.441,40,"C","SUBSTITUTE FOR NULL",21)
174: ;;=