RMPRCPI1.m

RMPRCPI1 ;HIN/RVD-CPT MODIFIER BUILD ;01/31/00

 ;;3.0;PROSTHETICS;**41**;Feb 09, 1996

 W !,"**** Invalid Entry Point...."

 Q

BUILD ;

 F I=0:0 S I=$O(^RMPR(661.1,I)) Q:I'>0  D

 .I ($D(^RMPR(661.1,I,4))) S ^RMPR(661.1,"RMPR",$P(^RMPR(661.1,I,0),U,1),4)=$G(^RMPR(661.1,I,4))

 ;

 K I

 Q

POST ;populate CPT Modifier and Base wheelchair, to be used in Post install.

 K R4 S I=""

 F  S I=$O(^RMPR(661.1,"RMPR",I)) Q:I=""   D

 .S RMI=$O(^RMPR(661.1,"B",I,0))

 .S R4=$G(^RMPR(661.1,"RMPR",I,4))

 .I $D(R4),$G(RMI) S ^RMPR(661.1,RMI,4)=R4

 .K R4

 K R4,I,RMI,^RMPR(661.1,"RMPR")

 Q

 ;END

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RMPRCPI1   597     printed  Apr 09, 2024@21:38:51                                                                                                                                                                                                     Page 2

RMPRCPI1  ;HIN/RVD-CPT MODIFIER BUILD ;01/31/00

 +1       ;;3.0;PROSTHETICS;**41**;Feb 09, 1996

 +2        WRITE !,"**** Invalid Entry Point...."

 +3        QUIT 

BUILD     ;

 +1        FOR I=0:0

               SET I=$ORDER(^RMPR(661.1,I))

               if I'>0

                   QUIT 

               Begin DoDot:1

 +2                IF ($DATA(^RMPR(661.1,I,4)))

                       SET ^RMPR(661.1,"RMPR",$PIECE(^RMPR(661.1,I,0),U,1),4)=$GET(^RMPR(661.1,I,4))

               End DoDot:1

 +3       ;

 +4        KILL I

 +5        QUIT 

POST      ;populate CPT Modifier and Base wheelchair, to be used in Post install.

 +1        KILL R4

           SET I=""

 +2        FOR 

               SET I=$ORDER(^RMPR(661.1,"RMPR",I))

               if I=""

                   QUIT 

               Begin DoDot:1

 +3                SET RMI=$ORDER(^RMPR(661.1,"B",I,0))

 +4                SET R4=$GET(^RMPR(661.1,"RMPR",I,4))

 +5                IF $DATA(R4)

                       IF $GET(RMI)

                           SET ^RMPR(661.1,RMI,4)=R4

 +6                KILL R4

               End DoDot:1

 +7        KILL R4,I,RMI,^RMPR(661.1,"RMPR")

 +8        QUIT 

 +9       ;END