IBCONS2 ;ALB/CPM - NSC W/INSURANCE OUTPUT (CON'T) ;31-JAN-92
Source file <IBCONS2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOOP1 | ; Compilation for both Inpatient Admisssion and Discharge reports.
|
|
| LOOP2 | ; Compilation for the Outpatient report
|
|
| CALLBCK(IBOE,IBOE0,IBQUERY2) | ; Executed by scan call back logic to process encounters
; IBOE = encounter ien ; IBOE0 = 0-node of the encounter |
|
| CHILD(IBOE,IBOE0,IBVAL,IBSTOP,IBQUERY2) | ;Find any child add/edits
; IBSTOP and IBQUERY2 are returned |
|
| PROC | ; -process each episode of care
|
|
| PROCO | ; Entrypoint for outpatient loop2
|
|
| VALID() | ;
|
|
| VALIDQ | ||
| INS | ||
| PTCHK | ||
| SET | ||
| BILL | ; Add to billed list if is insurance bill, not canceled
; if opt, date is in list, if inpt, admission date = event date ; ** PATCH 66 modified to include check for bill authorized status and add that to the stored TMP array |
|
| PTF | ; if all movements are for sc condition then not billable
|
|
| DIV | ;adds the requested divisions to the report
|
|
| PAT(DFN) | ; true if patient is included in range requested ** PATCH 66
|
|
| PATQ | ||
| PTINS(DFN) | ; check if patients ins is within selected range ** PATCH 66
|
|
| PTINSQ | ||
| STGRNG(STRNG) | ; check if the string passed in is contained within the selected ASCII range ** PATCH 66
|
|
| ASCII(STRNG) | ; returns string in ASCII ** PATCH 66
|
|
| TERMDG(DFN) | ; returns a patients terminal digit ** PATCH 66
|
|
| RNBOE(IBOE) | ; return a Reason Not Billable for the encounter if one can be found
|
