| 1 | IBCEMVU ;DAOU/ESG - STAND-ALONE VIEW MRA EOB ;18-APR-2003
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**155**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | EN ; Entry point
|
|---|
| 6 | NEW DA,DIC,DILN,DISYS,X,Y,DTOUT,DUOUT,IBIFN,IBEOBIFN
|
|---|
| 7 | LOOP ;
|
|---|
| 8 | K IBIFN
|
|---|
| 9 | D INIT
|
|---|
| 10 | W !
|
|---|
| 11 | S DIC="^IBM(361.1,"
|
|---|
| 12 | S DIC(0)="AEMQ"
|
|---|
| 13 | S DIC("S")="I $P(^(0),U,4)=1" ; MRA EOB type
|
|---|
| 14 | S DIC("W")="D EOBLST^IBCEMU1(Y)" ; modify generic lister
|
|---|
| 15 | D ^DIC
|
|---|
| 16 | I Y=-1!$D(DTOUT)!$D(DUOUT) G EX
|
|---|
| 17 | S IBIFN=+$P(Y,U,2)
|
|---|
| 18 | I IBIFN D VIEWEOB(IBIFN,+$P(Y,U,1))
|
|---|
| 19 | I $$MRACNT^IBCEMU1(IBIFN)'>1 G LOOP
|
|---|
| 20 | ;
|
|---|
| 21 | ; At this point, we know the selected bill has multiple MRA's on file.
|
|---|
| 22 | ; Display the multiple MRA lister and let the user choose again
|
|---|
| 23 | ML1 ;
|
|---|
| 24 | D INIT
|
|---|
| 25 | S IBEOBIFN=$$SEL^IBCEMU1(IBIFN,1)
|
|---|
| 26 | I 'IBEOBIFN G LOOP
|
|---|
| 27 | D VIEWEOB(IBIFN,IBEOBIFN)
|
|---|
| 28 | G ML1
|
|---|
| 29 | ;
|
|---|
| 30 | EX ; Exit point
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | INIT ; clear screen, intro text
|
|---|
| 34 | W @IOF
|
|---|
| 35 | W !?33,"View MRA EOB's"
|
|---|
| 36 | W !!?1,"This option will allow you to select and view Medicare Remittance Advice (MRA)"
|
|---|
| 37 | W !?1,"Explanations of Benefits (EOB). Only Medicare EOB's are displayed here."
|
|---|
| 38 | INITX ;
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | VIEWEOB(IBIFN,IBEOBIFN) ; This procedure is responsible for
|
|---|
| 42 | ; invoking the ListManager list for viewing an EOB.
|
|---|
| 43 | ; IBIFN is the internal bill# (required)
|
|---|
| 44 | ; IBEOBIFN is the ien to file 361.1 if known (optional)
|
|---|
| 45 | ;
|
|---|
| 46 | NEW COL,CTRLCOL,FINISH,IB,IBCNT,IBONE,POP,VALMBCK,VALMY,X,Y,Z
|
|---|
| 47 | D EN^VALM("IBCEM VIEW EOB")
|
|---|
| 48 | VIEWX ;
|
|---|
| 49 | Q
|
|---|
| 50 | ;
|
|---|
| 51 | SCR(IBIFN) ; ?MRA action from the IB Bill Enter/Edit screens
|
|---|
| 52 | NEW DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT,CNT,IBFASTXT,IBEOBIFN
|
|---|
| 53 | I '$D(IOUON)!'$D(IORVON) D ENS^%ZISS
|
|---|
| 54 | D SCHD
|
|---|
| 55 | S CNT=$$MRACNT^IBCEMU1(IBIFN)
|
|---|
| 56 | I 'CNT D G SCRX
|
|---|
| 57 | . W !!!?8,"There are no MRA EOB's on file for this bill."
|
|---|
| 58 | . D EOP
|
|---|
| 59 | . Q
|
|---|
| 60 | ;
|
|---|
| 61 | I CNT=1 D VIEWEOB(IBIFN) G SCRX ; only one MRA
|
|---|
| 62 | ;
|
|---|
| 63 | SCLOOP ; Multiple MRA's on file. Call the MRA/EOB lister.
|
|---|
| 64 | ;
|
|---|
| 65 | D SCHD
|
|---|
| 66 | S IBEOBIFN=$$SEL^IBCEMU1(IBIFN,1)
|
|---|
| 67 | I 'IBEOBIFN G SCRX
|
|---|
| 68 | D VIEWEOB(IBIFN,IBEOBIFN)
|
|---|
| 69 | G SCLOOP
|
|---|
| 70 | ;
|
|---|
| 71 | SCRX ;
|
|---|
| 72 | Q
|
|---|
| 73 | ;
|
|---|
| 74 | SCHD ; screen header info
|
|---|
| 75 | W @IOF
|
|---|
| 76 | W !!?24,"View Medicare Remittance Advice"
|
|---|
| 77 | W !?28,"Explanation of Benefits"
|
|---|
| 78 | SCHDX ;
|
|---|
| 79 | Q
|
|---|
| 80 | ;
|
|---|
| 81 | EOP ; End of page
|
|---|
| 82 | W !! S DIR("A")=" Press RETURN to continue",DIR(0)="E" D ^DIR K DIR
|
|---|
| 83 | EOPX ;
|
|---|
| 84 | Q
|
|---|
| 85 | ;
|
|---|
