IBCEMVU ;DAOU/ESG - STAND-ALONE VIEW MRA EOB ;18-APR-2003
;;2.0;INTEGRATED BILLING;**155**;21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
EN ; Entry point
NEW DA,DIC,DILN,DISYS,X,Y,DTOUT,DUOUT,IBIFN,IBEOBIFN
LOOP ;
K IBIFN
D INIT
W !
S DIC="^IBM(361.1,"
S DIC(0)="AEMQ"
S DIC("S")="I $P(^(0),U,4)=1" ; MRA EOB type
S DIC("W")="D EOBLST^IBCEMU1(Y)" ; modify generic lister
D ^DIC
I Y=-1!$D(DTOUT)!$D(DUOUT) G EX
S IBIFN=+$P(Y,U,2)
I IBIFN D VIEWEOB(IBIFN,+$P(Y,U,1))
I $$MRACNT^IBCEMU1(IBIFN)'>1 G LOOP
;
; At this point, we know the selected bill has multiple MRA's on file.
; Display the multiple MRA lister and let the user choose again
ML1 ;
D INIT
S IBEOBIFN=$$SEL^IBCEMU1(IBIFN,1)
I 'IBEOBIFN G LOOP
D VIEWEOB(IBIFN,IBEOBIFN)
G ML1
;
EX ; Exit point
Q
;
INIT ; clear screen, intro text
W @IOF
W !?33,"View MRA EOB's"
W !!?1,"This option will allow you to select and view Medicare Remittance Advice (MRA)"
W !?1,"Explanations of Benefits (EOB). Only Medicare EOB's are displayed here."
INITX ;
Q
;
VIEWEOB(IBIFN,IBEOBIFN) ; This procedure is responsible for
; invoking the ListManager list for viewing an EOB.
; IBIFN is the internal bill# (required)
; IBEOBIFN is the ien to file 361.1 if known (optional)
;
NEW COL,CTRLCOL,FINISH,IB,IBCNT,IBONE,POP,VALMBCK,VALMY,X,Y,Z
D EN^VALM("IBCEM VIEW EOB")
VIEWX ;
Q
;
SCR(IBIFN) ; ?MRA action from the IB Bill Enter/Edit screens
NEW DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT,CNT,IBFASTXT,IBEOBIFN
I '$D(IOUON)!'$D(IORVON) D ENS^%ZISS
D SCHD
S CNT=$$MRACNT^IBCEMU1(IBIFN)
I 'CNT D G SCRX
. W !!!?8,"There are no MRA EOB's on file for this bill."
. D EOP
. Q
;
I CNT=1 D VIEWEOB(IBIFN) G SCRX ; only one MRA
;
SCLOOP ; Multiple MRA's on file. Call the MRA/EOB lister.
;
D SCHD
S IBEOBIFN=$$SEL^IBCEMU1(IBIFN,1)
I 'IBEOBIFN G SCRX
D VIEWEOB(IBIFN,IBEOBIFN)
G SCLOOP
;
SCRX ;
Q
;
SCHD ; screen header info
W @IOF
W !!?24,"View Medicare Remittance Advice"
W !?28,"Explanation of Benefits"
SCHDX ;
Q
;
EOP ; End of page
W !! S DIR("A")=" Press RETURN to continue",DIR(0)="E" D ^DIR K DIR
EOPX ;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCEMVU 2238 printed Apr 09, 2024@21:07:47 Page 2
IBCEMVU ;DAOU/ESG - STAND-ALONE VIEW MRA EOB ;18-APR-2003
+1 ;;2.0;INTEGRATED BILLING;**155**;21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
EN ; Entry point
+1 NEW DA,DIC,DILN,DISYS,X,Y,DTOUT,DUOUT,IBIFN,IBEOBIFN
LOOP ;
+1 KILL IBIFN
+2 DO INIT
+3 WRITE !
+4 SET DIC="^IBM(361.1,"
+5 SET DIC(0)="AEMQ"
+6 ; MRA EOB type
SET DIC("S")="I $P(^(0),U,4)=1"
+7 ; modify generic lister
SET DIC("W")="D EOBLST^IBCEMU1(Y)"
+8 DO ^DIC
+9 IF Y=-1!$DATA(DTOUT)!$DATA(DUOUT)
GOTO EX
+10 SET IBIFN=+$PIECE(Y,U,2)
+11 IF IBIFN
DO VIEWEOB(IBIFN,+$PIECE(Y,U,1))
+12 IF $$MRACNT^IBCEMU1(IBIFN)'>1
GOTO LOOP
+13 ;
+14 ; At this point, we know the selected bill has multiple MRA's on file.
+15 ; Display the multiple MRA lister and let the user choose again
ML1 ;
+1 DO INIT
+2 SET IBEOBIFN=$$SEL^IBCEMU1(IBIFN,1)
+3 IF 'IBEOBIFN
GOTO LOOP
+4 DO VIEWEOB(IBIFN,IBEOBIFN)
+5 GOTO ML1
+6 ;
EX ; Exit point
+1 QUIT
+2 ;
INIT ; clear screen, intro text
+1 WRITE @IOF
+2 WRITE !?33,"View MRA EOB's"
+3 WRITE !!?1,"This option will allow you to select and view Medicare Remittance Advice (MRA)"
+4 WRITE !?1,"Explanations of Benefits (EOB). Only Medicare EOB's are displayed here."
INITX ;
+1 QUIT
+2 ;
VIEWEOB(IBIFN,IBEOBIFN) ; This procedure is responsible for
+1 ; invoking the ListManager list for viewing an EOB.
+2 ; IBIFN is the internal bill# (required)
+3 ; IBEOBIFN is the ien to file 361.1 if known (optional)
+4 ;
+5 NEW COL,CTRLCOL,FINISH,IB,IBCNT,IBONE,POP,VALMBCK,VALMY,X,Y,Z
+6 DO EN^VALM("IBCEM VIEW EOB")
VIEWX ;
+1 QUIT
+2 ;
SCR(IBIFN) ; ?MRA action from the IB Bill Enter/Edit screens
+1 NEW DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT,CNT,IBFASTXT,IBEOBIFN
+2 IF '$DATA(IOUON)!'$DATA(IORVON)
DO ENS^%ZISS
+3 DO SCHD
+4 SET CNT=$$MRACNT^IBCEMU1(IBIFN)
+5 IF 'CNT
Begin DoDot:1
+6 WRITE !!!?8,"There are no MRA EOB's on file for this bill."
+7 DO EOP
+8 QUIT
End DoDot:1
GOTO SCRX
+9 ;
+10 ; only one MRA
IF CNT=1
DO VIEWEOB(IBIFN)
GOTO SCRX
+11 ;
SCLOOP ; Multiple MRA's on file. Call the MRA/EOB lister.
+1 ;
+2 DO SCHD
+3 SET IBEOBIFN=$$SEL^IBCEMU1(IBIFN,1)
+4 IF 'IBEOBIFN
GOTO SCRX
+5 DO VIEWEOB(IBIFN,IBEOBIFN)
+6 GOTO SCLOOP
+7 ;
SCRX ;
+1 QUIT
+2 ;
SCHD ; screen header info
+1 WRITE @IOF
+2 WRITE !!?24,"View Medicare Remittance Advice"
+3 WRITE !?28,"Explanation of Benefits"
SCHDX ;
+1 QUIT
+2 ;
EOP ; End of page
+1 WRITE !!
SET DIR("A")=" Press RETURN to continue"
SET DIR(0)="E"
DO ^DIR
KILL DIR
EOPX ;
+1 QUIT
+2 ;
