PSDPRT ;BIR/JPW-Print Setup Lists for Package ; 4 Sept 92
;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
INVEN ;print inventory types from file 58.16
W @IOF W !!,"The NAOU Inventory Types report is designed for an 80 column format.",!!
K DIC S DIC=58.16,L=0,FLDS=".01,1",BY=".01",(FR,TO)="",DHD="NAOU INVENTORY TYPES" D EN1^DIP G END
;
CODE ;print drug location codes from file 58.17
W @IOF W !!,"The CS Drug Location Codes report is designed for an 80 column format.",!!
K DIC S DIC=58.17,L=0,FLDS=".01;""CODE"",.5;C18",BY=".01",(FR,TO)="",DHD="CS DRUG LOCATION CODES" D EN1^DIP G END
;
NAOU ;print NAOU, location type & primary disp. site by inpatient site
W @IOF,!!,"The NARCOTIC AREA OF USE data report is designed for a 132 column format.",!
K DIC S DIC=58.8,L=0,FLDS=".01;""NAOU"",1;C40,3;C60",BY="2,.01",(FR,TO)="",DHD="NARCOTIC AREA OF USE",DIS(0)="I $P(^PSD(58.8,D0,0),""^"",2)'=""P""" D EN1^DIP
;
END ;
K BY,DHD,DIC,DIS,FLDS,FR,L,TO,X
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSDPRT 966 printed Dec 13, 2024@01:48:12 Page 2
PSDPRT ;BIR/JPW-Print Setup Lists for Package ; 4 Sept 92
+1 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
INVEN ;print inventory types from file 58.16
+1 WRITE @IOF
WRITE !!,"The NAOU Inventory Types report is designed for an 80 column format.",!!
+2 KILL DIC
SET DIC=58.16
SET L=0
SET FLDS=".01,1"
SET BY=".01"
SET (FR,TO)=""
SET DHD="NAOU INVENTORY TYPES"
DO EN1^DIP
GOTO END
+3 ;
CODE ;print drug location codes from file 58.17
+1 WRITE @IOF
WRITE !!,"The CS Drug Location Codes report is designed for an 80 column format.",!!
+2 KILL DIC
SET DIC=58.17
SET L=0
SET FLDS=".01;""CODE"",.5;C18"
SET BY=".01"
SET (FR,TO)=""
SET DHD="CS DRUG LOCATION CODES"
DO EN1^DIP
GOTO END
+3 ;
NAOU ;print NAOU, location type & primary disp. site by inpatient site
+1 WRITE @IOF,!!,"The NARCOTIC AREA OF USE data report is designed for a 132 column format.",!
+2 KILL DIC
SET DIC=58.8
SET L=0
SET FLDS=".01;""NAOU"",1;C40,3;C60"
SET BY="2,.01"
SET (FR,TO)=""
SET DHD="NARCOTIC AREA OF USE"
SET DIS(0)="I $P(^PSD(58.8,D0,0),""^"",2)'=""P"""
DO EN1^DIP
+3 ;
END ;
+1 KILL BY,DHD,DIC,DIS,FLDS,FR,L,TO,X
