ACDRR2.m

ACDRR2 ;IHS/ADC/EDE/KML - PROVIDER WORKLOAD REPORT;

 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 ;

 ; This routine prints a provider workload report for

 ; a specified time frame.

 ;

START ;

 D INIT

 Q:ACDQ

 D DBQUE

 Q

 ;

INIT ;

 S ACDQ=1

 W !,"This routine prints a provider workload report for a specified time frame",!

 D GETDTR^ACDDEU ;              get acddtlo & acddthi

 Q:ACDQ

 S ACDQ=0

 Q

 ;

DBQUE ; call to XBDBQUE

 S ACDQ=1

 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

 Q:$D(DIRUT)

 I Y="B" D BROWSE Q

 S XBRP="^ACDRR2P",XBRC="^ACDRR2C",XBRX="XIT^ACDRR2",XBNS="ACD"

 D ^XBDBQUE

 Q

 ;

BROWSE ;

 S XBRP="VIEWR^XBLM(""^ACDRR2P"")"

 S XBRC="^ACDRR2C",XBRX="XIT^ACDRR2",XBIOP=0 D ^XBDBQUE

 Q

 ;

XIT ; EP - CALLED FROM ACDRR2P

 ;K ^TMP("ACDRR2",ACDJOB,ACDBT)

 K ACDBT,ACDBTH,ACDCLASS,ACDCS,ACDCSIEN,ACDDTHI,ACDDTLO,ACDET,ACDHRS,ACDIIEN,ACDJOB,ACDPACT,ACDPAGE,ACDPDATE,ACDPDAY,ACDPIEN,ACDPPROV,ACDPRIEN,ACDQ,ACDSHDR,ACDTC,ACDTIEN,ACDVDATE,ACDVIEN,ACDWPROV

 Q

 ;

EOJ ;

 K ACDDTLO,ACDDTHI,ACDQ

 Q

ACDRR2    ;IHS/ADC/EDE/KML - PROVIDER WORKLOAD REPORT;

 +1       ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 +2       ;

 +3       ; This routine prints a provider workload report for

 +4       ; a specified time frame.

 +5       ;

START     ;

 +1        DO INIT

 +2        IF ACDQ

               QUIT 

 +3        DO DBQUE

 +4        QUIT 

 +5       ;

INIT      ;

 +1        SET ACDQ=1

 +2        WRITE !,"This routine prints a provider workload report for a specified time frame",!

 +3       ;              get acddtlo & acddthi

           DO GETDTR^ACDDEU

 +4        IF ACDQ

               QUIT 

 +5        SET ACDQ=0

 +6        QUIT 

 +7       ;

DBQUE     ; call to XBDBQUE

 +1        SET ACDQ=1

 +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)

               QUIT 

 +4        IF Y="B"

               DO BROWSE

               QUIT 

 +5        SET XBRP="^ACDRR2P"

           SET XBRC="^ACDRR2C"

           SET XBRX="XIT^ACDRR2"

           SET XBNS="ACD"

 +6        DO ^XBDBQUE

 +7        QUIT 

 +8       ;

BROWSE    ;

 +1        SET XBRP="VIEWR^XBLM(""^ACDRR2P"")"

 +2        SET XBRC="^ACDRR2C"

           SET XBRX="XIT^ACDRR2"

           SET XBIOP=0

           DO ^XBDBQUE

 +3        QUIT 

 +4       ;

XIT       ; EP - CALLED FROM ACDRR2P

 +1       ;K ^TMP("ACDRR2",ACDJOB,ACDBT)

 +2        KILL ACDBT,ACDBTH,ACDCLASS,ACDCS,ACDCSIEN,ACDDTHI,ACDDTLO,ACDET,ACDHRS,ACDIIEN,ACDJOB,ACDPACT,ACDPAGE,ACDPDATE,ACDPDAY,ACDPIEN,ACDPPROV,ACDPRIEN,ACDQ,ACDSHDR,ACDTC,ACDTIEN,ACDVDATE,ACDVIEN,ACDWPROV

 +3        QUIT 

 +4       ;

EOJ       ;

 +1        KILL ACDDTLO,ACDDTHI,ACDQ

 +2        QUIT