IBECEA3 ;ALB/CPM - Cancel/Edit/Add... Add a Charge ;30-MAR-93
Source file <IBECEA3.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 31 | ($$OPTB,ASKCONT)^IBAECC CALC^IBAECI CALC^IBAECO ($$CDEXMPT,$$LTCST)^IBAECU $$FNDOPEN^IBAECU4 ($$ISGMTPT,$$REDUCE)^IBAGMT (CEA,CHK)^IBAMTI1 $$CHKHRFS^IBAMTS3 $$RXST^IBARXEU NEW^IBARXMC ($$ADD,TRACK)^IBARXMN (COPAY,COST)^IBAUTL2 CLOCK^IBAUTL3 $$CVA^IBAUTL5 ARRAY^IBECEA0 PASSCH^IBECEA22 ($$EVF,ADEV,NOEV)^IBECEA31 (CHMPVA,CLUPD,FEPR,SPEC)^IBECEA32 (CHTYP,CLMSG,NOCL,OPT)^IBECEA33 MED^IBECEA34 CUS^IBECEA35 ($$IBEDIT,ADDVST,UCCHRG2)^IBECEA36 $$UPDATE^IBECEA38 $$CANCAPI^IBECEA4 ($$BFCHK,$$INPT,HDR,PAUSE)^IBECEAU ($$TIER,FR,TO,UNIT)^IBECEAU2 (ADD,CTBB,NODED)^IBECEAU3 (ERR,PROC)^IBECEAU4 OPT^IBEMTSCU ($$INDCHK,$$INDGET)^IBINUT1 $$DAT1^IBOUTL |
VA FileMan | 2 | $$GET1^DIQ ^DIR |
Kernel | 1 | ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT |
Registration | 1 | $$BILST^DGMTUB |
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 |
---|---|---|
ADD | ; Add a Charge protocol
|
|
FR | ; - ask 'bill from' date
|
|
UCPAY | ;IB*2.0*646 Added to allow for skip of clock checks - required for Urgent Care Copays
; - perform outpatient edits |
|
TO | ; - ask 'bill to' date
|
|
EV | ; - find event record, or select admission for linkage
|
|
PROC | ; - okay to proceed?
|
|
ADDQ | ; - display error, rebuild list, and quit
; IB*2.0*682 skip list rebuild and killing of some variables if we're coming from ^IBECEA4 - it's done in 'Cancel charge' code |
|
ADDQ1 | ||
TYP() | ; Return descriptive admission type.
|
|
TYPQ | ||
PRTWRN | ; Print warning message about medical copayment already applied
|
|
VSTCHK() | ||
DUPINFO(IBIEN) | ;Retrieve the needed information from the duplicate bill
|
|
CANDUP(IBN) | ;Cancel the duplicate copay if the user wishes to.
|
|
ASKLTC() | ; LTC clock confirmation prompt IB*2.0*728
|
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 |
|
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 |
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^IB - [#350] | GET1^DIQ |
^IBE(350.1 - [#350.1] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IB - [#350] | EV+3, DUPINFO+4 |
^IBA(351.81 - [#351.81] | FR+27, FR+30, FR+31, FR+32, FR+41, UCPAY+53, TO+27 |
^IBE(350.1 - [#350.1] | ADD+22, ADD+36, UCPAY+50, UCPAY+82, TYP+4 |
^IBE(351.2 - [#351.2] | EV+7 |
Name | Line Occurrences |
---|---|
$$ASKLTC | FR+41 |
$$CANDUP | UCPAY+38, UCPAY+73, TO+19 |
$$DUPINFO | UCPAY+31, UCPAY+68, TO+15 |
$$TYP | EV+4 |
$$VSTCHK | UCPAY+40 |
@( | PROC+9 |
ADDQ | ADD+13, ADD+16, ADD+30, ADD+33, ADD+37, ADD+44, FR+5, FR+15, FR+20, FR+23 , FR+53, FR+57, FR+60, UCPAY+18, UCPAY+21, UCPAY+22, UCPAY+30, UCPAY+50, UCPAY+59, UCPAY+79 , TO+1, TO+6, TO+23, TO+26, TO+31, TO+38, TO+44, EV+2, PROC+2, PROC+6 , PROC+9, PROC+15, PROC+16, PROC+20 |
EV | UCPAY+85, TO+38 |
PROC | ADD+44, UCPAY+44, UCPAY+76, EV+2 |
PRTWRN | UCPAY+33, UCPAY+35, UCPAY+66, TO+13 |
TYPQ | TYP+2 |
UCPAY | FR+8 |
Name | Field # of Occurrence |
---|---|
^(20 | UCPAY+82 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> DFN | ADD+7, ADD+41, ADD+61, FR+12, FR+20, FR+26, FR+30, FR+31, FR+41, UCPAY+18 , UCPAY+21, UCPAY+29, UCPAY+41, UCPAY+61, TO+7, TO+23, TO+31, EV+1, PROC+2, PROC+4 , PROC+15, PROC+30 |
DIR | ADD+67~, VSTCHK+2~, CANDUP+9~, CANDUP+24~, ASKLTC+4~ |
DIR("A" | ADD+72*, VSTCHK+5*, CANDUP+28*, ASKLTC+6*, ASKLTC+7* |
DIR(0 | ADD+72*, VSTCHK+5*, CANDUP+27*, ASKLTC+8* |
DIROUT | ASKLTC+4~ |
DIRUT | ADD+67~, VSTCHK+2~, VSTCHK+8, CANDUP+9~, CANDUP+24~, ASKLTC+4~ |
DT | ADD+7, ADD+41, ADD+47, ADD+74, EV+5 |
DTIME | CANDUP+44 |
DTOUT | ADD+67~, ASKLTC+4~ |
DUOUT | ADD+67~, VSTCHK+2~, VSTCHK+9, CANDUP+9~, CANDUP+24~, ASKLTC+4~ |
IBA | ADD+45~ |
IBACTY | CANDUP+8~, CANDUP+14*, CANDUP+22 |
IBADJMED | ADDQ+9!, TYP+3 |
IBAFEE | ADD+21~, ADD+24*, ADD+26*, UCPAY+24 |
IBAFY | ADDQ+9! |
IBAM | PROC+15*, ADDQ+8! |
IBARTYP | ADDQ+9! |
IBATYP | ADD+22, ADD+24, ADD+26, ADD+36, ADD+55, UCPAY+50, UCPAY+82, ADDQ+5!, TYP+4 |
IBB | ADD+45~, ADD+67~, ADD+68 |
IBBG | ADDQ+4*, ADDQ+8! |
IBBILL | PROC+1~, PROC+26*, PROC+27 |
IBBLNM | CANDUP+8~, CANDUP+17*, CANDUP+22 |
IBBS | ADDQ+8! |
IBC | ADD+45~ |
IBCATC | ADD+7*, ADDQ1! |
IBCHG | ADD+68, FR+57*, UCPAY+36, UCPAY+50, UCPAY+72, UCPAY+79, UCPAY+81*, UCPAY+85*, TO+41*, TO+44 , PROC+15, ADDQ+5! |
IBCHRG | CANDUP+8~, CANDUP+18*, CANDUP+22 |
IBCLDA | ADD+3~, ADD+11, ADD+38, FR+26*, FR+27, FR+31*, FR+32, FR+41*, FR+60, UCPAY+53 , TO+27, ADDQ+8! |
IBCLDAY | ADD+11*, ADD+36, ADD+37, ADD+38, ADDQ+8! |
IBCLDOL | ADD+11*, ADD+38, FR+57, UCPAY+85, TO+41, ADDQ+8! |
IBCLDT | ADD+11*, FR+60, ADDQ+8! |
IBCLDY | ADD+3~, FR+27*, FR+32*, FR+34, FR+35, FR+50, FR+51 |
IBCLEDT | ADD+3~, FR+26*, FR+27*, FR+39, FR+41 |
IBCLSF | ADDQ+9! |
IBCLST | ADD+3~ |
IBCLSTDT | ADD+3~, FR+26*, FR+27*, FR+29, FR+30*, FR+31, FR+34, FR+50 |
IBCLZ | ADD+3~, FR+27* |
IBCNRSLT | CANDUP+8~, CANDUP+38*, CANDUP+39 |
IBCOMMIT | ADD+7*, ADDQ+4, ADDQ1+1! |
IBCONT | ADD+2~, UCPAY+30, UCPAY+32*, UCPAY+37*, UCPAY+38*, UCPAY+58*, UCPAY+73*, UCPAY+74* |
IBCVA | ADDQ+9! |
IBCVAEL | ADD+7*, ADDQ1! |
IBDATA0 | DUPINFO+3~, DUPINFO+4*, DUPINFO+5, DUPINFO+7 |
IBDD | ADDQ+9! |
IBDESC | UCPAY+50*, UCPAY+82*, TO+44*, PROC+15, ADDQ+5! |
IBDG | TO+32, PROC+9, ADDQ+8! |
IBDPAMT | ADD+2~, UCPAY+31*, UCPAY+36, UCPAY+68*, UCPAY+72, TO+15* |
IBDPDATA | ADD+2~, UCPAY+31*, UCPAY+68*, TO+15* |
IBDPIEN | DUPINFO+3~, DUPINFO+5*, DUPINFO+6 |
IBDPXA | ADD+2~, UCPAY+31*, UCPAY+33, UCPAY+68*, UCPAY+70, TO+15*, TO+17, DUPINFO+3~, DUPINFO+6*, DUPINFO+7 |
IBDT | FR+57*, UCPAY+50*, UCPAY+80~*, TO+31*, ADDQ+9! |
IBDUPIEN | ADD+2~, UCPAY+28*, UCPAY+29*, UCPAY+30, UCPAY+31, UCPAY+38, UCPAY+61*, UCPAY+63, UCPAY+68, UCPAY+73 , TO+7*, TO+10, TO+15, TO+19 |
IBEFDT | ADD+48*, ADD+51, ADD+55, PROC+15, ADDQ1! |
IBEVDA | ADD+51*, UCPAY+50*, TO+31*, EV+1*, EV+2, EV+3, EV+4, EV+5, EV+6*, EV+7 , PROC+12, PROC+26, PROC+30, PROC+34, ADDQ+5! |
IBEVDT | ADD+51*, UCPAY+50*, TO+31*, ADDQ+9! |
IBEXSTAT | ADD+7*, ADDQ1! |
IBFEDT | TO+27*, ADDQ1! |
IBFEEV | PROC+9, ADDQ+8! |
IBFR | ADD+48, ADD+68, FR+5, FR+12, FR+20, FR+29, FR+30, FR+39, FR+41, FR+57 , FR+60, UCPAY+18, UCPAY+21, UCPAY+24, UCPAY+29, UCPAY+41, UCPAY+50, UCPAY+53, UCPAY+61, UCPAY+80 , UCPAY+85, TO+7, TO+27, TO+31, TO+37, EV+1, PROC+2, PROC+30, ADDQ+5! |
IBFRDT | CANDUP+8~, CANDUP+10*, CANDUP+11*, CANDUP+22 |
IBGMT | ADD+1~, ADD+6*, FR+12*, FR+13, FR+17, FR+57, UCPAY+81, TO+23, TO+38 |
IBGMTR | ADD+1~, ADD+6*, FR+12*, FR+57*, UCPAY+80*, UCPAY+81*, TO+39*, TO+46 |
IBI | CANDUP+8~, CANDUP+21* |
IBIEN | DUPINFO~, DUPINFO+4 |
IBIL | ADDQ+5! |
IBLIM | ADD+47*, ADD+74*, ADDQ+8! |
IBLTCST | ADD+7*, ADDQ1! |
IBMED | ADD+11*, ADD+36*, FR+17*, FR+57, UCPAY+85, TO+41, ADDQ+8! |
IBN | ADD+67~, ADD+68, ADD+71, PROC+26, ADDQ+5!, CANDUP~, CANDUP+10, CANDUP+12, CANDUP+14, CANDUP+15 , CANDUP+16, CANDUP+17, CANDUP+18, CANDUP+38 |
IBND | ADDQ+5! |
IBNH | TO+31, EV+1, ADDQ+8!, TYP+2 |
IBNHLTC | TO+34~* |
IBNOS | ADDQ+5! |
>> IBREBILL("BILLFR" | FR+1 |
>> IBREBILL("BILLTO" | TO+1 |
>> IBREBILL("EVDT" | ADD+47, ADDQ+2, ADDQ1+1 |
>> IBREBILL("UC" | PROC+24, PROC+27 |
IBRES | PROC+1~, PROC+27* |
IBRTED | ADDQ+8! |
IBSEQNO | ADDQ+5! |
IBSIBC | EV+7, PROC+12, ADDQ+8! |
IBSIBC1 | PROC+34, ADDQ+8! |
>> IBSITE | PROC+15 |
IBSL | EV+3*, ADDQ+5! |
IBSTAT | CANDUP+8~, CANDUP+16*, CANDUP+22 |
IBSTCD | CANDUP+8~, CANDUP+15*, CANDUP+22 |
IBSTOPDA | UCPAY+2~ |
IBTIER | ADD+55*, PROC+15, ADDQ1! |
IBTO | ADD+48*, UCPAY+50*, UCPAY+85*, TO+23, TO+27, TO+31, TO+37, EV+1, PROC+2, ADDQ+5! |
IBTODT | CANDUP+8~, CANDUP+12*, CANDUP+13*, CANDUP+22 |
IBTOTL | ADDQ+5! |
IBTRAN | ADDQ+9! |
IBUC | ADD+1~, ADD+6*, FR+5, FR+8, UCPAY+18, UCPAY+21, UCPAY+22, UCPAY+39, PROC+2, PROC+22 , PROC+37 |
IBUNIT | UCPAY+50*, UCPAY+85*, TO+37*, TO+41, TO+46, PROC+15, ADDQ+5! |
IBUSNM | ADD+1~, ADD+22*, ADD+23, ADD+24, ADD+25, ADD+26, PROC+15 |
IBVST | ADD+2~, UCPAY+34*, UCPAY+40*, UCPAY+41 |
IBX | ADD+45~, ADDQ+9!, CANDUP+44* |
IBXA | ADD+30, ADD+33, ADD+36, ADD+37, ADD+38, ADD+41, ADD+44, ADD+74, FR+13, FR+15 , FR+17, FR+20, FR+23, FR+57, FR+60, UCPAY+18, UCPAY+21, UCPAY+22, UCPAY+30, UCPAY+44 , UCPAY+50, UCPAY+59, UCPAY+76, UCPAY+79, UCPAY+85, TO+6, TO+23, TO+26, TO+31, TO+37 , TO+38, TO+41, TO+44, TO+46, EV+1, PROC+2, PROC+9, PROC+15, PROC+37, ADDQ+5! |
IBY | ADD+13, ADD+16, ADD+37, ADD+44, ADD+47, ADD+55, ADD+58, ADD+66, ADD+72*, FR+15 , FR+23, FR+31*, FR+35*, FR+37*, FR+41*, FR+51*, FR+53, FR+57, FR+60, UCPAY+18 , UCPAY+22, UCPAY+50, UCPAY+53*, UCPAY+59, UCPAY+60*, UCPAY+64*, UCPAY+70*, TO+1, TO+6, TO+9* , TO+11*, TO+17*, TO+19*, TO+26, TO+27*, TO+31, TO+32*, TO+38, TO+44, EV+2 , PROC+6, PROC+9, PROC+16, PROC+20, ADDQ+3, VSTCHK+2~, VSTCHK+4*, VSTCHK+8, VSTCHK+9, CANDUP+9~ , CANDUP+24~, CANDUP+26*, CANDUP+30*, CANDUP+34 |
U | FR+27, FR+32, FR+41, UCPAY+31, UCPAY+68, TO+15, PROC+4, DUPINFO+5, DUPINFO+7 |
VA | ADDQ+9! |
VADM | ADDQ+9! |
VAERR | ADDQ+9! |
>> VALMBCK | ADDQ+3* |
>> VALMBG | ADDQ+4* |
X | ADD+67~, TYP+1~*, TYP+3*, TYP+4*, TYP+5*, TYPQ, VSTCHK+2~, CANDUP+9~, CANDUP+24~, ASKLTC+4~ |
Y | ADD+67~, ADD+72, VSTCHK+2~, VSTCHK+10, CANDUP+9~, CANDUP+24~, CANDUP+30, ASKLTC+4~, ASKLTC+10 |