IBECEA3 ;ALB/CPM - Cancel/Edit/Add... Add a Charge ;30-MAR-93
Source file <IBECEA3.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 32 | ($$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 ($$ASKCONT,$$ASKMH,$$CDCHK,$$NUMVSTCK,ADDVST,MESS1,MESS2,MESS2B)^IBECEAMH ($$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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 2 | IBECEA1 IBECEA4 |
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 |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^IB - [#350] | GET1^DIQ |
^IBE(350.1 - [#350.1] | GET1^DIQ |
^IBE(350.9 - [#350.9] | GET1^DIQ |
^IBE(351 - [#351] | GET1^DIQ |
^IBE(352.5 - [#352.5] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IB - [#350] | EV+3, DUPINFO+4 |
^IBA(351.81 - [#351.81] | FR+26, FR+29, FR+30, FR+31, FR+40, UCPAY+58, TO+27 |
^IBE(350.1 - [#350.1] | ADD+21, ADD+35, UCPAY+56, UCPAY+84, TYP+4 |
^IBE(351.2 - [#351.2] | EV+7 |
Name | Line Occurrences |
---|---|
$$ASKLTC | FR+40 |
$$CANDUP | UCPAY+31, UCPAY+75, TO+19 |
$$DUPINFO | UCPAY+24, UCPAY+70, TO+15 |
$$TYP | EV+4 |
$$VSTCHK | UCPAY+33 |
@( | PROC+9 |
ADDQ | ADD+13, ADD+15, ADD+29, ADD+32, ADD+36, ADD+43, FR+4, FR+14, FR+19, FR+22 , FR+52, FR+56, FR+59, UCPAY+6, UCPAY+9, UCPAY+12, UCPAY+23, UCPAY+38, UCPAY+43, UCPAY+56 , UCPAY+61, UCPAY+81, 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+87, TO+38 |
PROC | ADD+43, UCPAY+38, UCPAY+51, UCPAY+78, EV+2 |
PRTWRN | UCPAY+26, UCPAY+28, UCPAY+68, TO+13 |
TYPQ | TYP+2 |
UCPAY | FR+7 |
Name | Field # of Occurrence |
---|---|
^(20 | UCPAY+84 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> DFN | ADD+9, ADD+40, ADD+59, FR+11, FR+19, FR+25, FR+29, FR+30, FR+40, UCPAY+6 , UCPAY+9, UCPAY+22, UCPAY+34, UCPAY+42, UCPAY+46, UCPAY+63, TO+7, TO+23, TO+31, EV+1 , PROC+2, PROC+4, PROC+15, PROC+30, PROC+36 |
DIR | ADD+65~, VSTCHK+2~, CANDUP+9~, CANDUP+24~, ASKLTC+4~ |
DIR("A" | ADD+70*, VSTCHK+5*, CANDUP+28*, ASKLTC+6*, ASKLTC+7* |
DIR(0 | ADD+70*, VSTCHK+5*, CANDUP+27*, ASKLTC+8* |
DIROUT | ASKLTC+4~ |
DIRUT | ADD+65~, VSTCHK+2~, VSTCHK+8, CANDUP+9~, CANDUP+24~, ASKLTC+4~ |
DT | ADD+9, ADD+40, ADD+46, ADD+72, EV+5 |
DTIME | CANDUP+44 |
DTOUT | ADD+65~, ASKLTC+4~ |
DUOUT | ADD+65~, VSTCHK+2~, VSTCHK+9, CANDUP+9~, CANDUP+24~, ASKLTC+4~ |
IBA | ADD+44~ |
IBACTY | CANDUP+8~, CANDUP+14*, CANDUP+22 |
IBADJMED | ADDQ+9!, TYP+3 |
IBAFEE | ADD+20~, ADD+23*, ADD+25*, UCPAY+14 |
IBAFY | ADDQ+9! |
IBAM | PROC+15*, ADDQ+8! |
IBARTYP | ADDQ+9! |
IBATYP | ADD+21, ADD+23, ADD+25, ADD+35, ADD+53, UCPAY+56, UCPAY+84, ADDQ+5!, TYP+4 |
IBB | ADD+44~, ADD+65~, ADD+66 |
IBBG | ADDQ+4*, ADDQ+8! |
IBBILL | PROC+1~, PROC+26*, PROC+27 |
IBBLNM | CANDUP+8~, CANDUP+17*, CANDUP+22 |
IBBS | ADDQ+8! |
IBC | ADD+44~ |
IBCATC | ADD+9*, ADDQ1! |
IBCDCHK | ADD+4~, ADD+5*, UCPAY+38*, UCPAY+39, UCPAY+41*, UCPAY+43, UCPAY+47, PROC+34 |
IBCDEDT | ADD+4~, UCPAY+37*, UCPAY+38 |
IBCDFLG | ADD+4~, UCPAY+38* |
IBCDSDT | ADD+4~, UCPAY+37*, UCPAY+38 |
IBCHG | ADD+66, FR+56*, UCPAY+17*, UCPAY+29, UCPAY+56, UCPAY+74, UCPAY+81, UCPAY+83*, UCPAY+87*, TO+41* , TO+44, PROC+15, ADDQ+5! |
IBCHRG | CANDUP+8~, CANDUP+18*, CANDUP+22 |
IBCLDA | ADD+3~, ADD+11, ADD+37, FR+25*, FR+26, FR+30*, FR+31, FR+40*, FR+59, UCPAY+58 , TO+27, ADDQ+8! |
IBCLDAY | ADD+11*, ADD+35, ADD+36, ADD+37, ADDQ+8! |
IBCLDOL | ADD+11*, ADD+37, FR+56, UCPAY+87, TO+41, ADDQ+8! |
IBCLDT | ADD+11*, FR+59, ADDQ+8! |
IBCLDY | ADD+3~, FR+26*, FR+31*, FR+33, FR+34, FR+49, FR+50 |
IBCLEDT | ADD+3~, FR+25*, FR+26*, FR+38, FR+40 |
IBCLSF | ADDQ+9! |
IBCLST | ADD+3~ |
IBCLSTDT | ADD+3~, FR+25*, FR+26*, FR+28, FR+29*, FR+30, FR+33, FR+49 |
IBCLZ | ADD+3~, FR+26* |
IBCNRSLT | CANDUP+8~, CANDUP+38*, CANDUP+39 |
IBCOMMIT | ADD+9*, ADDQ+4, ADDQ1+1! |
IBCONT | ADD+2~, UCPAY+23, UCPAY+25*, UCPAY+30*, UCPAY+31*, UCPAY+60*, UCPAY+75*, UCPAY+76* |
IBCVA | ADDQ+9! |
IBCVAEL | ADD+9*, ADDQ1! |
IBDATA0 | DUPINFO+3~, DUPINFO+4*, DUPINFO+5, DUPINFO+7 |
IBDD | ADDQ+9! |
IBDESC | UCPAY+18*, UCPAY+56*, UCPAY+84*, TO+44*, PROC+15, ADDQ+5! |
IBDG | TO+32, PROC+9, ADDQ+8! |
IBDPAMT | ADD+2~, UCPAY+24*, UCPAY+29, UCPAY+70*, UCPAY+74, TO+15* |
IBDPDATA | ADD+2~, UCPAY+24*, UCPAY+70*, TO+15* |
IBDPIEN | DUPINFO+3~, DUPINFO+5*, DUPINFO+6 |
IBDPXA | ADD+2~, UCPAY+24*, UCPAY+26, UCPAY+70*, UCPAY+72, TO+15*, TO+17, DUPINFO+3~, DUPINFO+6*, DUPINFO+7 |
IBDT | FR+56*, UCPAY+56*, UCPAY+82~*, TO+31*, ADDQ+9! |
IBDUPIEN | ADD+2~, UCPAY+22*, UCPAY+23, UCPAY+24, UCPAY+31, UCPAY+63*, UCPAY+65, UCPAY+70, UCPAY+75, TO+7* , TO+10, TO+15, TO+19 |
IBEFDT | ADD+47*, ADD+50, ADD+53, PROC+15, ADDQ1! |
IBEVDA | ADD+50*, UCPAY+56*, TO+31*, EV+1*, EV+2, EV+3, EV+4, EV+5, EV+6*, EV+7 , PROC+12, PROC+26, PROC+30, PROC+36, PROC+40, ADDQ+5! |
IBEVDT | ADD+50*, UCPAY+56*, TO+31*, ADDQ+9! |
IBEXSTAT | ADD+9*, ADDQ1! |
IBFEDT | TO+27*, ADDQ1! |
IBFEEV | PROC+9, ADDQ+8! |
IBFR | ADD+47, ADD+66, FR+4, FR+11, FR+19, FR+28, FR+29, FR+38, FR+40, FR+56 , FR+59, UCPAY+6, UCPAY+9, UCPAY+14, UCPAY+18, UCPAY+22, UCPAY+34, UCPAY+38, UCPAY+41, UCPAY+42 , UCPAY+46, UCPAY+56, UCPAY+58, UCPAY+63, UCPAY+82, UCPAY+87, TO+7, TO+27, TO+31, TO+37 , EV+1, PROC+2, PROC+30, PROC+36, ADDQ+5! |
IBFRDT | CANDUP+8~, CANDUP+10*, CANDUP+11*, CANDUP+22 |
IBGMT | ADD+1~, ADD+8*, FR+11*, FR+12, FR+16, FR+56, UCPAY+83, TO+23, TO+38 |
IBGMTR | ADD+1~, ADD+8*, FR+11*, FR+56*, UCPAY+82*, UCPAY+83*, TO+39*, TO+46 |
IBI | CANDUP+8~, CANDUP+21* |
IBIEN | DUPINFO~, DUPINFO+4 |
IBIL | ADDQ+5! |
IBLIM | ADD+46*, ADD+72*, ADDQ+8! |
IBLTCST | ADD+9*, ADDQ1! |
IBMED | ADD+11*, ADD+35*, FR+16*, FR+56, UCPAY+87, TO+41, ADDQ+8! |
IBN | ADD+65~, ADD+66, ADD+69, 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+46, 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+40, ADDQ+8! |
>> IBSITE | PROC+15 |
IBSL | EV+3*, ADDQ+5! |
IBSTAT | CANDUP+8~, CANDUP+16*, CANDUP+22 |
IBSTCD | ADD+4~, UCPAY+40*, UCPAY+41, CANDUP+8~, CANDUP+15*, CANDUP+22 |
IBSTOPDA | UCPAY+2~, UCPAY+39, UCPAY+40 |
IBTIER | ADD+53*, PROC+15, ADDQ1! |
IBTO | ADD+47*, UCPAY+18*, UCPAY+56*, UCPAY+87*, 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+8*, FR+4, FR+7, UCPAY+6, UCPAY+9, UCPAY+12, UCPAY+32, PROC+2, PROC+22 , PROC+43 |
IBUNIT | UCPAY+17*, UCPAY+56*, UCPAY+87*, TO+37*, TO+41, TO+46, PROC+15, ADDQ+5! |
IBUSNM | ADD+1~, ADD+21*, ADD+22, ADD+23, ADD+24, ADD+25, UCPAY+16, UCPAY+18, UCPAY+38, PROC+15 |
IBVST | ADD+2~, UCPAY+27*, UCPAY+33*, UCPAY+34 |
IBX | ADD+44~, ADDQ+9!, CANDUP+44* |
IBXA | ADD+29, ADD+32, ADD+35, ADD+36, ADD+37, ADD+40, ADD+43, ADD+72, FR+12, FR+14 , FR+16, FR+19, FR+22, FR+56, FR+59, UCPAY+6, UCPAY+9, UCPAY+12, UCPAY+23, UCPAY+51 , UCPAY+56, UCPAY+61, UCPAY+78, UCPAY+81, UCPAY+87, 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+43, ADDQ+5! |
IBY | ADD+13, ADD+15, ADD+36, ADD+43, ADD+46, ADD+53, ADD+56, ADD+64, ADD+70*, FR+14 , FR+22, FR+30*, FR+34*, FR+36*, FR+40*, FR+50*, FR+52, FR+56, FR+59, UCPAY+6 , UCPAY+12, UCPAY+56, UCPAY+58*, UCPAY+61, UCPAY+62*, UCPAY+66*, UCPAY+72*, 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 |
NUMVSTFL | ADD+4~, ADD+5*, UCPAY+42*, UCPAY+43, UCPAY+47, PROC+34 |
U | FR+26, FR+31, FR+40, UCPAY+24, UCPAY+70, 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+65~, TYP+1~*, TYP+3*, TYP+4*, TYP+5*, TYPQ, VSTCHK+2~, CANDUP+9~, CANDUP+24~, ASKLTC+4~ |
Y | ADD+65~, ADD+70, VSTCHK+2~, VSTCHK+10, CANDUP+9~, CANDUP+24~, CANDUP+30, ASKLTC+4~, ASKLTC+10 |