PSNODDI.m

PSNODDI ;BIR/WRT-REPORT TO DISPLAY EXEMPTIONS FOR DDI CHECKING IN VA PRODUCT FILE ; 07/02/03 14:36

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

 ;Reference to ^PSDRUG supported by DBIA #2192

 ;

 D TXT,RPT K CLCODE,CLPTR,DFRM,FORM,NDF,PROD,PSNDRG,VAPN

 Q

TXT W !!,"This report gives you a printed copy of Dispense Drugs from your",!,"local file which are matched to VA Products that are marked as ",!,"EXCLUDE from Drug-Drug Interaction checking."

 W !,"You may queue the report to print, if you wish.",!

 Q

RPT S DIC="^PSDRUG(",L=0,FLDS="[PSNODDI1]",BY="@.01",DHD="[PSNODDI2]" D EN1^DIP

 Q

PSNODDI   ;BIR/WRT-REPORT TO DISPLAY EXEMPTIONS FOR DDI CHECKING IN VA PRODUCT FILE ; 07/02/03 14:36

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

 +2       ;Reference to ^PSDRUG supported by DBIA #2192

 +3       ;

 +4        DO TXT

           DO RPT

           KILL CLCODE,CLPTR,DFRM,FORM,NDF,PROD,PSNDRG,VAPN

 +5        QUIT 

TXT        WRITE !!,"This report gives you a printed copy of Dispense Drugs from your",!,"local file which are matched to VA Products that are marked as ",!,"EXCLUDE from Drug-Drug Interaction checking."

 +1        WRITE !,"You may queue the report to print, if you wish.",!

 +2        QUIT 

RPT        SET DIC="^PSDRUG("

           SET L=0

           SET FLDS="[PSNODDI1]"

           SET BY="@.01"

           SET DHD="[PSNODDI2]"

           DO EN1^DIP

 +1        QUIT