- 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 ;
