AQAOPC4.m

AQAOPC4 ; IHS/ORDC/LJF - OCC BY IND WITH FINDING/ACTIONS ;

 ;;1.01;QAI MANAGEMENT;;OCT 05, 1995

 ;

 ;This rtn contains the user interface to print the trending report

 ;of occurrences by finding and action.

 ;

 D FINDACT^AQAOHOP2 ;intro text

TYPE ; >>> ask user what type of report to print

 K DIR S DIR(0)="SO^L:LISTING PLUS STATISTICS;S:STATISTICS ONLY"

 S DIR("A")="Choose TYPE of report to print"

 S DIR("?",1)="Which report style do you want?"

 S DIR("?",2)="     Enter L to list occurrences PLUS subtotals"

 S DIR("?",3)="     Enter S to print the subtotals ONLY"

 S DIR("?")="For more information on these styles, see the User Manual."

 D ^DIR G END:$D(DIRUT) S AQAOTYPE=Y

 ;

IND ; >>> occurrences for which indicator?

 S AQAOIND=$$IND^AQAOLKP G END:AQAOIND=U,TYPE:AQAOIND=-1

 S AQAOIND=+AQAOIND

 ;

 ;

DATES ; >> ask user to choose date range

 S AQAOBD=$$BDATE^AQAOLKP G END:AQAOBD=U,IND:AQAOBD=""

 S AQAOED=$$EDATE^AQAOLKP G END:AQAOED=U,DATES:AQAOED=""

 ;

 ;

OPEN ; >>> ask user if wants to include open cases

 K DIR S DIR(0)="SO^O:OPEN & CLOSED CASES;C:CLOSED CASES ONLY"

 S DIR("A")="Choose Case Statuses to include"

 S DIR("?",1)="Which occurrences do you want to include?"

 S DIR("?",2)="     Enter O to list BOTH Open and Closed Occurrences"

 S DIR("?",3)="     Enter C to print ONLY Closed Occurrences"

 S DIR("?")="For more information on these styles, see the User Manual."

 D ^DIR G DATES:X="",END:$D(DIRUT) S AQAOSTAT=Y

 ;

 ;

DEV ; >>> get print device

 I $P(AQAOUA("USER"),U,7)=1 D EXPORT^AQAOUTIL G OPEN:Y=U

 W !! S %ZIS="QP" D ^%ZIS G END:POP

 I '$D(IO("Q")) U IO G ^AQAOPC41

 K IO("Q") S ZTRTN="^AQAOPC41",ZTDESC="OCC WITH FINDINGS"

 F I="AQAOTYPE","AQAOIND","AQAOBD","AQAOSTAT","AQAOED" S ZTSAVE(I)=""

 S:$D(AQAODLM) ZTSAVE("AQAODLM")=""

 S:$D(AQAOXSN) ZTSAVE("AQAOXSN")="",ZTSAVE("AQAOXSM")=""

 S:$D(AQAOXS) ZTSAVE("AQAOXS(")=""

 D ^%ZTLOAD K ZTSK D ^%ZISC

 ;

END ; >>> eoj

 D HOME^%ZIS D KILL^AQAOUTIL Q

AQAOPC4   ; IHS/ORDC/LJF - OCC BY IND WITH FINDING/ACTIONS ;

 +1       ;;1.01;QAI MANAGEMENT;;OCT 05, 1995

 +2       ;

 +3       ;This rtn contains the user interface to print the trending report

 +4       ;of occurrences by finding and action.

 +5       ;

 +6       ;intro text

           DO FINDACT^AQAOHOP2

TYPE      ; >>> ask user what type of report to print

 +1        KILL DIR

           SET DIR(0)="SO^L:LISTING PLUS STATISTICS;S:STATISTICS ONLY"

 +2        SET DIR("A")="Choose TYPE of report to print"

 +3        SET DIR("?",1)="Which report style do you want?"

 +4        SET DIR("?",2)="     Enter L to list occurrences PLUS subtotals"

 +5        SET DIR("?",3)="     Enter S to print the subtotals ONLY"

 +6        SET DIR("?")="For more information on these styles, see the User Manual."

 +7        DO ^DIR

           IF $DATA(DIRUT)

               GOTO END

           SET AQAOTYPE=Y

 +8       ;

IND       ; >>> occurrences for which indicator?

 +1        SET AQAOIND=$$IND^AQAOLKP

           IF AQAOIND=U

               GOTO END

           IF AQAOIND=-1

               GOTO TYPE

 +2        SET AQAOIND=+AQAOIND

 +3       ;

 +4       ;

DATES     ; >> ask user to choose date range

 +1        SET AQAOBD=$$BDATE^AQAOLKP

           IF AQAOBD=U

               GOTO END

           IF AQAOBD=""

               GOTO IND

 +2        SET AQAOED=$$EDATE^AQAOLKP

           IF AQAOED=U

               GOTO END

           IF AQAOED=""

               GOTO DATES

 +3       ;

 +4       ;

OPEN      ; >>> ask user if wants to include open cases

 +1        KILL DIR

           SET DIR(0)="SO^O:OPEN & CLOSED CASES;C:CLOSED CASES ONLY"

 +2        SET DIR("A")="Choose Case Statuses to include"

 +3        SET DIR("?",1)="Which occurrences do you want to include?"

 +4        SET DIR("?",2)="     Enter O to list BOTH Open and Closed Occurrences"

 +5        SET DIR("?",3)="     Enter C to print ONLY Closed Occurrences"

 +6        SET DIR("?")="For more information on these styles, see the User Manual."

 +7        DO ^DIR

           IF X=""

               GOTO DATES

           IF $DATA(DIRUT)

               GOTO END

           SET AQAOSTAT=Y

 +8       ;

 +9       ;

DEV       ; >>> get print device

 +1        IF $PIECE(AQAOUA("USER"),U,7)=1

               DO EXPORT^AQAOUTIL

               IF Y=U

                   GOTO OPEN

 +2        WRITE !!

           SET %ZIS="QP"

           DO ^%ZIS

           IF POP

               GOTO END

 +3        IF '$DATA(IO("Q"))

               USE IO

               GOTO ^AQAOPC41

 +4        KILL IO("Q")

           SET ZTRTN="^AQAOPC41"

           SET ZTDESC="OCC WITH FINDINGS"

 +5        FOR I="AQAOTYPE","AQAOIND","AQAOBD","AQAOSTAT","AQAOED"

               SET ZTSAVE(I)=""

 +6        IF $DATA(AQAODLM)

               SET ZTSAVE("AQAODLM")=""

 +7        IF $DATA(AQAOXSN)

               SET ZTSAVE("AQAOXSN")=""

               SET ZTSAVE("AQAOXSM")=""

 +8        IF $DATA(AQAOXS)

               SET ZTSAVE("AQAOXS(")=""

 +9        DO ^%ZTLOAD

           KILL ZTSK

           DO ^%ZISC

 +10      ;

END       ; >>> eoj

 +1        DO HOME^%ZIS

           DO KILL^AQAOUTIL

           QUIT