| [613] | 1 | RMPRPIXD ;HINCIO/ODJ - PROSTHETIC ITEM MASTER FILE 661.1 APIs ;3/8/01
|
|---|
| 2 | ;;3.0;PROSTHETICS;**61**;Feb 09, 1996
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | ;***** GET - read Item Master 661 record
|
|---|
| 6 | GET(RMPR) ;
|
|---|
| 7 | N RMPRCRE,RMPRFME,RMPROUP,RMPRIEN,X,Y,DA,RMPRI
|
|---|
| 8 | S RMPRCRE=0
|
|---|
| 9 | S RMPRIEN=RMPR("IEN")_","
|
|---|
| 10 | D GETS^DIQ(661,RMPRIEN,"*","","RMPROUP","RMPRFME")
|
|---|
| 11 | I $D(RMPRFME) S RMPRCRE=1 G GETX
|
|---|
| 12 | S RMPR("ITEM MASTER")=RMPROUP(661,RMPRIEN,.01)
|
|---|
| 13 | S RMPRCRE=$$ETOI(.RMPR,.RMPRI)
|
|---|
| 14 | S RMPR("ITEM MASTER IEN")=RMPRI("ITEM MASTER IEN")
|
|---|
| 15 | GETX Q RMPRCRE
|
|---|
| 16 | ;
|
|---|
| 17 | ;***** ETOI - Convert external to internal form
|
|---|
| 18 | ETOI(RMPRE,RMPRI) ;
|
|---|
| 19 | N RMPRFDA,RMPRIEN,RMPRFDI,RMPRFME,RMPRERR,X,Y,DA
|
|---|
| 20 | S RMPRERR=0
|
|---|
| 21 | S RMPRIEN=RMPRE("IEN")_","
|
|---|
| 22 | D GETS^DIQ(661,RMPRIEN,"*","I","RMPRFDI","RMPRFME")
|
|---|
| 23 | I $D(RMPRFME) S RMPRERR=1 G ETOIX
|
|---|
| 24 | S RMPRI("IEN")=RMPRE("IEN")
|
|---|
| 25 | S RMPRI("ITEM MASTER IEN")=RMPRFDI(661,RMPRIEN,.01,"I")
|
|---|
| 26 | ETOIX Q RMPRERR
|
|---|
