IBJTRA ;ALB/AAS,ARH - TPI CT INSURANCE COMMUNICATIONS ; 4/1/95
;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
; the IR contact list screen is based on the Insurance Reviews/Contacts screen of the
; Claims Tracking Insurance Review Edit [IBT EDIT COMMUNICATIONS] option
; the VR view expanded insurance reviews screen is based on the Expanded Insurance Reviews screen of the
; Claims Tracking Insurance Review Edit [IBT EDIT COMMUNICATIONS] option
; the VR view expanded appeals/denials screen is based on the Expanded Appeals/Denials screen of the
; Claims Tracking Appeal/Denial Edit [IBT EDIT APPEALS/DENIALS] option
;
; the IR contact list build (IBJTRA*) is a copy of IBTRC with modifications to show contacts for multiple events
; the two expanded screen builds did not need changes so the CT routines are called directly from the templates
;
; three Claims Tracking LM Templates were duplicated for JBI so the appropriate Protocol Menu could be used:
; IBJT CT/IR COMMUNICATIONS LIST --- IBT COMMUNICATIONS EDITOR
; IBJT CT/IR REVIEWS --- IBT EXPAND/EDIT COMMUNICATIONS
; IBJT CT/IR APPEALS/DENIALS --- IBT EXPAND/EDIT DENIALS
;
; expanded Insurance Reviews and expanded Appeals/Denials are called from
; the same protocol based on the action type of the entry to be displayed.
;
% ;
EN ; -- main entry point for IBT COMMUNICATIONS EDITOR from menu's
I '$G(IBTRPRF) S IBTRPRF="12"
D EN^VALM("IBJT CT/IR COMMUNICATIONS LIST")
K IBTRPRF,VAERR,VA,DGPM
Q
;
HDR ; -- header code
D PID^VADPT
S VALMHDR(1)="Insurance Review Entries for: "_$P($G(^DGCR(399,IBIFN,0)),U,1)_" "_$$PT^IBTUTL1(DFN)
Q
;
INIT ; -- init variables and list array
S U="^",VALMCNT=0,VALMBG=1
K ^TMP("IBJTRA",$J),^TMP("IBJTRADX",$J),I,X,XQORNOD,DA,DR,DIE,DNM,DQ
I '$G(DFN)!'$G(IBIFN) S VALMQUIT="" G INITQ
D BLD^IBJTRA1
INITQ Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K ^TMP("IBJTRA",$J),^TMP("IBJTRADX",$J)
D CLEAR^VALM1
Q
;
NX ; -- IBJT CT/IR REVIEWS/APPEALS SCREEN action: go to next screen template - expand review/denial/appeal
; gets user selection of contact then opens either the review or appeal/denial screen
;
N VALMY,IBSELN,IBTRN,IBCNS,IBX,IBY,IBTRC,IBCNT,IBI,IBTRND,VAEL,VAIN,VAINDT,VA200,OFFSET,IBPCNT,IBLCNT,IBDCNT,IBOE
D EN^VALM2($G(XQORNOD(0)))
I $D(VALMY) S IBSELN=0 F S IBSELN=$O(VALMY(IBSELN)) Q:'IBSELN D
. S IBTRC=$P($G(^TMP("IBJTRADX",$J,IBSELN)),U,2) Q:'IBTRC
. S IBX=$G(^IBT(356.2,+IBTRC,0)) Q:IBX="" S IBTRN=$P(IBX,U,2),IBCNS=$P(IBX,U,8)
. ; if review was a appeal/denial or penalty or had a parent review (which can only be a denial or penalty)
. ; then use appeals/denials template, otherwise use insurance review template
. 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
. D EN^VALM("IBJT CT/IR REVIEWS")
S VALMBCK="R"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBJTRA 3069 printed Oct 16, 2024@18:24:42 Page 2
IBJTRA ;ALB/AAS,ARH - TPI CT INSURANCE COMMUNICATIONS ; 4/1/95
+1 ;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
+4 ; the IR contact list screen is based on the Insurance Reviews/Contacts screen of the
+5 ; Claims Tracking Insurance Review Edit [IBT EDIT COMMUNICATIONS] option
+6 ; the VR view expanded insurance reviews screen is based on the Expanded Insurance Reviews screen of the
+7 ; Claims Tracking Insurance Review Edit [IBT EDIT COMMUNICATIONS] option
+8 ; the VR view expanded appeals/denials screen is based on the Expanded Appeals/Denials screen of the
+9 ; Claims Tracking Appeal/Denial Edit [IBT EDIT APPEALS/DENIALS] option
+10 ;
+11 ; the IR contact list build (IBJTRA*) is a copy of IBTRC with modifications to show contacts for multiple events
+12 ; the two expanded screen builds did not need changes so the CT routines are called directly from the templates
+13 ;
+14 ; three Claims Tracking LM Templates were duplicated for JBI so the appropriate Protocol Menu could be used:
+15 ; IBJT CT/IR COMMUNICATIONS LIST --- IBT COMMUNICATIONS EDITOR
+16 ; IBJT CT/IR REVIEWS --- IBT EXPAND/EDIT COMMUNICATIONS
+17 ; IBJT CT/IR APPEALS/DENIALS --- IBT EXPAND/EDIT DENIALS
+18 ;
+19 ; expanded Insurance Reviews and expanded Appeals/Denials are called from
+20 ; the same protocol based on the action type of the entry to be displayed.
+21 ;
% ;
EN ; -- main entry point for IBT COMMUNICATIONS EDITOR from menu's
+1 IF '$GET(IBTRPRF)
SET IBTRPRF="12"
+2 DO EN^VALM("IBJT CT/IR COMMUNICATIONS LIST")
+3 KILL IBTRPRF,VAERR,VA,DGPM
+4 QUIT
+5 ;
HDR ; -- header code
+1 DO PID^VADPT
+2 SET VALMHDR(1)="Insurance Review Entries for: "_$PIECE($GET(^DGCR(399,IBIFN,0)),U,1)_" "_$$PT^IBTUTL1(DFN)
+3 QUIT
+4 ;
INIT ; -- init variables and list array
+1 SET U="^"
SET VALMCNT=0
SET VALMBG=1
+2 KILL ^TMP("IBJTRA",$JOB),^TMP("IBJTRADX",$JOB),I,X,XQORNOD,DA,DR,DIE,DNM,DQ
+3 IF '$GET(DFN)!'$GET(IBIFN)
SET VALMQUIT=""
GOTO INITQ
+4 DO BLD^IBJTRA1
INITQ QUIT
+1 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL ^TMP("IBJTRA",$JOB),^TMP("IBJTRADX",$JOB)
+2 DO CLEAR^VALM1
+3 QUIT
+4 ;
NX ; -- IBJT CT/IR REVIEWS/APPEALS SCREEN action: go to next screen template - expand review/denial/appeal
+1 ; gets user selection of contact then opens either the review or appeal/denial screen
+2 ;
+3 NEW VALMY,IBSELN,IBTRN,IBCNS,IBX,IBY,IBTRC,IBCNT,IBI,IBTRND,VAEL,VAIN,VAINDT,VA200,OFFSET,IBPCNT,IBLCNT,IBDCNT,IBOE
+4 DO EN^VALM2($GET(XQORNOD(0)))
+5 IF $DATA(VALMY)
SET IBSELN=0
FOR
SET IBSELN=$ORDER(VALMY(IBSELN))
if 'IBSELN
QUIT
Begin DoDot:1
+6 SET IBTRC=$PIECE($GET(^TMP("IBJTRADX",$JOB,IBSELN)),U,2)
if 'IBTRC
QUIT
+7 SET IBX=$GET(^IBT(356.2,+IBTRC,0))
if IBX=""
QUIT
SET IBTRN=$PIECE(IBX,U,2)
SET IBCNS=$PIECE(IBX,U,8)
+8 ; if review was a appeal/denial or penalty or had a parent review (which can only be a denial or penalty)
+9 ; then use appeals/denials template, otherwise use insurance review template
+10 SET IBY=$PIECE($GET(^IBE(356.7,+$PIECE(IBX,U,11),0)),U,3)
IF IBY=20!(IBY=30)!(+$PIECE(IBX,U,18))
DO EN^VALM("IBJT CT/IR APPEALS/DENIALS")
QUIT
+11 DO EN^VALM("IBJT CT/IR REVIEWS")
End DoDot:1
+12 SET VALMBCK="R"
+13 QUIT
