source:
WorldVistAEHR/trunk/r/NATIONAL_DRUG_FILE-PSN/PSNRPT3.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 313 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | PSNRPT3 ;BIR/CCH&WRT-FILEMAN PRINT TEMPLATE USED IN PSNRPT ;10/02/98 14:34 |
2 | ;;4.0; NATIONAL DRUG FILE;; 30 Oct 98 | |
3 | I '$D(^PSDRUG(D0,"ND")) Q | |
4 | S HLD=D0,D0=$P(^PSDRUG(HLD,"ND"),"^"),FNM=$P(^PSDRUG(HLD,"ND"),"^",3),Y=$P(^PSNDF(50.68,FNM,0),"^",1) W ?42,"INGREDIENTS:" D INGRED1^PSNOUT | |
5 | W !!! S D0=HLD K HLD,FNM,IN Q |
Note:
See TracBrowser
for help on using the repository browser.