- 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
