- 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 Feb 18, 2025@23:50:34 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