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

Package: Integrated Billing

Routine: IBCERP2


Information

IBCERP2 ;ALB/CXW - ELECTRONIC ERROR REPORT ; 3/13/07 1:14pm

Source Information

Source file <IBCERP2.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Integrated Billing 4 $$POLICY^IBCEF  $$CURR^IBCEF2  $$MCRWNR^IBEFUNC  $$DAT1^IBOUTL  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTE^XLFDT  
VA FileMan 3 ^%DT  ^DIC  ^DIR  
Accounts Receivable 1 $$BN1^PRCAFN  

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

Package Total Caller Graph
Integrated Billing 1 IBCE ELECTRONIC ERROR REPORT  

Entry Points

Name Comments DBIA/ICR reference
EN ; Queued job entrypoint
ST2
HDR1 ;
LIST ;display
BEG ; Report of electronic error
EN0
BDT
EDT
BEGQ

External References

Name Field # of Occurrence
^%DT BDT+1, EDT+1
^%ZIS ST2+9
HOME^%ZIS ST2+16
^%ZISC BEGQ+2
^%ZTLOAD ST2+16
^DIC EDT+10, EDT+16
^DIR BEG+6, EDT+7, EN0+3, ST2+2, LIST+50, HDR1+3
$$POLICY^IBCEF EN+23
$$CURR^IBCEF2 EN+19
$$MCRWNR^IBEFUNC EN+19, EN+23
$$DAT1^IBOUTL LIST+14, LIST+16, HDR1+7
$$BN1^PRCAFN LIST+16
$$HTE^XLFDT HDR1+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7," ??",!,"END DATE must follow BEGIN DATE."
  • Line Location: EDT+4
Function Call: WRITE
  • Prompt: "ALL"
  • Line Location: EDT+12
Function Call: WRITE
  • Prompt: !,IB0
  • Line Location: EN0+5
Function Call: WRITE
  • Prompt: !,IB0
  • Line Location: ST2+4
Function Call: WRITE
  • Prompt: !,"SECONDARY SORT must be different from PRIMARY SORT."
  • Line Location: ST2+6
Function Call: WRITE
  • Prompt: !,"No entries found for this report"
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: "EPISODE OF CARE: "_$$DAT1^IBOUTL($P(IB,U,11)),!
  • Line Location: LIST+14
Function Call: WRITE
  • Prompt: $$BN1^PRCAFN(+IB),?13,$P(IB,U,4),?25,$E($P(IB,U,6),1,20),?50,$$DAT1^IBOUTL($P(IB,U,10)),?61,$$DAT1^IBOUTL($P(IB,U,9)),?71,$J(-$P(IB,U,2),0,2),!
  • Line Location: LIST+16
Function Call: WRITE
  • Prompt: "PATIENT: "_$P(IB,U,5),!!
  • Line Location: LIST+17
Function Call: WRITE
  • Prompt: $E(IBX,IBY,IBY+79),!
  • Line Location: LIST+24
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+26
Function Call: WRITE
  • Prompt: ?11,$G(^IBM(361.1,1,IBCOD,"ERR",IB0,0)),!
  • Line Location: LIST+35
Function Call: WRITE
  • Prompt: "SUBTOTAL # OF BILLS FOR "_IBFST_"= ",IBSO1,!!
  • Line Location: LIST+40
Function Call: WRITE
  • Prompt: !,"TOTAL # OF MEDICARE (WNR) BILLS = ",IBWNR
  • Line Location: LIST+44
Function Call: WRITE
  • Prompt: !,"TOTAL # OF EDI BILLS = ",IBWR
  • Line Location: LIST+47
Function Call: WRITE
  • Prompt: !,"GRAND TOTAL # OF BILLS = ",IBSO2
  • Line Location: LIST+49
Function Call: WRITE
  • Prompt: !
  • Line Location: BEGQ+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !,?25,"ELECTRONIC ERROR REPORT",?72,"PAGE: ",IBPAGE,!,?25,"RUN DATE: ",$$HTE^XLFDT($H,"2")
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: !,?25,"DATE TRANSMITTED: ",$$DAT1^IBOUTL(IBBDD)_" - "_$$DAT1^IBOUTL(IBEDT)
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: !,?25,"BILL TRANSMISSION TYPE: ",$S(IBTYE="E":"EDI",IBTYE="M":"MRA",1:"EDI/MRA")
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: !,?25,"SORT BY: "_IBST3_", "_IBST4
  • Line Location: HDR1+9
Function Call: WRITE
  • Prompt: !,$S(IBST1="A":"AUTHORIZING BILLER: ",1:"PATIENT NAME: "),$G(IBFST)
  • Line Location: HDR1+10
Function Call: WRITE
  • Prompt: !,?61,"DATE OF"
  • Line Location: HDR1+11
Function Call: WRITE
  • Prompt: !,?51,"DATE OF",?62,"LAST",?71,"BILLED"
  • Line Location: HDR1+12
Function Call: WRITE
  • Prompt: !,"BILL NUMBER",?13,"SSN",?25,"PAYER NAME",?50,"REJECTION",?61,"TRANSMIT",?71,"AMOUNT"
  • Line Location: HDR1+13
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: HDR1+14
Routine Call
  • %ZIS
  • Line Location:
    • ST2+16
Routine Call
  • DIC
  • Line Location:
    • EDT+10
    • EDT+16
Routine Call
  • DIR
  • Line Location:
    • BEG+6
    • EDT+7
    • EN0+3
    • ST2+2
    • LIST+50
    • HDR1+3
Routine Call
  • %ZIS
  • Line Location:
    • ST2+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] EN+3, EN+5, EN+11, EN+13, EN+15, EN+18
^DGPM - [#405] EN+9
^DIC(36 - [#36] EN+19
^DPT - [#2] EN+9, EN+13
^IBM(361 - [#361] EN+20, EN+21, EN+27, LIST+20, LIST+21, LIST+31
^IBM(361.1 - [#361.1] LIST+28, LIST+29, LIST+32, LIST+34, LIST+35
^TMP($J EDT+13*, EDT+19*, EN+12, EN+30*, LIST+3, LIST+6, LIST+9, BEGQ!
^VA(200 - [#200] EN+14

Label References

Name Line Occurrences
BDT EDT+4
BEGQ BDT+1, EDT+1, EDT+20, EN0+4, ST2+3, ST2+10, LIST+3, LIST+41, LIST+42, LIST+45
, LIST+48
EDT EDT+1
EN0 EDT+12, EN0+5
HDR1 LIST+4, LIST+7, LIST+18, LIST+23, LIST+36, LIST+39, LIST+43, LIST+46, LIST+48
ST2 ST2+4, ST2+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BEG+1~, BDT*, BDT+1!, EDT*, EDT+1!
%DT("A" BDT*
%ZIS ST2+8~, ST2+9*
DIC BEG+1~, EDT+10*, EN0!
DIC("A" EDT+10*, EDT+14*
DIC(0 EDT+10*
DIR BEG+1~, BEG+6!, EDT+7!, EN0+3!, ST2+2!, LIST+50!, HDR1+1~, HDR1+3!
DIR("?" BEG+5*, EDT+6*, EN0+2*, ST2+1*
DIR("A" BEG+4*, EDT+5*, EN0+1*, ST2*
DIR("B" BEG+4*
DIR(0 BEG+4*, EDT+5*, EN0+1*, ST2*, LIST+50*, HDR1+3*
DIROUT BEG+1~
DIRUT BEG+1~
DTIME EDT
DTOUT BEG+1~, BEG+7, BDT+2, EDT+2, EDT+8, EDT+11, EDT+17, EDT+20, EN0+4, ST2+3
DUOUT BEG+1~, BEG+7, BDT+2, EDT+2, EDT+8, EDT+11, EDT+17, EDT+20, EN0+4, ST2+3
IB EN+1~, EN+20*, EN+21, EN+27, EN+30, LIST+9*, LIST+11, LIST+14, LIST+15, LIST+16
, LIST+17, LIST+28
IB0 BEG+2~, BEG+3*, EN0+5, ST2+4, LIST+20*, LIST+21, LIST+33*, LIST+34*, LIST+35
IB1 EN+1~, EN+21*, EN+22, EN+23, EN+30, LIST+9*, LIST+20, LIST+21, LIST+31
IB399 EN+1~, EN+5*, EN+6, EN+9, EN+10
IBBDD BEG+2~, BDT+3*, EDT+1, EDT+4, EN+3, HDR1+7
IBCOD EN+1~, EN+26*, EN+27*, EN+28, EN+29, EN+30, LIST+27*, LIST+28, LIST+31*, LIST+32
, LIST+34, LIST+35
IBDDT EN+1~, EN+3*, EN+30
IBDPT EN+1~, EN+13*, EN+16, EN+17
IBEDT BEG+2~, EDT+3*, EN+3, HDR1+7
IBEPO EN+1~, EN+6*, EN+7*, EN+8, EN+9*, EN+10*, EN+28, EN+29, EN+30
IBERR BEG+2~, BEG+8*, EN0+5, ST2+4, LIST+17, LIST+19, LIST+40
IBFLG LIST+1~, LIST+2*, LIST+7*, LIST+8*
IBFST LIST+1~, LIST+6*, LIST+9, LIST+40, HDR1+10
IBIFN EN+1~, EN+3*, EN+5, EN+11, EN+13, EN+15, EN+18, EN+19, EN+20, EN+23
, EN+30
IBLINE EN+1~
IBMRA EN+1~, EN+23*, EN+24, EN+25
IBNAM EN+1~, EN+16*, EN+28, EN+29, EN+30
IBPAGE EN+1~, LIST+2*, HDR1+2, HDR1+5*, HDR1+6
IBPAT LIST+1~
IBPAY EN+1~, EN+18*, EN+19*, EN+28, EN+29, EN+30
IBSEC LIST+1~, LIST+9*
IBSO1 EN+1~, EN+27*, EN+28*, EN+30, LIST+8*, LIST+10*, LIST+40
IBSO2 EN+1~, EN+27*, EN+29*, EN+30, LIST+2*, LIST+13*, LIST+49
IBSSN EN+1~, EN+17*, EN+28, EN+29, EN+30
IBST1 BEG+2~, EN0+6*, ST2+6, EN+28, LIST+8, LIST+10, LIST+14, LIST+17, LIST+38, HDR1+10
IBST2 BEG+2~, ST2+5*, ST2+6, EN+29, LIST+14, LIST+15
IBST3 BEG+2~, EN0+6*, HDR1+9
IBST4 BEG+2~, ST2+5*, HDR1+9
IBSTOP EN+1~, LIST+2*, LIST+6, LIST+7, LIST+9, LIST+18, LIST+20, LIST+22, LIST+23, LIST+25
, LIST+32, LIST+34, LIST+36, LIST+37, LIST+38, LIST+39, LIST+41, LIST+42, LIST+43, LIST+45
, LIST+46, LIST+48, HDR1+2, HDR1+3*
IBTOL EN+1~, EN+15*, EN+28, EN+29, EN+30
IBTYE BEG+2~, EDT+9*, EN+24, EN+25, LIST+42, LIST+45, HDR1+8
IBUER EN+1~, EN+11*, EN+12, EN+14*, EN+28, EN+29, EN+30, LIST+1~
IBWNR LIST+1~, LIST+2*, LIST+11*, LIST+44
IBWR LIST+1~, LIST+2*, LIST+12*, LIST+47
IBX LIST+21~*, LIST+22, LIST+24, LIST+28*, LIST+29, LIST+31
IBY LIST+21~, LIST+22*, LIST+24, LIST+29*, LIST+30*, LIST+31
IBZ BEG+1~, EN0+1*, ST2
IO ST2+17
IO("Q" ST2+10!
IOF EN+2, HDR1+4
IOSL LIST+18, LIST+23, LIST+36, LIST+39, LIST+43, LIST+46, LIST+48
IOST EN+2, LIST+50, HDR1+3
>> POP ST2+9
U EN+6, EN+9, EN+10, EN+11, EN+13, EN+14, EN+15, EN+16, EN+17, EN+19
, EN+22, EN+23, EN+30, LIST+11, LIST+14, LIST+15, LIST+16, LIST+17, LIST+29, LIST+32
>> X EDT*, EDT+1*
Y BEG+2~, BEG+8, BDT+1, BDT+3, EDT+1, EDT+3, EDT+4, EDT+9, EDT+12, EDT+13
, EDT+15, EDT+18, EDT+19, EN0+5, EN0+6, ST2+4, ST2+5, HDR1+1~, HDR1+3
Y(0 EN0+6, ST2+5
ZTDESC ST2+8~, ST2+15*
>> ZTQUEUED BEGQ+1, BEGQ+2
>> ZTREQ BEGQ+1*
ZTRTN ST2+8~, ST2+11*
ZTSAVE ST2+8~
ZTSAVE("IBBDD" ST2+13*
ZTSAVE("IBEDT" ST2+13*
ZTSAVE("IBERR" ST2+12*
ZTSAVE("IBST*" ST2+12*
ZTSAVE("IBTYE" ST2+12*
ZTSAVE("^TMP($J,""IBSORT""," ST2+14*
ZTSK ST2+16!
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