ACDWRQ ;IHS/ADC/EDE/KML - PROMPTS FOR RPTS CRITERIA AREA/SU/FAC;
;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
;;
;*********************************************************
;//^ACDWDRV*
;First get dates to run then see if user is facility or area or HQ.
;Ask HQ to print reports by area or service unit or facility.
;Force AREA to run report by facility.
;Force FACILITY to run only for their ONE facility.
;************************************************************
;
K ACDAREA,ACDSU,ACDFAC,ACDPROV,ACDSUB,ACDTRB,ACDSTA,ACDCOMU,ACDCRST
D D Q:$D(ACDQUIT) D LOC Q:$D(ACDQUIT) I $D(ACDFAC) D 2 Q
W !! S DIR(0)="S^1:AREA;2:FACILITY;3:SERVICE UNIT",DIR("A")="Print Reports By:" D ^DIR S:X["^"!($D(DTOUT))!(X="") ACDQUIT=1 Q:$D(ACDQUIT) D @Y Q:$D(ACDQUIT)
Q
1 ;AREA
;User is running reports by area
D ^ACDWAREA Q:$D(ACDQUIT)
D TSC Q
;
2 ;FACILITY
;User is running reports by facility
;If the user is a facility, they are not asked to run reports
;by area, service unit, or facility, so I pre-set the ACDFAC
;array
I '$D(ACDFAC) D ^ACDWFAC Q:$D(ACDQUIT)
D TSC Q
;
3 ;SERVICE UNIT
;User is running reports by service unit
D ^ACDWSU Q:$D(ACDQUIT)
D TSC Q
;
TSC ;
;Ask to further restrict output by tribe, state, community
;This will further restrict the output criteria already
;selected above
;
Q:$D(ACDWDRV(5))
W !!!,"OK, within ",$S($D(ACDAREA):"AREA, ",$D(ACDFAC):"FACILITY, ",$D(ACDSU):"SERVICE UNIT, "),"restrict reports by: "
S DIR(0)="S^4:TRIBE;5:STATE;6:COMMUMITY;7:NO RESTRICTION" D ^DIR S:X["^"!($D(DTOUT))!(X="") ACDQUIT=1 Q:$D(ACDQUIT) D @Y Q:$D(ACDQUIT)
Q
;
4 ;TRIBE
;User is running reports by the area, facility, or service unit
;with a further restriction i.e. being tribe
D ^ACDWTRB Q
;
5 ;STATE
;User is running reports by the area, facility, or service unit
;with a further restriction i.e. being state
D ^ACDWSTA Q
;
6 ;COMMUMITY
;User is running reports by the area, facility, or service unit
;with a futher restriction i.e. being community
;W !!!,"UNAVAILABLE" Q
Q
;
7 ;No restrictions
;User is running reports by area, facility, or service unit and
;does NOT want a further restriction by state, tribe, or community
Q
;
D ;EP
;Select visit start and stop dates
;//^ACDGSAVE
;//^ACDDFAC
;W !!,"*** Do not enter the day in the date string if you wish to get Client Services ***"
S %DT="AE",%DT("A")="Select Start Visit Date: " D ^%DT S:Y<0 ACDQUIT=1
Q:$D(ACDQUIT)
S ACDFR=+Y
S %DT("A")="Select End Visit Date: " D ^%DT S:Y<0 ACDQUIT=1
Q:$D(ACDQUIT)
S ACDTO=+Y
I ACDTO<ACDFR W !!,"** Visit start date must be earlier then Visit end date. **" G D
;
;
CNTACT ;
;Ask user for the contact types to run the initial/info/fu
;reports for i.e. ACDWDRV(1) will be defined
Q:'$D(ACDWDRV(1))
K ACDCRST,DIR
F S DIR(0)="9002172.1,3O",DIR("A")="Select Contact type(s)" D ^DIR Q:X["^"!($D(DTOUT)!(X="")) S ACDCRST(Y)="" I Y="CS"!(Y="TD") W " *** NOT ALLOWED ***",*7 K ACDCRST(Y)
I $O(ACDCRST(""))="" S ACDQUIT=1
Q
;
LOC ;See user is site, area, or HQ
;See if user running client details, if so, force array set and quit
I $D(ACDWDRV(3)) S ACDFAC(ACD6DIG)="",ACDLOC=$P(^DIC(4,DUZ(2),0),U) Q
;
;See if site is HQ
I $E(ACD6DIG)=9 W !!,*7,"HEADQUARTERS..............",! Q
;
;See if user is a site, if so, force array set and quit
I $E(ACD6DIG,3,4)'="00" S ACDFAC(ACD6DIG)="",ACDLOC=$P(^DIC(4,DUZ(2),0),U) Q
;
;User is a area, force user to the facility selection module
W !!,*7,"Area ...................",! D ^ACDWFAC
Q
;
ACDWRQ ;IHS/ADC/EDE/KML - PROMPTS FOR RPTS CRITERIA AREA/SU/FAC;
+1 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
+2 ;;
+3 ;*********************************************************
+4 ;//^ACDWDRV*
+5 ;First get dates to run then see if user is facility or area or HQ.
+6 ;Ask HQ to print reports by area or service unit or facility.
+7 ;Force AREA to run report by facility.
+8 ;Force FACILITY to run only for their ONE facility.
+9 ;************************************************************
+10 ;
+11 KILL ACDAREA,ACDSU,ACDFAC,ACDPROV,ACDSUB,ACDTRB,ACDSTA,ACDCOMU,ACDCRST
+12 DO D
IF $DATA(ACDQUIT)
QUIT
DO LOC
IF $DATA(ACDQUIT)
QUIT
IF $DATA(ACDFAC)
DO 2
QUIT
+13 WRITE !!
SET DIR(0)="S^1:AREA;2:FACILITY;3:SERVICE UNIT"
SET DIR("A")="Print Reports By:"
DO ^DIR
IF X["^"!($DATA(DTOUT))!(X="")
SET ACDQUIT=1
IF $DATA(ACDQUIT)
QUIT
DO @Y
IF $DATA(ACDQUIT)
QUIT
+14 QUIT
1 ;AREA
+1 ;User is running reports by area
+2 DO ^ACDWAREA
IF $DATA(ACDQUIT)
QUIT
+3 DO TSC
QUIT
+4 ;
2 ;FACILITY
+1 ;User is running reports by facility
+2 ;If the user is a facility, they are not asked to run reports
+3 ;by area, service unit, or facility, so I pre-set the ACDFAC
+4 ;array
+5 IF '$DATA(ACDFAC)
DO ^ACDWFAC
IF $DATA(ACDQUIT)
QUIT
+6 DO TSC
QUIT
+7 ;
3 ;SERVICE UNIT
+1 ;User is running reports by service unit
+2 DO ^ACDWSU
IF $DATA(ACDQUIT)
QUIT
+3 DO TSC
QUIT
+4 ;
TSC ;
+1 ;Ask to further restrict output by tribe, state, community
+2 ;This will further restrict the output criteria already
+3 ;selected above
+4 ;
+5 IF $DATA(ACDWDRV(5))
QUIT
+6 WRITE !!!,"OK, within ",$SELECT($DATA(ACDAREA):"AREA, ",$DATA(ACDFAC):"FACILITY, ",$DATA(ACDSU):"SERVICE UNIT, "),"restrict reports by: "
+7 SET DIR(0)="S^4:TRIBE;5:STATE;6:COMMUMITY;7:NO RESTRICTION"
DO ^DIR
IF X["^"!($DATA(DTOUT))!(X="")
SET ACDQUIT=1
IF $DATA(ACDQUIT)
QUIT
DO @Y
IF $DATA(ACDQUIT)
QUIT
+8 QUIT
+9 ;
4 ;TRIBE
+1 ;User is running reports by the area, facility, or service unit
+2 ;with a further restriction i.e. being tribe
+3 DO ^ACDWTRB
QUIT
+4 ;
5 ;STATE
+1 ;User is running reports by the area, facility, or service unit
+2 ;with a further restriction i.e. being state
+3 DO ^ACDWSTA
QUIT
+4 ;
6 ;COMMUMITY
+1 ;User is running reports by the area, facility, or service unit
+2 ;with a futher restriction i.e. being community
+3 ;W !!!,"UNAVAILABLE" Q
+4 QUIT
+5 ;
7 ;No restrictions
+1 ;User is running reports by area, facility, or service unit and
+2 ;does NOT want a further restriction by state, tribe, or community
+3 QUIT
+4 ;
D ;EP
+1 ;Select visit start and stop dates
+2 ;//^ACDGSAVE
+3 ;//^ACDDFAC
+4 ;W !!,"*** Do not enter the day in the date string if you wish to get Client Services ***"
+5 SET %DT="AE"
SET %DT("A")="Select Start Visit Date: "
DO ^%DT
IF Y<0
SET ACDQUIT=1
+6 IF $DATA(ACDQUIT)
QUIT
+7 SET ACDFR=+Y
+8 SET %DT("A")="Select End Visit Date: "
DO ^%DT
IF Y<0
SET ACDQUIT=1
+9 IF $DATA(ACDQUIT)
QUIT
+10 SET ACDTO=+Y
+11 IF ACDTO<ACDFR
WRITE !!,"** Visit start date must be earlier then Visit end date. **"
GOTO D
+12 ;
+13 ;
CNTACT ;
+1 ;Ask user for the contact types to run the initial/info/fu
+2 ;reports for i.e. ACDWDRV(1) will be defined
+3 IF '$DATA(ACDWDRV(1))
QUIT
+4 KILL ACDCRST,DIR
+5 FOR
SET DIR(0)="9002172.1,3O"
SET DIR("A")="Select Contact type(s)"
DO ^DIR
IF X["^"!($DATA(DTOUT)!(X=""))
QUIT
SET ACDCRST(Y)=""
IF Y="CS"!(Y="TD")
WRITE " *** NOT ALLOWED ***",*7
KILL ACDCRST(Y)
+6 IF $ORDER(ACDCRST(""))=""
SET ACDQUIT=1
+7 QUIT
+8 ;
LOC ;See user is site, area, or HQ
+1 ;See if user running client details, if so, force array set and quit
+2 IF $DATA(ACDWDRV(3))
SET ACDFAC(ACD6DIG)=""
SET ACDLOC=$PIECE(^DIC(4,DUZ(2),0),U)
QUIT
+3 ;
+4 ;See if site is HQ
+5 IF $EXTRACT(ACD6DIG)=9
WRITE !!,*7,"HEADQUARTERS..............",!
QUIT
+6 ;
+7 ;See if user is a site, if so, force array set and quit
+8 IF $EXTRACT(ACD6DIG,3,4)'="00"
SET ACDFAC(ACD6DIG)=""
SET ACDLOC=$PIECE(^DIC(4,DUZ(2),0),U)
QUIT
+9 ;
+10 ;User is a area, force user to the facility selection module
+11 WRITE !!,*7,"Area ...................",!
DO ^ACDWFAC
+12 QUIT
+13 ;
