Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PSNVAGN

PSNVAGN.m

Go to the documentation of this file.

PSNVAGN ;BIR/WRT-REPORT TO DISPLAY VA GENERIC NAMES FROM THE NATIONAL DRUG FILE  ;08/28/98 14:09

 ;;4.0; NATIONAL DRUG FILE;; 30 Oct 98

 W !!,"This report gives you a printed copy of the VA Generic Names from the National Drug File. This report may assist you in the matching process.",!,"You may queue the report to print, if you wish.",!

 S DIC="^PSNDF(50.6,",L=0,FLDS=".01",BY=".01",DHD="VA GENERIC NAMES FROM THE NATIONAL DRUG FILE  " D EN1^DIP

PSNVAGN   ;BIR/WRT-REPORT TO DISPLAY VA GENERIC NAMES FROM THE NATIONAL DRUG FILE  ;08/28/98 14:09

 +1       ;;4.0; NATIONAL DRUG FILE;; 30 Oct 98

 +2        WRITE !!,"This report gives you a printed copy of the VA Generic Names from the National Drug File. This report may assist you in the matching process.",!,"You may queue the report to print, if you wish.",!

 +3        SET DIC="^PSNDF(50.6,"

           SET L=0

           SET FLDS=".01"

           SET BY=".01"

           SET DHD="VA GENERIC NAMES FROM THE NATIONAL DRUG FILE  "

           DO EN1^DIP

 +4        QUIT