IBARXMC ;LL/ELZ-PHARMACY COPAY CAP FUNCTIONS ; 03 Mar 2021
Source file <IBARXMC.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NEW(IBQ,IBC,IBD,IBB,IBN) | ; used to compute new bills amount above cap
; DFN is assumed ; IBQ = quantity ; IBC = charge per item ; IBD = effective date ; Return: ; IBB = Amount to bill ; IBN = Amount NOT to bill |
|
| BILLED(DFN,IBD,IBFD,IBTD) | ; returns about billed, format: month^year
; IBD = transaction date, IBFD = from date, IBTD = to date |
|
| CAP(IBD,IBP,IBM,IBY,IBF,IBT) | ; returns the cap amount and dates
; IBD = date of transaction ; IBP = priority level of patient ; return (by reference): ; IBM = monthly cap amount ; IBY = yearly cap amount ; IBF = from date for yearly cap determination ; IBT = to date for yearly cap determination |
|
| CAPC | ;
|
|
| FLAG(DFN,IBD) | ; flag account if at or above cap
; IBD = date of transaction (mo/year fm format) ; flag in account is set to: 2 = cap exceeded, some copays not billed ; 1 = cap reached ; 0 = below cap |
|
| PARENT(X) | ; returns the parent entry in 354.71 for a transaction
|
|
| NET(X) | ; returns net amount billed for a parent and its children
; X = ien from 354.71 (parent or child) output: billed ^ un-billed |
|
| CANCEL(DFN,IBDT) | ; receives notification of a cancellation and determines
; if more need to be billed. IBDT should be in fm format date to check |
|
| C1 | ; get starting values
|
|
| C2 | ||
| C3 | ||
| C4 | ||
| C5 | ||
| NEXTMO(DATE) | ; returns first date of next month
|
|
| NEXTMOQ | ||
| QCAN(DFN,IBCAP,IBSAVXMC) | ; queue off job to look for back billing in the background
|
|
| DQCAN | ; entry point for queued back billing job
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
