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