Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBECEA3

Package: Integrated Billing

Routine: IBECEA3


Information

IBECEA3 ;ALB/CPM - Cancel/Edit/Add... Add a Charge ;30-MAR-93

Source Information

Source file <IBECEA3.m>

Call Graph

Call Graph Total: 34

Package Total Call Graph
Integrated Billing 30 CALC^IBAECI  CALC^IBAECO  ($$CDEXMPT,$$LTCST)^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  ($$CHKLTC,$$DUP)^IBECEA3A  ($$ASKCONT,$$ASKMH,$$CDCHK,$$NUMVSTCK,ADDVST,MESS1,MESS2,MESS2B)^IBECEAMH  ($$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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBECEA1  IBECEA4  

Entry Points

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
VSTCHK()

External References

Name Field # of Occurrence
$$BILST^DGMTUB ADD+9
$$GET1^DIQ FR+29, UCPAY+24, UCPAY+27, PROC+26
^DIR ADD+70, VSTCHK+6
CALC^IBAECI TO+28
CALC^IBAECO UCPAY+43
$$CDEXMPT^IBAECU ADD+40, FR+20
$$LTCST^IBAECU ADD+9
$$ISGMTPT^IBAGMT FR+12, TO+7
$$REDUCE^IBAGMT FR+17, FR+26, UCPAY+52
CEA^IBAMTI1 PROC+12
CHK^IBAMTI1 PROC+37
$$CHKHRFS^IBAMTS3 UCPAY+8
$$RXST^IBARXEU ADD+9
NEW^IBARXMC ADD+66
$$ADD^IBARXMN PROC+15
TRACK^IBARXMN ADD+59
COPAY^IBAUTL2 FR+26
COST^IBAUTL2 UCPAY+43, UCPAY+51, TO+15
CLOCK^IBAUTL3 ADD+11
$$CVA^IBAUTL5 ADD+9
ARRAY^IBECEA0 ADDQ+4
PASSCH^IBECEA22 PROC+20
$$EVF^IBECEA31 TO+15, EV+1
ADEV^IBECEA31 TO+18
NOEV^IBECEA31 TO+16, EV+2
CHMPVA^IBECEA32 ADD+29
CLUPD^IBECEA32 PROC+40
FEPR^IBECEA32 TO+22
SPEC^IBECEA32 EV+7
CHTYP^IBECEA33 ADD+15
CLMSG^IBECEA33 FR+15
NOCL^IBECEA33 FR+29
OPT^IBECEA33 UCPAY+13
MED^IBECEA34 ADD+36
CUS^IBECEA35 ADD+32
$$IBEDIT^IBECEA36 ADD+7
ADDVST^IBECEA36 UCPAY+21, PROC+30
UCCHRG2^IBECEA36 UCPAY+5
$$UPDATE^IBECEA38 PROC+27
$$CHKLTC^IBECEA3A FR+23
$$DUP^IBECEA3A UCPAY+21, UCPAY+47, TO+5
$$ASKCONT^IBECEAMH UCPAY+32
$$ASKMH^IBECEAMH UCPAY+25
$$CDCHK^IBECEAMH UCPAY+28
$$NUMVSTCK^IBECEAMH UCPAY+29
ADDVST^IBECEAMH UCPAY+33, PROC+34
MESS1^IBECEAMH UCPAY+31
MESS2^IBECEAMH UCPAY+34
MESS2B^IBECEAMH PROC+34
$$INPT^IBECEAU ADD+37
HDR^IBECEAU ADD+12
PAUSE^IBECEAU ADDQ+3
$$TIER^IBECEAU2 ADD+53
FR^IBECEAU2 ADD+46, FR+1
TO^IBECEAU2 TO+1
UNIT^IBECEAU2 ADD+56
ADD^IBECEAU3 PROC+16
CTBB^IBECEAU3 ADD+61, UCPAY+43, UCPAY+56, TO+30
NODED^IBECEAU3 ADD+13
ERR^IBECEAU4 ADDQ+3
PROC^IBECEAU4 PROC+6
OPT^IBEMTSCU UCPAY+18
$$INDCHK^IBINUT1 PROC+2
$$INDGET^IBINUT1 PROC+4
$$DAT1^IBOUTL EV+4, EV+5
$$FMADD^XLFDT ADD+72
$$FMDIFF^XLFDT TO+21
$$FMTE^XLFDT PROC+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," ** Active Billing Clock ** # Inpt Days: ",IBCLDAY," ",$$INPT^IBECEAU(IBCLDAY)," 90 days: $",+IBCLDOL,!
  • Line Location: ADD+37
Function Call: WRITE
  • Prompt: !!," ** Patient is currently Catastrophically Disabled",!
  • Line Location: ADD+40
Function Call: WRITE
  • Prompt: !,"The patient has GMT Copayment Status."
  • Line Location: FR+13
Function Call: WRITE
  • Prompt: !,"Medicare Deductible reduced due to GMT Copayment Status ($",$J(IBMED,"",2),")."
  • Line Location: FR+17
Function Call: WRITE
  • Prompt: !,"Patient is LTC non-institutional exempt, Catastrophically Disabled"
  • Line Location: FR+20
Function Call: WRITE
  • Prompt: *7," ($",IBCHG,"/day)"
  • Line Location: FR+26
Function Call: WRITE
  • Prompt: " GMT Rate"
  • Condition for execution: IBGMTR
  • Line Location: FR+26
Function Call: WRITE
  • Prompt: !!,"This patient is 'Exempt' from Outpatient Visit charges on that date of service.",!
  • Line Location: UCPAY+8
Function Call: WRITE
  • Prompt: !!,"This day is already marked as a Free Day."
  • Line Location: UCPAY+45
Function Call: WRITE
  • Prompt: !!,"Unable to determine the per diem rate. Please check your rate table."
  • Line Location: UCPAY+50
Function Call: WRITE
  • Prompt: !!,"The patient's GMT Copayment status changed within the specified period!",!
  • Line Location: TO+7
Function Call: WRITE
  • Prompt: !!,"One or more of the days in this period is marked as a Free Day."
  • Line Location: TO+11
Function Call: WRITE
  • Prompt: !!," LTC Copayment charges cannot go from one month to another."
  • Line Location: TO+15
Function Call: WRITE
  • Prompt: !!,"Linked charge to ",$$TYP(),"admission on ",$$DAT1^IBOUTL($P(IBEVDA,"^",2))," ("
  • Line Location: EV+4
Function Call: WRITE
  • Prompt: $S($P(IBEVDA,"^",3)=9999999:"Still admitted)",1:"Discharged on "_$$DAT1^IBOUTL($P(IBEVDA,"^",3))_$S($P(IBEVDA,"^",3)>DT:" [pseudo])",1:")"))," ..."
  • Line Location: EV+5
Function Call: WRITE
  • Prompt: !!,"Building the new transaction... "
  • Line Location: PROC+15
Function Call: WRITE
  • Prompt: " done."
  • Line Location: PROC+16
Function Call: WRITE
  • Prompt: !,"Passing the charge directly to Accounts Receivable... "
  • Line Location: PROC+19
Function Call: WRITE
  • Prompt: !,"Rebuilding list of charges..."
  • Line Location: ADDQ+4
Function Call: WRITE
  • Prompt: !
  • Line Location: VSTCHK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: VSTCHK+7
Routine Call
  • DIR
  • Line Location:
    • ADD+70
    • VSTCHK+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IB - [#350] GET1^DIQ
^IBE(350.9 - [#350.9] GET1^DIQ
^IBE(351 - [#351] GET1^DIQ
^IBE(352.5 - [#352.5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IB - [#350] EV+3
^IBA(351.81 - [#351.81] UCPAY+45, TO+11
^IBE(350.1 - [#350.1] ADD+21, ADD+35, UCPAY+43, UCPAY+53, TYP+4
^IBE(351.2 - [#351.2] EV+7

Label References

Name Line Occurrences
$$TYP EV+4
$$VSTCHK UCPAY+21
@( PROC+9
ADDQ ADD+13, ADD+15, ADD+29, ADD+32, ADD+36, ADD+43, FR+2, FR+5, FR+15, FR+20
, FR+23, FR+26, FR+29, UCPAY+5, UCPAY+8, UCPAY+11, UCPAY+21, UCPAY+25, UCPAY+30, UCPAY+43
, UCPAY+47, UCPAY+50, TO+1, TO+5, TO+7, TO+10, TO+15, TO+22, TO+28, EV+2
, PROC+2, PROC+6, PROC+9, PROC+15, PROC+16, PROC+20
EV UCPAY+56, TO+22
PROC ADD+43, UCPAY+25, UCPAY+38, UCPAY+47, EV+2
TYPQ TYP+2
UCPAY FR+8

Naked Globals

Name Field # of Occurrence
^(20 UCPAY+53

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN ADD+9, ADD+40, ADD+59, FR+12, FR+20, FR+23, UCPAY+5, UCPAY+8, UCPAY+21, UCPAY+29
, UCPAY+33, UCPAY+47, TO+5, TO+7, TO+15, EV+1, PROC+2, PROC+4, PROC+15, PROC+30
, PROC+34
DIR ADD+65~, VSTCHK+2~
DIR("A" ADD+70*, VSTCHK+5*
DIR(0 ADD+70*, VSTCHK+5*
DIRUT ADD+65~, VSTCHK+2~, VSTCHK+8
DT ADD+9, ADD+40, ADD+46, ADD+72, EV+5
DTOUT ADD+65~
DUOUT ADD+65~, VSTCHK+2~, VSTCHK+9
IBA ADD+44~
IBADJMED ADDQ+9!, TYP+3
IBAFEE ADD+20~, ADD+23*, ADD+25*, UCPAY+13
IBAFY ADDQ+9!
IBAM PROC+15*, ADDQ+8!
IBARTYP ADDQ+9!
IBATYP ADD+21, ADD+23, ADD+25, ADD+35, ADD+53, UCPAY+43, UCPAY+53, ADDQ+5!, TYP+4
IBB ADD+44~, ADD+65~, ADD+66
IBBG ADDQ+4*, ADDQ+8!
IBBILL PROC+1~, PROC+26*, PROC+27
IBBS ADDQ+8!
IBC ADD+44~
IBCATC ADD+9*, ADDQ1!
IBCDCHK ADD+3~, ADD+5*, UCPAY+25*, UCPAY+26, UCPAY+28*, UCPAY+30, UCPAY+34, PROC+34
IBCDEDT ADD+3~, UCPAY+24*, UCPAY+25
IBCDFLG ADD+3~, UCPAY+25*
IBCDSDT ADD+3~, UCPAY+24*, UCPAY+25
IBCHG ADD+66, FR+26*, UCPAY+16*, UCPAY+21, UCPAY+43, UCPAY+47, UCPAY+50, UCPAY+52*, UCPAY+56*, TO+5
, TO+25*, TO+28, PROC+15, ADDQ+5!
IBCLDA ADD+2~, ADD+11, ADD+37, FR+23*, FR+29, UCPAY+45, TO+11, ADDQ+8!
IBCLDAY ADD+11*, ADD+35, ADD+36, ADD+37, ADDQ+8!
IBCLDOL ADD+11*, ADD+37, FR+26, UCPAY+56, TO+25, ADDQ+8!
IBCLDT ADD+11*, FR+29, ADDQ+8!
IBCLSF ADDQ+9!
IBCLST ADD+2~
IBCOMMIT ADD+9*, ADDQ+4, ADDQ1+1!
IBCVA ADDQ+9!
IBCVAEL ADD+9*, ADDQ1!
IBDD ADDQ+9!
IBDESC UCPAY+17*, UCPAY+43*, UCPAY+53*, TO+28*, PROC+15, ADDQ+5!
IBDG TO+16, PROC+9, ADDQ+8!
IBDT FR+26*, UCPAY+43*, UCPAY+51~*, TO+15*, ADDQ+9!
IBEFDT ADD+47*, ADD+50, ADD+53, PROC+15, ADDQ1!
IBEVDA ADD+50*, UCPAY+43*, TO+15*, EV+1*, EV+2, EV+3, EV+4, EV+5, EV+6*, EV+7
, PROC+12, PROC+26, PROC+30, PROC+34, PROC+37, ADDQ+5!
IBEVDT ADD+50*, UCPAY+43*, TO+15*, ADDQ+9!
IBEXSTAT ADD+9*, ADDQ1!
IBFEDT TO+11*, ADDQ1!
IBFEEV PROC+9, ADDQ+8!
IBFR ADD+47, ADD+66, FR+5, FR+12, FR+20, FR+23, FR+26, FR+29, UCPAY+5, UCPAY+8
, UCPAY+13, UCPAY+17, UCPAY+21, UCPAY+25, UCPAY+28, UCPAY+29, UCPAY+33, UCPAY+43, UCPAY+45, UCPAY+47
, UCPAY+51, UCPAY+56, TO+5, TO+11, TO+15, TO+21, EV+1, PROC+2, PROC+30, PROC+34
, ADDQ+5!
IBGMT ADD+1~, ADD+8*, FR+12*, FR+13, FR+17, FR+26, UCPAY+52, TO+7, TO+22
IBGMTR ADD+1~, ADD+8*, FR+12*, FR+26*, UCPAY+51*, UCPAY+52*, TO+23*, TO+30
IBIL ADDQ+5!
IBLIM ADD+46*, ADD+72*, ADDQ+8!
IBLTCST ADD+9*, ADDQ1!
IBMED ADD+11*, ADD+35*, FR+17*, FR+26, UCPAY+56, TO+25, ADDQ+8!
IBN ADD+65~, ADD+66, ADD+69, PROC+26, ADDQ+5!
IBND ADDQ+5!
IBNH TO+15, EV+1, ADDQ+8!, TYP+2
IBNHLTC TO+18~*
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+37, ADDQ+8!
>> IBSITE PROC+15
IBSL EV+3*, ADDQ+5!
IBSTCD ADD+3~, UCPAY+27*, UCPAY+28
IBSTOPDA UCPAY+2~, UCPAY+26, UCPAY+27
IBTIER ADD+53*, PROC+15, ADDQ1!
IBTO ADD+47*, UCPAY+17*, UCPAY+43*, UCPAY+56*, TO+7, TO+11, TO+15, TO+21, EV+1, PROC+2
, ADDQ+5!
IBTOTL ADDQ+5!
IBTRAN ADDQ+9!
IBUC ADD+1~, ADD+8*, FR+5, FR+8, UCPAY+5, UCPAY+8, UCPAY+11, UCPAY+21, PROC+2, PROC+22
, PROC+40
IBUNIT UCPAY+16*, UCPAY+43*, UCPAY+56*, TO+21*, TO+25, TO+30, PROC+15, ADDQ+5!
IBUSNM ADD+1~, ADD+21*, ADD+22, ADD+23, ADD+24, ADD+25, UCPAY+15, UCPAY+17, UCPAY+25, PROC+15
IBX ADD+44~, ADDQ+9!
IBXA ADD+29, ADD+32, ADD+35, ADD+36, ADD+37, ADD+40, ADD+43, ADD+72, FR+13, FR+15
, FR+17, FR+20, FR+23, FR+26, FR+29, UCPAY+5, UCPAY+8, UCPAY+11, UCPAY+21, UCPAY+38
, UCPAY+43, UCPAY+47, UCPAY+50, UCPAY+56, TO+5, TO+7, TO+10, TO+15, TO+21, TO+22
, TO+25, TO+28, TO+30, EV+1, PROC+2, PROC+9, PROC+15, PROC+40, ADDQ+5!
IBY ADD+13, ADD+15, ADD+36, ADD+43, ADD+46, ADD+53, ADD+56, ADD+64, ADD+70*, FR+2
, FR+15, FR+23*, FR+26, FR+29, UCPAY+5, UCPAY+11, UCPAY+43, UCPAY+45*, TO+1, TO+10
, TO+11*, TO+15, TO+16*, TO+22, TO+28, EV+2, PROC+6, PROC+9, PROC+16, PROC+20
, ADDQ+3, VSTCHK+2~, VSTCHK+4*, VSTCHK+8, VSTCHK+9
NUMVSTFL ADD+3~, ADD+5*, UCPAY+29*, UCPAY+30, UCPAY+34, PROC+34
U FR+23, PROC+4
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~
Y ADD+65~, ADD+70, VSTCHK+2~, VSTCHK+10
Z ADD+4~, FR+23*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All