IBCU81 ;ALB/ARH - THIRD PARTY BILLING UTILITIES (AUTOMATED BILLER) ;02 JUL 93
Source file <IBCU81.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EABD(IBETYP,IBTDT) | ; -- compute earliest auto bill date: date entered plus days delay for event type
|
|
| EABDQ | ||
| EVBILL(IBTRN) | ;check if event is auto billable, return EABD if it is, the difference between this and BILL^IBTUTL is that
|
|
| BILLQ | ||
| RXRF(IBTRN) | ; returns rx # and fill date for given claims tracking rx entry
|
|
| NABSCT(IBTRN) | ; -- true if CT outpatient visit should NOT be auto billed, based only on stop (1) and clinic (2) auto billable
; returns true only for those stops (352.3) and clinics (352.4) specifically flagged as not auto billable |
|
| NBOE(IBOE,IBOE0) | ; returns true if outpatient encounter is non-billable, "" otherwise
; input: IBOE - pointer to encounter (409.68) ; IBOE0 - 0-node of the encounter (optional) ; output: "" or x^message, where x=1 if SC, x=2 if NB Stop code, x=3 if NB Clinic, x=4 if NB Appt Status |
|
| NBOEQ | ||
| OEDX(IBOE,IBDXA,IBDXB) | ; returns arrays containing encounters diagnosis (includes duplicates)
; IBDXA(ORDER,DATE/TIME,IBOE,DX IFN)=DX ^ PCE ORDER ^ IBOE ^ DATE/TIME ^ TRUE IF NON-BILLABLE ^ NB MES ^ CLINIC ; IBDXB(IBDX) = 1 for each billable dx found |
