source: FOIAVistA/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSIVXREF.m@ 1535

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

initial load of FOIAVistA 6/30/08 version

File size: 439 bytes
Line 
1PSIVXREF ;BIR/CCH-SET MUMPS X REFERENCE ;5/31/90 09:46
2 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
3 ; this routine is called from the DD to update mumps crossref.
4 S NAM=$P(^PS(50.8,DA(2),2,DA(1),2,DA,0),"^",1),FILE=$P(^(0),"^",7),IVDA=$O(^PS(FILE,"B",NAM,0))
5 S ^PS(50.8,DA(2),2,DA(1),2,"AC",FILE,IVDA,DA)=""
6 S DRGDA=$P(^PS(FILE,NAM,0),"^",2),^PS(50.8,DA(2),2,DA(1),2,"B",NAM,DRGDA,DA)=$P(^PSDRUG(DRGDA,0),"^",9)
7 K FILE,NAM,DRGDA,IVDA Q
Note: See TracBrowser for help on using the repository browser.