Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(351.81 - [#351.81] EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call