source: FOIAVistA/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRN6PS.m@ 729

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

initial load of FOIAVistA 6/30/08 version
File size: 4.0 KB
Line 
1RMPRN6PS ;Hines OIFO/HNC - POST INIT ;9/16/02 10:29
2 ;;3.0;PROSTHETICS;**70**;Feb 09, 1996
3 Q
4 ;
5EN ;main entry point
6 ;rmpry is ien to 661.1 from list
7 ;line is NPPD New Line
8 ;
9 S ERR=""
10 S RMPRX=""
11 F RMPRX=1:1:211 S RMPRY=$P($T(LST+RMPRX),";",3) Q:ERR=1 D
12 .S LINE=$P($T(LST+RMPRX),";",4)
13 .S DIE="^RMPR(661.1,",DA=RMPRY,DR="6///^S X=LINE"
14 .L +^RMPR(661.1,RMPRY):1 I '$T W !,"ERROR, STOPPING!" S ERR=1 Q
15 .D ^DIE L -^RMPR(661.1,RMPRY)
16 ;
17 S RMPRX=""
18 F RMPRX=1:1:17 S RMPRY=$P($T(REP+RMPRX),";",3) Q:ERR=1 D
19 .S LINE=$P($T(REP+RMPRX),";",4)
20 .S DIE="^RMPR(661.1,",DA=RMPRY,DR="5///^S X=LINE"
21 .L +^RMPR(661.1,RMPRY):1 I '$T W !,"ERROR, STOPPING!" S ERR=1 Q
22 .D ^DIE L -^RMPR(661.1,RMPRY)
23EXIT ;main exit point
24 K RMPRY,LINE,RMPRX,DR,DA,DIE,ERR
25 Q
26LST ;List of changes, new NPPD Line only
27 ;;907;200 I;
28 ;;908;200 I;
29 ;;909;200 I;
30 ;;910;200 I;
31 ;;911;200 I;
32 ;;912;200 I;
33 ;;913;200 I;
34 ;;914;200 I;
35 ;;915;200 I;
36 ;;916;200 I;
37 ;;917;200 I;
38 ;;918;200 I;
39 ;;919;200 I;
40 ;;920;200 I;
41 ;;921;200 I;
42 ;;922;200 I;
43 ;;923;200 I;
44 ;;924;200 I;
45 ;;925;200 I;
46 ;;926;200 I;
47 ;;927;200 I;
48 ;;928;200 I;
49 ;;929;200 I;
50 ;;930;200 I;
51 ;;931;200 I;
52 ;;932;200 I;
53 ;;933;200 I;
54 ;;934;200 I;
55 ;;935;200 I;
56 ;;936;200 I;
57 ;;937;200 I;
58 ;;938;200 I;
59 ;;939;200 I;
60 ;;940;200 I;
61 ;;941;200 I;
62 ;;942;200 I;
63 ;;943;200 I;
64 ;;944;200 I;
65 ;;945;200 I;
66 ;;946;200 I;
67 ;;947;200 I;
68 ;;948;200 I;
69 ;;949;200 I;
70 ;;950;200 I;
71 ;;951;200 I;
72 ;;952;200 I;
73 ;;953;200 I;
74 ;;954;200 I;
75 ;;955;200 I;
76 ;;956;200 I;
77 ;;957;200 I;
78 ;;958;200 I;
79 ;;959;200 I;
80 ;;960;200 I;
81 ;;961;200 I;
82 ;;962;200 I;
83 ;;963;200 I;
84 ;;964;200 I;
85 ;;965;200 I;
86 ;;966;200 I;
87 ;;967;200 I;
88 ;;968;200 I;
89 ;;969;200 I;
90 ;;970;200 I;
91 ;;971;200 I;
92 ;;972;200 I;
93 ;;974;200 I;
94 ;;975;200 I;
95 ;;976;200 I;
96 ;;977;200 I;
97 ;;978;200 I;
98 ;;979;200 I;
99 ;;980;200 I;
100 ;;981;200 I;
101 ;;982;200 I;
102 ;;983;200 I;
103 ;;984;200 I;
104 ;;985;200 I;
105 ;;986;200 I;
106 ;;987;200 I;
107 ;;988;200 I;
108 ;;989;200 I;
109 ;;990;200 I;
110 ;;991;200 I;
111 ;;992;200 I;
112 ;;993;200 I;
113 ;;994;200 I;
114 ;;995;200 I;
115 ;;996;200 I;
116 ;;997;200 I;
117 ;;998;200 I;
118 ;;999;200 I;
119 ;;1000;200 I;
120 ;;1001;200 I;
121 ;;1002;200 I;
122 ;;1003;200 I;
123 ;;1004;200 I;
124 ;;1005;200 I;
125 ;;1006;200 I;
126 ;;1007;200 I;
127 ;;1008;200 I;
128 ;;1009;200 I;
129 ;;1010;200 I;
130 ;;1011;200 I;
131 ;;1012;200 I;
132 ;;1013;200 I;
133 ;;1014;200 I;
134 ;;1015;200 I;
135 ;;1016;200 I;
136 ;;1017;200 I;
137 ;;1018;200 I;
138 ;;1019;200 I;
139 ;;1020;200 I;
140 ;;1021;200 I;
141 ;;1022;200 I;
142 ;;1023;200 I;
143 ;;1024;200 I;
144 ;;1025;200 I;
145 ;;1026;200 I;
146 ;;1176;200 I;
147 ;;1177;200 I;
148 ;;2225;200 I;
149 ;;2241;200 I;
150 ;;2242;200 I;
151 ;;2243;200 I;
152 ;;2244;200 I;
153 ;;2245;200 I;
154 ;;2246;200 I;
155 ;;2247;200 I;
156 ;;2252;200 I;
157 ;;2255;200 I;
158 ;;2560;200 I;
159 ;;2561;200 I;
160 ;;2562;200 I;
161 ;;2563;200 I;
162 ;;2564;200 I;
163 ;;2585;200 I;
164 ;;3609;200 I;
165 ;;3611;200 I;
166 ;;3614;200 I;
167 ;;3616;200 I;
168 ;;1062;300 D;
169 ;;1063;300 D;
170 ;;1064;300 D;
171 ;;1065;300 D;
172 ;;1066;300 D;
173 ;;1067;300 D;
174 ;;1068;300 D;
175 ;;1069;300 D;
176 ;;1070;300 D;
177 ;;1071;300 D;
178 ;;1072;300 D;
179 ;;1073;300 D;
180 ;;1074;300 D;
181 ;;1075;300 D;
182 ;;1076;300 D;
183 ;;1077;300 D;
184 ;;1078;300 D;
185 ;;1079;300 D;
186 ;;1080;300 D;
187 ;;1081;300 D;
188 ;;1082;300 D;
189 ;;1083;300 D;
190 ;;1084;300 D;
191 ;;1085;300 D;
192 ;;1086;300 D;
193 ;;1087;300 D;
194 ;;1088;300 D;
195 ;;1089;300 D;
196 ;;1090;300 D;
197 ;;1091;300 D;
198 ;;1092;300 D;
199 ;;1094;300 D;
200 ;;1095;300 D;
201 ;;1096;300 D;
202 ;;1097;300 D;
203 ;;1160;300 D;
204 ;;1161;300 D;
205 ;;1162;300 D;
206 ;;1163;300 D;
207 ;;1164;300 D;
208 ;;1165;300 D;
209 ;;1166;300 D;
210 ;;1167;300 D;
211 ;;1168;300 D;
212 ;;1169;300 D;
213 ;;1170;300 D;
214 ;;1172;300 D;
215 ;;1173;300 D;
216 ;;1174;300 D;
217 ;;2239;300 D;
218 ;;2566;300 D;
219 ;;3618;300 D;
220 ;;3621;300 D;
221 ;;20;910 A;
222 ;;29;910 A;
223 ;;268;910 A;
224 ;;420;910 A;
225 ;;421;910 A;
226 ;;422;910 A;
227 ;;423;910 A;
228 ;;424;910 A;
229 ;;425;910 A;
230 ;;2058;800 A;
231 ;;2059;800 A;
232 ;;2060;800 A;
233 ;;2061;800 A;
234 ;;2062;800 A;
235 ;;2094;900 K;
236 ;;2448;910 A;
237 ;;2803;910 A;
238 Q
239REP ;;repair
240 ;;20;@;
241 ;;29;@;
242 ;;268;@;
243 ;;420;@;
244 ;;421;@;
245 ;;422;@;
246 ;;423;@;
247 ;;424;@;
248 ;;425;@;
249 ;;2058;R91 C;
250 ;;2059;R91 C;
251 ;;2060;R91 C;
252 ;;2061;R91 C;
253 ;;2062;R91 C;
254 ;;2094;R91 C;
255 ;;2448;@;
256 ;;2803;@;
257 Q
258 ;END
Note: See TracBrowser for help on using the repository browser.