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

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

initial load of WorldVistAEHR
File size: 4.6 KB
RevLine 
[613]1DINIT0F3 ;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="" ^DINIT0F4 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.403,.40405,40,2,0)
8 ;;=11^^3,16^^^1^11,63
9 ;;^DIST(.403,.40405,40,2,1)
10 ;;=Other Parameters
11 ;;^DIST(.403,.40405,40,2,40,0)
12 ;;=^.4032PI^.404052^1
13 ;;^DIST(.403,.40405,40,2,40,.404052,0)
14 ;;=.404052^1^1,3^e
15 ;;^DIST(.403,.40406,0)
16 ;;=DDGF BLOCK ADD^^^0^2930413^2990316.0924^^.404^0^1^1
17 ;;^DIST(.403,.40406,40,0)
18 ;;=^.4031I^3^3
19 ;;^DIST(.403,.40406,40,1,0)
20 ;;=1^^3,9^^^1^7,65
21 ;;^DIST(.403,.40406,40,1,1)
22 ;;=Add a New Block
23 ;;^DIST(.403,.40406,40,1,40,0)
24 ;;=^.4032PI^.404061^1
25 ;;^DIST(.403,.40406,40,1,40,.404061,0)
26 ;;=.404061^1^1,1^e
27 ;;^DIST(.403,.40406,40,2,0)
28 ;;=11^^6,12^^^1^11,61
29 ;;^DIST(.403,.40406,40,2,1)
30 ;;=Add a New Block to Page
31 ;;^DIST(.403,.40406,40,2,40,0)
32 ;;=^.4032PI^.404062^1
33 ;;^DIST(.403,.40406,40,2,40,.404062,0)
34 ;;=.404062^1^1,1^e
35 ;;^DIST(.403,.40406,40,3,0)
36 ;;=21^^6,17^^^1^13,57
37 ;;^DIST(.403,.40406,40,3,1)
38 ;;=Duplicate Block Message
39 ;;^DIST(.403,.40406,40,3,40,0)
40 ;;=^.4032PI^.404063^1
41 ;;^DIST(.403,.40406,40,3,40,.404063,0)
42 ;;=.404063^1^1,1^e
43 ;;^DIST(.403,.40407,0)
44 ;;=DDGF BLOCK DELETE^^^0^2930809^2981117.0720^^.404^0^1^1
45 ;;^DIST(.403,.40407,40,0)
46 ;;=^.4031I^1^1
47 ;;^DIST(.403,.40407,40,1,0)
48 ;;=1^^5,9^^^1^11,62
49 ;;^DIST(.403,.40407,40,1,1)
50 ;;=Page 1
51 ;;^DIST(.403,.40407,40,1,40,0)
52 ;;=^.4032PI^.404071^1
53 ;;^DIST(.403,.40407,40,1,40,.404071,0)
54 ;;=.404071^1^3,3^e
55 ;;^DIST(.403,.40408,0)
56 ;;=DDGF HEADER BLOCK SELECT^^^0^2930504^2940928.1204^^.404^0^1^1
57 ;;^DIST(.403,.40408,40,0)
58 ;;=^.4031I^1^1
59 ;;^DIST(.403,.40408,40,1,0)
60 ;;=1^^4,5^^^1^8,68
61 ;;^DIST(.403,.40408,40,1,1)
62 ;;=Add a New Header Block
63 ;;^DIST(.403,.40408,40,1,40,0)
64 ;;=^.4032PI^.404081^1
65 ;;^DIST(.403,.40408,40,1,40,.404081,0)
66 ;;=.404081^1^1,1^e
67 ;;^DIST(.403,.441,0)
68 ;;=DDXP FF FORM1^^^^2920925^2990324.0806^^.44^0^0^1
69 ;;^DIST(.403,.441,20)
70 ;;=D FORMVAL^DDXP1
71 ;;^DIST(.403,.441,40,0)
72 ;;=^.4031I^3^3
73 ;;^DIST(.403,.441,40,1,0)
74 ;;=1^^1,1^2^2^0
75 ;;^DIST(.403,.441,40,1,1)
76 ;;=PAGE 1
77 ;;^DIST(.403,.441,40,1,15,0)
78 ;;=^^1^1^2920925
79 ;;^DIST(.403,.441,40,1,15,1,0)
80 ;;=First page for Foreign Format definition. It contains block DDXP FF BLK1.
81 ;;^DIST(.403,.441,40,1,40,0)
82 ;;=^.4032PI^.441^1
83 ;;^DIST(.403,.441,40,1,40,.441,0)
84 ;;=.441^1^1,1^e
85 ;;^DIST(.403,.441,40,2,0)
86 ;;=2^^1,1^1^1^0
87 ;;^DIST(.403,.441,40,2,1)
88 ;;=PAGE 2
89 ;;^DIST(.403,.441,40,2,15,0)
90 ;;=^^2^2^2920925
91 ;;^DIST(.403,.441,40,2,15,1,0)
92 ;;=Page 2 of the form used to define a Foreign Format. It contains block
93 ;;^DIST(.403,.441,40,2,15,2,0)
94 ;;=DDXP FF BLK2 and subpage containing DDXP FF BLK3.
95 ;;^DIST(.403,.441,40,2,40,0)
96 ;;=^.4032PI^.442^1
97 ;;^DIST(.403,.441,40,2,40,.442,0)
98 ;;=.442^1^1,1^e
99 ;;^DIST(.403,.441,40,3,0)
100 ;;=3^^12,23^^^1^16,59
101 ;;^DIST(.403,.441,40,3,1)
102 ;;=POP-UP PAGE 1
103 ;;^DIST(.403,.441,40,3,15,0)
104 ;;=^^2^2^2920925
105 ;;^DIST(.403,.441,40,3,15,1,0)
106 ;;=This pop-up page is called from page 2 of DDXP FF FORM1. It contains
107 ;;^DIST(.403,.441,40,3,15,2,0)
108 ;;=block DDXP FF BLK3, which has the OTHER NAME FOR FORMAT multiple.
109 ;;^DIST(.403,.441,40,3,40,0)
110 ;;=^.4032PI^.443^1
111 ;;^DIST(.403,.441,40,3,40,.443,0)
112 ;;=.443^1^1,1^e
113 ;;^DIST(.403,.461,0)
114 ;;=DDMP SPECIFY IMPORT^^^^2950216.1102^2990224.0835^^.46^0^1^1
115 ;;^DIST(.403,.461,11)
116 ;;=S (DDMPFDCT,DDMPOSET)=0
117 ;;^DIST(.403,.461,20)
118 ;;=D VAL^DDMPSM
119 ;;^DIST(.403,.461,40,0)
120 ;;=^.4031I^4^4
121 ;;^DIST(.403,.461,40,1,0)
122 ;;=1^^1,1^2^2
123 ;;^DIST(.403,.461,40,1,1)
124 ;;=Page 1
125 ;;^DIST(.403,.461,40,1,40,0)
126 ;;=^.4032IP^.4611^1
127 ;;^DIST(.403,.461,40,1,40,.4611,0)
128 ;;=.4611^1^1,1^e
129 ;;^DIST(.403,.461,40,2,0)
130 ;;=2^^1,1^1^1
131 ;;^DIST(.403,.461,40,2,1)
132 ;;=Page 2
133 ;;^DIST(.403,.461,40,2,11)
134 ;;=D PAGE2^DDMPSM1
135 ;;^DIST(.403,.461,40,2,40,0)
136 ;;=^.4032IP^.4612^1
137 ;;^DIST(.403,.461,40,2,40,.4612,0)
138 ;;=.4612^1^1,1^e
139 ;;^DIST(.403,.461,40,3,0)
140 ;;=3^^5,33^^^1^11,79
141 ;;^DIST(.403,.461,40,3,1)
142 ;;=Page 3
143 ;;^DIST(.403,.461,40,3,40,0)
144 ;;=^.4032IP^.4613^1
145 ;;^DIST(.403,.461,40,3,40,.4613,0)
146 ;;=.4613^1^2,2^e
147 ;;^DIST(.403,.461,40,4,0)
148 ;;=4^^6,18^^^1^12,64
149 ;;^DIST(.403,.461,40,4,1)
150 ;;=Page 4
151 ;;^DIST(.403,.461,40,4,11)
152 ;;=S DDMPFRP4=1
153 ;;^DIST(.403,.461,40,4,15,0)
154 ;;=^^3^3^2950301
155 ;;^DIST(.403,.461,40,4,15,1,0)
156 ;;=This page explains that all fields need a length for a fixed length
157 ;;^DIST(.403,.461,40,4,15,2,0)
158 ;;=import. It gives user the option of deleting the last field entered or
159 ;;^DIST(.403,.461,40,4,15,3,0)
160 ;;=returning to length prompt.
161 ;;^DIST(.403,.461,40,4,40,0)
162 ;;=^.4032IP^.4614^1
163 ;;^DIST(.403,.461,40,4,40,.4614,0)
164 ;;=.4614^1^2,2^e
Note: See TracBrowser for help on using the repository browser.