source:
FOIAVistA/tag/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSIVXREF.m@
636
| Last change on this file since 636 was 628, checked in by , 14 years ago | |
|---|---|
| File size: 439 bytes | |
| Line | |
|---|---|
| 1 | PSIVXREF ;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.
