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

Package: Integrated Billing

Routine: IBAECP


Information

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

Source Information

Source file <IBAECP.m>

Entry Points

Name Comments DBIA/ICR reference
ASKDEV ; Ask about output device and print the report (or run task)
RUNTASK ; Start Taskman job
ASKCLK(IBDFN,IBSHOW)
DATE
DATAGN ;Loop entry point
NOW()
ASKOFD ; Default - YES
ASKOEV ; Default - YES
LSTCLK
ASKDT(IBPRMT,IBDFLT) ;Date input
ASKPAT()
ASKPATQQ
ASKPHD ;Header
WRTPAT(IBDFN) ; Write patient's data

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: IBAECP+10
Function Call: WRITE
  • Prompt: !,"The report is not available at the patch IB*2.0*171"
  • Line Location: IBAECP+16
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDEV+3
Function Call: WRITE
  • Prompt: !
  • Line Location: RUNTASK+6
Function Call: WRITE
  • Prompt: !,"The user doesn't have LTC Billing Clock created"
  • Line Location: ASKCLK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCLK+11
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: ASKCLK+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCLK+15
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCLK+15
Function Call: WRITE
  • Prompt: " (",$$FMTE^XLFDT(Y),")"
  • Line Location: ASKCLK+28
Function Call: WRITE
  • Prompt: !,"Ending date must follow start date!",!
  • Line Location: DATAGN+13
Function Call: WRITE
  • Prompt: !,$P(^DPT(IBDFN,0),U)," has the following LTC Copay Clock",$S(IBCL>1:"s",1:""),!
  • Line Location: LSTCLK+1
Function Call: WRITE
  • Prompt: !?10,IBCNT,?15,$$FMTE^XLFDT(IBDT)
  • Line Location: LSTCLK+6
Function Call: WRITE
  • Prompt: ?28," - ",$$FMTE^XLFDT(IBDT2)
  • Line Location: LSTCLK+8
Function Call: WRITE
  • Prompt: ?48,$$EXTERNAL^DILFD(351.81,.05,"",$P(IBZ,"^",5))
  • Line Location: LSTCLK+9
Function Call: WRITE
  • Prompt: " (",$$FMTE^XLFDT(Y),")"
  • Line Location: ASKDT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPATQQ+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPATQQ+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPATQQ+5
Function Call: WRITE
  • Prompt: !,"Choose an LTC Patient:",!
  • Line Location: ASKPHD+2
Function Call: WRITE
  • Prompt: $P(IBZ,U)
  • Line Location: WRTPAT+5
Function Call: WRITE
  • Prompt: " ",?30,$$FMTE^XLFDT($P($P(IBZ,U,3),"."),"5MZ")
  • Line Location: WRTPAT+6
Function Call: WRITE
  • Prompt: " ",?55,$S(IBVET:$S(IBSC:"S/C",1:"NSC")_" VETERAN",1:"")
  • Line Location: WRTPAT+7
Function Call: WRITE
  • Prompt: " ",?68,$$FMTE^XLFDT($P($O(^IBA(351.81,"AE",IBDFN,""),-1),"."),"5MZ")
  • Line Location: WRTPAT+8

FileMan Files Accessed Via FileMan Db Call

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