- 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 Jan 18, 2025@03:25:21 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