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

Package: Integrated Billing

Routine: IBAECB1


Information

IBAECB1 ;WOIFO/AAT - LTC BILLING CLOCK INQUIRY ; 21-FEB-02

Source Information

Source file <IBAECB1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 $$EXTERNAL^DILFD  ^DIR  
Kernel 1 $$FMTE^XLFDT  

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 IBAECB  IBAECC  

Entry Points

Name Comments DBIA/ICR reference
REPORT ;Print the report to the current device
FRM(IBLBL,IBCUT) ;
DAT1(IBDAT) ;FM -> External date, like 12/25/2000
DAT2(IBDAT) ;FM -> External date, like OCT 25, 2001
LINE(IBC,IBN)
PERS(IBIEN) ;
FRDAYS ; Write the list of exempt days
PAUSE
CHKPAUSE ;Check pause
SCR()

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD REPORT+23, REPORT+25
^DIR PAUSE+4
$$FMTE^XLFDT DAT1+1, DAT2+1, FRDAYS+15, FRDAYS+16, FRDAYS+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Data not found..."
  • Line Location: REPORT+7
Function Call: WRITE
  • Prompt: !,"No patient data..."
  • Line Location: REPORT+8
Function Call: WRITE
  • Prompt: !,"Patient data not found... (",IBDFN,")"
  • Line Location: REPORT+9
Function Call: WRITE
  • Prompt: IBNAM,?48," ",$$DAT1(IBDOB),?62,IBVET
  • Line Location: REPORT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+17
Function Call: WRITE
  • Prompt: !,$$FRM("Facility Clock Number"),IBFTN
  • Line Location: REPORT+21
Function Call: WRITE
  • Prompt: !,$$FRM("LTC Copay Clock Status"),$$EXTERNAL^DILFD(351.81,.05,"",IBSTA)
  • Line Location: REPORT+23
Function Call: WRITE
  • Prompt: !,$$FRM("LTC Copay Clock Start Date"),$$DAT2($P(IBZ,U,3))
  • Line Location: REPORT+24
Function Call: WRITE
  • Prompt: ?56," Clock Status: ",$$EXTERNAL^DILFD(351.81,.05,"",IBSTA)
  • Line Location: REPORT+25
Function Call: WRITE
  • Prompt: !,$$FRM("LTC Copay Clock End Date "),$$DAT2($P(IBZ,U,4))
  • Line Location: REPORT+26
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+27
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+29
Function Call: WRITE
  • Prompt: !,$$FRM("Free Days Remaining"),+$P(IBZ,U,6)
  • Line Location: REPORT+30
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+33
Function Call: WRITE
  • Prompt: !,$$FRM("User Added Entry "),$$PERS($P(IBN4,U,1))
  • Line Location: REPORT+34
Function Call: WRITE
  • Prompt: !,$$FRM("Date Entry Added")
  • Line Location: REPORT+35
Function Call: WRITE
  • Prompt: ?55
  • Line Location: REPORT+36
Function Call: WRITE
  • Prompt: $$DAT2($P(IBN4,U,2))
  • Line Location: REPORT+37
Function Call: WRITE
  • Prompt: !,$$FRM("User Last Updated"),$$PERS($P(IBN4,U,3))
  • Line Location: REPORT+38
Function Call: WRITE
  • Prompt: !,$$FRM("Date Last Updated")
  • Line Location: REPORT+39
Function Call: WRITE
  • Prompt: ?55
  • Line Location: REPORT+40
Function Call: WRITE
  • Prompt: $$DAT2($P(IBN4,U,4))
  • Line Location: REPORT+41
Function Call: WRITE
  • Prompt: IBL
  • Line Location: LINE+4
Function Call: WRITE
  • Prompt: !,"Corrupted record of LTC clock ",IBCLK
  • Line Location: FRDAYS+2
Function Call: WRITE
  • Prompt: !,$$FRM("Days free of LTC copay")
  • Line Location: FRDAYS+8
Function Call: WRITE
  • Prompt: !,$$FRM("Days Not Subject To LTC Copay",0)
  • Line Location: FRDAYS+10
Function Call: WRITE
  • Prompt: "none"
  • Line Location: FRDAYS+11
Function Call: WRITE
  • Prompt: !?5,$J(IBN,2),?10,$$FMTE^XLFDT(IBA(IBN))
  • Line Location: FRDAYS+15
Function Call: WRITE
  • Prompt: ?30,$J(IBN,2),?35,$$FMTE^XLFDT(IBA(IBN))
  • Line Location: FRDAYS+16
Function Call: WRITE
  • Prompt: ?55,$J(IBN,2),?60,$$FMTE^XLFDT(IBA(IBN))
  • Line Location: FRDAYS+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHKPAUSE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKPAUSE+1
Routine Call
  • DIR
  • Line Location:
    • PAUSE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(351.81 - [#351.81] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(391 - [#391] REPORT+14
^DPT - [#2] REPORT+9, REPORT+13
^IBA(351.81 - [#351.81] REPORT+7, REPORT+10, REPORT+31, FRDAYS+2, FRDAYS+5, FRDAYS+7
^VA(200 - [#200] PERS+2

Label References

Name Line Occurrences
$$DAT1 REPORT+16
$$DAT2 REPORT+24, REPORT+26, REPORT+37, REPORT+41
$$FRM REPORT+23, REPORT+24, REPORT+26, REPORT+30, REPORT+34, REPORT+35, REPORT+38, REPORT+39, FRDAYS+10
$$PERS REPORT+34, REPORT+38
$$SCR REPORT+27, PAUSE
CHKPAUSE REPORT+33, REPORT+34, REPORT+37, REPORT+38, FRDAYS+14
FRDAYS REPORT+32
LINE REPORT+17, CHKPAUSE+1
PAUSE CHKPAUSE+1

Naked Globals

Name Field # of Occurrence
^( FRDAYS+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR PAUSE+1~, PAUSE+4!
DIR(0 PAUSE+4*
DIROUT PAUSE+1~
DIRUT PAUSE+1~
DTOUT PAUSE+1~
DUOUT PAUSE+1~, PAUSE+4
IBA FRDAYS+1~
IBA( FRDAYS+7*, FRDAYS+15, FRDAYS+16, FRDAYS+17
IBC LINE~, LINE+1*, LINE+3, FRDAYS+1~, FRDAYS+3*, FRDAYS+6*, FRDAYS+7, FRDAYS+11, FRDAYS+12
>> IBCLK REPORT+7, REPORT+10, REPORT+31, FRDAYS+2, FRDAYS+5, FRDAYS+7
IBCUT FRM~, FRM+1
IBDAT DAT1~, DAT1+1, DAT2~, DAT2+1
IBDFN REPORT+1~, REPORT+8*, REPORT+9, REPORT+13
IBDOB REPORT+1~, REPORT+12*, REPORT+16
IBDT1 REPORT+1~
IBDT2 REPORT+1~
IBFTN REPORT+1~, REPORT+20*
IBI FRDAYS+1~, FRDAYS+5*, FRDAYS+7, FRDAYS+13*, FRDAYS+15, FRDAYS+16, FRDAYS+17
IBIEN PERS~, PERS+1, PERS+2
IBJ PAUSE+1~, PAUSE+3*
IBL LINE~, LINE+3*, LINE+4
IBLBL FRM~, FRM+1*, FRM+2
IBN LINE~, LINE+2*, LINE+3, FRDAYS+1~, FRDAYS+15*, FRDAYS+16*, FRDAYS+17*
IBN4 REPORT+1~, REPORT+10*, REPORT+34, REPORT+37, REPORT+38, REPORT+41
IBNAM REPORT+1~, REPORT+11*, REPORT+16
IBPTZ REPORT+1~, REPORT+9*, REPORT+11, REPORT+12
IBQUIT REPORT+2~, REPORT+3*, REPORT+32, REPORT+33, REPORT+34, REPORT+37, REPORT+38, FRDAYS+13, FRDAYS+14, PAUSE+4*
, CHKPAUSE+1
IBSTA REPORT+1~, REPORT+22*, REPORT+23, REPORT+25
IBTAB REPORT+1~
IBV FRDAYS+1~, FRDAYS+12*, FRDAYS+13, FRDAYS+16, FRDAYS+17
IBVET REPORT+1~, REPORT+13*, REPORT+14*, REPORT+16
IBZ REPORT+1~, REPORT+7*, REPORT+8, REPORT+20, REPORT+22, REPORT+24, REPORT+26, REPORT+30, FRDAYS+1~, FRDAYS+2*
IOF CHKPAUSE+1
IOSL PAUSE+2, CHKPAUSE+1
IOSL2 PAUSE+1~, PAUSE+2*, PAUSE+3
IOST SCR
U REPORT+8, REPORT+11, REPORT+12, REPORT+13, REPORT+14, REPORT+20, REPORT+22, REPORT+24, REPORT+26, REPORT+30
, REPORT+34, REPORT+37, REPORT+38, REPORT+41, PERS+2, FRDAYS+5, FRDAYS+7
Y PAUSE+1~
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