IBJTCA ;ALB/ARH - TPI CLAIMS INFO SCREEN ;16-FEB-1995
;;2.0;INTEGRATED BILLING;**39,137,451**;21-MAR-94;Build 47
;;Per VHA Directive 2004-038, this routine should not be modified.
;
EN ; -- main entry point for IBJ TP CLAIMS INFO
D EN^VALM("IBJT CLAIM INFO")
Q
;
HDR ; -- header code
D HDR^IBJTU1(+IBIFN,+DFN,1)
S:$$WNRBILL^IBEFUNC(+IBIFN) VALMSG="*=No payment expected, bill exists to obtain MRA"
S VALMSG="|% EEOB | Enter ?? for more actions|" ; IB*2.0*451
Q
;
INIT ; -- init variables and list array
K IBPOLICY F I="IBJTCA","IBJTBA","IBJTBB","IBJTBC","IBJTBD","IBJTEA","IBJTRA","IBJTTA","IBJTTB","IBJTTC","IBTRCD","IBTRDD","IBCNSA","IBCNSC","IBCNSVP" K ^TMP(I,$J)
I '$G(DFN)!'$G(IBIFN) S VALMQUIT="" G INITQ
D BLD^IBJTCA1
INITQ Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K ^TMP("IBJTCA",$J),IBIFN,IBPRVSCR,IBPOLICY,IBARCOMM
D CLEAR^VALM1,CLEAN^VALM10
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBJTCA 937 printed Oct 16, 2024@18:24:28 Page 2
IBJTCA ;ALB/ARH - TPI CLAIMS INFO SCREEN ;16-FEB-1995
+1 ;;2.0;INTEGRATED BILLING;**39,137,451**;21-MAR-94;Build 47
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
EN ; -- main entry point for IBJ TP CLAIMS INFO
+1 DO EN^VALM("IBJT CLAIM INFO")
+2 QUIT
+3 ;
HDR ; -- header code
+1 DO HDR^IBJTU1(+IBIFN,+DFN,1)
+2 if $$WNRBILL^IBEFUNC(+IBIFN)
SET VALMSG="*=No payment expected, bill exists to obtain MRA"
+3 ; IB*2.0*451
SET VALMSG="|% EEOB | Enter ?? for more actions|"
+4 QUIT
+5 ;
INIT ; -- init variables and list array
+1 KILL IBPOLICY
FOR I="IBJTCA","IBJTBA","IBJTBB","IBJTBC","IBJTBD","IBJTEA","IBJTRA","IBJTTA","IBJTTB","IBJTTC","IBTRCD","IBTRDD","IBCNSA","IBCNSC","IBCNSVP"
KILL ^TMP(I,$JOB)
+2 IF '$GET(DFN)!'$GET(IBIFN)
SET VALMQUIT=""
GOTO INITQ
+3 DO BLD^IBJTCA1
INITQ QUIT
+1 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL ^TMP("IBJTCA",$JOB),IBIFN,IBPRVSCR,IBPOLICY,IBARCOMM
+2 DO CLEAR^VALM1
DO CLEAN^VALM10
+3 QUIT
