Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBJTTB

IBJTTB.m

Go to the documentation of this file.
  1. IBJTTB ;ALB/ARH - TPI AR TRANSACTION PROFILE ; 06-MAR-1995
  1. ;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. ; this screen is based on Transaction Profile [PRCAC TRANS PROFILE] option
  1. ;
  1. EN ; -- main entry point for IBJ TP AR TRANSACTIONS
  1. D EN^VALM("IBJT AR TRANSACTION PROFILE")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. D HDR^IBJTU1(+IBIFN,+DFN,13)
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. K ^TMP("IBJTTB",$J)
  1. I '$G(DFN)!'$G(IBIFN)!('$G(IBTRNS)) S VALMQUIT="" G INITQ
  1. D BLD^IBJTTB1
  1. INITQ Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. K ^TMP("IBJTTB",$J)
  1. D CLEAR^VALM1
  1. Q