RMPRPIXD.m

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 ---RMPRPIXD   869     printed  Apr 23, 2025@18:51:12                                                                                                                                                                                                     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