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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSNODDI 601 printed Dec 13, 2024@02:24:24 Page 2
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
