source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBJTTA.m@ 1791

Last change on this file since 1791 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1IBJTTA ;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 ;
7EN ; -- main entry point for IBJ TP AR TRANSACTIONS
8 D EN^VALM("IBJT AR ACCOUNT PROFILE")
9 Q
10 ;
11HDR ; -- header code
12 D HDR^IBJTU1(+IBIFN,+DFN,13)
13 Q
14 ;
15INIT ; -- 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
19INITQ Q
20 ;
21HELP ; -- help code
22 S X="?" D DISP^XQORM1 W !!
23 Q
24 ;
25EXIT ; -- exit code
26 K IBPOLICY,IBARCOMM,^TMP("IBJTTA",$J),^TMP("IBJTTAX",$J)
27 D CLEAR^VALM1
28 Q
29 ;
30NX(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 ;
42REBLD ; -- 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
Note: See TracBrowser for help on using the repository browser.