RMPRPIX2 ;HINCIO/ODJ - APIs for 660 file (Patient 2319) ;3/8/01
;;3.0;PROSTHETICS;**61**;Feb 09, 1996
Q
;
; CRE - Create a 2319 record for a stock issue (file 660)
;
; Inputs:
;
; Outputs:
;
CRE(RMPR60,RMPR6111) ;
N RMPRFDA,RMPRFME,RMPRIEN,RMPRRET,X,Y,RMPR699,RMPRTMP,RMPRI,RMPRJ
N RMPR611,RMPR611I,RMPRERR,RMPRTMP
S RMPRRET=0
S RMPR611("HCPCS")=RMPR6111("HCPCS")
S RMPRRET=$$HPACT^RMPRPIX1(.RMPR611)
I RMPRRET S RMPRRET=1 G CREX
S RMPRRET=$$HPETOI^RMPRPIX1(.RMPR611,.RMPR611I)
I RMPRRET S RMPRRET=1 G CREX
;S RMPR60("CPT IEN")=RMPR611I("CPT CODE")
S RMPRFDA(660,"+1,",.01)=RMPR60("ENTRY DATE")
S RMPRFDA(660,"+1,",.02)=RMPR60("PATIENT IEN")
S RMPRFDA(660,"+1,",1)=RMPR60("REQ DATE")
S RMPRFDA(660,"+1,",2)=RMPR60("ISSUE TYPE")
S RMPRFDA(660,"+1,",4)=$G(RMPR60("IFCAP ITEM"))
S RMPRFDA(660,"+1,",5)=RMPR60("QUANTITY")
S RMPRFDA(660,"+1,",78)=$G(RMPR60("UNIT"))
S RMPRFDA(660,"+1,",7)=RMPR60("VENDOR IEN")
S RMPRFDA(660,"+1,",8)=RMPR6111("STATION IEN")
S RMPRFDA(660,"+1,",9)=$G(RMPR60("SERIAL NUM"))
S RMPRFDA(660,"+1,",10)=RMPR60("DELIV DATE")
S RMPRFDA(660,"+1,",11)=$G(RMPR60("REQ TYPE"))
S RMPRFDA(660,"+1,",12)=$G(RMPR60("SOURCE"))
S RMPRFDA(660,"+1,",14)=RMPR60("COST")
S RMPRFDA(660,"+1,",16)=$G(RMPR60("REMARKS"))
S RMPRFDA(660,"+1,",4.1)=RMPR60("CPT IEN")
S RMPRFDA(660,"+1,",21)=$G(RMPR60("LOT NUM"))
S RMPRFDA(660,"+1,",27)=$G(RMPR60("USER"))
;
; for the type 1 rec.
S RMPRFDA(660,"+1,",24)=RMPR611("SHORT DESC")
S RMPRFDA(660,"+1,",4.5)=RMPR60("HCPCS")
;S RMPRFDA(660,"+1,",4.5)=RMPR611("IEN")
S RMPRFDA(660,"+1,",4.7)=RMPR60("CPT MOD")
S RMPRFDA(660,"+1,",4.6)=RMPR60("TRANS IEN")
S RMPRFDA(660,"+1,",39)=RMPR60("DATE OF SERVICE")
;
; for the type 2 rec.
S RMPRFDA(660,"+1,",37)=RMPR6111("HCPCS")_"-"_RMPR6111("ITEM")
S RMPRFDA(660,"+1,",38)=RMPR6111("DESCRIPTION")
;
; for the type AM rec.
S RMPRFDA(660,"+1,",62)=RMPR60("PAT CAT")
S RMPRFDA(660,"+1,",63)=$G(RMPR60("SPEC CAT"))
;
; for the type AMS rec.
S RMPR699("IEN")=RMPR60("SITE IEN")
S RMPRFDA(660,"+1,",68)=RMPR60("GROUPER")
;
; for the type DES rec.
S RMPRERR=$$HCDES(.RMPR611,.RMPRTMP)
I RMPRERR S RMPRRET=2 G CREX
S RMPRFDA(660,"+1,",28)="RMPRTMP"
D UPDATE^DIE("","RMPRFDA","RMPRIEN","RMPRFME")
I $D(RMPRFME) S RMPRRET=99 G CREX
S RMPR60("IEN")=RMPRIEN(1)
CREX Q RMPRRET
;
; UPD - Update existing 660 rec.
UPD(RMPR60,RMPR6111) ;
N RMPRFDA,RMPRFME,RMPRERR,RMPRI,X,Y,DA,RMPR611,RMPR611I,RMPRTMP
S RMPRERR=0
I $G(RMPR60("IEN"))="" S RMPRERR=1 G UPDX
S RMPRI=RMPR60("IEN")_","
I $D(RMPR6111("HCPCS")) D
. S RMPR611("HCPCS")=RMPR6111("HCPCS")
. S RMPRERR=$$HPACT^RMPRPIX1(.RMPR611)
. Q:RMPRERR
. S RMPRERR=$$HPETOI^RMPRPIX1(.RMPR611,.RMPR611I)
. Q:RMPRERR
. S RMPRERR=$$HCDES(.RMPR611,.RMPRTMP)
. Q:RMPRERR
. S RMPRFDA(660,RMPRI,28)="RMPRTMP"
. Q
I RMPRERR S RMPRERR=1 G UPDX
S:$D(RMPR60("ENTRY DATE")) RMPRFDA(660,RMPRI,.01)=RMPR60("ENTRY DATE")
S:$D(RMPR60("PATIENT IEN")) RMPRFDA(660,RMPRI,.02)=RMPR60("PATIENT IEN")
S:$D(RMPR60("REQ DATE")) RMPRFDA(660,RMPRI,1)=RMPR60("REQ DATE")
S:$D(RMPR60("ISSUE TYPE")) RMPRFDA(660,RMPRI,2)=RMPR60("ISSUE TYPE")
S:$D(RMPR60("IFCAP ITEM")) RMPRFDA(660,RMPRI,4)=RMPR60("IFCAP ITEM")
S:$D(RMPR60("QUANTITY")) RMPRFDA(660,RMPRI,5)=RMPR60("QUANTITY")
S:$D(RMPR6111("UNIT")) RMPRFDA(660,RMPRI,78)=RMPR6111("UNIT")
S:$D(RMPR60("VENDOR IEN")) RMPRFDA(660,RMPRI,7)=RMPR60("VENDOR IEN")
S:$D(RMPR6111("STATION IEN")) RMPRFDA(660,RMPRI,8)=RMPR6111("STATION IEN")
S:$D(RMPR60("SERIAL NUM")) RMPRFDA(660,RMPRI,9)=RMPR60("SERIAL NUM")
S:$D(RMPR60("DELIV DATE")) RMPRFDA(660,RMPRI,10)=RMPR60("DELIV DATE")
S:$D(RMPR60("DATE OF SERVICE")) RMPRFDA(660,RMPRI,39)=RMPR60("DATE OF SERVICE")
S:$D(RMPR60("REQ TYPE")) RMPRFDA(660,RMPRI,11)=RMPR60("REQ TYPE")
S:$D(RMPR60("SOURCE")) RMPRFDA(660,RMPRI,12)=RMPR60("SOURCE")
S:$D(RMPR60("COST")) RMPRFDA(660,RMPRI,14)=RMPR60("COST")
S:$D(RMPR60("REMARKS")) RMPRFDA(660,RMPRI,16)=RMPR60("REMARKS")
S:$D(RMPR60("TRANS IEN")) RMPRFDA(660,RMPRI,4.6)=RMPR60("TRANS IEN")
S:$D(RMPR60("CPT IEN")) RMPRFDA(660,RMPRI,4.1)=RMPR60("CPT IEN")
S:$D(RMPR60("LOT NUM")) RMPRFDA(660,RMPRI,21)=RMPR60("LOT NUM")
;
; for the type 1 rec.
S:$D(RMPR611("SHORT DESC")) RMPRFDA(660,RMPRI,24)=RMPR611("SHORT DESC")
S:$D(RMPR60("HCPCS")) RMPRFDA(660,RMPRI,4.5)=RMPR60("HCPCS")
;S:$D(RMPR611("IEN")) RMPRFDA(660,RMPRI,4.5)=RMPR611("IEN")
S:$D(RMPR60("CPT MOD")) RMPRFDA(660,RMPRI,4.7)=RMPR60("CPT MOD")
;
; for the type 2 rec.
S:$D(RMPR6111("HCPCS")) RMPRFDA(660,RMPRI,37)=RMPR6111("HCPCS")_"-"_RMPR6111("ITEM")
S:$D(RMPR6111("DESCRIPTION")) RMPRFDA(660,RMPRI,38)=RMPR6111("DESCRIPTION")
;
; for the type AM rec.
S:$D(RMPR60("PAT CAT")) RMPRFDA(660,RMPRI,62)=RMPR60("PAT CAT")
S:$D(RMPR60("SPEC CAT")) RMPRFDA(660,RMPRI,63)=RMPR60("SPEC CAT")
D:$D(RMPRFDA) FILE^DIE("","RMPRFDA","RMPRFME")
I $D(RMPRFME) S RMPRERR=1
UPDX Q RMPRERR
;
; Update AMIS grouper
AMGR(RMPR699) ;
N RMPRFDA,RMPRIEN,RMPRFME,X,Y,RMPRRET
S RMPRRET=0
S RMPRIEN=RMPR699("IEN")_","
L +^RMPR(669.9,RMPR699("IEN"))
S RMPR699("AMIS GROUPER")=$P(^RMPR(669.9,RMPR699("IEN"),0),"^",7)
S RMPR699("AMIS GROUPER")=RMPR699("AMIS GROUPER")-1
S RMPRFDA(669.9,RMPRIEN,11)=RMPR699("AMIS GROUPER")
D FILE^DIE("","RMPRFDA","RMPRFME")
I $D(RMPRFME) S RMPRRET=1
L -^RMPR(669.9,RMPR699("IEN"))
Q RMPRRET
;
; Read description for HCPCS
HCDES(RMPR611,RMPRFDA) ;
N RMPRIEN,RMPRFME,RMPRRET,RMPRTMP,RMPRI,RMPRJ
K RMPRFDA
S RMPRRET=0
S RMPRIEN=RMPR611("IEN")_","
D GETS^DIQ(661.1,RMPRIEN,"**","","RMPRTMP","RMPRFME")
I $D(RMPRFME) S RMPRRET=1 G HCDESX
S RMPRJ=0,RMPRI=""
F S RMPRI=$O(RMPRTMP(661.18,RMPRI)) Q:RMPRI="" D
. S RMPRJ=RMPRJ+1
. S RMPRFDA(RMPRJ)=RMPRTMP(661.18,RMPRI,.01)
. Q
HCDESX Q RMPRRET
;
; DEL - Delete a record
DEL(RMPR60) ;
N RMPRFDA,RMPRFME,RMPRERR,RMPRIEN,X,Y,DA
S RMPRERR=0
I $G(RMPR60("IEN"))="" S RMPRERR=1 G DELX
S RMPRIEN=RMPR60("IEN")_","
S RMPRFDA(660,RMPRIEN,.01)="@"
D FILE^DIE("","RMPRFDA","RMPRFME")
I $D(RMPRFME) S RMPRERR=1
DELX Q RMPRERR
;
; GET - read in 660 record
GET(RMPR60,RMPR11) ;
S RMPRERR=$$GET^RMPRPIXC(.RMPR60,.RMPR11)
GETX Q RMPRERR
;
; ETOI - convert external to internal form
ETOI(RMPR60,RMPR11,RMPR60I,RMPR11I) ;
S RMPRERR=$$ETOI^RMPRPIXC(.RMPR60,.RMPR11,.RMPR60I,.RMPR11I)
ETOIX Q RMPRERR
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPRPIX2 6428 printed Oct 16, 2024@18:37:12 Page 2
RMPRPIX2 ;HINCIO/ODJ - APIs for 660 file (Patient 2319) ;3/8/01
+1 ;;3.0;PROSTHETICS;**61**;Feb 09, 1996
+2 QUIT
+3 ;
+4 ; CRE - Create a 2319 record for a stock issue (file 660)
+5 ;
+6 ; Inputs:
+7 ;
+8 ; Outputs:
+9 ;
CRE(RMPR60,RMPR6111) ;
+1 NEW RMPRFDA,RMPRFME,RMPRIEN,RMPRRET,X,Y,RMPR699,RMPRTMP,RMPRI,RMPRJ
+2 NEW RMPR611,RMPR611I,RMPRERR,RMPRTMP
+3 SET RMPRRET=0
+4 SET RMPR611("HCPCS")=RMPR6111("HCPCS")
+5 SET RMPRRET=$$HPACT^RMPRPIX1(.RMPR611)
+6 IF RMPRRET
SET RMPRRET=1
GOTO CREX
+7 SET RMPRRET=$$HPETOI^RMPRPIX1(.RMPR611,.RMPR611I)
+8 IF RMPRRET
SET RMPRRET=1
GOTO CREX
+9 ;S RMPR60("CPT IEN")=RMPR611I("CPT CODE")
+10 SET RMPRFDA(660,"+1,",.01)=RMPR60("ENTRY DATE")
+11 SET RMPRFDA(660,"+1,",.02)=RMPR60("PATIENT IEN")
+12 SET RMPRFDA(660,"+1,",1)=RMPR60("REQ DATE")
+13 SET RMPRFDA(660,"+1,",2)=RMPR60("ISSUE TYPE")
+14 SET RMPRFDA(660,"+1,",4)=$GET(RMPR60("IFCAP ITEM"))
+15 SET RMPRFDA(660,"+1,",5)=RMPR60("QUANTITY")
+16 SET RMPRFDA(660,"+1,",78)=$GET(RMPR60("UNIT"))
+17 SET RMPRFDA(660,"+1,",7)=RMPR60("VENDOR IEN")
+18 SET RMPRFDA(660,"+1,",8)=RMPR6111("STATION IEN")
+19 SET RMPRFDA(660,"+1,",9)=$GET(RMPR60("SERIAL NUM"))
+20 SET RMPRFDA(660,"+1,",10)=RMPR60("DELIV DATE")
+21 SET RMPRFDA(660,"+1,",11)=$GET(RMPR60("REQ TYPE"))
+22 SET RMPRFDA(660,"+1,",12)=$GET(RMPR60("SOURCE"))
+23 SET RMPRFDA(660,"+1,",14)=RMPR60("COST")
+24 SET RMPRFDA(660,"+1,",16)=$GET(RMPR60("REMARKS"))
+25 SET RMPRFDA(660,"+1,",4.1)=RMPR60("CPT IEN")
+26 SET RMPRFDA(660,"+1,",21)=$GET(RMPR60("LOT NUM"))
+27 SET RMPRFDA(660,"+1,",27)=$GET(RMPR60("USER"))
+28 ;
+29 ; for the type 1 rec.
+30 SET RMPRFDA(660,"+1,",24)=RMPR611("SHORT DESC")
+31 SET RMPRFDA(660,"+1,",4.5)=RMPR60("HCPCS")
+32 ;S RMPRFDA(660,"+1,",4.5)=RMPR611("IEN")
+33 SET RMPRFDA(660,"+1,",4.7)=RMPR60("CPT MOD")
+34 SET RMPRFDA(660,"+1,",4.6)=RMPR60("TRANS IEN")
+35 SET RMPRFDA(660,"+1,",39)=RMPR60("DATE OF SERVICE")
+36 ;
+37 ; for the type 2 rec.
+38 SET RMPRFDA(660,"+1,",37)=RMPR6111("HCPCS")_"-"_RMPR6111("ITEM")
+39 SET RMPRFDA(660,"+1,",38)=RMPR6111("DESCRIPTION")
+40 ;
+41 ; for the type AM rec.
+42 SET RMPRFDA(660,"+1,",62)=RMPR60("PAT CAT")
+43 SET RMPRFDA(660,"+1,",63)=$GET(RMPR60("SPEC CAT"))
+44 ;
+45 ; for the type AMS rec.
+46 SET RMPR699("IEN")=RMPR60("SITE IEN")
+47 SET RMPRFDA(660,"+1,",68)=RMPR60("GROUPER")
+48 ;
+49 ; for the type DES rec.
+50 SET RMPRERR=$$HCDES(.RMPR611,.RMPRTMP)
+51 IF RMPRERR
SET RMPRRET=2
GOTO CREX
+52 SET RMPRFDA(660,"+1,",28)="RMPRTMP"
+53 DO UPDATE^DIE("","RMPRFDA","RMPRIEN","RMPRFME")
+54 IF $DATA(RMPRFME)
SET RMPRRET=99
GOTO CREX
+55 SET RMPR60("IEN")=RMPRIEN(1)
CREX QUIT RMPRRET
+1 ;
+2 ; UPD - Update existing 660 rec.
UPD(RMPR60,RMPR6111) ;
+1 NEW RMPRFDA,RMPRFME,RMPRERR,RMPRI,X,Y,DA,RMPR611,RMPR611I,RMPRTMP
+2 SET RMPRERR=0
+3 IF $GET(RMPR60("IEN"))=""
SET RMPRERR=1
GOTO UPDX
+4 SET RMPRI=RMPR60("IEN")_","
+5 IF $DATA(RMPR6111("HCPCS"))
Begin DoDot:1
+6 SET RMPR611("HCPCS")=RMPR6111("HCPCS")
+7 SET RMPRERR=$$HPACT^RMPRPIX1(.RMPR611)
+8 if RMPRERR
QUIT
+9 SET RMPRERR=$$HPETOI^RMPRPIX1(.RMPR611,.RMPR611I)
+10 if RMPRERR
QUIT
+11 SET RMPRERR=$$HCDES(.RMPR611,.RMPRTMP)
+12 if RMPRERR
QUIT
+13 SET RMPRFDA(660,RMPRI,28)="RMPRTMP"
+14 QUIT
End DoDot:1
+15 IF RMPRERR
SET RMPRERR=1
GOTO UPDX
+16 if $DATA(RMPR60("ENTRY DATE"))
SET RMPRFDA(660,RMPRI,.01)=RMPR60("ENTRY DATE")
+17 if $DATA(RMPR60("PATIENT IEN"))
SET RMPRFDA(660,RMPRI,.02)=RMPR60("PATIENT IEN")
+18 if $DATA(RMPR60("REQ DATE"))
SET RMPRFDA(660,RMPRI,1)=RMPR60("REQ DATE")
+19 if $DATA(RMPR60("ISSUE TYPE"))
SET RMPRFDA(660,RMPRI,2)=RMPR60("ISSUE TYPE")
+20 if $DATA(RMPR60("IFCAP ITEM"))
SET RMPRFDA(660,RMPRI,4)=RMPR60("IFCAP ITEM")
+21 if $DATA(RMPR60("QUANTITY"))
SET RMPRFDA(660,RMPRI,5)=RMPR60("QUANTITY")
+22 if $DATA(RMPR6111("UNIT"))
SET RMPRFDA(660,RMPRI,78)=RMPR6111("UNIT")
+23 if $DATA(RMPR60("VENDOR IEN"))
SET RMPRFDA(660,RMPRI,7)=RMPR60("VENDOR IEN")
+24 if $DATA(RMPR6111("STATION IEN"))
SET RMPRFDA(660,RMPRI,8)=RMPR6111("STATION IEN")
+25 if $DATA(RMPR60("SERIAL NUM"))
SET RMPRFDA(660,RMPRI,9)=RMPR60("SERIAL NUM")
+26 if $DATA(RMPR60("DELIV DATE"))
SET RMPRFDA(660,RMPRI,10)=RMPR60("DELIV DATE")
+27 if $DATA(RMPR60("DATE OF SERVICE"))
SET RMPRFDA(660,RMPRI,39)=RMPR60("DATE OF SERVICE")
+28 if $DATA(RMPR60("REQ TYPE"))
SET RMPRFDA(660,RMPRI,11)=RMPR60("REQ TYPE")
+29 if $DATA(RMPR60("SOURCE"))
SET RMPRFDA(660,RMPRI,12)=RMPR60("SOURCE")
+30 if $DATA(RMPR60("COST"))
SET RMPRFDA(660,RMPRI,14)=RMPR60("COST")
+31 if $DATA(RMPR60("REMARKS"))
SET RMPRFDA(660,RMPRI,16)=RMPR60("REMARKS")
+32 if $DATA(RMPR60("TRANS IEN"))
SET RMPRFDA(660,RMPRI,4.6)=RMPR60("TRANS IEN")
+33 if $DATA(RMPR60("CPT IEN"))
SET RMPRFDA(660,RMPRI,4.1)=RMPR60("CPT IEN")
+34 if $DATA(RMPR60("LOT NUM"))
SET RMPRFDA(660,RMPRI,21)=RMPR60("LOT NUM")
+35 ;
+36 ; for the type 1 rec.
+37 if $DATA(RMPR611("SHORT DESC"))
SET RMPRFDA(660,RMPRI,24)=RMPR611("SHORT DESC")
+38 if $DATA(RMPR60("HCPCS"))
SET RMPRFDA(660,RMPRI,4.5)=RMPR60("HCPCS")
+39 ;S:$D(RMPR611("IEN")) RMPRFDA(660,RMPRI,4.5)=RMPR611("IEN")
+40 if $DATA(RMPR60("CPT MOD"))
SET RMPRFDA(660,RMPRI,4.7)=RMPR60("CPT MOD")
+41 ;
+42 ; for the type 2 rec.
+43 if $DATA(RMPR6111("HCPCS"))
SET RMPRFDA(660,RMPRI,37)=RMPR6111("HCPCS")_"-"_RMPR6111("ITEM")
+44 if $DATA(RMPR6111("DESCRIPTION"))
SET RMPRFDA(660,RMPRI,38)=RMPR6111("DESCRIPTION")
+45 ;
+46 ; for the type AM rec.
+47 if $DATA(RMPR60("PAT CAT"))
SET RMPRFDA(660,RMPRI,62)=RMPR60("PAT CAT")
+48 if $DATA(RMPR60("SPEC CAT"))
SET RMPRFDA(660,RMPRI,63)=RMPR60("SPEC CAT")
+49 if $DATA(RMPRFDA)
DO FILE^DIE("","RMPRFDA","RMPRFME")
+50 IF $DATA(RMPRFME)
SET RMPRERR=1
UPDX QUIT RMPRERR
+1 ;
+2 ; Update AMIS grouper
AMGR(RMPR699) ;
+1 NEW RMPRFDA,RMPRIEN,RMPRFME,X,Y,RMPRRET
+2 SET RMPRRET=0
+3 SET RMPRIEN=RMPR699("IEN")_","
+4 LOCK +^RMPR(669.9,RMPR699("IEN"))
+5 SET RMPR699("AMIS GROUPER")=$PIECE(^RMPR(669.9,RMPR699("IEN"),0),"^",7)
+6 SET RMPR699("AMIS GROUPER")=RMPR699("AMIS GROUPER")-1
+7 SET RMPRFDA(669.9,RMPRIEN,11)=RMPR699("AMIS GROUPER")
+8 DO FILE^DIE("","RMPRFDA","RMPRFME")
+9 IF $DATA(RMPRFME)
SET RMPRRET=1
+10 LOCK -^RMPR(669.9,RMPR699("IEN"))
+11 QUIT RMPRRET
+12 ;
+13 ; Read description for HCPCS
HCDES(RMPR611,RMPRFDA) ;
+1 NEW RMPRIEN,RMPRFME,RMPRRET,RMPRTMP,RMPRI,RMPRJ
+2 KILL RMPRFDA
+3 SET RMPRRET=0
+4 SET RMPRIEN=RMPR611("IEN")_","
+5 DO GETS^DIQ(661.1,RMPRIEN,"**","","RMPRTMP","RMPRFME")
+6 IF $DATA(RMPRFME)
SET RMPRRET=1
GOTO HCDESX
+7 SET RMPRJ=0
SET RMPRI=""
+8 FOR
SET RMPRI=$ORDER(RMPRTMP(661.18,RMPRI))
if RMPRI=""
QUIT
Begin DoDot:1
+9 SET RMPRJ=RMPRJ+1
+10 SET RMPRFDA(RMPRJ)=RMPRTMP(661.18,RMPRI,.01)
+11 QUIT
End DoDot:1
HCDESX QUIT RMPRRET
+1 ;
+2 ; DEL - Delete a record
DEL(RMPR60) ;
+1 NEW RMPRFDA,RMPRFME,RMPRERR,RMPRIEN,X,Y,DA
+2 SET RMPRERR=0
+3 IF $GET(RMPR60("IEN"))=""
SET RMPRERR=1
GOTO DELX
+4 SET RMPRIEN=RMPR60("IEN")_","
+5 SET RMPRFDA(660,RMPRIEN,.01)="@"
+6 DO FILE^DIE("","RMPRFDA","RMPRFME")
+7 IF $DATA(RMPRFME)
SET RMPRERR=1
DELX QUIT RMPRERR
+1 ;
+2 ; GET - read in 660 record
GET(RMPR60,RMPR11) ;
+1 SET RMPRERR=$$GET^RMPRPIXC(.RMPR60,.RMPR11)
GETX QUIT RMPRERR
+1 ;
+2 ; ETOI - convert external to internal form
ETOI(RMPR60,RMPR11,RMPR60I,RMPR11I) ;
+1 SET RMPRERR=$$ETOI^RMPRPIXC(.RMPR60,.RMPR11,.RMPR60I,.RMPR11I)
ETOIX QUIT RMPRERR
