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 |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 5 ^%DT  NOW^%DTC  ^DIC  $$EXTERNAL^DILFD  ^DIR  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
Integrated Billing 1 REPORT^IBAECP1  

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

Package Total Caller Graph
Integrated Billing 3 IBAEC LTC BILLING PROFILE  IBAECB  IBAECC  

Entry Points

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

External References

Name Field # of Occurrence
^%DT ASKCLK+26
NOW^%DTC NOW+1
^%ZIS ASKDEV+3
HOME^%ZIS IBAECP+4, RUNTASK+6
^%ZISC ASKDEV+7
^%ZTLOAD RUNTASK+4
^DIC ASKPAT+18
$$EXTERNAL^DILFD LSTCLK+9, WRTPAT+7
^DIR ASKCLK+22, ASKOFD+3, ASKOEV+3, ASKDT+5, ASKPAT+11, ASKPATQQ+6
REPORT^IBAECP1 ASKDEV+6
$$FMTE^XLFDT ASKCLK+19, ASKCLK+28, LSTCLK+6, LSTCLK+8, ASKDT+3, ASKDT+6, WRTPAT+6, WRTPAT+9

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+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPATQQ+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPATQQ+6
Function Call: WRITE
  • Prompt: $J(IBCNT,4)," ",?6
  • Line Location: ASKPATQQ+8
Function Call: WRITE
  • Prompt: !,"Choose an LTC Patient:",!
  • Line Location: ASKPHD+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ASKPHD+5
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: " ",?42,$$SSN($$EXTERNAL^DILFD(2,.09,"",$P(IBZ,U,9)))
  • Line Location: WRTPAT+7
Function Call: WRITE
  • Prompt: " ",?55,$S(IBVET:$S(IBSC:"S/C",1:"NSC")_" VETERAN",1:"")
  • Line Location: WRTPAT+8
Function Call: WRITE
  • Prompt: " ",?68,$$FMTE^XLFDT($P($O(^IBA(351.81,"AE",IBDFN,""),-1),"."),"5MZ")
  • Line Location: WRTPAT+9
Routine Call
  • %ZIS
  • Line Location:
    • IBAECP+4
    • RUNTASK+6
Routine Call
  • DIC
  • Line Location:
    • ASKPAT+18
Routine Call
  • DIR
  • Line Location:
    • ASKCLK+22
    • ASKOFD+3
    • ASKOEV+3
    • ASKDT+5
    • ASKPAT+11
    • ASKPATQQ+6
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  EXTERNAL^DILFD
^IBA(351.81 - [#351.81] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] LSTCLK+1, WRTPAT+2, WRTPAT+3, WRTPAT+4
^IBA(351.81 - [#351.81] ASKCLK+1, ASKCLK+5, ASKCLK+6, DATAGN+3, DATAGN+7, LSTCLK+5, ASKPATQQ+4, WRTPAT+9

Label References

Name Line Occurrences
$$ASKCLK IBAECP+13
$$ASKDT DATAGN+4, DATAGN+11
$$ASKPAT IBAECP+11
$$NOW DATAGN+8
$$SSN WRTPAT+7
ASKDEV IBAECP+20
ASKOEV IBAECP+19
ASKOFD IBAECP+18
ASKPHD ASKPATQQ+1
DATAGN DATAGN+13
DATE IBAECP+17
LSTCLK ASKCLK+11, ASKCLK+15
RUNTASK ASKDEV+5
WRTPAT ASKPATQQ+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOW~
%DT IBAECP+9~, ASKCLK+26*, DATE~
%H NOW~
%I NOW~
%ZIS ASKDEV+1~, ASKDEV+2*
DIC IBAECP+9~, ASKPAT~, ASKPAT+14*, ASKPATQQ~
DIC("S" ASKPAT+15*
DIC("W" ASKPAT+16*
DIC(0 ASKPAT+14*
DIR ASKCLK~, ASKCLK+16!, ASKOFD+1~, ASKOEV+1~, ASKDT+1~, ASKPAT~, ASKPATQQ~
DIR("?" ASKCLK+20*, ASKPAT+4*, ASKPAT+5*, ASKPAT+6*, ASKPAT+7*, ASKPAT+8*, ASKPAT+9*
DIR("??" ASKCLK+21*, ASKPAT+10*
DIR("A" ASKCLK+18*, ASKOFD+2*, ASKOEV+2*, ASKDT+2*, ASKPAT+2*
DIR("B" ASKCLK+19*, ASKOFD+2*, ASKOEV+2*, ASKDT+3*
DIR(0 ASKCLK+17*, ASKOFD+2*, ASKOEV+2*, ASKDT+4*, ASKPAT+3*, ASKPATQQ+6*
DIROUT ASKDT+1~, ASKPATQQ~
DIRUT ASKCLK~, ASKCLK+13, ASKCLK+16!, ASKCLK+22, ASKCLK+27, ASKDT+1~, ASKDT+5, ASKPAT+1, ASKPAT+11, ASKPAT+21
, ASKPATQQ~, ASKPATQQ+4, ASKPATQQ+6
DPTNOFZY ASKPAT+17~*
DTIME IBAECP+4*
DTOUT ASKOEV+4, ASKPATQQ~
DUOUT ASKOFD+1~, ASKOFD+4, ASKOEV+1~, ASKOEV+4, ASKPATQQ~
IBCL ASKCLK~, ASKCLK+4*, ASKCLK+8*, ASKCLK+11, ASKCLK+18, ASKCLK+24, LSTCLK+1
IBCL( ASKCLK+7*, ASKCLK+11, ASKCLK+13, ASKCLK+25, ASKCLK+29, LSTCLK+3, LSTCLK+4
IBCL("" ASKCLK+11, ASKCLK+19
IBCLK IBAECP+9~, IBAECP+13*, ASKCLK~, ASKCLK+5*, ASKCLK+11*, DATAGN+3, DATAGN+7
IBCNT ASKCLK~, LSTCLK~, LSTCLK+2*, LSTCLK+5*, LSTCLK+6, ASKPATQQ~, ASKPATQQ+2*
IBDFLT ASKDT~, ASKDT+3
IBDFN IBAECP+9~, IBAECP+11*, IBAECP+13, ASKCLK~, ASKCLK+1, ASKCLK+5, ASKCLK+6, LSTCLK+1, ASKPAT~, ASKPATQQ~
, ASKPATQQ+4*, ASKPATQQ+9, WRTPAT~, WRTPAT+2, WRTPAT+3, WRTPAT+4, WRTPAT+9
IBDT ASKCLK~, ASKCLK+5*, ASKCLK+6, ASKCLK+7, DATE~, DATAGN+3*, DATAGN+4, DATAGN+7*, DATAGN+9*, DATAGN+10*
, DATAGN+11, LSTCLK~, LSTCLK+3*, LSTCLK+4, LSTCLK+6
IBDT1 IBAECP+9~, IBAECP+17, DATAGN+1*, DATAGN+4*, DATAGN+5, DATAGN+12*, DATAGN+13
IBDT2 IBAECP+9~, ASKCLK~, DATAGN+1*, DATAGN+11*, DATAGN+12, DATAGN+13, LSTCLK~, LSTCLK+7*, LSTCLK+8
IBI ASKCLK~, ASKCLK+25*, ASKPATQQ~, ASKPATQQ+2*, ASKPATQQ+5*, ASKPATQQ+6*, ASKPHD+1~
IBN SSN~, SSN+1, SSN+2
IBNOW DATE~, DATAGN+8*, DATAGN+9, DATAGN+10
IBOEV IBAECP+9~, IBAECP+19, ASKOEV+4*
IBOFD IBAECP+9~, IBAECP+18, ASKOFD+4*
IBPRMT ASKDT~, ASKDT+2
IBQUIT IBAECP+7~, IBAECP+8*, IBAECP+11*, IBAECP+13*, IBAECP+17*, IBAECP+18*, IBAECP+19*
IBSC WRTPAT+1~, WRTPAT+3*, WRTPAT+8
IBSHOW ASKCLK~, ASKCLK+15
IBVAR RUNTASK+1~, RUNTASK+3*
IBVET WRTPAT+1~, WRTPAT+4*, WRTPAT+8
IBX ASKCLK~, ASKCLK+6*, ASKCLK+7, LSTCLK+4*, LSTCLK+5
IBY ASKCLK~, ASKCLK+24, ASKCLK+25*
IBZ ASKCLK~, LSTCLK~, LSTCLK+5*, LSTCLK+7, LSTCLK+9, WRTPAT+1~, WRTPAT+2*, WRTPAT+5, WRTPAT+6, WRTPAT+7
IO ASKDEV+6
IO("Q" ASKDEV+5, RUNTASK+5!
IOSL ASKPATQQ+6
POP IBAECP+7~, ASKDEV+3
U DATAGN+3, DATAGN+7, LSTCLK+1, LSTCLK+7, WRTPAT+3, WRTPAT+4, WRTPAT+5, WRTPAT+6, WRTPAT+7
X IBAECP+9~, NOW~, NOW+2, ASKDT+1~, ASKPAT~, ASKPAT+12*, ASKPAT+13*, ASKPATQQ~
Y IBAECP+9~, ASKCLK~, ASKCLK+12!, ASKCLK+13, ASKCLK+15, ASKCLK+24*, ASKCLK+25, ASKCLK+28, ASKCLK+29, DATE~
, ASKOFD+1~, ASKOFD+4, ASKOEV+1~, ASKOEV+4, ASKDT+1~, ASKDT+6, ASKDT+7, ASKPAT~, ASKPAT+1, ASKPAT+12
, ASKPAT+18, ASKPAT+19*, ASKPAT+22, ASKPATQQ~
Y0 ASKDT+1~
ZTDESC RUNTASK+1~, RUNTASK+2*
ZTRTN RUNTASK+1~, RUNTASK+2*
ZTSAVE RUNTASK+1~
ZTSAVE( RUNTASK+3*
ZTSK RUNTASK+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 |  Local Variables |  All