IBJTTB ;ALB/ARH - TPI AR TRANSACTION 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 Transaction Profile [PRCAC TRANS PROFILE] option
;
EN ; -- main entry point for IBJ TP AR TRANSACTIONS
D EN^VALM("IBJT AR TRANSACTION PROFILE")
Q
;
HDR ; -- header code
D HDR^IBJTU1(+IBIFN,+DFN,13)
Q
;
INIT ; -- init variables and list array
K ^TMP("IBJTTB",$J)
I '$G(DFN)!'$G(IBIFN)!('$G(IBTRNS)) S VALMQUIT="" G INITQ
D BLD^IBJTTB1
INITQ Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K ^TMP("IBJTTB",$J)
D CLEAR^VALM1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBJTTB 709 printed Dec 13, 2024@02:24:09 Page 2
IBJTTB ;ALB/ARH - TPI AR TRANSACTION 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 Transaction Profile [PRCAC TRANS PROFILE] option
+5 ;
EN ; -- main entry point for IBJ TP AR TRANSACTIONS
+1 DO EN^VALM("IBJT AR TRANSACTION 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("IBJTTB",$JOB)
+2 IF '$GET(DFN)!'$GET(IBIFN)!('$GET(IBTRNS))
SET VALMQUIT=""
GOTO INITQ
+3 DO BLD^IBJTTB1
INITQ QUIT
+1 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL ^TMP("IBJTTB",$JOB)
+2 DO CLEAR^VALM1
+3 QUIT
