|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
313 bytes
|
| Line | |
|---|
| 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.
