PSNLDG ;BIR/WRT-REPORT TO DISPLAY INFO IN LOCAL DRUG FILE ; 01/28/00 14:41
;;4.0; NATIONAL DRUG FILE;**3,19,22**; 30 Oct 98
;
;Reference to ^PSDRUG is supported by DBIA #2352 & #221
;
D RPT K PTR,NF,NFR
Q
RPT W !!,"This report gives you a printed copy of the local drug name, inactive date, NDC,",!,"and the DEA value. If your local drug is matched to NDF and National Formulary",!,"and/or Restriction information exists, "
W "this is also displayed after the drug",!,"name. This report requires 132 columns.",!,"You may queue the report to print, if you wish.",!
S DIC="^PSDRUG(",L=0,FLDS="[PSNLDG1]",BY="GENERIC NAME",DHD="[PSNHEAD]" D EN1^DIP
Q
PROD S NF="",NFR="" I $D(^PSDRUG(D0,"ND")) S PTR=$P($G(^PSDRUG(D0,"ND")),"^",3) I PTR]"",$D(^PSNDF(50.68,PTR,0)) S:$P($G(^PSNDF(50.68,PTR,5)),"^")=0 NF=" #" S:$D(^PSNDF(50.68,PTR,6,0)) NFR=" R" W ?23,NF,NFR
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSNLDG 884 printed Nov 22, 2024@17:34:16 Page 2
PSNLDG ;BIR/WRT-REPORT TO DISPLAY INFO IN LOCAL DRUG FILE ; 01/28/00 14:41
+1 ;;4.0; NATIONAL DRUG FILE;**3,19,22**; 30 Oct 98
+2 ;
+3 ;Reference to ^PSDRUG is supported by DBIA #2352 & #221
+4 ;
+5 DO RPT
KILL PTR,NF,NFR
+6 QUIT
RPT WRITE !!,"This report gives you a printed copy of the local drug name, inactive date, NDC,",!,"and the DEA value. If your local drug is matched to NDF and National Formulary",!,"and/or Restriction information exists, "
+1 WRITE "this is also displayed after the drug",!,"name. This report requires 132 columns.",!,"You may queue the report to print, if you wish.",!
+2 SET DIC="^PSDRUG("
SET L=0
SET FLDS="[PSNLDG1]"
SET BY="GENERIC NAME"
SET DHD="[PSNHEAD]"
DO EN1^DIP
+3 QUIT
PROD SET NF=""
SET NFR=""
IF $DATA(^PSDRUG(D0,"ND"))
SET PTR=$PIECE($GET(^PSDRUG(D0,"ND")),"^",3)
IF PTR]""
IF $DATA(^PSNDF(50.68,PTR,0))
if $PIECE($GET(^PSNDF(50.68,PTR,5)),"^")=0
SET NF=" #"
if $DATA(^PSNDF(50.68,PTR,6,0))
SET NFR=" R"
WRITE ?23,NF,NFR
+1 QUIT
