- 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 Jan 18, 2025@03:25:25 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