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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBOCDRPT

Package: Integrated Billing

Routine: IBOCDRPT


Information

IBOCDRPT ;ELZ/OAK - CATASTROPHICALLY DISABLED PATIENT BILLING ;03/21/2011

Source Information

Source file <IBOCDRPT.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  MES^XPDUTL  
Accounts Receivable 1 ($$BILL,DIQ)^RCJIBFN2  
Integrated Billing 1 DATE^IBOUTL  
Registration 1 $$GET^DGENCDA  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IB CD CHARGE REPORT  IB20P449  

Entry Points

Name Comments DBIA/ICR reference
EN ; - this will produce a report of patient's with charges that are CD.
DQ
EXIT
LTCCHK(IBZ) ; Check for all LTC Action Types. Return 1 if Action Type is LTC, 0 if not.
HEAD ;

External References

Name Field # of Occurrence
^%ZIS EN+12
HOME^%ZIS EN+16
^%ZISC DQ+47
^%ZTLOAD EN+16
$$GET^DGENCDA DQ+11
^DIR HEAD+2
DATE^IBOUTL EN+7
$$BILL^RCJIBFN2 DQ+13
DIQ^RCJIBFN2 DQ+15
$$FMTE^XLFDT DQ+32, DQ+33, DQ+42
MES^XPDUTL EN+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The Catastrophically Disabled legislation effective date is May 5, 2010."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"You should not enter a date prior to that date, any date entered before"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"that will be automatically changed to May 5, 2010."
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"Select the device for the Catastrophically Disabled Charge report. It"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"should be queued to a printer off hours as it can take some time to run"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"with at least a margin of 132 columns."
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,$E($P(IBDPT,"^"),1,20)
  • Line Location: DQ+30
Function Call: WRITE
  • Prompt: ?22,$E($P(IBDPT,"^",9),6,9)
  • Line Location: DQ+31
Function Call: WRITE
  • Prompt: ?27,$$FMTE^XLFDT($G(IBDG("DATE")),"2DZ")
  • Line Location: DQ+32
Function Call: WRITE
  • Prompt: ?36,$$FMTE^XLFDT(IBDT,"2DZ")
  • Line Location: DQ+33
Function Call: WRITE
  • Prompt: ?57,$E($P($G(^IBE(350.1,+$P(IBZ,"^",3),0)),"^"),1,9)
  • Line Location: DQ+35
Function Call: WRITE
  • Prompt: ?67,$E($P($P(IBZ,"^",11),"-",2),1,8)
  • Line Location: DQ+36
Function Call: WRITE
  • Prompt: ?76,$E($P($G(^IBE(350.21,+$P(IBZ,"^",5),0)),"^"),1,8)
  • Line Location: DQ+37
Function Call: WRITE
  • Prompt: ?85,$J($FN($P(IBARBILL,"^",3),"",2),7)
  • Line Location: DQ+38
Function Call: WRITE
  • Prompt: ?93,$J($FN($G(IBARDATA(430,IBARX,77,"E")),"",2),7)
  • Line Location: DQ+39
Function Call: WRITE
  • Prompt: ?101,$J($FN($G(IBARDATA(430,IBARX,78,"E")),"",2),5)
  • Line Location: DQ+40
Function Call: WRITE
  • Prompt: ?107,$J($FN($G(IBARDATA(430,IBARX,79,"E")),"",2),5)
  • Line Location: DQ+41
Function Call: WRITE
  • Prompt: ?113,$$FMTE^XLFDT($G(IBARDATA(430,IBARX,141,"I")),"2DZ")
  • Line Location: DQ+42
Function Call: WRITE
  • Prompt: ?122,$E($G(IBARDATA(430,IBARX,203,"E")),1,6)
  • Line Location: DQ+43
Function Call: WRITE
  • Prompt: ?129,$E($G(IBARDATA(430,IBARX,255.1,"E")),1,4)
  • Line Location: DQ+44
Function Call: WRITE
  • Prompt: @IOF,!,"Catastrophically Disabled Copayment Charge Report PAGE: ",IBP,!
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: "PATIENT SSN CD DATE DOS RX TYPE BILL NO STATUS BALANCE PD PRIN INT ADM TOP FUND RSC",!
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+6
Routine Call
  • %ZIS
  • Line Location:
    • EN+12
Routine Call
  • %ZIS
  • Line Location:
    • EN+16
Routine Call
  • DIR
  • Line Location:
    • HEAD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DQ+29
^IB - [#350] DQ+8
^IB("D" DQ+7
^IBE(350.1 - [#350.1] DQ+35, LTCCHK+2
^IBE(350.21 - [#350.21] DQ+37
^PRCA(430 - [#430] DQ+12

Label References

Name Line Occurrences
$$LTCCHK DQ+27
HEAD DQ+5, DQ+45

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN+2~
%DT("B" EN+6*
%DT(0 EN+6*
%ZIS EN+2~, EN+12*
DFN DQ+2~, DQ+8*, DQ+11, DQ+29
DIR HEAD+1~
DIR(0 HEAD+2*
DIROUT HEAD+1~
DIRUT HEAD+1~, HEAD+2
DTOUT HEAD+1~
DUOUT HEAD+1~
IBARBILL DQ+2~, DQ+13*, DQ+20, DQ+38
IBARDATA DQ+2~, DQ+14!
IBARDATA(430 DQ+39, DQ+40, DQ+41, DQ+42, DQ+43, DQ+44
IBARX DQ+2~, DQ+12*, DQ+13, DQ+15, DQ+20, DQ+39, DQ+40, DQ+41, DQ+42, DQ+43
, DQ+44
IBBDT EN+2~, DQ+6*, DQ+7, DQ+24
IBDDT DQ+2~, DQ+7*, DQ+9
IBDG DQ+2~, DQ+10!, DQ+11*
IBDG("DATE" DQ+22, DQ+32
IBDG("VCD" DQ+18
IBDPT DQ+2~, DQ+29*, DQ+30, DQ+31
IBDT DQ+2~, DQ+9*, DQ+18, DQ+22, DQ+24, DQ+33
IBEDT EN+2~, EN+7, DQ+24
IBL HEAD+1~, HEAD+6*
IBLTCNM LTCCHK+1~, LTCCHK+2*, LTCCHK+3, LTCCHK+4, LTCCHK+5, LTCCHK+6, LTCCHK+7
IBP DQ+2~, DQ+4*, HEAD+2, HEAD+3*, HEAD+4
IBQUIT DQ+2~, DQ+4*, DQ+7, HEAD+2*
IBX DQ+2~, DQ+7*, DQ+8
IBZ DQ+2~, DQ+8*, DQ+9, DQ+12, DQ+18, DQ+27, DQ+34, DQ+35, DQ+36, DQ+37
, LTCCHK~, LTCCHK+2
IO DQ
IO("Q" EN+13, EN+16!
IOF HEAD+4
IOM HEAD+6
IOSL DQ+45
IOST HEAD+2
POP EN+2~, EN+12
X HEAD+1~
Y HEAD+1~
ZTDESC EN+2~, EN+14*
>> ZTQUEUED EXIT
>> ZTREQ EXIT*
ZTRTN EN+2~, EN+14*
ZTSAVE EN+2~
ZTSAVE("IBBDT" EN+15*
ZTSAVE("IBEDT" EN+15*
ZTSK EN+2~, EN+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All