| 1 | IBJTTA ;ALB/ARH - TPI AR ACCOUNT/CLAIM PROFILE ; 06-MAR-1995
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ; this screen is based on the Profile of Accounts Receivable [PRCAC PROFILE] option
|
|---|
| 6 | ;
|
|---|
| 7 | EN ; -- main entry point for IBJ TP AR TRANSACTIONS
|
|---|
| 8 | D EN^VALM("IBJT AR ACCOUNT PROFILE")
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | HDR ; -- header code
|
|---|
| 12 | D HDR^IBJTU1(+IBIFN,+DFN,13)
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | INIT ; -- init variables and list array
|
|---|
| 16 | K ^TMP("IBJTTA",$J),^TMP("IBJTTAX",$J),IBARCOMM
|
|---|
| 17 | I '$G(DFN)!'$G(IBIFN) S VALMQUIT="" G INITQ
|
|---|
| 18 | D BLD^IBJTTA1
|
|---|
| 19 | INITQ Q
|
|---|
| 20 | ;
|
|---|
| 21 | HELP ; -- help code
|
|---|
| 22 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | EXIT ; -- exit code
|
|---|
| 26 | K IBPOLICY,IBARCOMM,^TMP("IBJTTA",$J),^TMP("IBJTTAX",$J)
|
|---|
| 27 | D CLEAR^VALM1
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
| 30 | NX(IBTPLNM) ; -- IBJT AR TRANSACTION PROFILE SCREEN action: go to next screen template
|
|---|
| 31 | ; get user transaction selection from transaction list on Account Profile screen then open transaction profile
|
|---|
| 32 | ;
|
|---|
| 33 | N VALMY,IBSELN,IBIFN,IBTRNS
|
|---|
| 34 | D EN^VALM2($G(XQORNOD(0)))
|
|---|
| 35 | I $D(VALMY) S IBSELN=0 F S IBSELN=$O(VALMY(IBSELN)) Q:'IBSELN D
|
|---|
| 36 | . S IBIFN=$P($G(^TMP("IBJTTAX",$J,IBSELN)),U,2)
|
|---|
| 37 | . S IBTRNS=$P($G(^TMP("IBJTTAX",$J,IBSELN)),U,3)
|
|---|
| 38 | . D EN^VALM(IBTPLNM)
|
|---|
| 39 | S VALMBCK="R"
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
| 42 | REBLD ; -- called as part of Entry Code for IBJT AR ACCOUNT PROFILE MENU
|
|---|
| 43 | ; necessary to cause the AR screen to be rebuilt, if a Comment Transaction is added to the account (AD action)
|
|---|
| 44 | ; and the AR screen is already open, then the AR screen will have incomplete information, IBARCOMM is
|
|---|
| 45 | ; set when a comment is added, if set on entry into the menu protocol for the AR screen then this procedure
|
|---|
| 46 | ; is called to rebuild the AR screen so it will have the new transaction listed
|
|---|
| 47 | D INIT K IBARCOMM
|
|---|
| 48 | Q
|
|---|
