AQAOPC2.m

AQAOPC2 ; IHS/ORDC/LJF - OCC BY INDICATOR & ICD CODES ;

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

 ;

 ;this rtn contains the user interface for the trending report for

 ;occurrences by diagnosis and procedure codes.

 ;

 D ICD^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=""

 ;

 ;

 W !!?5,"You can now LIMIT the report to occurrences with certain ICD"

 W !,"codes.  You will be asked to select one or more DIAGNOSIS code"

 W !,"ranges and one or more PROCEDURE code ranges.  To include all"

 W !,"diagnoses, enter ""ALL"" at the ENTER DIAGNOSES prompt.  To"

 W !,"include all procedures, enter ""ALL"" at the ENTER PROCEDURES"

 W !,"prompt."

CLDX ; >>> choose clinical dx codes for report

 W !! K AQAOTBL,AQAOARR

 S AQAOICD=9,AQAOTL="DIAGNOSES" D ^AQAOCOD ;get dx range

 S X=0 F  S X=$O(AQAOTBL(X)) Q:X=""  S AQAOARR(X)=AQAOTBL(X)

 G END:$D(DUOUT)

 I '$D(AQAOARR) W *7,"   ??" G CLDX

 ;

PROC ; >>> choose procedure codes for report    

 W !!?5,"Now you can choose select PROCEDURES:",!!

 K AQAOTBL,AQAOARR1 S AQAOICD=0,AQAOTL="PROCEDURES" D ^AQAOCOD

 S X=0 F  S X=$O(AQAOTBL(X)) Q:X=""  S AQAOARR1(X)=AQAOTBL(X)

 K AQAOTBL,AQAOICD,AQAOTL

 G END:$D(DUOUT)

 I '$D(AQAOARR1) W *7,"   ??" G PROC

 ;

DESCRIPT ; >>> ask user for report description

 W !! K DIR S DIR(0)="F0^0:60",DIR("A")="Enter REPORT DESCRIPTION"

 S DIR("?",1)="This REPORT DESCRIPTION will print on the Summary page"

 S DIR("?",2)="to help explain what you are looking for.  You can enter"

 S DIR("?",3)="up to 60 characters.  Some examples:"

 S DIR("?",4)=" ""WOUND INFECTIONS SEARCH"" or"

 S DIR("?",5)=" ""GYN PROCEDURES with COMPLICATIONS"" "

 S DIR("?")="The Report Description is optional."

 D ^DIR G END:X=U,END:$D(DTOUT) S AQAODESC=Y

 ;

DEV ; >>> get print device

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

 I AQAOTYPE="L" W !!,"REMINDER:  Use wide paper or condensed print!"

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

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

 K IO("Q") S ZTRTN="^AQAOPC21",ZTDESC="OCC BY ICD CODES"

 F I="AQAOTYPE","AQAOIND","AQAOARR(","AQAOARR1(","AQAOBD","AQAOED","AQAODESC" 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

AQAOPC2   ; IHS/ORDC/LJF - OCC BY INDICATOR & ICD CODES ;

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

 +2       ;

 +3       ;this rtn contains the user interface for the trending report for

 +4       ;occurrences by diagnosis and procedure codes.

 +5       ;

 +6       ;intro text

           DO ICD^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       ;

 +5        WRITE !!?5,"You can now LIMIT the report to occurrences with certain ICD"

 +6        WRITE !,"codes.  You will be asked to select one or more DIAGNOSIS code"

 +7        WRITE !,"ranges and one or more PROCEDURE code ranges.  To include all"

 +8        WRITE !,"diagnoses, enter ""ALL"" at the ENTER DIAGNOSES prompt.  To"

 +9        WRITE !,"include all procedures, enter ""ALL"" at the ENTER PROCEDURES"

 +10       WRITE !,"prompt."

CLDX      ; >>> choose clinical dx codes for report

 +1        WRITE !!

           KILL AQAOTBL,AQAOARR

 +2       ;get dx range

           SET AQAOICD=9

           SET AQAOTL="DIAGNOSES"

           DO ^AQAOCOD

 +3        SET X=0

           FOR 

               SET X=$ORDER(AQAOTBL(X))

               IF X=""

                   QUIT 

               SET AQAOARR(X)=AQAOTBL(X)

 +4        IF $DATA(DUOUT)

               GOTO END

 +5        IF '$DATA(AQAOARR)

               WRITE *7,"   ??"

               GOTO CLDX

 +6       ;

PROC      ; >>> choose procedure codes for report    

 +1        WRITE !!?5,"Now you can choose select PROCEDURES:",!!

 +2        KILL AQAOTBL,AQAOARR1

           SET AQAOICD=0

           SET AQAOTL="PROCEDURES"

           DO ^AQAOCOD

 +3        SET X=0

           FOR 

               SET X=$ORDER(AQAOTBL(X))

               IF X=""

                   QUIT 

               SET AQAOARR1(X)=AQAOTBL(X)

 +4        KILL AQAOTBL,AQAOICD,AQAOTL

 +5        IF $DATA(DUOUT)

               GOTO END

 +6        IF '$DATA(AQAOARR1)

               WRITE *7,"   ??"

               GOTO PROC

 +7       ;

DESCRIPT  ; >>> ask user for report description

 +1        WRITE !!

           KILL DIR

           SET DIR(0)="F0^0:60"

           SET DIR("A")="Enter REPORT DESCRIPTION"

 +2        SET DIR("?",1)="This REPORT DESCRIPTION will print on the Summary page"

 +3        SET DIR("?",2)="to help explain what you are looking for.  You can enter"

 +4        SET DIR("?",3)="up to 60 characters.  Some examples:"

 +5        SET DIR("?",4)=" ""WOUND INFECTIONS SEARCH"" or"

 +6        SET DIR("?",5)=" ""GYN PROCEDURES with COMPLICATIONS"" "

 +7        SET DIR("?")="The Report Description is optional."

 +8        DO ^DIR

           IF X=U

               GOTO END

           IF $DATA(DTOUT)

               GOTO END

           SET AQAODESC=Y

 +9       ;

DEV       ; >>> get print device

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

               DO EXPORT^AQAOUTIL

               IF Y=U

                   GOTO DESCRIPT

 +2        IF AQAOTYPE="L"

               WRITE !!,"REMINDER:  Use wide paper or condensed print!"

 +3        WRITE !!

           SET %ZIS="QP"

           DO ^%ZIS

           IF POP

               GOTO END

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

               USE IO

               GOTO ^AQAOPC21

 +5        KILL IO("Q")

           SET ZTRTN="^AQAOPC21"

           SET ZTDESC="OCC BY ICD CODES"

 +6        FOR I="AQAOTYPE","AQAOIND","AQAOARR(","AQAOARR1(","AQAOBD","AQAOED","AQAODESC"

               SET ZTSAVE(I)=""

 +7        IF $DATA(AQAODLM)

               SET ZTSAVE("AQAODLM")=""

 +8        IF $DATA(AQAOXSN)

               SET ZTSAVE("AQAOXSN")=""

               SET ZTSAVE("AQAOXSM")=""

 +9        IF $DATA(AQAOXS)

               SET ZTSAVE("AQAOXS(")=""

 +10       DO ^%ZTLOAD

           KILL ZTSK

           DO ^%ZISC

 +11      ;

END       ; >>> eoj

 +1        DO HOME^%ZIS

           DO KILL^AQAOUTIL

           QUIT