- 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 Feb 19, 2025@00:00:32 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