IBAUTL3 ;ALB/CPM - MEANS TEST BILLING UTILITIES (CON'T.) ; 31 May 2022 12:59 PM
Source file <IBAUTL3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DED | ; Find Medicare deductible rate on the billing clock date.
; Input: IBSERV, IBCLDT Output: IBMED - Medicare deductible |
|
| DEDQ | ||
| EVADD | ; Add a new billable event in File #350.
; Input: IBSITE, DFN, IBSL, IBEVDT, IBSERV, IBNH Output: IBEVDA ; IBNHLTC (optional for LTC only) |
|
| EVADDQ | ||
| EVFIND | ; Find most recent active (incomplete - still being billed)
; inpatient/NHCU event since original admission. ; Input: DFN, IBADMDT Output: IBEVDT, IBEVDA, IBEVCAL |
|
| EVCLOS1 | ; Set Last Calc date to yesterday before closing event. Input: IBDT
|
|
| EVCLOSE | ; Close event record. Input: IBEVDA, IBEVCLD
|
|
| EVUPD | ; Update event record. Input: IBEVDA, IBEVCLD
|
|
| CLADD | ; Add a new billing clock in File #351. (Rewritten in IB*2*704)
; Input: IBSITE, DFN, IBCLDT, IBSERV Output: IBCLDA, IBMED |
|
| CLADDQ | ||
| CLOCK | ; Determine if the patient has an active billing clock.
; Input: IBSERV Output: IBCLDA, IBCLDT, IBCLDAY, IBCLDOL |
|
| CLDATA | ; Return data from the current billing clock.
|
|
| CLOCKCL | ; Close out the current billing clock.
; Input: DFN, IBCLDA, IBCLDT; IBCLDOL, IBCLDAY {opt} ; Output: IBCLDA=0 |
|
| CLUPD | ; - update billing clock. Input: IBCLDA, IBCLDOL, IBCLDAY
|
|
| SYNC | ; Check if billing clock is out of sync
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IB - [#350] | Classic Fileman Calls |
| ^IBE(351 - [#351] | Classic Fileman Calls, GET1^DIQ |
| ^IBE(351.3 - [#351.3] | GETS^DIQ |
