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

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

initial load of FOIAVistA 6/30/08 version

File size: 681 bytes
Line 
1IBJTTB ;ALB/ARH - TPI AR TRANSACTION 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 Transaction Profile [PRCAC TRANS PROFILE] option
6 ;
7EN ; -- main entry point for IBJ TP AR TRANSACTIONS
8 D EN^VALM("IBJT AR TRANSACTION 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("IBJTTB",$J)
17 I '$G(DFN)!'$G(IBIFN)!('$G(IBTRNS)) S VALMQUIT="" G INITQ
18 D BLD^IBJTTB1
19INITQ Q
20 ;
21HELP ; -- help code
22 S X="?" D DISP^XQORM1 W !!
23 Q
24 ;
25EXIT ; -- exit code
26 K ^TMP("IBJTTB",$J)
27 D CLEAR^VALM1
28 Q
Note: See TracBrowser for help on using the repository browser.