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 ---[H[J[2J[HRMPRCPI1 597 printed Dec 13, 2024@02:34:04 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