| 1 | IBJTRA ;ALB/AAS,ARH - TPI CT INSURANCE COMMUNICATIONS ; 4/1/95
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ; the IR contact list screen is based on the Insurance Reviews/Contacts screen of the
|
|---|
| 6 | ; Claims Tracking Insurance Review Edit [IBT EDIT COMMUNICATIONS] option
|
|---|
| 7 | ; the VR view expanded insurance reviews screen is based on the Expanded Insurance Reviews screen of the
|
|---|
| 8 | ; Claims Tracking Insurance Review Edit [IBT EDIT COMMUNICATIONS] option
|
|---|
| 9 | ; the VR view expanded appeals/denials screen is based on the Expanded Appeals/Denials screen of the
|
|---|
| 10 | ; Claims Tracking Appeal/Denial Edit [IBT EDIT APPEALS/DENIALS] option
|
|---|
| 11 | ;
|
|---|
| 12 | ; the IR contact list build (IBJTRA*) is a copy of IBTRC with modifications to show contacts for multiple events
|
|---|
| 13 | ; the two expanded screen builds did not need changes so the CT routines are called directly from the templates
|
|---|
| 14 | ;
|
|---|
| 15 | ; three Claims Tracking LM Templates were duplicated for JBI so the appropriate Protocol Menu could be used:
|
|---|
| 16 | ; IBJT CT/IR COMMUNICATIONS LIST --- IBT COMMUNICATIONS EDITOR
|
|---|
| 17 | ; IBJT CT/IR REVIEWS --- IBT EXPAND/EDIT COMMUNICATIONS
|
|---|
| 18 | ; IBJT CT/IR APPEALS/DENIALS --- IBT EXPAND/EDIT DENIALS
|
|---|
| 19 | ;
|
|---|
| 20 | ; expanded Insurance Reviews and expanded Appeals/Denials are called from
|
|---|
| 21 | ; the same protocol based on the action type of the entry to be displayed.
|
|---|
| 22 | ;
|
|---|
| 23 | % ;
|
|---|
| 24 | EN ; -- main entry point for IBT COMMUNICATIONS EDITOR from menu's
|
|---|
| 25 | I '$G(IBTRPRF) S IBTRPRF="12"
|
|---|
| 26 | D EN^VALM("IBJT CT/IR COMMUNICATIONS LIST")
|
|---|
| 27 | K IBTRPRF,VAERR,VA,DGPM
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
| 30 | HDR ; -- header code
|
|---|
| 31 | D PID^VADPT
|
|---|
| 32 | S VALMHDR(1)="Insurance Review Entries for: "_$P($G(^DGCR(399,IBIFN,0)),U,1)_" "_$$PT^IBTUTL1(DFN)
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | INIT ; -- init variables and list array
|
|---|
| 36 | S U="^",VALMCNT=0,VALMBG=1
|
|---|
| 37 | K ^TMP("IBJTRA",$J),^TMP("IBJTRADX",$J),I,X,XQORNOD,DA,DR,DIE,DNM,DQ
|
|---|
| 38 | I '$G(DFN)!'$G(IBIFN) S VALMQUIT="" G INITQ
|
|---|
| 39 | D BLD^IBJTRA1
|
|---|
| 40 | INITQ Q
|
|---|
| 41 | ;
|
|---|
| 42 | HELP ; -- help code
|
|---|
| 43 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 44 | Q
|
|---|
| 45 | ;
|
|---|
| 46 | EXIT ; -- exit code
|
|---|
| 47 | K ^TMP("IBJTRA",$J),^TMP("IBJTRADX",$J)
|
|---|
| 48 | D CLEAR^VALM1
|
|---|
| 49 | Q
|
|---|
| 50 | ;
|
|---|
| 51 | NX ; -- IBJT CT/IR REVIEWS/APPEALS SCREEN action: go to next screen template - expand review/denial/appeal
|
|---|
| 52 | ; gets user selection of contact then opens either the review or appeal/denial screen
|
|---|
| 53 | ;
|
|---|
| 54 | N VALMY,IBSELN,IBTRN,IBCNS,IBX,IBY,IBTRC,IBCNT,IBI,IBTRND,VAEL,VAIN,VAINDT,VA200,OFFSET,IBPCNT,IBLCNT,IBDCNT,IBOE
|
|---|
| 55 | D EN^VALM2($G(XQORNOD(0)))
|
|---|
| 56 | I $D(VALMY) S IBSELN=0 F S IBSELN=$O(VALMY(IBSELN)) Q:'IBSELN D
|
|---|
| 57 | . S IBTRC=$P($G(^TMP("IBJTRADX",$J,IBSELN)),U,2) Q:'IBTRC
|
|---|
| 58 | . S IBX=$G(^IBT(356.2,+IBTRC,0)) Q:IBX="" S IBTRN=$P(IBX,U,2),IBCNS=$P(IBX,U,8)
|
|---|
| 59 | . ; if review was a appeal/denial or penalty or had a parent review (which can only be a denial or penalty)
|
|---|
| 60 | . ; then use appeals/denials template, otherwise use insurance review template
|
|---|
| 61 | . S IBY=$P($G(^IBE(356.7,+$P(IBX,U,11),0)),U,3) I IBY=20!(IBY=30)!(+$P(IBX,U,18)) D EN^VALM("IBJT CT/IR APPEALS/DENIALS") Q
|
|---|
| 62 | . D EN^VALM("IBJT CT/IR REVIEWS")
|
|---|
| 63 | S VALMBCK="R"
|
|---|
| 64 | Q
|
|---|
