Routine: PSDPRT

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

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

PSDPRT.m