RMPR9CPP ;HOIFO/SPS - CHECK IF PATIENT IN FILE 665 ;JAN 2003
;;3.0;PROSTHETICS;**75**;Feb 09, 1996;Build 25
;
Q
B1(RMPRDFN) G B2
EN1(RESULTS,RMPRDFN) ;broker entry point
B2 ;
;S RMPRDFN=$P(^RMPR(668,RMPR668,0),U,2)
I '$D(^RMPR(665,RMPRDFN,0)) S RESULTS(0)="1^Patient not defined in PROSTHETICS PATIENT FILE please use the option: AP Add/Edit Patient to Prosthetics and try again." Q
E S RESULTS(0)=0
Q
;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPR9CPP 433 printed Dec 13, 2024@02:33:32 Page 2
RMPR9CPP ;HOIFO/SPS - CHECK IF PATIENT IN FILE 665 ;JAN 2003
+1 ;;3.0;PROSTHETICS;**75**;Feb 09, 1996;Build 25
+2 ;
+3 QUIT
B1(RMPRDFN) GOTO B2
EN1(RESULTS,RMPRDFN) ;broker entry point
B2 ;
+1 ;S RMPRDFN=$P(^RMPR(668,RMPR668,0),U,2)
+2 IF '$DATA(^RMPR(665,RMPRDFN,0))
SET RESULTS(0)="1^Patient not defined in PROSTHETICS PATIENT FILE please use the option: AP Add/Edit Patient to Prosthetics and try again."
QUIT
+3 IF '$TEST
SET RESULTS(0)=0
+4 QUIT
+5 ;END
