IBECEA33 ;ALB/CPM-Cancel/Edit/Add... More Add Utilities ; 23-APR-93
Source file <IBECEA33.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 |
---|---|---|
NOCL | ; Find the correct clock from the 'bill from' date.
|
|
NOCLQ | ||
OPT | ; Check for a C&P exam and determine the outpatient copay rate.
|
|
OPTQ | ||
CHTYP | ; Ask for the Charge Type
|
|
CHTYPQ | ||
CLMSG | ; Check the Medicare Deductible and Billing Clock
|
|
CLMSGQ | ||
CHKLTCCC() | ; Check to see if the selected Charge Type is an LTC Inpatient CC
|
Name | Field # of Occurrence |
---|---|
IX^DIC | CHTYP+5 |
^DIR | OPT+6, CHTYP+29 |
TYPE^IBAUTL2 | OPT+10 |
CLDATA^IBAUTL3 | NOCL+7 |
DED^IBAUTL3 | NOCL+7, CLMSG+1 |
MED^IBECEA34 | NOCL+9 |
$$CNP^IBECEAU | OPT+1 |
$$INPT^IBECEAU | NOCL+13 |
CLSTR^IBECEAU1 | NOCL+3 |
CTBB^IBECEAU3 | OPT+11 |
NODED^IBECEAU3 | NOCL+7, CLMSG+1 |
CHRG^IBECEAU5 | OPT+10 |
$$DAT1^IBOUTL | NOCL+12, NOCL+13 |
$$FMADD^XLFDT | NOCL+10 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^IBE(350.1 - [#350.1] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399.1 - [#399.1] | CHTYP+23 |
^IBE(350.1 - [#350.1] | NOCL+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> D | CHTYP+2* |
>> DFN | NOCL+3, OPT+1 |
DIC | CHTYP+2*, CHTYP+5! |
DIC("A" | CHTYP+2* |
DIC("B" | CHTYP+4* |
DIC("S" | CHTYP+2* |
DIC(0 | CHTYP+2* |
DIR | OPT+2~, CHTYP+25~ |
DIR("?" | OPT+5*, CHTYP+28* |
DIR("A" | OPT+4*, CHTYP+27* |
DIR("B" | CHTYP+27* |
DIR(0 | OPT+4*, CHTYP+27* |
DIROUT | CHTYP+25~ |
DIRUT | OPT+2~, CHTYP+25~, CHTYP+29 |
DTOUT | OPT+2~, CHTYP+25~ |
DUOUT | OPT+2~, CHTYP+25~, CHTYP+29 |
>> IBADJMED | NOCL+9 |
IBALR | NOCL+1~*, NOCL+2*, NOCL+5 |
>> IBATYP | NOCL+8, OPT+10, CHTYP+5*, CHTYP+23 |
IBBS | OPT+8~, CHTYP+23* |
>> IBCATC | CHTYP+19 |
>> IBCLDA | NOCL+2, NOCL+4, CLMSG+2 |
>> IBCLDAY | NOCL+8, NOCL+9, NOCL+12, NOCL+13 |
>> IBCLDOL | NOCL+13, NOCL+14, CLMSG+2 |
>> IBCLDT | NOCL+10, NOCL+12, CLMSG+1*, CLMSG+2 |
IBCLST | NOCL+1~, NOCL+10, NOCL+13 |
>> IBCVAEL | CHTYP+18 |
IBDT | OPT+8~, OPT+9* |
>> IBEVDA | OPT+9* |
>> IBEXSTAT | CHTYP+20 |
>> IBFR | NOCL+3, OPT+1, OPT+9, CLMSG+1, CLMSG+2 |
>> IBLIM | NOCL+10* |
>> IBLTCST | CHTYP+21, CHTYP+22 |
>> IBMED | NOCL+8*, NOCL+9*, NOCL+14, CLMSG+1, CLMSG+2, CLMSG+3 |
>> IBNH | CHTYP+8*, CHTYP+30*, CHTYP+31* |
>> IBREBILL("CHRGTYPE" | CHTYP+4 |
>> IBSEQNO | CHTYP+8*, CHTYP+16 |
>> IBTO | OPT+9* |
IBTYPE | OPT+8~, OPT+9* |
>> IBUC | CHTYP+13* |
>> IBUNIT | OPT+9* |
IBX | OPT+8~, OPT+9* |
>> IBXA | NOCL+8, NOCL+9, NOCL+14, CHTYP+8*, CHTYP+17, CHTYP+18, CHTYP+19, CHTYP+20, CHTYP+21, CHTYP+22 , CHTYP+23, CHTYP+24, CHTYP+31, CLMSG+2 |
>> IBY | NOCL+5*, NOCL+7, NOCL+9, NOCL+14*, OPT+1, OPT+6*, OPT+11, CHTYP+5*, CHTYP+16*, CHTYP+29* , CLMSG+1, CLMSG+2* |
TYPE | CHTYP+25~, CHTYP+26*, CHTYP+27, CHTYP+28 |
U | CHTYP+13 |
Y | OPT+2~, OPT+6, CHTYP+5, CHTYP+30 |
Y(0 | CHTYP+8, CHTYP+13, CHTYP+26, CHKLTCCC+5, CHKLTCCC+6, CHKLTCCC+7, CHKLTCCC+8 |