- ACDWQ ;IHS/ADC/EDE/KML - Q-LOG FOR 5 DRIVER SET REPORTS;
- ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
- ;******************************************************
- ;//^ACDWDRV*
- ;Needs ASA* all variables
- ;**************************************************************
- DEBUG D DBQUE Q
- W !!,"You should queue all reports to a printer.",!
- S ACDNOQUE=1
- K IO("Q"),%ZIS,IOP,ZTDTH,ZTSAVE,ZTSK S ACDJBN=$J
- S %ZIS="PQ",%ZIS("B")=""
- D ^%ZIS
- Q:POP
- XXX I $E(IOST,1,2)'="P-" W !,"YOU MUST ROUTE THE OUTPUT OF THIS REPORT TO A PRINTER",! D ^%ZISC S POP=1 D PAUSE^ACDDEU Q
- ;I IO=IO(0) D HUH I 'Y S POP=1 Q
- Q:'$D(IO("Q"))
- S ZTIO=ION,ACDZTIO=ION S:$G(IOCPU) ZTCPU=IOCPU S ZTSAVE("ACD*")="",ZTSAVE("DUZ(")=""
- S ZTRTN=$S($D(ACDWSTAF(1)):"L^ACDWSTAF",$D(ACDWDRV(1)):"L^ACDWDRV1",$D(ACDWDRV(2)):"L^ACDWDRV2",$D(ACDWDRV(3)):"L^ACDWDRV3",$D(ACDWDRV(4)):"L^ACDWDRV4",1:"L^ACDWDRV5")
- D ^%ZTLOAD
- W !,"Report Queued.."
- D ^ACDWK
- Q
- ;
- HUH ; SEE IF USER REALLY WANT TO GO TO HOME DEVICE
- K DIR
- W !,"You have selected your terminal for the ouput of this report."
- W !,"If you hat out at the end of a page you will be logged off the system."
- W !,"Do you want to continue?",!
- S DIR(0)="YO",DIR("B")="N" K DA D ^DIR K DIR
- Q
- NOTE ;************************************************************
- ;To convert to double queue
- ;ACDJBN=JOB#
- ;ACDZTIO=ION
- ;ZTIO="" (wake up from first queue in background -no device)
- ;ZTCPU is passed to %ZTLOAD incase device selected is on a
- ; different CPU (No need to ZTSAVE("^TMP(""ASA"",$J,") anymore.
- ;Wake up from first queue and compile.
- ;Queue again setting ZTIO=ACDZTIO this time.
- ;Use ACDJBN when oedering through print utility because $J changed
- DBQUE ;
- D INIT
- D XBQUE
- Q
- ;
- INIT ;
- S ACDJOB=$J
- F D Q:ACDBT]""
- . S ACDBT=$H
- . LOCK +^TMP("ACD",ACDJOB,ACDBT):1
- . E S ACDBT=""
- . Q
- K ^TMP("ACD",ACDJOB,ACDBT)
- Q
- ;
- XBQUE ;call to XBDBQUE
- K ACDOPT
- W ! S DIR(0)="S^P:PRINT Output;B:BROWSE Output on Screen",DIR("A")="Do you wish to",DIR("B")="P" K DA D ^DIR K DIR
- I $D(DIRUT) S ACDQUIT=1 Q
- S ACDOPT=Y
- S XBRC=$S($D(ACDWSTAF(1)):"L^ACDWSTAF",$D(ACDWDRV(1)):"L^ACDWDRV1",$D(ACDWDRV(2)):"L^ACDWDRV2",$D(ACDWDRV(3)):"L^ACDWDRV3",$D(ACDWDRV(4)):"L^ACDWDRV4",1:"L^ACDWDRV5")
- S XBRX=$S($D(ACDWSTAF(1)):"EOJ^ACDWSTAF",$D(ACDWDRV(1)):"EOJ^ACDWDRV1",$D(ACDWDRV(2)):"EOJ^ACDWDRV2",$D(ACDWDRV(3)):"EOJ^ACDWDRV3",$D(ACDWDRV(4)):"EOJ^ACDWDRV4",1:"EOJ^ACDWDRV5")
- S XBRP=$S($D(ACDWSTAF(1)):"P^ACDWSTAF",$D(ACDWDRV(1)):"P^ACDWDRV1",$D(ACDWDRV(2)):"P^ACDWDRV2",$D(ACDWDRV(3)):"P^ACDWDRV3",$D(ACDWDRV(4)):"P^ACDWDRV4",1:"P^ACDWDRV5")
- S XBNS="ACD"
- I $G(ACDOPT)="B" S XBIOP=0,XBRP="VIEWR^XBLM("""_XBRP_""")"
- D ^XBDBQUE
- Q
- ACDWQ ;IHS/ADC/EDE/KML - Q-LOG FOR 5 DRIVER SET REPORTS;
- +1 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
- +2 ;******************************************************
- +3 ;//^ACDWDRV*
- +4 ;Needs ASA* all variables
- +5 ;**************************************************************
- DEBUG DO DBQUE
- QUIT
- +1 WRITE !!,"You should queue all reports to a printer.",!
- +2 SET ACDNOQUE=1
- +3 KILL IO("Q"),%ZIS,IOP,ZTDTH,ZTSAVE,ZTSK
- SET ACDJBN=$JOB
- +4 SET %ZIS="PQ"
- SET %ZIS("B")=""
- +5 DO ^%ZIS
- +6 IF POP
- QUIT
- XXX IF $EXTRACT(IOST,1,2)'="P-"
- WRITE !,"YOU MUST ROUTE THE OUTPUT OF THIS REPORT TO A PRINTER",!
- DO ^%ZISC
- SET POP=1
- DO PAUSE^ACDDEU
- QUIT
- +1 ;I IO=IO(0) D HUH I 'Y S POP=1 Q
- +2 IF '$DATA(IO("Q"))
- QUIT
- +3 SET ZTIO=ION
- SET ACDZTIO=ION
- IF $GET(IOCPU)
- SET ZTCPU=IOCPU
- SET ZTSAVE("ACD*")=""
- SET ZTSAVE("DUZ(")=""
- +4 SET ZTRTN=$SELECT($DATA(ACDWSTAF(1)):"L^ACDWSTAF",$DATA(ACDWDRV(1)):"L^ACDWDRV1",$DATA(ACDWDRV(2)):"L^ACDWDRV2",$DATA(ACDWDRV(3)):"L^ACDWDRV3",$DATA(ACDWDRV(4)):"L^ACDWDRV4",1:"L^ACDWDRV5")
- +5 DO ^%ZTLOAD
- +6 WRITE !,"Report Queued.."
- +7 DO ^ACDWK
- +8 QUIT
- +9 ;
- HUH ; SEE IF USER REALLY WANT TO GO TO HOME DEVICE
- +1 KILL DIR
- +2 WRITE !,"You have selected your terminal for the ouput of this report."
- +3 WRITE !,"If you hat out at the end of a page you will be logged off the system."
- +4 WRITE !,"Do you want to continue?",!
- +5 SET DIR(0)="YO"
- SET DIR("B")="N"
- KILL DA
- DO ^DIR
- KILL DIR
- +6 QUIT
- NOTE ;************************************************************
- +1 ;To convert to double queue
- +2 ;ACDJBN=JOB#
- +3 ;ACDZTIO=ION
- +4 ;ZTIO="" (wake up from first queue in background -no device)
- +5 ;ZTCPU is passed to %ZTLOAD incase device selected is on a
- +6 ; different CPU (No need to ZTSAVE("^TMP(""ASA"",$J,") anymore.
- +7 ;Wake up from first queue and compile.
- +8 ;Queue again setting ZTIO=ACDZTIO this time.
- +9 ;Use ACDJBN when oedering through print utility because $J changed
- DBQUE ;
- +1 DO INIT
- +2 DO XBQUE
- +3 QUIT
- +4 ;
- INIT ;
- +1 SET ACDJOB=$JOB
- +2 FOR
- Begin DoDot:1
- +3 SET ACDBT=$HOROLOG
- +4 LOCK +^TMP("ACD",ACDJOB,ACDBT):1
- +5 IF '$TEST
- SET ACDBT=""
- +6 QUIT
- End DoDot:1
- IF ACDBT]""
- QUIT
- +7 KILL ^TMP("ACD",ACDJOB,ACDBT)
- +8 QUIT
- +9 ;
- XBQUE ;call to XBDBQUE
- +1 KILL ACDOPT
- +2 WRITE !
- SET DIR(0)="S^P:PRINT Output;B:BROWSE Output on Screen"
- SET DIR("A")="Do you wish to"
- SET DIR("B")="P"
- KILL DA
- DO ^DIR
- KILL DIR
- +3 IF $DATA(DIRUT)
- SET ACDQUIT=1
- QUIT
- +4 SET ACDOPT=Y
- +5 SET XBRC=$SELECT($DATA(ACDWSTAF(1)):"L^ACDWSTAF",$DATA(ACDWDRV(1)):"L^ACDWDRV1",$DATA(ACDWDRV(2)):"L^ACDWDRV2",$DATA(ACDWDRV(3)):"L^ACDWDRV3",$DATA(ACDWDRV(4)):"L^ACDWDRV4",1:"L^ACDWDRV5")
- +6 SET XBRX=$SELECT($DATA(ACDWSTAF(1)):"EOJ^ACDWSTAF",$DATA(ACDWDRV(1)):"EOJ^ACDWDRV1",$DATA(ACDWDRV(2)):"EOJ^ACDWDRV2",$DATA(ACDWDRV(3)):"EOJ^ACDWDRV3",$DATA(ACDWDRV(4)):"EOJ^ACDWDRV4",1:"EOJ^ACDWDRV5")
- +7 SET XBRP=$SELECT($DATA(ACDWSTAF(1)):"P^ACDWSTAF",$DATA(ACDWDRV(1)):"P^ACDWDRV1",$DATA(ACDWDRV(2)):"P^ACDWDRV2",$DATA(ACDWDRV(3)):"P^ACDWDRV3",$DATA(ACDWDRV(4)):"P^ACDWDRV4",1:"P^ACDWDRV5")
- +8 SET XBNS="ACD"
- +9 IF $GET(ACDOPT)="B"
- SET XBIOP=0
- SET XBRP="VIEWR^XBLM("""_XBRP_""")"
- +10 DO ^XBDBQUE
- +11 QUIT
