IBARXMN ;LL/ELZ-PHARMCAY COPAY CAP RX PROCESSING ; 15 Jun 2021 11:46 AM
Source file <IBARXMN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TRACK(DFN) | ; checks out patient if tracked already
|
|
| QUERY(DFN,IBDT) | ; if there are treating facilities, perform query
|
|
| ACCT(DFN,IBB,IBU,IBDT,IBS) | ; - update amount in patient account
; IBB = amount to be added to pt account (billed) ; IBU = amount to be added to pt account (not billable) ; IBDT = effective date for amount ; IBS = flag, if passed the amounts are totals not to be added to what is already there |
|
| UPCHG(IBX,IBU,IBC) | ; update a charge (from one that is on hold only)
; IBX = ien in 354.71 ; IBU = updated # of units ; IBC = updated charge amount |
|
| CLEAN(IBX) | ; clean out transmission record
|
|
| CANCEL(DFN,IBX,IBY,IBR) | ; cancel a transaction (flags old one and creates a new one)
; IBX is the ien from 354.71, IBY is the error flag (y) passed by ref ; IBR is optional, it is the reason to cancel |
|
| CANQ | ||
| ADD(DFN,IBD,IBT,IBPFSS) | ; adds a transaction to 354.71
; IBD = data in 354.71 format, if $p(IBD,"^")="" create new number ; IBT = action type pointer (optional, but needed for local site) ; returns ien in 354.71 ; IBPFSS optional to indicate came from PFSS system |
|
| TRANF(DFN,IBA,IBD,IBT,IBPFSS) | ; file transaction data in 354.71
; DFN = patient's dfn ; IBA = ien from file 354.71 ; IBD = data in global file format for file 354.71 ; piece 2 will be changed to dfn ; pieces 10 and 13 will be resolved ; pieces 14,15 will be created new if they don't exist ; pieces 16,17 will be created new ; piece 18 will be filled if not $g(IBT)="" |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBAM(354.71 - [#354.71] | Classic Fileman Calls |
| ^DIC(4 - [#4] | Classic Fileman Calls |
