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

Package: Integrated Billing

Routine: IBAECB1


Information

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

Source Information

Source file <IBAECB1.m>

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()

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

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