ACHSEOB5.m

ACHSEOB5 ; IHS/ITSC/PMF - PROCESS EOBRS (6/6) - SUMMARY/ERROR REPORT ; [ 12/06/2002  10:36 AM ]

 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**5**;JUN 11, 2001

 ;IHS/SET/GTH ACHS*3.1*5 12/06/2002 - Change to standard ^%ZISS call.

 ;                                    ;WHY DO WE

 S ACHSIO=IO,(ACHSISAO,ACHSSUM)=0     ;RESET IS AREA OFFICE FLAG TO NO

 ;D HOME^%ZIS,NOW^ACHS,LINES^ACHSFU;IHS/SET/GTH ACHS*3.1*5 12/06/2002

 D HOME^%ZIS,NOW^ACHS,LINES^ACHSFU,VIDEO^ACHS ;IHS/SET/GTH ACHS*3.1*5 12/06/2002

 S ACHSIO=IO,ACHS("R")=$O(^ACHSPCC(0)),ACHS("SITE")=$$LOC^ACHS,ACHSEOBD=$P($G(^ACHSF(DUZ(2),17,0)),U,3)

 U IO(0)

 W !

 ;D EN^XBVIDEO("IORVON");IHS/SET/GTH ACHS*3.1*5 12/06/2002

 ;W "THESE REPORTS WILL ONLY INCLUDE THOSE DOCUMENTS",!,"FROM THE LAST EOBR PROCESSING RUN.";IHS/SET/GTH ACHS*3.1*5 12/06/2002

 W IORVON,"THESE REPORTS WILL ONLY INCLUDE THOSE DOCUMENTS",!,"FROM THE LAST EOBR PROCESSING RUN.",IORVOFF ;IHS/SET/GTH ACHS*3.1*5 12/06/2002

 ;D EN^XBVIDEO("IORVOFF");IHS/SET/GTH ACHS*3.1*5 12/06/2002

 W !

MODE ;

 K DIR

 S DIR(0)="SO^1:Print EOBR Processing Summary Report;2:Print EOBR Processing Error Documents;3:Print EOBR Documents"

 S DIR("A")="          Select"

 S DIR("?",1)="Press (1) to print a summary of transactions processed"

 S DIR("?",2)="Press (2) to print EOBRs that have processing errors/warnings"

 S DIR("?")="Press (3) to print a range of EOBRs from LAST EOBR PROCESSING"

 D ^DIR

 K DIR

 G K:$D(DUOUT)!$D(DIRUT)!$D(DTOUT)!('Y)

 S ACHSRPT=+Y

 I ACHSRPT=1,'$O(^ACHSEOBR(0)) W !!,*7,"NO EOBRS OR ERRORS/WARNINGS RECORDED",!! D RTRN^ACHS G K

 I ACHSRPT=2,'$O(^ACHSEOBR("ER",0)) W !!,*7,!,"NO EOBR ERRORS/WARNINGS RECORDED.",!! D RTRN^ACHS G K

 I ACHSRPT=3 D ^ACHSEOB7 G K

DEV ;

 S %=$$PB^ACHS

 I %=U!$D(DTOUT)!$D(DUOUT) D K Q

 I %="B" D VIEWR^XBLM("START^ACHSEOB6"),EN^XBVK("VALM"),K Q

 S %ZIS="OPQ"

 D ^%ZIS

 I POP D HOME^%ZIS G K

 G:'$D(IO("Q")) START^ACHSEOB6

 K IO("Q")

 I $D(IO("S"))!($E(IOST)'="P") W *7,!,"Please queue to system printers." D ^%ZISC G DEV

 S ZTRTN="START^ACHSEOB6",ZTDESC="CHS EOBR Processing Report, for "_$$LOC^ACHS_"."

 F %="ACHSRPT","ACHSEOBD","ACHSISAO","ACHSSUM" S ZTSAVE(%)=""

 D ^%ZTLOAD

 G:'$D(ZTSK) DEV

K ;EP - Kill vars, do ERPT, quit.

 K ZTSK

 ;D ERPT^ACHS,EN^XBVK("ACHS"),^ACHSVAR;IHS/SET/GTH ACHS*3.1*5 12/06/2002

 D ERPT^ACHS,EN^XBVK("ACHS"),^ACHSVAR,KILL^%ZISS ;IHS/SET/GTH ACHS*3.1*5 12/06/2002

 Q

 ;

ACHSEOB5  ; IHS/ITSC/PMF - PROCESS EOBRS (6/6) - SUMMARY/ERROR REPORT ; [ 12/06/2002  10:36 AM ]

 +1       ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**5**;JUN 11, 2001

 +2       ;IHS/SET/GTH ACHS*3.1*5 12/06/2002 - Change to standard ^%ZISS call.

 +3       ;                                    ;WHY DO WE

 +4       ;RESET IS AREA OFFICE FLAG TO NO

           SET ACHSIO=IO

           SET (ACHSISAO,ACHSSUM)=0

 +5       ;D HOME^%ZIS,NOW^ACHS,LINES^ACHSFU;IHS/SET/GTH ACHS*3.1*5 12/06/2002

 +6       ;IHS/SET/GTH ACHS*3.1*5 12/06/2002

           DO HOME^%ZIS

           DO NOW^ACHS

           DO LINES^ACHSFU

           DO VIDEO^ACHS

 +7        SET ACHSIO=IO

           SET ACHS("R")=$ORDER(^ACHSPCC(0))

           SET ACHS("SITE")=$$LOC^ACHS

           SET ACHSEOBD=$PIECE($GET(^ACHSF(DUZ(2),17,0)),U,3)

 +8        USE IO(0)

 +9        WRITE !

 +10      ;D EN^XBVIDEO("IORVON");IHS/SET/GTH ACHS*3.1*5 12/06/2002

 +11      ;W "THESE REPORTS WILL ONLY INCLUDE THOSE DOCUMENTS",!,"FROM THE LAST EOBR PROCESSING RUN.";IHS/SET/GTH ACHS*3.1*5 12/06/2002

 +12      ;IHS/SET/GTH ACHS*3.1*5 12/06/2002

           WRITE IORVON,"THESE REPORTS WILL ONLY INCLUDE THOSE DOCUMENTS",!,"FROM THE LAST EOBR PROCESSING RUN.",IORVOFF

 +13      ;D EN^XBVIDEO("IORVOFF");IHS/SET/GTH ACHS*3.1*5 12/06/2002

 +14       WRITE !

MODE      ;

 +1        KILL DIR

 +2        SET DIR(0)="SO^1:Print EOBR Processing Summary Report;2:Print EOBR Processing Error Documents;3:Print EOBR Documents"

 +3        SET DIR("A")="          Select"

 +4        SET DIR("?",1)="Press (1) to print a summary of transactions processed"

 +5        SET DIR("?",2)="Press (2) to print EOBRs that have processing errors/warnings"

 +6        SET DIR("?")="Press (3) to print a range of EOBRs from LAST EOBR PROCESSING"

 +7        DO ^DIR

 +8        KILL DIR

 +9        IF $DATA(DUOUT)!$DATA(DIRUT)!$DATA(DTOUT)!('Y)

               GOTO K

 +10       SET ACHSRPT=+Y

 +11       IF ACHSRPT=1

               IF '$ORDER(^ACHSEOBR(0))

                   WRITE !!,*7,"NO EOBRS OR ERRORS/WARNINGS RECORDED",!!

                   DO RTRN^ACHS

                   GOTO K

 +12       IF ACHSRPT=2

               IF '$ORDER(^ACHSEOBR("ER",0))

                   WRITE !!,*7,!,"NO EOBR ERRORS/WARNINGS RECORDED.",!!

                   DO RTRN^ACHS

                   GOTO K

 +13       IF ACHSRPT=3

               DO ^ACHSEOB7

               GOTO K

DEV       ;

 +1        SET %=$$PB^ACHS

 +2        IF %=U!$DATA(DTOUT)!$DATA(DUOUT)

               DO K

               QUIT 

 +3        IF %="B"

               DO VIEWR^XBLM("START^ACHSEOB6")

               DO EN^XBVK("VALM")

               DO K

               QUIT 

 +4        SET %ZIS="OPQ"

 +5        DO ^%ZIS

 +6        IF POP

               DO HOME^%ZIS

               GOTO K

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

               GOTO START^ACHSEOB6

 +8        KILL IO("Q")

 +9        IF $DATA(IO("S"))!($EXTRACT(IOST)'="P")

               WRITE *7,!,"Please queue to system printers."

               DO ^%ZISC

               GOTO DEV

 +10       SET ZTRTN="START^ACHSEOB6"

           SET ZTDESC="CHS EOBR Processing Report, for "_$$LOC^ACHS_"."

 +11       FOR %="ACHSRPT","ACHSEOBD","ACHSISAO","ACHSSUM"

               SET ZTSAVE(%)=""

 +12       DO ^%ZTLOAD

 +13       IF '$DATA(ZTSK)

               GOTO DEV

K         ;EP - Kill vars, do ERPT, quit.

 +1        KILL ZTSK

 +2       ;D ERPT^ACHS,EN^XBVK("ACHS"),^ACHSVAR;IHS/SET/GTH ACHS*3.1*5 12/06/2002

 +3       ;IHS/SET/GTH ACHS*3.1*5 12/06/2002

           DO ERPT^ACHS

           DO EN^XBVK("ACHS")

           DO ^ACHSVAR

           DO KILL^%ZISS

 +4        QUIT 

 +5       ;