IBECEA3 ;ALB/CPM - Cancel/Edit/Add... Add a Charge ;30-MAR-93
Source file <IBECEA3.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 28 | CALC^IBAECI CALC^IBAECO ($$CDEXMPT,$$LTCST,$$YR)^IBAECU ($$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 $$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.
|
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] | ADD+45, ADD+46, ADD+48, FR+24, FR+30, UCPAY+53, TO+27 |
^IBE(350.1 - [#350.1] | ADD+21, ADD+35, UCPAY+50, UCPAY+82, TYP+4 |
^IBE(351.2 - [#351.2] | EV+7 |
Name | Line Occurrences |
---|---|
$$CANDUP | UCPAY+38, UCPAY+73, TO+19 |
$$DUPINFO | UCPAY+31, UCPAY+68, TO+15 |
$$TYP | EV+4 |
$$VSTCHK | UCPAY+40 |
@( | PROC+5 |
ADDQ | ADD+12, ADD+15, ADD+29, ADD+32, ADD+36, ADD+43, ADD+53, FR+5, FR+15, FR+20 , FR+23, FR+33, FR+36, 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+5 , PROC+11, PROC+12, PROC+16 |
EV | UCPAY+85, TO+38 |
PROC | ADD+53, 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+6, ADD+40, ADD+45, ADD+46, ADD+70, FR+12, FR+20, FR+30, UCPAY+18, UCPAY+21 , UCPAY+29, UCPAY+41, UCPAY+61, TO+7, TO+23, TO+31, EV+1, PROC+11, PROC+26 |
DIR | ADD+76~, VSTCHK+2~, CANDUP+9~, CANDUP+24~ |
DIR("A" | ADD+81*, VSTCHK+5*, CANDUP+27* |
DIR(0 | ADD+81*, VSTCHK+5*, CANDUP+27* |
DIRUT | ADD+76~, VSTCHK+2~, VSTCHK+8, CANDUP+9~, CANDUP+24~ |
DT | ADD+6, ADD+40, ADD+56, ADD+83, EV+5 |
DTIME | CANDUP+43 |
DTOUT | ADD+76~ |
DUOUT | ADD+76~, VSTCHK+2~, VSTCHK+9, CANDUP+9~, CANDUP+24~ |
IBA | ADD+54~ |
IBACTY | CANDUP+8~, CANDUP+14*, CANDUP+22 |
IBADJMED | ADDQ+9!, TYP+3 |
IBAFEE | ADD+20~, ADD+23*, ADD+25*, UCPAY+24 |
IBAFY | ADDQ+9! |
IBAM | PROC+11*, ADDQ+8! |
IBARTYP | ADDQ+9! |
IBATYP | ADD+21, ADD+23, ADD+25, ADD+35, ADD+64, UCPAY+50, UCPAY+82, ADDQ+5!, TYP+4 |
IBB | ADD+54~, ADD+76~, ADD+77 |
IBBG | ADDQ+4*, ADDQ+8! |
IBBILL | PROC+1~, PROC+22*, PROC+23 |
IBBLNM | CANDUP+8~, CANDUP+16*, CANDUP+22 |
IBBS | ADDQ+8! |
IBC | ADD+54~ |
IBCATC | ADD+6*, ADDQ1! |
IBCHG | ADD+77, FR+33*, UCPAY+36, UCPAY+50, UCPAY+72, UCPAY+79, UCPAY+81*, UCPAY+85*, TO+41*, TO+44 , PROC+11, ADDQ+5! |
IBCHRG | CANDUP+8~, CANDUP+18*, CANDUP+22 |
IBCLDA | ADD+10, ADD+37, ADD+43, ADD+45*, ADD+46*, ADD+47, ADD+48, ADD+50*, FR+24, FR+30* , FR+36, UCPAY+53, TO+27, ADDQ+8! |
IBCLDAY | ADD+10*, ADD+35, ADD+36, ADD+37, ADDQ+8! |
IBCLDOL | ADD+10*, ADD+37, FR+33, UCPAY+85, TO+41, ADDQ+8! |
IBCLDT | ADD+10*, FR+36, ADDQ+8! |
IBCLSF | ADDQ+9! |
IBCLZ | ADD+44~, ADD+48*, ADD+49, ADD+50, FR+24~*, FR+27, FR+30 |
>> IBCNRSLT | CANDUP+39*, CANDUP+40 |
IBCOMMIT | ADD+6*, 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+6*, ADDQ1! |
IBDATA0 | DUPINFO+3~, DUPINFO+4*, DUPINFO+5, DUPINFO+7 |
IBDD | ADDQ+9! |
IBDESC | UCPAY+50*, UCPAY+82*, TO+44*, PROC+11, ADDQ+5! |
IBDG | TO+32, PROC+5, 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+33*, 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+57*, ADD+60, ADD+64, PROC+11, ADDQ1! |
IBEVDA | ADD+60*, UCPAY+50*, TO+31*, EV+1*, EV+2, EV+3, EV+4, EV+5, EV+6*, EV+7 , PROC+8, PROC+22, PROC+26, PROC+30, ADDQ+5! |
IBEVDT | ADD+60*, UCPAY+50*, TO+31*, ADDQ+9! |
IBEXSTAT | ADD+6*, ADDQ1! |
IBFEDT | TO+27*, ADDQ1! |
IBFEEV | PROC+5, ADDQ+8! |
IBFR | ADD+57, ADD+77, FR+5, FR+12, FR+20, FR+27, FR+30, FR+33, FR+36, 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+26, ADDQ+5! |
IBFRDT | CANDUP+8~, CANDUP+10*, CANDUP+11*, CANDUP+22 |
IBGMT | ADD+1~, ADD+5*, FR+12*, FR+13, FR+17, FR+33, UCPAY+81, TO+23, TO+38 |
IBGMTR | ADD+1~, ADD+5*, FR+12*, FR+33*, UCPAY+80*, UCPAY+81*, TO+39*, TO+46 |
IBI | CANDUP+8~, CANDUP+21* |
IBIEN | DUPINFO~, DUPINFO+4 |
IBIL | ADDQ+5! |
IBLIM | ADD+56*, ADD+83*, ADDQ+8! |
IBLTCST | ADD+6*, ADDQ1! |
IBMED | ADD+10*, ADD+35*, FR+17*, FR+33, UCPAY+85, TO+41, ADDQ+8! |
IBN | ADD+76~, ADD+77, ADD+80, PROC+22, ADDQ+5!, CANDUP~, CANDUP+10, CANDUP+12, CANDUP+14, CANDUP+15 , CANDUP+16, CANDUP+17, CANDUP+18, CANDUP+39 |
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+56, ADDQ+2, ADDQ1+1 |
>> IBREBILL("UC" | PROC+20, PROC+23 |
IBRES | PROC+1~, PROC+23* |
IBRTED | ADDQ+8! |
IBSEQNO | ADDQ+5! |
IBSIBC | EV+7, PROC+8, ADDQ+8! |
IBSIBC1 | PROC+30, ADDQ+8! |
>> IBSITE | PROC+11 |
IBSL | EV+3*, ADDQ+5! |
IBSTAT | CANDUP+8~, CANDUP+17*, CANDUP+22 |
IBSTCD | CANDUP+8~, CANDUP+15*, CANDUP+22 |
IBSTOPDA | UCPAY+2~ |
IBTIER | ADD+64*, PROC+11, ADDQ1! |
IBTO | ADD+57*, UCPAY+50*, UCPAY+85*, TO+23, TO+27, TO+31, TO+37, EV+1, ADDQ+5! |
IBTODT | CANDUP+8~, CANDUP+12*, CANDUP+13*, CANDUP+22 |
IBTOTL | ADDQ+5! |
IBTRAN | ADDQ+9! |
IBUC | ADD+1~, ADD+5*, FR+5, FR+8, UCPAY+18, UCPAY+21, UCPAY+22, UCPAY+39, PROC+18, PROC+33 |
IBUNIT | UCPAY+50*, UCPAY+85*, TO+37*, TO+41, TO+46, PROC+11, ADDQ+5! |
IBUSNM | ADD+1~, ADD+21*, ADD+22, ADD+23, ADD+24, ADD+25, PROC+11 |
IBVST | ADD+2~, UCPAY+34*, UCPAY+40*, UCPAY+41 |
IBX | ADD+54~, ADDQ+9!, CANDUP+43* |
IBXA | ADD+29, ADD+32, ADD+35, ADD+36, ADD+37, ADD+40, ADD+43, ADD+53, ADD+83, FR+13 , FR+15, FR+17, FR+20, FR+23, FR+33, FR+36, 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+5, PROC+11, PROC+33, ADDQ+5! |
IBY | ADD+12, ADD+15, ADD+36, ADD+53, ADD+56, ADD+64, ADD+67, ADD+75, ADD+81*, FR+15 , FR+23, FR+27*, FR+30*, FR+33, FR+36, 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+2, PROC+5, PROC+12, PROC+16 , ADDQ+3, VSTCHK+2~, VSTCHK+4*, VSTCHK+8, VSTCHK+9, CANDUP+9~, CANDUP+24~, CANDUP+26*, CANDUP+29*, CANDUP+33 |
U | UCPAY+31, UCPAY+68, TO+15, DUPINFO+5, DUPINFO+7 |
VA | ADDQ+9! |
VADM | ADDQ+9! |
VAERR | ADDQ+9! |
>> VALMBCK | ADDQ+3* |
>> VALMBG | ADDQ+4* |
X | ADD+76~, TYP+1~*, TYP+3*, TYP+4*, TYP+5*, TYPQ, VSTCHK+2~, CANDUP+9~, CANDUP+24~ |
Y | ADD+76~, ADD+81, VSTCHK+2~, VSTCHK+10, CANDUP+9~, CANDUP+24~, CANDUP+29 |