IBAUTL8B ;ALB/MGD - DUPLICATE COPAY TRANSACTION UTILITIES CONT.; Sep 30, 2020@15:16:44
Source file <IBAUTL8B.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 4 | IBAUTL8 IBAUTL8A IBAUTL8B IBAUTL8C |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LTCNEW(IBN,IBEVDT,IBACTION,IBINTACT) | ;
; Perform checks for a new Long Term Care Copay charge to determine if this charge should be passed over to AR. ; Input: ; IBN = Pointer to Long Term Care Copay charge currently being reviewed in the INTEGRATED BILLING ACTION (#350) file ; IBEVDT = Event Date for the charge currently being reviewed in the INTEGRATED BILLING ACTION (#350) file ; IBACTION = Passed by reference. Passed in as 0:Pass to AR ; IBINTACT = Optional - Flag to indicate when the call is being made from an interactive option. ; 1:Interactive ; 0:Non-Interactive ; For more info see COPAYCHK^IBAUTL8 ; ; Output: IBACTION = 0 if the current charge being reviewed should be passed over to AR ; # The IEN of the existing Copay charge for the Patient/Date of interest. ; The charge being reviewed should NOT be passed over to AR. |
|
| LTC(DFN,IBDATE,IBNEW) | ; Patient Billed For Long Term Care Copay on a specified date?
; Input: DFN - Pointer to the patient in file #2 ; IBDATE - Date of the Inpatient Visit ; IBNEW - IEN of new charge in File #350 ; Output: 0 - Not billed the LTC copay on the visit date ; >0 - Pointer to charge in file #350 that was billed |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IB - [#350] | LTCNEW+23, LTCNEW+72, LTC+29 |
| ^IB("ACHDT" | LTC+22, LTC+25 |
| ^IBE(350.1 - [#350.1] | LTC+33, LTC+35 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | LTC~, LTC+16, LTC+22, LTC+25 |
| IBACTION | LTCNEW~, LTCNEW+16*, LTCNEW+36*, LTCNEW+55*, LTCNEW+67* |
| IBAMT | LTC+12~, LTC+13*, LTC+49* |
| IBATYP | LTC+12~, LTC+13*, LTC+33*, LTC+35, LTC+37, LTC+46 |
| IBATYPN | LTC+12~, LTC+13*, LTC+35*, LTC+37, LTC+41 |
| IBBFI | LTCNEW+21~, LTCNEW+27*, LTCNEW+34, LTCNEW+36, LTCNEW+42 |
| IBBFO | LTCNEW+21~, LTCNEW+50*, LTCNEW+53, LTCNEW+55, LTCNEW+60 |
| IBBOB | LTCNEW+21~, LTCNEW+31*, LTCNEW+34, LTCNEW+36, LTCNEW+44 |
| IBBPD | LTCNEW+21~, LTCNEW+29*, LTCNEW+34, LTCNEW+36, LTCNEW+43 |
| IBCHRG | LTC+12~, LTC+15*, LTC+16, LTC+49*, LTC+54 |
| IBCTOT | LTCNEW+70~, LTCNEW+72*, LTCNEW+74, LTCNEW+81 |
| IBDATA0 | LTC+12~, LTC+29*, LTC+31, LTC+33, LTC+37, LTC+41, LTC+46, LTC+49 |
| IBDATE | LTC~, LTC+16, LTC+18, LTC+20*, LTC+22*, LTC+25 |
| IBDFN | LTCNEW+21~, LTCNEW+23*, LTCNEW+25, LTCNEW+27, LTCNEW+29, LTCNEW+31, LTCNEW+50, LTCNEW+63 |
| IBETOT | LTCNEW+70~, LTCNEW+72*, LTCNEW+74, LTCNEW+81 |
| IBEVDT | LTCNEW~, LTCNEW+18, LTCNEW+27, LTCNEW+29, LTCNEW+31, LTCNEW+50, LTCNEW+63 |
| IBIEN | LTCNEW+21~, LTCNEW+42*, LTCNEW+43*, LTCNEW+44*, LTCNEW+46 |
| IBINTACT | LTCNEW~, LTCNEW+20*, LTCNEW+38, LTCNEW+46, LTCNEW+57, LTCNEW+69 |
| IBLTC | LTCNEW+21~, LTCNEW+63*, LTCNEW+65, LTCNEW+67, LTCNEW+72, LTCNEW+79, LTCNEW+94 |
| IBN | LTCNEW~, LTCNEW+18, LTCNEW+23, LTCNEW+27, LTCNEW+29, LTCNEW+31, LTCNEW+46, LTCNEW+50, LTCNEW+60, LTCNEW+63 , LTCNEW+72, LTCNEW+79, LTCNEW+94, LTC+12~, LTC+24*, LTC+25*, LTC+27, LTC+29, LTC+49 |
| IBNEW | LTC~, LTC+27 |
| IBRSN | LTCNEW+21~, LTCNEW+42*, LTCNEW+43*, LTCNEW+44*, LTCNEW+46, LTCNEW+59*, LTCNEW+60, LTCNEW+78*, LTCNEW+79, LTCNEW+93* , LTCNEW+94 |
| IBSTOPDT | LTC+12~, LTC+18*, LTC+22 |
| U | LTCNEW+23, LTCNEW+72, LTC+31, LTC+41, LTC+49 |
