| 1 | PSDPRT ;BIR/JPW-Print Setup Lists for Package ; 4 Sept 92
|
|---|
| 2 | ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
|
|---|
| 3 | INVEN ;print inventory types from file 58.16
|
|---|
| 4 | W @IOF W !!,"The NAOU Inventory Types report is designed for an 80 column format.",!!
|
|---|
| 5 | K DIC S DIC=58.16,L=0,FLDS=".01,1",BY=".01",(FR,TO)="",DHD="NAOU INVENTORY TYPES" D EN1^DIP G END
|
|---|
| 6 | ;
|
|---|
| 7 | CODE ;print drug location codes from file 58.17
|
|---|
| 8 | W @IOF W !!,"The CS Drug Location Codes report is designed for an 80 column format.",!!
|
|---|
| 9 | 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
|
|---|
| 10 | ;
|
|---|
| 11 | NAOU ;print NAOU, location type & primary disp. site by inpatient site
|
|---|
| 12 | W @IOF,!!,"The NARCOTIC AREA OF USE data report is designed for a 132 column format.",!
|
|---|
| 13 | 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
|
|---|
| 14 | ;
|
|---|
| 15 | END ;
|
|---|
| 16 | K BY,DHD,DIC,DIS,FLDS,FR,L,TO,X
|
|---|
