RMPRPIXD ;HINCIO/ODJ - PROSTHETIC ITEM MASTER FILE 661.1 APIs ;3/8/01
;;3.0;PROSTHETICS;**61**;Feb 09, 1996
Q
;
;***** GET - read Item Master 661 record
GET(RMPR) ;
N RMPRCRE,RMPRFME,RMPROUP,RMPRIEN,X,Y,DA,RMPRI
S RMPRCRE=0
S RMPRIEN=RMPR("IEN")_","
D GETS^DIQ(661,RMPRIEN,"*","","RMPROUP","RMPRFME")
I $D(RMPRFME) S RMPRCRE=1 G GETX
S RMPR("ITEM MASTER")=RMPROUP(661,RMPRIEN,.01)
S RMPRCRE=$$ETOI(.RMPR,.RMPRI)
S RMPR("ITEM MASTER IEN")=RMPRI("ITEM MASTER IEN")
GETX Q RMPRCRE
;
;***** ETOI - Convert external to internal form
ETOI(RMPRE,RMPRI) ;
N RMPRFDA,RMPRIEN,RMPRFDI,RMPRFME,RMPRERR,X,Y,DA
S RMPRERR=0
S RMPRIEN=RMPRE("IEN")_","
D GETS^DIQ(661,RMPRIEN,"*","I","RMPRFDI","RMPRFME")
I $D(RMPRFME) S RMPRERR=1 G ETOIX
S RMPRI("IEN")=RMPRE("IEN")
S RMPRI("ITEM MASTER IEN")=RMPRFDI(661,RMPRIEN,.01,"I")
ETOIX Q RMPRERR
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPRPIXD 869 printed Dec 13, 2024@02:36:42 Page 2
RMPRPIXD ;HINCIO/ODJ - PROSTHETIC ITEM MASTER FILE 661.1 APIs ;3/8/01
+1 ;;3.0;PROSTHETICS;**61**;Feb 09, 1996
+2 QUIT
+3 ;
+4 ;***** GET - read Item Master 661 record
GET(RMPR) ;
+1 NEW RMPRCRE,RMPRFME,RMPROUP,RMPRIEN,X,Y,DA,RMPRI
+2 SET RMPRCRE=0
+3 SET RMPRIEN=RMPR("IEN")_","
+4 DO GETS^DIQ(661,RMPRIEN,"*","","RMPROUP","RMPRFME")
+5 IF $DATA(RMPRFME)
SET RMPRCRE=1
GOTO GETX
+6 SET RMPR("ITEM MASTER")=RMPROUP(661,RMPRIEN,.01)
+7 SET RMPRCRE=$$ETOI(.RMPR,.RMPRI)
+8 SET RMPR("ITEM MASTER IEN")=RMPRI("ITEM MASTER IEN")
GETX QUIT RMPRCRE
+1 ;
+2 ;***** ETOI - Convert external to internal form
ETOI(RMPRE,RMPRI) ;
+1 NEW RMPRFDA,RMPRIEN,RMPRFDI,RMPRFME,RMPRERR,X,Y,DA
+2 SET RMPRERR=0
+3 SET RMPRIEN=RMPRE("IEN")_","
+4 DO GETS^DIQ(661,RMPRIEN,"*","I","RMPRFDI","RMPRFME")
+5 IF $DATA(RMPRFME)
SET RMPRERR=1
GOTO ETOIX
+6 SET RMPRI("IEN")=RMPRE("IEN")
+7 SET RMPRI("ITEM MASTER IEN")=RMPRFDI(661,RMPRIEN,.01,"I")
ETOIX QUIT RMPRERR
