IBJTTA ;ALB/ARH - TPI AR ACCOUNT/CLAIM PROFILE ; 06-MAR-1995
;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
; this screen is based on the Profile of Accounts Receivable [PRCAC PROFILE] option
;
EN ; -- main entry point for IBJ TP AR TRANSACTIONS
D EN^VALM("IBJT AR ACCOUNT PROFILE")
Q
;
HDR ; -- header code
D HDR^IBJTU1(+IBIFN,+DFN,13)
Q
;
INIT ; -- init variables and list array
K ^TMP("IBJTTA",$J),^TMP("IBJTTAX",$J),IBARCOMM
I '$G(DFN)!'$G(IBIFN) S VALMQUIT="" G INITQ
D BLD^IBJTTA1
INITQ Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K IBPOLICY,IBARCOMM,^TMP("IBJTTA",$J),^TMP("IBJTTAX",$J)
D CLEAR^VALM1
Q
;
NX(IBTPLNM) ; -- IBJT AR TRANSACTION PROFILE SCREEN action: go to next screen template
; get user transaction selection from transaction list on Account Profile screen then open transaction profile
;
N VALMY,IBSELN,IBIFN,IBTRNS
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("IBJTTAX",$J,IBSELN)),U,2)
. S IBTRNS=$P($G(^TMP("IBJTTAX",$J,IBSELN)),U,3)
. D EN^VALM(IBTPLNM)
S VALMBCK="R"
Q
;
REBLD ; -- called as part of Entry Code for IBJT AR ACCOUNT PROFILE MENU
; necessary to cause the AR screen to be rebuilt, if a Comment Transaction is added to the account (AD action)
; and the AR screen is already open, then the AR screen will have incomplete information, IBARCOMM is
; set when a comment is added, if set on entry into the menu protocol for the AR screen then this procedure
; is called to rebuild the AR screen so it will have the new transaction listed
D INIT K IBARCOMM
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBJTTA 1760 printed Sep 02, 2024@19:09:19 Page 2
IBJTTA ;ALB/ARH - TPI AR ACCOUNT/CLAIM PROFILE ; 06-MAR-1995
+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 ; this screen is based on the Profile of Accounts Receivable [PRCAC PROFILE] option
+5 ;
EN ; -- main entry point for IBJ TP AR TRANSACTIONS
+1 DO EN^VALM("IBJT AR ACCOUNT PROFILE")
+2 QUIT
+3 ;
HDR ; -- header code
+1 DO HDR^IBJTU1(+IBIFN,+DFN,13)
+2 QUIT
+3 ;
INIT ; -- init variables and list array
+1 KILL ^TMP("IBJTTA",$JOB),^TMP("IBJTTAX",$JOB),IBARCOMM
+2 IF '$GET(DFN)!'$GET(IBIFN)
SET VALMQUIT=""
GOTO INITQ
+3 DO BLD^IBJTTA1
INITQ QUIT
+1 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL IBPOLICY,IBARCOMM,^TMP("IBJTTA",$JOB),^TMP("IBJTTAX",$JOB)
+2 DO CLEAR^VALM1
+3 QUIT
+4 ;
NX(IBTPLNM) ; -- IBJT AR TRANSACTION PROFILE SCREEN action: go to next screen template
+1 ; get user transaction selection from transaction list on Account Profile screen then open transaction profile
+2 ;
+3 NEW VALMY,IBSELN,IBIFN,IBTRNS
+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("IBJTTAX",$JOB,IBSELN)),U,2)
+7 SET IBTRNS=$PIECE($GET(^TMP("IBJTTAX",$JOB,IBSELN)),U,3)
+8 DO EN^VALM(IBTPLNM)
End DoDot:1
+9 SET VALMBCK="R"
+10 QUIT
+11 ;
REBLD ; -- called as part of Entry Code for IBJT AR ACCOUNT PROFILE MENU
+1 ; necessary to cause the AR screen to be rebuilt, if a Comment Transaction is added to the account (AD action)
+2 ; and the AR screen is already open, then the AR screen will have incomplete information, IBARCOMM is
+3 ; set when a comment is added, if set on entry into the menu protocol for the AR screen then this procedure
+4 ; is called to rebuild the AR screen so it will have the new transaction listed
+5 DO INIT
KILL IBARCOMM
+6 QUIT