IBAMTS1 ;ALB/CPM - PROCESS NEW OUTPATIENT ENCOUNTERS ; 22-JUL-93
Source file <IBAMTS1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NEW | ; Appointment fully processed - prepare a new charge.
|
|
| BLD | ; - build the charge. May also enter from IBAMTS2 (requires IBSL)
|
|
| CLOCK | ||
| NEWQ | ||
| CHKS() | ; Perform a batch of edits to determine whether to bill.
; Input variables required: IBEVT -- encounter ; IBAPTY -- appt type ; IBDAT -- appt date ; IBDT -- appt date/time ; IBORG -- originating process ; IBDISP -- disposition (if registration) |
|
| IBFLR | ; Drop the charge into the IB Background filer.
|
|
| CLPT(DFN,VDATE) | ; Should the patient be asked the classification questions?
; Input: DFN -- Pointer to the patient in file #2 ; VDATE -- Visit date |
|
| INPT(DFN,VAINDT) | ; Was the patient an inpatient at VAINDT?
; Input: DFN -- Pointer to the patient in file #2 ; VAINDT -- Date/time to check for inpatient status ; Output: 1 - inpatient | 0 - not an inpatient |
|
| CLSF(IBUPD,Y) | ; Examine classification questions.
; Input: IBUPD -- 0 if event just checked out ; 1 if event is being updated ; Y -- array to place output ; Output: indicators returned as ao^ir^sc^swa^mst^hnc^cv^shad [1|yes, 0|no] ; if IBUPD=0, Y is returned as a single string ; if IBUPD=1, Y("BEFORE"),Y("AFTER") are defined. |
|
| OLDRATE(IBRTED,IBFR) | ; See if the copay rate effective date is too old.
; Input: IBRTED -- Charge Effective Date ; IBFR -- Visit Date ; Output: 1 -- Effective Date is too old ; 0 -- Not |
|
| CHKPRIM | ; check to see if patient has been billed for primary
; and this is a specialty stop. if so, cancel the primary ; bill and let the software create the new specialty charge ; input ibbilled = last parent bill to check (ien 350) ; used to check the rate ; output ibbilled = last parent bill number to prevent ; adding specialty charge |
