Last change
on this file since 1397 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
595 bytes
|
Line | |
---|
1 | PSNRPT ;BIR/WRT-REPORT TO DISPLAY DRUGS THAT HAVE BEEN MATCHED,VERIFIED,& MERGED ;[ 01/12/98 5:18 PM ]
|
---|
2 | ;;4.0; NATIONAL DRUG FILE;; 30 Oct 98
|
---|
3 | W !!,"This report gives a printed copy of the drugs from your local drug file that",!,"have been matched to the National Drug File. This report requires 132 columns.",!,"You may queue the report to print, if you wish.",!
|
---|
4 | S DIC="^PSDRUG(",L=0,FLDS="[PSNRPT4]",BY="GENERIC NAME",DIS(0)="I $D(^PSDRUG(D0,""ND"")),$P(^PSDRUG(D0,""ND""),U,2)]""""",DHD="W ?0 D ^PSNHEADR" D EN1^DIP
|
---|
5 | K PSNDF,PSNDOS,PSNPS,PSNPTR,PSNST,PSNTP,PSNUN,VV,VVV,PSNLOCL,%DT,X,Y
|
---|
6 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.