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

IBCD.m

Go to the documentation of this file.
  1. IBCD ;ALB/ARH - AUTOMATED BILLER ; 8/6/93
  1. ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. ;This routine is the begining of the auto biller. No variables are required on entry. It is be called by the
  1. ;IB nightly job routine IBAMTC. It first checks to see if it should run based on the auto biller frequency
  1. ;site parameter. It then gathers the Claims Tracking events with an EABD into a temporary file by patient,
  1. ;event type, and episode date. This temporary file ("IBACAB") is then used to sort the events into groups
  1. ;that should be added to individual bills based on the individual event type billing cycle parameters. This
  1. ;second temporary file is then used to create the actual bills in IBCD1-2.
  1. ;
  1. EN ;begin process of finding and creating bills
  1. ;determine if auto biller should run, check site parameters (350.9,7.01-7.02)
  1. S IBPAR7=$G(^IBE(350.9,1,7)) G:'$P(IBPAR7,U,1) EXIT
  1. I +IBPAR7,+$P(IBPAR7,U,2),$$FMADD^XLFDT(+$P(IBPAR7,U,2),+IBPAR7)>DT G EXIT
  1. S IBAUTO=1
  1. ;
  1. ;begin search for events to bill, create array of events by patient
  1. ;^TMP("IBCAB",$J, PATIENT, EVENT TYPE, EPISODE DATE, EVENT IFN)=""
  1. ;adds all events in Claims Tracking that have an EABD not after today
  1. S IBDFN=0 F S IBDFN=$O(^IBT(356,"ATOBIL",IBDFN)) Q:'IBDFN D
  1. . S IBTYP=0 F S IBTYP=$O(^IBT(356,"ATOBIL",IBDFN,IBTYP)) Q:'IBTYP D
  1. .. S IBEABD=0 F S IBEABD=$O(^IBT(356,"ATOBIL",IBDFN,IBTYP,IBEABD)) Q:'IBEABD!(IBEABD>DT) D
  1. ... S IBTRN=0 F S IBTRN=$O(^IBT(356,"ATOBIL",IBDFN,IBTYP,IBEABD,IBTRN)) Q:'IBTRN D
  1. .... S IBX=$$EVBILL^IBCU81(IBTRN) I 'IBX!(IBX>DT) D TEABD(IBTRN,+IBX) D:$P(IBX,U,2)'="" TERR(IBTRN,0,$P(IBX,U,2)) Q
  1. .... S IBX=$$EVNTCHK^IBCU82(IBTRN) I +IBX D TEABD(IBTRN,0) D TERR(IBTRN,0,$P(IBX,U,2)) Q
  1. .... S IBTRND=$G(^IBT(356,IBTRN,0))
  1. .... S ^TMP("IBCAB",$J,IBDFN,IBTYP,+$P(IBTRND,U,6),IBTRN)=""
  1. K IBDFN,IBTYP,IBEABD,IBTRN,IBTRND,IBX
  1. ;
  1. I $D(^TMP("IBCAB",$J)) D ^IBCD1 ; consolidate events into bills, create bills
  1. D ^IBCDC ; set comments into file
  1. S DIE="^IBE(350.9,",DA=1,DR="7.02////"_DT D ^DIE ;reset last date auto biller run
  1. K ^TMP("IBCAB",$J),^TMP("IBEABD",$J),^TMP("IBCE",$J),^TMP("IBILL",$J)
  1. F IBX=1:1:10 K ^TMP(("IBC"_IBX),$J)
  1. EXIT K IBX,IBPAR7,DIE,DA,DR,IBAUTO,IBBS,IBSC,IBT
  1. Q
  1. ;
  1. TEABD(TRN,IBDT) ;array contains the list of claims tracking events that need EABD updated, and the new date
  1. S IBDT=+$G(IBDT),^TMP("IBEABD",$J,TRN,+IBDT)=""
  1. Q
  1. TERR(TRN,IFN,ER) ;array contains events or bills that need entries created in the comments file, and the comment
  1. N X S TRN=+$G(TRN),IFN=+$G(IFN),X=+$G(^TMP("IBCE",$J,DT,TRN,IFN))+1
  1. S ^TMP("IBCE",$J,DT,TRN,IFN,X)=$G(ER),^TMP("IBCE",$J,DT,TRN,IFN)=X
  1. Q
  1. TBILL(TRN,IFN) ;array contains list of events and bills to be inserted into 356.399
  1. I '$D(^IBT(356,+$G(TRN),0))!('$D(^DGCR(399,+$G(IFN),0))) Q
  1. S ^TMP("IBILL",$J,TRN,IFN)=""
  1. Q