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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBECEA21

Package: Integrated Billing

Routine: IBECEA21


Information

IBECEA21 ;ALB/CPM-Cancel/Edit/Add... Edit Prompts;19-APR-93

Source Information

Source file <IBECEA21.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Integrated Billing 12 ($$ISGMTPT,$$REDUCE)^IBAGMT  $$TIEROK^IBAUTL  (COPAY,COST,TYPE)^IBAUTL2  (CLDATA,DED)^IBAUTL3  (CHCL,PASS,UPCHG)^IBECEA22  MED^IBECEA34  $$INPT^IBECEAU  CLSTR^IBECEAU1  
($$TIER,FEE,FR,TO,UNIT)^IBECEAU2  CTBB^IBECEAU3  $$GETSC^IBEMTSCU  $$DAT1^IBOUTL  
Kernel 1 ($$FMADD,$$FMDIFF)^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
FR
TO
END

External References

Name Field # of Occurrence
$$ISGMTPT^IBAGMT IBECEA21+44, FR+3, TO+5
$$REDUCE^IBAGMT IBECEA21+49, FR+4, FR+5
$$TIEROK^IBAUTL IBECEA21+36
COPAY^IBAUTL2 FR+5
COST^IBAUTL2 FR+4
TYPE^IBAUTL2 IBECEA21+20
CLDATA^IBAUTL3 IBECEA21+47
DED^IBAUTL3 IBECEA21+47
CHCL^IBECEA22 TO+11, TO+19
PASS^IBECEA22 IBECEA21+22
UPCHG^IBECEA22 IBECEA21+23, IBECEA21+39
MED^IBECEA34 IBECEA21+52
$$INPT^IBECEAU IBECEA21+54
CLSTR^IBECEAU1 IBECEA21+45
$$TIER^IBECEAU2 IBECEA21+35
FEE^IBECEAU2 TO+16
FR^IBECEAU2 IBECEA21+33, FR
TO^IBECEAU2 TO
UNIT^IBECEAU2 IBECEA21+37
CTBB^IBECEAU3 FR+6, TO+8
$$GETSC^IBEMTSCU IBECEA21+17
$$DAT1^IBOUTL IBECEA21+14, IBECEA21+46, IBECEA21+54, TO+2
$$FMADD^XLFDT IBECEA21+43
$$FMDIFF^XLFDT TO+3, TO+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " $",IBCHG
  • Line Location: IBECEA21+20
Function Call: WRITE
  • Prompt: !,"This equals the billed amount - this charge cannot be edited."
  • Line Location: IBECEA21+21
Function Call: WRITE
  • Prompt: !,"This charge is ready to be billed."
  • Line Location: IBECEA21+22
Function Call: WRITE
  • Prompt: !!,"No change was made!"
  • Line Location: IBECEA21+38
Function Call: WRITE
  • Prompt: !!,"I cannot find a billing clock that was effective on ",$$DAT1^IBOUTL(IBFRP),"!",!,"Please adjust this patient's billing clocks before editing this charge."
  • Line Location: IBECEA21+46
Function Call: WRITE
  • Prompt: !,"Medicare Deductible reduced due to GMT Copayment Status."
  • Line Location: IBECEA21+49
Function Call: WRITE
  • Prompt: !!," ** ",$S($P(IBCLST,"^",4)=1:"Active",1:"Closed")," Billing Clock **"
  • Line Location: IBECEA21+53
Function Call: WRITE
  • Prompt: !?2,"Begin Date: ",$$DAT1^IBOUTL(IBCLDT)," # Inpt Days: ",IBCLDAY," ",$$INPT^IBECEAU(IBCLDAY)," 90 days: $",IBCLDOL,!
  • Line Location: IBECEA21+54
Function Call: WRITE
  • Prompt: !!,"The 'Bill From' date cannot preceed the Billing Clock Begin Date.",!
  • Line Location: FR+2
Function Call: WRITE
  • Prompt: !!,"Unable to determine the per diem rate. Please check your rate table."
  • Line Location: FR+4
Function Call: WRITE
  • Prompt: *7," ($",IBCHG,"/day)"
  • Line Location: FR+5
Function Call: WRITE
  • Prompt: " GMT Rate"
  • Condition for execution: IBGMTR
  • Line Location: FR+5
Function Call: WRITE
  • Prompt: !!,"No change was made!"
  • Line Location: FR+6
Function Call: WRITE
  • Prompt: !!,"The 'Bill To' date cannot exceed the Billing Clock End Date (",$$DAT1^IBOUTL($P(IBCLST,"^",10)),")."
  • Line Location: TO+2
Function Call: WRITE
  • Prompt: !!,"The patient changed GMT Copayment status during the specified period!",!
  • Line Location: TO+5
Function Call: WRITE
  • Prompt: !!,"No change was made!"
  • Line Location: TO+8
Function Call: WRITE
  • Prompt: !!,"New charge to be billed"
  • Line Location: TO+10
Function Call: WRITE
  • Prompt: "(GMT Rate)"
  • Condition for execution: IBGMTR
  • Line Location: TO+10
Function Call: WRITE
  • Prompt: ": $",$J(IBCHG,"",2),!
  • Line Location: TO+10
Function Call: WRITE
  • Prompt: !,"The patient has GMT Copayment Status! GMT rate must be applied.",!
  • Line Location: TO+15
Function Call: WRITE
  • Prompt: !!,"No change was made!"
  • Line Location: TO+17

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399.1 - [#399.1] IBECEA21+50
^IBE(350.1 - [#350.1] IBECEA21+51
^IBE(350.2 - [#350.2] IBECEA21+36
^IBE(350.3 - [#350.3] IBECEA21+24
^IBE(352.5 - [#352.5] IBECEA21+18

Label References

Name Line Occurrences
END IBECEA21+12, IBECEA21+28, IBECEA21+47, IBECEA21+52, FR, FR+4, FR+5, FR+6, TO, TO+6
, TO+16, TO+17
FR FR+2
TO FR+5, TO+2, TO+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN IBECEA21+44, IBECEA21+45, FR+3, TO+5
DT IBECEA21+33, IBECEA21+43
>> IB( IBECEA21+31
IBA IBECEA21+29~, IBECEA21+34*, IBECEA21+36*
>> IBATYP IBECEA21+36, IBECEA21+50, IBECEA21+51
IBB IBECEA21+29~, IBECEA21+36*
>> IBBS IBECEA21+50*
IBC IBECEA21+29~, IBECEA21+36*
>> IBCHG IBECEA21+20, IBECEA21+21, IBECEA21+22, IBECEA21+23, IBECEA21+25, IBECEA21+38, IBECEA21+39, IBECEA21+40, FR+4*, FR+5*
, FR+6, TO+7*, TO+8, TO+9, TO+10, TO+17, TO+18
>> IBCHGP IBECEA21+21, IBECEA21+22, IBECEA21+51, IBECEA21+56, FR+6, TO+8, TO+14, TO+16, TO+17
>> IBCLDA IBECEA21+46
>> IBCLDAY IBECEA21+51, IBECEA21+52, IBECEA21+54, IBECEA21+55
>> IBCLDOL IBECEA21+51, IBECEA21+54, IBECEA21+56, TO+14*, TO+18*
>> IBCLDOLO TO+14*, TO+18
>> IBCLDT IBECEA21+54, FR+2
>> IBCLST IBECEA21+53, TO+2
>> IBCRES IBECEA21+24*
>> IBDAYA TO+9*, TO+18*
>> IBDAYP IBECEA21+55*, TO+9
>> IBDOLA TO+9*, TO+18*
>> IBDOLP IBECEA21+56*, FR+5, TO+7, TO+9, TO+18
>> IBDT IBECEA21+13*, FR+4*, FR+5*
>> IBEFDT IBECEA21+34*, IBECEA21+35, IBECEA21+38
>> IBFR IBECEA21+13*, IBECEA21+14, IBECEA21+34, IBECEA21+36, IBECEA21+39, FR+2, FR+3, FR+4, FR+5, TO+3
, TO+4, TO+5
>> IBFRP IBECEA21+43*, IBECEA21+44, IBECEA21+45, IBECEA21+46, FR, TO+4
IBGMT IBECEA21+8~, IBECEA21+9*, IBECEA21+44*, IBECEA21+49, FR+3*, FR+4, FR+5, TO+15
>> IBGMTR FR+3*, FR+4*, FR+5*, TO+10, TO+15*
>> IBH IBECEA21+21, IBECEA21+23, IBECEA21+38, IBECEA21+39, TO+11, TO+19
IBLIM IBECEA21+29~, IBECEA21+33*, IBECEA21+43*
>> IBMED IBECEA21+49*, IBECEA21+51*, FR+5, TO+7
>> IBN IBECEA21+31
>> IBND IBECEA21+13, IBECEA21+17, IBECEA21+30, IBECEA21+31, IBECEA21+32, IBECEA21+35, IBECEA21+43
IBOCHG IBECEA21+29~, IBECEA21+32*, IBECEA21+38
IBODT IBECEA21+29~, IBECEA21+31*, IBECEA21+33, IBECEA21+38
IBOTIER IBECEA21+29~, IBECEA21+30*, IBECEA21+35, IBECEA21+38
IBSTOPDA IBECEA21+8~, IBECEA21+17*, IBECEA21+18
>> IBTIER IBECEA21+35*, IBECEA21+38, IBECEA21+39
>> IBTO IBECEA21+13*, IBECEA21+34*, IBECEA21+39, TO+2, TO+3, TO+4, TO+5
>> IBTOP IBECEA21+43*, TO, TO+4
IBTYPE IBECEA21+8~, IBECEA21+18*
>> IBUNIT IBECEA21+13*, IBECEA21+38, IBECEA21+39, TO+3*, TO+4*, TO+7, TO+9
>> IBUNITP IBECEA21+13, IBECEA21+37, IBECEA21+38, IBECEA21+55, TO+4
IBX IBECEA21+20*, IBECEA21+29~, IBECEA21+36*
>> IBXA IBECEA21+12, IBECEA21+28, IBECEA21+43, IBECEA21+50, IBECEA21+51, IBECEA21+52, IBECEA21+55, IBECEA21+56, FR+4, FR+5
, FR+6, TO+5, TO+6, TO+7, TO+9
>> IBY IBECEA21+20, IBECEA21+21*, IBECEA21+22*, IBECEA21+23*, IBECEA21+33, IBECEA21+37, IBECEA21+38*, IBECEA21+39*, IBECEA21+46*, IBECEA21+47
, IBECEA21+52, FR, FR+4*, FR+5, FR+6*, TO, TO+8*, TO+16, TO+17*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All