IBJTLA ;ALB/ARH - TPI ACTIVE BILLS LIST SCREEN ;14-FEB-1995
;;2.0;INTEGRATED BILLING;**39,61,153,451,745**;21-MAR-94;Build 8
;;Per VHA Directive 2004-038, this routine should not be modified.
;
EN ; -- main entry point for IBJ THIRD PARTY ACTIVE LIST
D EN^VALM("IBJT ACTIVE LIST")
Q
;
HDR ; -- header code
N X S X=$$PT^IBEFUNC(+$G(DFN))
S VALMHDR(1)=$P(X,U,1) I $P(X,U,3)'="" S VALMHDR(1)=VALMHDR(1) ;SSN Removal IB*2.0*745
I $G(DFN) N VAEL,VAERR D ELIG^VADPT S X=$P(VAEL(1),U,2),VALMHDR(1)=VALMHDR(1)_$J(" ",(79-$L(VALMHDR(1))-$L(X)))_X
; IB*2.0*451 - explanation of EEOB indicator '%' for user
S VALMSG="|r Referred|* MT on Hold |+ Multi Carriers|% EEOB|"
Q
;
INIT ; -- init variables and list array
K ^TMP("IBJTLA",$J),^TMP("IBJTLAX",$J)
I '$G(DFN) S DFN=+$$PAT^IBJTU2 I 'DFN S VALMQUIT="" G INITQ
D BLDA^IBJTLA1
INITQ Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K ^TMP("IBJTLA",$J),^TMP("IBJTLAX",$J),IBFASTXT,DFN
D CLEAR^VALM1,CLEAN^VALM10
Q
;
NX(IBTPLNM) ; -- IBJT CLAIM SCREEN ACTIVE action: go to next screen template
; get user bill selection from Active Bills screen then open Claim Info screen for that bill
;
N VALMY,IBSELN,IBIFN
D EN^VALM2($G(XQORNOD(0)))
I $D(VALMY) S IBSELN=0 F S IBSELN=$O(VALMY(IBSELN)) Q:'IBSELN D
. S IBIFN=$P($G(^TMP("IBJTLAX",$J,IBSELN)),U,2)
. I +IBIFN D EN^VALM(IBTPLNM)
S VALMBCK="R"
Q
;
OPTION ; ENTRY POINT TO THIRD PARTY INQUIRY FROM MENU OPTION, gets patient or bill number then goes to correct screen
;
N IBX S IBX=$$PB^IBJTU2
I +IBX=1 S DFN=+$P(IBX,U,2) I +DFN D EN^IBJTLA G OPTQ
I +IBX=2 S IBIFN=+$P(IBX,U,2),DFN=+$P($G(^DGCR(399,IBIFN,0)),U,2) I +DFN D EN^IBJTCA G OPTQ
OPTQ K DFN,IBIFN,IBFASTXT,IBPRVSCR,VALMBCK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBJTLA 1788 printed Dec 13, 2024@02:23:57 Page 2
IBJTLA ;ALB/ARH - TPI ACTIVE BILLS LIST SCREEN ;14-FEB-1995
+1 ;;2.0;INTEGRATED BILLING;**39,61,153,451,745**;21-MAR-94;Build 8
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
EN ; -- main entry point for IBJ THIRD PARTY ACTIVE LIST
+1 DO EN^VALM("IBJT ACTIVE LIST")
+2 QUIT
+3 ;
HDR ; -- header code
+1 NEW X
SET X=$$PT^IBEFUNC(+$GET(DFN))
+2 ;SSN Removal IB*2.0*745
SET VALMHDR(1)=$PIECE(X,U,1)
IF $PIECE(X,U,3)'=""
SET VALMHDR(1)=VALMHDR(1)
+3 IF $GET(DFN)
NEW VAEL,VAERR
DO ELIG^VADPT
SET X=$PIECE(VAEL(1),U,2)
SET VALMHDR(1)=VALMHDR(1)_$JUSTIFY(" ",(79-$LENGTH(VALMHDR(1))-$LENGTH(X)))_X
+4 ; IB*2.0*451 - explanation of EEOB indicator '%' for user
+5 SET VALMSG="|r Referred|* MT on Hold |+ Multi Carriers|% EEOB|"
+6 QUIT
+7 ;
INIT ; -- init variables and list array
+1 KILL ^TMP("IBJTLA",$JOB),^TMP("IBJTLAX",$JOB)
+2 IF '$GET(DFN)
SET DFN=+$$PAT^IBJTU2
IF 'DFN
SET VALMQUIT=""
GOTO INITQ
+3 DO BLDA^IBJTLA1
INITQ QUIT
+1 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL ^TMP("IBJTLA",$JOB),^TMP("IBJTLAX",$JOB),IBFASTXT,DFN
+2 DO CLEAR^VALM1
DO CLEAN^VALM10
+3 QUIT
+4 ;
NX(IBTPLNM) ; -- IBJT CLAIM SCREEN ACTIVE action: go to next screen template
+1 ; get user bill selection from Active Bills screen then open Claim Info screen for that bill
+2 ;
+3 NEW VALMY,IBSELN,IBIFN
+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 IBIFN=$PIECE($GET(^TMP("IBJTLAX",$JOB,IBSELN)),U,2)
+7 IF +IBIFN
DO EN^VALM(IBTPLNM)
End DoDot:1
+8 SET VALMBCK="R"
+9 QUIT
+10 ;
OPTION ; ENTRY POINT TO THIRD PARTY INQUIRY FROM MENU OPTION, gets patient or bill number then goes to correct screen
+1 ;
+2 NEW IBX
SET IBX=$$PB^IBJTU2
+3 IF +IBX=1
SET DFN=+$PIECE(IBX,U,2)
IF +DFN
DO EN^IBJTLA
GOTO OPTQ
+4 IF +IBX=2
SET IBIFN=+$PIECE(IBX,U,2)
SET DFN=+$PIECE($GET(^DGCR(399,IBIFN,0)),U,2)
IF +DFN
DO EN^IBJTCA
GOTO OPTQ
OPTQ KILL DFN,IBIFN,IBFASTXT,IBPRVSCR,VALMBCK
+1 QUIT
