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

IBJTTA.m

Go to the documentation of this file.
  1. IBJTTA ;ALB/ARH - TPI AR ACCOUNT/CLAIM 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 the Profile of Accounts Receivable [PRCAC PROFILE] option
  1. ;
  1. EN ; -- main entry point for IBJ TP AR TRANSACTIONS
  1. D EN^VALM("IBJT AR ACCOUNT 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("IBJTTA",$J),^TMP("IBJTTAX",$J),IBARCOMM
  1. I '$G(DFN)!'$G(IBIFN) S VALMQUIT="" G INITQ
  1. D BLD^IBJTTA1
  1. INITQ Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. K IBPOLICY,IBARCOMM,^TMP("IBJTTA",$J),^TMP("IBJTTAX",$J)
  1. D CLEAR^VALM1
  1. Q
  1. ;
  1. NX(IBTPLNM) ; -- IBJT AR TRANSACTION PROFILE SCREEN action: go to next screen template
  1. ; get user transaction selection from transaction list on Account Profile screen then open transaction profile
  1. ;
  1. N VALMY,IBSELN,IBIFN,IBTRNS
  1. D EN^VALM2($G(XQORNOD(0)))
  1. I $D(VALMY) S IBSELN=0 F S IBSELN=$O(VALMY(IBSELN)) Q:'IBSELN D
  1. . S IBIFN=$P($G(^TMP("IBJTTAX",$J,IBSELN)),U,2)
  1. . S IBTRNS=$P($G(^TMP("IBJTTAX",$J,IBSELN)),U,3)
  1. . D EN^VALM(IBTPLNM)
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. REBLD ; -- called as part of Entry Code for IBJT AR ACCOUNT PROFILE MENU
  1. ; necessary to cause the AR screen to be rebuilt, if a Comment Transaction is added to the account (AD action)
  1. ; and the AR screen is already open, then the AR screen will have incomplete information, IBARCOMM is
  1. ; set when a comment is added, if set on entry into the menu protocol for the AR screen then this procedure
  1. ; is called to rebuild the AR screen so it will have the new transaction listed
  1. D INIT K IBARCOMM
  1. Q