IBAMTV2 ;ALB/CPM - CREATE CHARGES FOR BILLABLE EPISODES ; 01-JUN-94
Source file <IBAMTV2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLD | ; Create back charges for an array of episodes.
|
|
| BLDQ | ||
| INPT | ; Bill inpatient care.
|
|
| INPTQ | ||
| OPT | ; Bill the Outpatient copayment.
; Input: IBEPSTR -- 1^2^3, where ; 1 => visit date ; 2 => null ; 3 => softlink (may be null) ; DFN -- Pointer to the patient in file #2 |
|
| OPTQ | ||
| OLDCL(DFN,IBDT) | ; Can an old billing clock be used?
; Input: DFN -- Pointer to the patient in file #2 ; IBDT -- Date of first potentially billable episode ; Output: 0 -- No old billing clock available ; >0 -- Pointer to old billing clock in file #351 |
|
| OLDCLQ | ||
| UPD(IBN) | ; Place the charge in a review status.
; Input: IBN -- Pointer to the charge in file #350 |
|
| CLEV() | ; Should the event record be closed?
; Input: variables IBEVDA -- Pointer to event in file #350 ; IBEND -- Last date through which to bill ; Output: 1 -- yes, close event ; 0 -- don't close event |
|
| CLEVQ |
| Name | Field # of Occurrence |
|---|---|
| ^DIE | UPD+2 |
| ^IBAERR1 | BLDQ |
| KILL1^IBAMTC | BLDQ+1 |
| SITE^IBAUTL | BLD+15 |
| SERV^IBAUTL2 | BLD+16 |
| TYPE^IBAUTL2 | OPT+24 |
| CLADD^IBAUTL3 | OPT+10 |
| CLDATA^IBAUTL3 | BLD+20 |
| CLOCKCL^IBAUTL3 | BLD+27, OPT+9 |
| CLUPD^IBAUTL3 | INPT+9 |
| DED^IBAUTL3 | BLD+20 |
| ^IBAUTL4 | INPT+5 |
| ADD^IBECEAU3 | OPT+26 |
| $$GETSC^IBEMTSCU | OPT+17 |
| $$FMADD^XLFDT | CLEV+7 |
| $$FMDIFF^XLFDT | BLD+27, INPT+2, OPT+9, OLDCL+10 |
| $$FMTH^XLFDT | INPT+3, INPT+4 |
| FileNo | Call Tags |
|---|---|
| ^IB - [#350] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM - [#405] | CLEV+8, CLEV+9 |
| ^IB - [#350] | CLEV+8 |
| ^IBE(351 - [#351] | OLDCL+7, OLDCL+8, OLDCL+9 |
| ^IBE(352.5 - [#352.5] | OPT+19 |
| ^TMP("IBAMTV" | BLD+19, BLD+23 |
| Name | Field # of Occurrence |
|---|---|
| ^( | BLD+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | OPT+7~, OPT+17* |
| DA | UPD+2*! |
| DFN | BLD+19, OLDCL~, OLDCL+5, OLDCL+7, OLDCL+8 |
| DIE | UPD+2*! |
| DR | UPD+2*! |
| DT | BLD+27, CLEV+7 |
| DUZ | BLD+14 |
| IBATYP | INPTQ!, OPTQ! |
| >> IBBDT | INPT+3* |
| IBBS | INPTQ!, OPTQ! |
| IBCHCDA | INPT+8, INPTQ! |
| IBCHFR | INPTQ! |
| IBCHG | INPTQ!, OPTQ! |
| IBCHPDA | INPT+7, INPTQ! |
| IBCHTO | INPTQ! |
| IBCHTOTL | INPTQ! |
| >> IBCLCT | INPT+2* |
| >> IBCLDA | BLD+19*, BLD+20, BLD+27, INPT+2, INPT+9, OPT+9, OPT+10 |
| >> IBCLDAY | OPT+10* |
| IBCLDOL | BLD+27!, OPT+9!, OPT+10* |
| >> IBCLDT | BLD+27, INPT+2, OPT+9, OPT+10* |
| IBDATE | INPTQ! |
| IBDESC | INPTQ+1!, OPTQ! |
| IBDT | INPT+10, OPT+14*, OLDCL~, OLDCL+7, OLDCL+10 |
| >> IBDUZ | BLD+14* |
| >> IBEDT | INPT+4* |
| >> IBEND | CLEV+6, CLEV+7 |
| IBEPDT | BLD+23*, BLDQ+1! |
| IBEPSTR | BLD+23*, BLDQ+1!, INPT+2, INPT+3, INPT+4, OPT+9, OPT+10, OPT+13, OPT+14 |
| IBEVCAL | INPTQ+1! |
| IBEVCLD | INPT+10*, INPTQ+1! |
| IBEVDA | INPT+1*, INPT+10, INPTQ+1!, OPT+25*, OPTQ!, CLEV+6, CLEV+8 |
| IBEVDT | INPTQ+1!, OPT+14*, OPT+17, OPTQ! |
| IBEVNEW | INPTQ+1! |
| IBEVOLD | INPTQ+1! |
| IBFR | OPT+14*, OPTQ! |
| IBIL | INPTQ+1! |
| >> IBJOB | BLD+14* |
| IBN | OPT+29, OPTQ!, UPD~, UPD+2 |
| IBNH | INPTQ! |
| IBRTED | OPTQ! |
| IBSL | INPTQ+1!, OPT+13*, OPT+17, OPTQ! |
| IBST | OLDCL+6~*, OLDCL+7, OLDCL+8, OLDCL+10* |
| IBSTOPDA | OPT+7~, OPT+17*, OPT+19 |
| IBTO | OPT+14*, OPTQ! |
| IBTOTL | INPTQ+1! |
| IBTRAN | INPTQ! |
| IBTYPE | OPT+7~, OPT+19*, OPT+21* |
| IBUNIT | OPT+25*, OPTQ! |
| >> IBWHER | BLD+14* |
| IBX | OPT+14*, OPTQ!, OLDCL+6~, OLDCL+7*, OLDCL+8, CLEV+5~*, CLEV+6*, CLEV+7*, CLEV+9*, CLEVQ |
| IBY | BLD+14*, BLD+15*, BLD+16, BLD+23, BLD+24, BLDQ, INPT+5, OPT+9, OPT+10, OPT+24 , OPT+26, OLDCL+6~, OLDCL+8*, OLDCL+9, OLDCLQ |
| IBZ | OLDCL+6~, OLDCL+9*, OLDCL+10, CLEV+5~, CLEV+8*, CLEV+9 |
| >> Y | BLD+14*, BLD+15 |
