AQAOPC1.m

AQAOPC1 ; IHS/ORDC/LJF - OCC BY INDICATOR W/ CRITERIA ;

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

 ;

 ;This rtn contains the user interface for the trending report by

 ;review criteria.

 ;

 D CRIT^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 statistics"

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

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

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

 ;

IND ; >>> occurrences for which indicator?

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

 S AQAOIND=+AQAOIND

 ;

CRIT ; >>> check criteria defined for this indicator

 I '$D(^AQAO1(6,"C",AQAOIND)) D  G TYPE

 .W !!,*7,"NO Criteria for this Indicator",!

 S (X,AQAOCNT)=0 K AQAOCR,AQAOIOMX ;init count;  kill array & iom var

 F  S X=$O(^AQAO1(6,"C",AQAOIND,X)) Q:X=""  D

 .Q:'$D(^AQAO1(6,X,0))  S AQAOCR(X)=$P(^(0),U) ;set array w/crit name

 .S AQAOCNT=AQAOCNT+1 ;increment count

 I (AQAOTYP="L"),(AQAOCNT>7) D

 .S AQAOIOMX=132

 .W !,*7,"You have more than 7 criteria for this indicator."

 .W !,"Please use CONDENSED PRINT or WIDE PAPER.",!

 ;

 ; >> if too many defined, must choose up to 14 for this report

 W !!,"There are ",AQAOCNT," criteria defined for this indicator.  Only"

 W !,"14 can fit on the report.  Please choose up to 14 from the list."

 W !! K DIR S DIR(0)="L^1:"_AQAOCNT_"^K:X#1 X",(Y,X)=0

 F  S X=$O(AQAOCR(X)) Q:X=""  D

 .S Y=Y+1,DIR("A",Y)=Y_". "_AQAOCR(X),AQAOAR(X)=Y

 S DIR("A")="Choose the CRITERIA for this report" D ^DIR

 G END:$D(DIRUT) I $P(Y,",",15)'="" G CRIT ;still too many

 ; >> kill off items not selected

 F I=1:1 S X=$P(Y,",",I) Q:X=""  S Y(X)=""

 S X=0 F  S X=$O(AQAOCR(X)) Q:X=""  I '$D(Y(AQAOAR(X))) K AQAOCR(X)

 K Y,AQAOAR

 ;

DATES ; >> ask user to choose date range

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

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

 ;

 ;

DEV ; >>> get print device

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

 W !!

 I $D(AQAOIOMX) W *7,"REMEMBER to use CONDENSED PRINT or WIDE PAPER!",!!

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

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

 K IO("Q") S ZTRTN="^AQAOPC11",ZTDESC="OCC BY IND & CRIT"

 F I="AQAOTYP","AQAOIND","AQAOCR(","AQAOBD","AQAOED" S ZTSAVE(I)=""

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

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

 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

AQAOPC1   ; IHS/ORDC/LJF - OCC BY INDICATOR W/ CRITERIA ;

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

 +2       ;

 +3       ;This rtn contains the user interface for the trending report by

 +4       ;review criteria.

 +5       ;

 +6       ;intro text

           DO CRIT^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 statistics"

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

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

 +7        DO ^DIR

           IF $DATA(DIRUT)

               GOTO END

           SET AQAOTYP=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       ;

CRIT      ; >>> check criteria defined for this indicator

 +1        IF '$DATA(^AQAO1(6,"C",AQAOIND))

               Begin DoDot:1

 +2                WRITE !!,*7,"NO Criteria for this Indicator",!

               End DoDot:1

               GOTO TYPE

 +3       ;init count;  kill array & iom var

           SET (X,AQAOCNT)=0

           KILL AQAOCR,AQAOIOMX

 +4        FOR 

               SET X=$ORDER(^AQAO1(6,"C",AQAOIND,X))

               IF X=""

                   QUIT 

               Begin DoDot:1

 +5       ;set array w/crit name

                   IF '$DATA(^AQAO1(6,X,0))

                       QUIT 

                   SET AQAOCR(X)=$PIECE(^(0),U)

 +6       ;increment count

                   SET AQAOCNT=AQAOCNT+1

               End DoDot:1

 +7        IF (AQAOTYP="L")

               IF (AQAOCNT>7)

                   Begin DoDot:1

 +8                    SET AQAOIOMX=132

 +9                    WRITE !,*7,"You have more than 7 criteria for this indicator."

 +10                   WRITE !,"Please use CONDENSED PRINT or WIDE PAPER.",!

                   End DoDot:1

 +11      ;

 +12      ; >> if too many defined, must choose up to 14 for this report

 +13       WRITE !!,"There are ",AQAOCNT," criteria defined for this indicator.  Only"

 +14       WRITE !,"14 can fit on the report.  Please choose up to 14 from the list."

 +15       WRITE !!

           KILL DIR

           SET DIR(0)="L^1:"_AQAOCNT_"^K:X#1 X"

           SET (Y,X)=0

 +16       FOR 

               SET X=$ORDER(AQAOCR(X))

               IF X=""

                   QUIT 

               Begin DoDot:1

 +17               SET Y=Y+1

                   SET DIR("A",Y)=Y_". "_AQAOCR(X)

                   SET AQAOAR(X)=Y

               End DoDot:1

 +18       SET DIR("A")="Choose the CRITERIA for this report"

           DO ^DIR

 +19      ;still too many

           IF $DATA(DIRUT)

               GOTO END

           IF $PIECE(Y,",",15)'=""

               GOTO CRIT

 +20      ; >> kill off items not selected

 +21       FOR I=1:1

               SET X=$PIECE(Y,",",I)

               IF X=""

                   QUIT 

               SET Y(X)=""

 +22       SET X=0

           FOR 

               SET X=$ORDER(AQAOCR(X))

               IF X=""

                   QUIT 

               IF '$DATA(Y(AQAOAR(X)))

                   KILL AQAOCR(X)

 +23       KILL Y,AQAOAR

 +24      ;

DATES     ; >> ask user to choose date range

 +1        SET AQAOBD=$$BDATE^AQAOLKP

           IF AQAOBD=U

               GOTO IND

           IF AQAOBD=""

               GOTO IND

 +2        SET AQAOED=$$EDATE^AQAOLKP

           IF AQAOED=U

               GOTO DATES

           IF AQAOED=""

               GOTO DATES

 +3       ;

 +4       ;

DEV       ; >>> get print device

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

               DO EXPORT^AQAOUTIL

               IF Y=U

                   GOTO DATES

 +2        WRITE !!

 +3        IF $DATA(AQAOIOMX)

               WRITE *7,"REMEMBER to use CONDENSED PRINT or WIDE PAPER!",!!

 +4        SET %ZIS="QP"

           DO ^%ZIS

           IF POP

               GOTO END

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

               USE IO

               GOTO ^AQAOPC11

 +6        KILL IO("Q")

           SET ZTRTN="^AQAOPC11"

           SET ZTDESC="OCC BY IND & CRIT"

 +7        FOR I="AQAOTYP","AQAOIND","AQAOCR(","AQAOBD","AQAOED"

               SET ZTSAVE(I)=""

 +8        IF $DATA(AQAODLM)

               SET ZTSAVE("AQAODLM")=""

 +9        IF $DATA(AQAOIOMX)

               SET ZTSAVE("AQAOIOMX")=""

 +10       IF $DATA(AQAOXSN)

               SET ZTSAVE("AQAOXSN")=""

               SET ZTSAVE("AQAOXSM")=""

 +11       IF $DATA(AQAOXS)

               SET ZTSAVE("AQAOXS(")=""

 +12       DO ^%ZTLOAD

           KILL ZTSK

           DO ^%ZISC

 +13      ;

END       ; >>> eoj

 +1        DO HOME^%ZIS

           DO KILL^AQAOUTIL

           QUIT