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

IBJTRA.m

Go to the documentation of this file.
  1. IBJTRA ;ALB/AAS,ARH - TPI CT INSURANCE COMMUNICATIONS ; 4/1/95
  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. ; the IR contact list screen is based on the Insurance Reviews/Contacts screen of the
  1. ; Claims Tracking Insurance Review Edit [IBT EDIT COMMUNICATIONS] option
  1. ; the VR view expanded insurance reviews screen is based on the Expanded Insurance Reviews screen of the
  1. ; Claims Tracking Insurance Review Edit [IBT EDIT COMMUNICATIONS] option
  1. ; the VR view expanded appeals/denials screen is based on the Expanded Appeals/Denials screen of the
  1. ; Claims Tracking Appeal/Denial Edit [IBT EDIT APPEALS/DENIALS] option
  1. ;
  1. ; the IR contact list build (IBJTRA*) is a copy of IBTRC with modifications to show contacts for multiple events
  1. ; the two expanded screen builds did not need changes so the CT routines are called directly from the templates
  1. ;
  1. ; three Claims Tracking LM Templates were duplicated for JBI so the appropriate Protocol Menu could be used:
  1. ; IBJT CT/IR COMMUNICATIONS LIST --- IBT COMMUNICATIONS EDITOR
  1. ; IBJT CT/IR REVIEWS --- IBT EXPAND/EDIT COMMUNICATIONS
  1. ; IBJT CT/IR APPEALS/DENIALS --- IBT EXPAND/EDIT DENIALS
  1. ;
  1. ; expanded Insurance Reviews and expanded Appeals/Denials are called from
  1. ; the same protocol based on the action type of the entry to be displayed.
  1. ;
  1. % ;
  1. EN ; -- main entry point for IBT COMMUNICATIONS EDITOR from menu's
  1. I '$G(IBTRPRF) S IBTRPRF="12"
  1. D EN^VALM("IBJT CT/IR COMMUNICATIONS LIST")
  1. K IBTRPRF,VAERR,VA,DGPM
  1. Q
  1. ;
  1. HDR ; -- header code
  1. D PID^VADPT
  1. S VALMHDR(1)="Insurance Review Entries for: "_$P($G(^DGCR(399,IBIFN,0)),U,1)_" "_$$PT^IBTUTL1(DFN)
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. S U="^",VALMCNT=0,VALMBG=1
  1. K ^TMP("IBJTRA",$J),^TMP("IBJTRADX",$J),I,X,XQORNOD,DA,DR,DIE,DNM,DQ
  1. I '$G(DFN)!'$G(IBIFN) S VALMQUIT="" G INITQ
  1. D BLD^IBJTRA1
  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("IBJTRA",$J),^TMP("IBJTRADX",$J)
  1. D CLEAR^VALM1
  1. Q
  1. ;
  1. NX ; -- IBJT CT/IR REVIEWS/APPEALS SCREEN action: go to next screen template - expand review/denial/appeal
  1. ; gets user selection of contact then opens either the review or appeal/denial screen
  1. ;
  1. N VALMY,IBSELN,IBTRN,IBCNS,IBX,IBY,IBTRC,IBCNT,IBI,IBTRND,VAEL,VAIN,VAINDT,VA200,OFFSET,IBPCNT,IBLCNT,IBDCNT,IBOE
  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 IBTRC=$P($G(^TMP("IBJTRADX",$J,IBSELN)),U,2) Q:'IBTRC
  1. . S IBX=$G(^IBT(356.2,+IBTRC,0)) Q:IBX="" S IBTRN=$P(IBX,U,2),IBCNS=$P(IBX,U,8)
  1. . ; if review was a appeal/denial or penalty or had a parent review (which can only be a denial or penalty)
  1. . ; then use appeals/denials template, otherwise use insurance review template
  1. . S IBY=$P($G(^IBE(356.7,+$P(IBX,U,11),0)),U,3) I IBY=20!(IBY=30)!(+$P(IBX,U,18)) D EN^VALM("IBJT CT/IR APPEALS/DENIALS") Q
  1. . D EN^VALM("IBJT CT/IR REVIEWS")
  1. S VALMBCK="R"
  1. Q