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

Package: Integrated Billing

Routine: IBAECP1


Information

IBAECP1 ;WOIFO/AAT-LTC SINGLE PATIENT PROFILE ; 20-FEB-02

Source Information

Source file <IBAECP1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Integrated Billing 6 $$CLCK180^IBAECM2  $$LASTDT^IBAECU  $$INPINFO^IBAECU2  $$OUTPINFO^IBAECU3  $$PT^IBEFUNC  $$ACTNM^IBOUTL  
VA FileMan 3 (COMMA,NOW)^%DTC  $$EXTERNAL^DILFD  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBAECP  

Entry Points

Name Comments DBIA/ICR reference
STAT() ; Display bill number or status
HDR ; Print header.
MONNAM(IBM) ;Name of the month by number
CHKSTOP
CLKINFO ; Output short information about the clock
MONTOTAL
PAUSE(IBEND) ;
PRINT ; Print report from the temp. global
HLD(STAT) ; Return an 'on hold' status string
PRMON(IBDT) ;
REPORT ;
DAT(IBDT) ; Convert FM date to (mm/dd/yy) format.
EVENTS
FNDLTC

External References

Name Field # of Occurrence
COMMA^%DTC PRINT+28, MONTOTAL+14, MONTOTAL+17
NOW^%DTC PRINT+2
$$EXTERNAL^DILFD CLKINFO+10
^DIR PAUSE+6
$$CLCK180^IBAECM2 MONTOTAL+12
$$LASTDT^IBAECU MONTOTAL+9
$$INPINFO^IBAECU2 MONTOTAL+10
$$OUTPINFO^IBAECU3 MONTOTAL+11
$$PT^IBEFUNC PRINT+4
$$ACTNM^IBOUTL REPORT+29, PRINT+23, FNDLTC+4, EVENTS+26, EVENTS+32
$$FMTE^XLFDT PRINT+2, DAT+1, CLKINFO+16, CLKINFO+17, CLKINFO+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The patient has no LTC bills within the specified period"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,$$DAT(IBD),?18,"Start another LTC Copay Clock"
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,$$DAT(IBD),?18,"Expire another LTC Copay Clock"
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,$$DAT(IBD)
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: ?12,$$DAT($P(IBDZ,U,15))
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: ?24,$$ACTNM^IBOUTL(+$P(IBDZ,U,3))
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: ?54,$$STAT()
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: ?65,X
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !?5,"Charge Removal Reason: ",$S($D(^IBE(350.3,+$P(IBDZ,U,10),0)):$P(^(0),U),1:"UNKNOWN")
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: !,"LTC CHARGES FOR ",$$MONNAM(IBCURM)," ",IBCURY+1700
  • Line Location: PRMON+3
Function Call: WRITE
  • Prompt: !?65,"---------"
  • Line Location: MONTOTAL+3
Function Call: WRITE
  • Prompt: !?5,"Monthly LTC Copay Cap: "
  • Line Location: MONTOTAL+14
Function Call: WRITE
  • Prompt: ?25,X
  • Line Location: MONTOTAL+14
Function Call: WRITE
  • Prompt: ?63,X
  • Line Location: MONTOTAL+17
Function Call: WRITE
  • Prompt: !
  • Line Location: MONTOTAL+21
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?(80-$L(IBH)\2),IBH
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"From ",$$DAT(IBDT1)," through ",$$DAT(IBDT2)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?IOM-36,IBDTH,?IOM-9,"Page: ",IBPAG
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"BILL DATE BILL TO BILL TYPE",?55,"BILL # TOT CHARGE"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAUSE+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAUSE+7
Function Call: WRITE
  • Prompt: !,IEN,?10,IBN
  • Line Location: FNDLTC+5
Function Call: WRITE
  • Prompt: !,"Ready"
  • Line Location: FNDLTC+6
Function Call: WRITE
  • Prompt: !,"Corrupted record of LTC clock ",IBCLK
  • Line Location: CLKINFO+2
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: CLKINFO+8
Function Call: WRITE
  • Prompt: !?2,"LTC Copay Clock Start Date: ",$$DAT(IBDT1)
  • Line Location: CLKINFO+9
Function Call: WRITE
  • Prompt: ?50,"Clock Status: ",$$EXTERNAL^DILFD(351.81,.05,"",$P(IBZ,U,5))
  • Line Location: CLKINFO+10
Function Call: WRITE
  • Prompt: !?2,"LTC Copay Clock End Date: ",$S(IBDT2:$$DAT(IBDT2),1:"none")
  • Line Location: CLKINFO+11
Function Call: WRITE
  • Prompt: " none"
  • Line Location: CLKINFO+13
Function Call: WRITE
  • Prompt: !?5,$J(IBN,2),?10,$$FMTE^XLFDT(IBA(IBN))
  • Line Location: CLKINFO+16
Function Call: WRITE
  • Prompt: ?30,$J(IBN,2),?35,$$FMTE^XLFDT(IBA(IBN))
  • Line Location: CLKINFO+17
Function Call: WRITE
  • Prompt: ?55,$J(IBN,2),?60,$$FMTE^XLFDT(IBA(IBN))
  • Line Location: CLKINFO+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLKINFO+19
Function Call: WRITE
  • Prompt: !?5,"Monthly LTC Events:"
  • Line Location: EVENTS+21
Function Call: WRITE
  • Prompt: !?7,$$DAT(IBDAY),?30,$$ACTNM^IBOUTL($P(IBA(IBDAY,IBCNT),U,4))
  • Line Location: EVENTS+26
Function Call: WRITE
  • Prompt: " - ",?18,$$DAT($E(IBDAY,1,5)_$P(IBZ,U))
  • Line Location: EVENTS+30
Function Call: WRITE
  • Prompt: ?30,"ABSENT DAYS"
  • Line Location: EVENTS+31
Function Call: WRITE
  • Prompt: ?30,$$ACTNM^IBOUTL(+$P(IBZ,U,6))
  • Line Location: EVENTS+32
Routine Call
  • DIR
  • Line Location:
    • PAUSE+6

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)
^IB - [#350] REPORT+24, PRINT+20, FNDLTC+1, FNDLTC+2
^IB("AF" REPORT+23
^IB("AFDT" REPORT+21, REPORT+22
^IBA(351.81 - [#351.81] REPORT+9, REPORT+11, REPORT+13, CLKINFO+2, CLKINFO+7
^IBE(350.1 - [#350.1] PRINT+22
^IBE(350.21 - [#350.21] PRINT+27, PRINT+31, STAT+1
^IBE(350.3 - [#350.3] PRINT+31
^TMP($J REPORT+3, REPORT+34!, REPORT+35!, REPORT+36!, MONTOTAL+5!, MONTOTAL+6!, MONTOTAL+7!, EVENTS+3, EVENTS+6, EVENTS+9
, EVENTS+14, EVENTS+16

Label References

Name Line Occurrences
$$DAT PRINT+15, PRINT+16, PRINT+19, PRINT+21, HDR+4, CLKINFO+9, CLKINFO+11, EVENTS+26, EVENTS+30
$$HLD STAT+2
$$MONNAM PRMON+3
$$STAT PRINT+24
CHKSTOP PRINT+13, MONTOTAL+2, MONTOTAL+4, EVENTS+25, EVENTS+29
CLKINFO HDR+6
EVENTS MONTOTAL+18
HDR PRINT+6, CHKSTOP
MONTOTAL PRINT+14, PRINT+34
PAUSE PRINT+8, PRINT+35, CHKSTOP
PRINT REPORT+32
PRMON PRINT+18

Naked Globals

Name Field # of Occurrence
^( CLKINFO+7, EVENTS+6, EVENTS+16
^(0 REPORT+24, PRINT+31, FNDLTC+2, CLKINFO+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+1~, PRINT+2
DIR PAUSE+2~, PAUSE+6!
DIR("A" PAUSE+5*
DIR(0 PAUSE+4*
DIROUT PAUSE+2~
DIRUT PAUSE+2~
DTOUT PAUSE+2~
DUOUT PAUSE+2~, PAUSE+6
IBA CLKINFO+1~, EVENTS~
IBA( CLKINFO+7*, CLKINFO+16, CLKINFO+17, CLKINFO+18, EVENTS+7*, EVENTS+10*, EVENTS+17*, EVENTS+19*, EVENTS+22, EVENTS+23
, EVENTS+24, EVENTS+26, EVENTS+28
IBAT REPORT+1~, REPORT+28*, REPORT+29
IBC CLKINFO+1~, CLKINFO+5*, CLKINFO+7*, CLKINFO+13, CLKINFO+14
IBCAP MONTOTAL~, MONTOTAL+12*, MONTOTAL+14, MONTOTAL+16
IBCHG PRINT+1~, PRINT+3*, PRINT+25*, PRINT+26*, PRINT+27*, PRINT+28, PRINT+29, PRINT+30
IBCIS PRINT+1~, PRINT+5*, HDR+6*
IBCL REPORT+1~, REPORT+10*, REPORT+11*, REPORT+12, REPORT+13, REPORT+15, REPORT+17
>> IBCLK REPORT+12, CLKINFO+2, CLKINFO+7
IBCNT EVENTS~, EVENTS+15*, EVENTS+18*, EVENTS+19, EVENTS+24*, EVENTS+26
IBCR REPORT+1~, REPORT+22*, REPORT+23, EVENTS~, EVENTS+5*, EVENTS+7*, EVENTS+10, EVENTS+11*
IBCURM PRINT+1~, PRINT+9*, PRINT+14, PRINT+18, PRMON+1*, PRMON+3, MONTOTAL+8, MONTOTAL+19*
IBCURY PRINT+1~, PRINT+9*, PRINT+14, PRMON+2*, PRMON+3, MONTOTAL+8
IBD PRINT+1~, PRINT+11*, PRINT+12, PRINT+14, PRINT+15, PRINT+16, PRINT+18, PRINT+19
IBDA REPORT+1~, REPORT+23*, REPORT+24, REPORT+30, PRINT+1~, PRINT+20*
IBDAY EVENTS~, EVENTS+6*, EVENTS+7, EVENTS+9, EVENTS+10, EVENTS+14*, EVENTS+16, EVENTS+17, EVENTS+19, EVENTS+22*
, EVENTS+23, EVENTS+24, EVENTS+26, EVENTS+28, EVENTS+30
>> IBDFN REPORT+9, REPORT+11, REPORT+21, REPORT+22, PRINT+4, MONTOTAL+10, MONTOTAL+11, MONTOTAL+12, EVENTS+3, EVENTS+6
, EVENTS+9, EVENTS+14, EVENTS+16
IBDT REPORT+1~, REPORT+8*, REPORT+9*, REPORT+11, REPORT+15, REPORT+21*, REPORT+22, PRMON~, PRMON+1, PRMON+2
, DAT~, DAT+1
IBDT1 REPORT+15, REPORT+17, REPORT+26, HDR+4, CLKINFO+1~, CLKINFO+3*, CLKINFO+9
IBDT2 REPORT+8, REPORT+15, REPORT+17, REPORT+21, REPORT+27, HDR+4, CLKINFO+1~, CLKINFO+4*, CLKINFO+11
IBDTE REPORT+1~, REPORT+16*, REPORT+17
IBDTH REPORT+1~, PRINT+2*, HDR+5
IBDTM1 MONTOTAL~, MONTOTAL+8*, MONTOTAL+9, MONTOTAL+10, MONTOTAL+11, MONTOTAL+12
IBDTM2 MONTOTAL~, MONTOTAL+9*, MONTOTAL+10, MONTOTAL+11, MONTOTAL+12
IBDZ PRINT+1~, PRINT+20*, PRINT+21, PRINT+22, PRINT+23, PRINT+25, PRINT+27, PRINT+31, STAT+1, STAT+2
IBENC EVENTS~, EVENTS+16*
IBEND PAUSE~, PAUSE+5, PAUSE+7
IBH PRINT+1~, PRINT+6*, HDR+3
IBI HDR+1~, HDR+8*, CLKINFO+1~, CLKINFO+7*, CLKINFO+15*, CLKINFO+16, CLKINFO+17, CLKINFO+18
IBJ PAUSE+2~
IBLINE PRINT+1~, PRINT+3*, CLKINFO+8
IBM MONNAM~, MONNAM+1
IBMOV EVENTS~, EVENTS+3*, EVENTS+6, EVENTS+9
IBN FNDLTC~, FNDLTC+4*, FNDLTC+5, CLKINFO+1~, CLKINFO+16*, CLKINFO+17*, CLKINFO+18*
IBNDX EVENTS~, EVENTS+2*, EVENTS+3, EVENTS+6, EVENTS+9, EVENTS+13*, EVENTS+14, EVENTS+16
>> IBOEV MONTOTAL+18
>> IBOFD CLKINFO+12
IBPAG PRINT+1~, PRINT+3*, HDR+2, HDR+3*, HDR+5
IBPT PRINT+1~, PRINT+4*, PRINT+6
>> IBQUIT REPORT+2*, PRINT+3*, PRINT+11, PRINT+12, PRINT+13, PRINT+33, CHKSTOP, MONTOTAL+2, MONTOTAL+4, PAUSE+6*
, EVENTS+22, EVENTS+24, EVENTS+25, EVENTS+29
IBSEQ PRINT+1~, PRINT+20*, PRINT+22*, PRINT+26, PRINT+31
IBSL EVENTS~, EVENTS+4*, EVENTS+6, EVENTS+7, EVENTS+9
IBSTAT STAT+1~*, STAT+2
IBTMP REPORT+1~, REPORT+3*, REPORT+4, REPORT+15, REPORT+17, REPORT+30, REPORT+33, PRINT+8, PRINT+11, PRINT+12
IBTOT PRINT+1~, PRINT+3*, PRINT+29*
IBTOTM PRINT+1~, PRINT+3*, PRINT+18*, PRINT+30*, MONTOTAL+17
IBTOTP PRINT+1~, PRINT+3*, PRINT+32*, MONTOTAL+1, MONTOTAL+20*
IBTY PRINT+1~, PRINT+12*, PRINT+15, PRINT+16, PRINT+20
IBV CLKINFO+1~, CLKINFO+14*, CLKINFO+15, CLKINFO+17, CLKINFO+18
IBX REPORT+1~, REPORT+24*, REPORT+26, REPORT+27, REPORT+28, REPORT+30, FNDLTC~, FNDLTC+2*, FNDLTC+4
IBZ REPORT+1~, REPORT+13*, REPORT+14, REPORT+16, CLKINFO+1~, CLKINFO+2*, CLKINFO+3, CLKINFO+4, CLKINFO+10, EVENTS~
, EVENTS+6*, EVENTS+7, EVENTS+16*, EVENTS+19, EVENTS+28*, EVENTS+30, EVENTS+31, EVENTS+32
IBZCR EVENTS~, EVENTS+11*
IEN FNDLTC~, FNDLTC+1*, FNDLTC+2, FNDLTC+5
IOF HDR+2, PAUSE+6, PAUSE+7
IOM PRINT+3, HDR+5
IOSL CHKSTOP
IOST HDR+2, PAUSE+1
STAT HLD~, HLD+1
U REPORT+14, REPORT+16, REPORT+26, REPORT+27, REPORT+28, REPORT+30, PRINT+6, PRINT+21, PRINT+22, PRINT+23
, PRINT+25, PRINT+27, PRINT+31, MONTOTAL+16, STAT+1, STAT+2, FNDLTC+4, CLKINFO+3, CLKINFO+4, CLKINFO+7
, CLKINFO+10, EVENTS+6, EVENTS+7, EVENTS+10, EVENTS+16, EVENTS+26, EVENTS+30, EVENTS+31, EVENTS+32
X PRINT+1~, PRINT+28*, MONTOTAL~, MONTOTAL+14*, MONTOTAL+17*
X2 PRINT+1~, PRINT+28*, MONTOTAL~, MONTOTAL+14*, MONTOTAL+17*
X3 PRINT+1~, PRINT+28*, MONTOTAL~, MONTOTAL+14*, MONTOTAL+17*
Y PRINT+1~, PAUSE+2~
>> ZTQUEUED REPORT+37
>> ZTREQ REPORT+37*
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