source: FOIAVistA/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRPIXD.m@ 868

Last change on this file since 868 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 843 bytes
Line 
1RMPRPIXD ;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
6GET(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")
15GETX Q RMPRCRE
16 ;
17 ;***** ETOI - Convert external to internal form
18ETOI(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")
26ETOIX Q RMPRERR
Note: See TracBrowser for help on using the repository browser.