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

RCRCAL.m

Go to the documentation of this file.
  1. RCRCAL ;ALB/CMS - RC VIEW BILL LIST ; 27-AUG-1997
  1. V ;;4.5;Accounts Receivable;**63**;Mar 20, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. EN ; -- main entry point for RCRC VIEW BILL LIST
  1. D EN^VALM("RCRC ACTION BILL LIST")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. S VALMHDR(1)=""
  1. S VALMHDR(2)="Third Party Active Referrals"
  1. S VALMSG=$S(+$G(VALMCNT)=0:"NO RECORDS FOUND",1:"|r Ref RC|* Cat C/Hold|+ Multi Ins|x Ret by RC|")
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. K ^TMP("RCRCAL",$J),^TMP("RCRCALX",$J),^TMP("RCRCALPT",$J)
  1. K ^TMP("IBJTLA",$J),^TMP("IBJTLAX",$J),^TMP("RCRCAC",$J)
  1. S VALMCNT=0 D BLDL^RCRCAL1
  1. ;
  1. INITQ Q
  1. ;
  1. IB ;Create IB global
  1. N RCL,RCLNM,RCT,RCY,VALMY,RCSELN,VALMCNT S (RCT,RCY)=0
  1. S RCLNM="IBJT ACTIVE LIST"
  1. D EN^VALM2($G(XQORNOD(0)))
  1. I $D(VALMY) S RCSELN=0 F S RCSELN=$O(VALMY(RCSELN)) Q:'RCSELN D
  1. . S DFN=+$P($G(^TMP("RCRCALPT",$J,RCSELN)),U,1)
  1. . I +DFN S RCT=RCT+1 I '$D(RCL("B",DFN)) S RCL(RCT)=DFN,RCL("B",DFN)=""
  1. S RCY=0 F S RCY=$O(RCL(RCY)) Q:'RCY D
  1. . S DFN=RCL(RCY)
  1. . W !,"Getting bill information " D EN^IBJTLA
  1. S VALMBCK="R"
  1. Q
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. K ^TMP("RCRCAL",$J),^TMP("RCRCALX",$J),^TMP("RCRCALPT",$J),^TMP("RCRCAC",$J)
  1. K ^TMP("IBJTLA",$J),^TMP("IBJTLAX",$J),^TMP("VALM DATA",$J)
  1. K DFN,PRCABN,RCOUT,VALMCNT,VALMBCK
  1. D CLEAR^VALM1,CLEAN^VALM10
  1. Q
  1. ;
  1. OPT ; Entry Point for Third Party Review/Referral
  1. D EN^RCRCALB
  1. I $G(RCOUT) G OPTQ
  1. D EN^RCRCAL
  1. OPTQ K DFN,RCOUT,VALMBCK
  1. Q
  1. ;RCRCAL