RMPRN6PS.m

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 ---RMPRN6PS   4341     printed  Apr 23, 2025@18:49:38                                                                                                                                                                                                    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