Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RMPRCPI1

RMPRCPI1.m

Go to the documentation of this file.
  1. RMPRCPI1 ;HIN/RVD-CPT MODIFIER BUILD ;01/31/00
  1. ;;3.0;PROSTHETICS;**41**;Feb 09, 1996
  1. W !,"**** Invalid Entry Point...."
  1. Q
  1. BUILD ;
  1. F I=0:0 S I=$O(^RMPR(661.1,I)) Q:I'>0 D
  1. .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))
  1. ;
  1. K I
  1. Q
  1. POST ;populate CPT Modifier and Base wheelchair, to be used in Post install.
  1. K R4 S I=""
  1. F S I=$O(^RMPR(661.1,"RMPR",I)) Q:I="" D
  1. .S RMI=$O(^RMPR(661.1,"B",I,0))
  1. .S R4=$G(^RMPR(661.1,"RMPR",I,4))
  1. .I $D(R4),$G(RMI) S ^RMPR(661.1,RMI,4)=R4
  1. .K R4
  1. K R4,I,RMI,^RMPR(661.1,"RMPR")
  1. Q
  1. ;END