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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBOMTE2

Package: Integrated Billing

Routine: IBOMTE2


Information

IBOMTE2 ;ALB/CPM-ESTIMATE MEANS TEST CHARGES (COPAY);17-DEC-91

Source Information

Source file <IBOMTE2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Integrated Billing 5 $$REDUCE^IBAGMT  COPAY^IBAUTL2  DED^IBAUTL3  (HDR,NOCOP)^IBOMTE1  ($$DAT1,PAUSE)^IBOUTL  
VA FileMan 1 (COMMA,YMD)^%DTC  

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: 1

Package Total Caller Graph
Integrated Billing 1 IBOMTE1  

Entry Points

Name Comments DBIA/ICR reference
WRITE ; Write out detail line for copayments.
COHDR ; Print copayment subheader.

External References

Name Field # of Occurrence
COMMA^%DTC IBOMTE2+29, WRITE+5
YMD^%DTC IBOMTE2+7, IBOMTE2+17
$$REDUCE^IBAGMT IBOMTE2+9, IBOMTE2+18
COPAY^IBAUTL2 IBOMTE2+17
DED^IBAUTL3 IBOMTE2+8
HDR^IBOMTE1 WRITE+1
NOCOP^IBOMTE1 IBOMTE2+26
$$DAT1^IBOUTL IBOMTE2+7, WRITE+3
PAUSE^IBOUTL WRITE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," ** NEW BILLING CLOCK TO BEGIN ON ",$$DAT1^IBOUTL(X)," **"
  • Line Location: IBOMTE2+7
Function Call: WRITE
  • Prompt: !?62,"----------",!
  • Line Location: IBOMTE2+27
Function Call: WRITE
  • Prompt: ?3,"Copayment amount reduced due to Patient's GMT Status"
  • Line Location: IBOMTE2+28
Function Call: WRITE
  • Prompt: ?61,X
  • Line Location: IBOMTE2+29
Function Call: WRITE
  • Prompt: !,$$DAT1^IBOUTL($P(IBA,"^")),?12,$$DAT1^IBOUTL($P(IBA,"^",2)),?26,$J($P(IBA,"^",3),3)
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: ?35,$J($P(IBA,"^",4),3),?44,$J($P(IBA,"^",5),3),?53,$J($P(IBA,"^",6),3)
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: ?61,X
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: !,"COPAYMENT CHARGES for ",$P($G(^DGCR(399.1,IBBS,0)),"^"),!,IBLINE
  • Line Location: COHDR+1
Function Call: WRITE
  • Prompt: !," Billing Dates",?27,"Inpt. Days",?45,"Clock Days"
  • Line Location: COHDR+2
Function Call: WRITE
  • Prompt: !," From To",?26,"1st Last",?44,"1st Last",?66,"Charge"
  • Line Location: COHDR+3
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: COHDR+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399.1 - [#399.1] COHDR+1

Label References

Name Line Occurrences
COHDR IBOMTE2+4, WRITE+1
WRITE IBOMTE2+16, IBOMTE2+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %H IBOMTE2+7*, IBOMTE2+17*
IBA IBOMTE2+16, IBOMTE2+21*, IBOMTE2+22*, IBOMTE2+23, WRITE+2, WRITE+3, WRITE+4, WRITE+5, WRITE+6!
>> IBBS COHDR+1
>> IBCHARG IBOMTE2+19*, IBOMTE2+20
>> IBCHG IBOMTE2+18*, IBOMTE2+19, IBOMTE2+20*, IBOMTE2+21, IBOMTE2+22
>> IBCHGT IBOMTE2+26, IBOMTE2+29, WRITE+2*
>> IBCLCT IBOMTE2+5*, IBOMTE2+6, IBOMTE2+8*, IBOMTE2+14*, IBOMTE2+15*, IBOMTE2+21, IBOMTE2+22
>> IBCLDAY IBOMTE2+5*, IBOMTE2+8*, IBOMTE2+10, IBOMTE2+11, IBOMTE2+13, IBOMTE2+14*, IBOMTE2+15*, IBOMTE2+21, IBOMTE2+22
>> IBCLDOL IBOMTE2+12, IBOMTE2+13*, IBOMTE2+19, IBOMTE2+20*
>> IBCLDT IBOMTE2+8*
>> IBDT IBOMTE2+17*, IBOMTE2+21, IBOMTE2+22
>> IBFCTR IBOMTE2+7, IBOMTE2+17
>> IBGMT IBOMTE2+9, IBOMTE2+18, IBOMTE2+28
>> IBI IBOMTE2+4*, IBOMTE2+7, IBOMTE2+14*, IBOMTE2+15*, IBOMTE2+17
>> IBLINE COHDR+1, COHDR+4
>> IBLOS IBOMTE2+4
>> IBMAX IBOMTE2+11*, IBOMTE2+12, IBOMTE2+19
>> IBMED IBOMTE2+9*, IBOMTE2+11
>> IBNH IBOMTE2+11
>> IBQUIT IBOMTE2+4, WRITE+1
>> IBTOT WRITE+2*
IOSL WRITE+1
>> X IBOMTE2+7, IBOMTE2+8, IBOMTE2+13*, IBOMTE2+14, IBOMTE2+17, IBOMTE2+29*, WRITE+5*
>> X2 IBOMTE2+29*, WRITE+5*
>> X3 IBOMTE2+29*, WRITE+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All