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

Package: Integrated Billing

Routine: IBCECSA3


Information

IBCECSA3 ;ALB/CXW - CLAIMS STATUS AWAITING RESOLUTION REPORT ;23-JUL-99

Source Information

Source file <IBCECSA3.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$HTE)^XLFDT  $$KCHK^XUSRB  
Integrated Billing 4 ($$SD,SORT)^IBCECSA  BLD^IBCECSA1  EN^IBCEMCL  $$DAT1^IBOUTL  
Accounts Receivable 1 $$BN1^PRCAFN  
List Manager 1 (FULL,PAUSE)^VALM1  
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: 3

Package Total Caller Graph
Integrated Billing 3 IBCEM CSA MSG MAN  IBCEM CSA RE-SORT MESSAGES  IBCEM CSA REPORT  

Entry Points

Name Comments DBIA/ICR reference
EN ; Report of claims status awaiting resolution
LIST ; display
LISTQ
IBPAY(IBX,IBX2,IBX3) ; return biller name
HDR1 ;
RESORT ; CSA screen re-sort action
RES1 ;
RESORTX ;
MCS ; Link to the Multiple CSA Message Management option
MCSX ;

External References

Name Field # of Occurrence
^%ZIS EN+14
HOME^%ZIS EN+23
^%ZISC LISTQ+1
^%ZTLOAD EN+23
^DIR EN+8, LIST+52, HDR1+3, RESORT+10
$$SD^IBCECSA HDR1+6, HDR1+8, HDR1+10, RESORT+4, RESORT+5, RESORT+6
SORT^IBCECSA RESORT+19, RESORT+20, RESORT+21
BLD^IBCECSA1 RES1+11, MCS+13
EN^IBCEMCL MCS+10
$$DAT1^IBOUTL LIST+11
$$BN1^PRCAFN LIST+11, LIST+28
FULL^VALM1 EN+3, RESORT+2, MCS+2
PAUSE^VALM1 MCS+5
$$FMTE^XLFDT LIST+35
$$HTE^XLFDT HDR1+9
$$KCHK^XUSRB MCS+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!",!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,"No entries found for this report"
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: $$BN1^PRCAFN(+IB),$P(IB,U,12),?13,$E($P(IB,U,2),1,25),?40,$E($P(IB,U,3),1,30),?72,$P($P(IB,U,4),"~"),?78,$$DAT1^IBOUTL($P(IB,U,5)),?88,$E($P(IB,U,7),1,10),?100,"$"_$J($P(IB,U,6),0,2),?110,$P(IB,U,10),?122,$P(IB,U,11),!
  • Line Location: LIST+11
Function Call: WRITE
  • Prompt: " ***** CSA REVIEW IN PROCESS *****",!
  • Line Location: LIST+12
Function Call: WRITE
  • Prompt: " FORM TYPE: "_$P($G(^IBE(353,$P($G(^DGCR(399,+IB,0)),U,19),0)),U),!
  • Line Location: LIST+13
Function Call: WRITE
  • Prompt: X,$J(" ",40-$L(X))_"AUTHORIZING BILLER: "_$P($P(IB,U,9),"~",1),!
  • Line Location: LIST+14
Function Call: WRITE
  • Prompt: " MESSAGE TEXT: "
  • Line Location: LIST+15
Function Call: WRITE
  • Prompt: " "_$E(X,I,I+130),!
  • Line Location: LIST+18
Function Call: WRITE
  • Prompt: ?3,"*** Review Comments for Claim "_$$BN1^PRCAFN(+IB)_" ***",!
  • Line Location: LIST+28
Function Call: WRITE
  • Prompt: ?7,"Entered "_$$FMTE^XLFDT($P(IBD0,U,1),"5ZPM")
  • Line Location: LIST+35
Function Call: WRITE
  • Prompt: " by "_$P($G(^VA(200,$P(IBD0,U,2),0)),U,1)
  • Line Location: LIST+36
Function Call: WRITE
  • Prompt: " ("_IBT0_" of "_IBT1_")",!
  • Line Location: LIST+37
Function Call: WRITE
  • Prompt: ?10,$G(^IBM(361,IBDA,2,IBCM,1,IBCL,0)),!
  • Line Location: LIST+40
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+47
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTQ+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !,"Sort 1: ",$$SD^IBCECSA(IBSORT1)
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: ?46,"Claims Status Awaiting Resolution Report",?120,$J("Page: "_IBPAGE,11)
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: ?104,$J("Run Date: "_$$HTE^XLFDT($H,"2Z"),27)
  • Line Location: HDR1+9
Function Call: WRITE
  • Prompt: !!,"Division: "_$S($G(IBX)=0:"",1:$G(IBX)),!,"Authorizing Biller: "_$G(IBPAY)
  • Line Location: HDR1+11
Function Call: WRITE
  • Prompt: !,?72,"Last",?78,"Date of",?88,"Location",?100,"Current",?110,"Source of",?122,"Days Msg"
  • Line Location: HDR1+12
Function Call: WRITE
  • Prompt: !,"Bill #",?13,"Payer Name",?40,"Patient Name",?72,"4 SSN",?78,"Service",?88,"of Service",?100,"Balance",?110,"Message",?122,"Pending"
  • Line Location: HDR1+13
Function Call: WRITE
  • Prompt: !,$TR($J("",132)," ","-"),!
  • Line Location: HDR1+14
Function Call: WRITE
  • Prompt: !!?2,"The CSA screen is currently sorted in the following manner:"
  • Line Location: RESORT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: RESORT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: RESORT+17
Function Call: WRITE
  • Prompt: !!?5,"You must hold the IB MESSAGE MANAGEMENT key to access this option."
  • Line Location: MCS+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+14
Routine Call
  • %ZIS
  • Line Location:
    • EN+23
Routine Call
  • DIR
  • Line Location:
    • EN+8
    • LIST+52
    • HDR1+3
    • RESORT+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] LIST+13
^IBE(353 - [#353] LIST+13
^IBM(361 - [#361] LIST+16, LIST+17, LIST+25, LIST+29, LIST+31, LIST+33, LIST+38, LIST+40
^TMP("IBCECSB" LIST+5, LIST+7, LIST+9, IBPAY+2, IBPAY+3
^VA(200 - [#200] LIST+36

Label References

Name Line Occurrences
$$IBPAY LIST+8
HDR1 LIST+6, LIST+8, LIST+10, LIST+20, LIST+27, LIST+34, LIST+39, LIST+46
LISTQ LIST+5, LIST+51
MCSX MCS+3
RES1 RESORT+19, RESORT+20, RESORT+21
RESORTX RESORT+11, RES1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+1~, EN+14*
DIR EN+1~, EN+8!, LIST+52!, HDR1+1~, HDR1+3!, RESORT+1~, RESORT+10!
DIR("A" EN+6*, RESORT+9*
DIR("B" EN+7*, RESORT+10*
DIR(0 EN+5*, LIST+52*, HDR1+3*, RESORT+9*
DIROUT EN+1~
DIRUT EN+1~, EN+9
DTOUT EN+1~
DUOUT EN+1~
>> I LIST+18*
IB LIST+1~, LIST+9*, LIST+11, LIST+12, LIST+13, LIST+14, LIST+28
IBCL LIST+26~, LIST+38*, LIST+40
IBCM LIST+26~, LIST+29*, LIST+31*, LIST+33, LIST+38, LIST+40
IBCSAMCS MCS+1~*, MCS+13
IBCURR RESORT+1~, RES1+4*, RES1+5*, RES1+6
IBD0 LIST+26~, LIST+33*, LIST+35, LIST+36
IBDA LIST+1~, LIST+9*, LIST+16, LIST+17, LIST+25, LIST+29, LIST+31, LIST+33, LIST+38, LIST+40
IBDAYS RES1+9*, MCS+9~
IBDIV LIST+1~, LIST+3*, LIST+4*, LIST+8, LIST+14, HDR1+11
IBFST LIST+1~, LIST+3*, LIST+8*
IBPAGE LIST+1~, LIST+3*, HDR1+2, HDR1+5*, HDR1+7
IBPAY LIST+1~, LIST+8*, HDR1+11
IBRVW EN+1~, EN+10*, LIST+25
IBSAVE RESORT+1~, RESORT+14*, RESORT+15*, RESORT+19, RES1+1, RES1+6
IBSEV RES1+10*, MCS+9~
IBSORT1 LIST+4, HDR1+6, RESORT+4, RESORT+14, RES1+1*, RES1+4, MCS+9~
IBSORT2 HDR1+8, RESORT+5, RESORT+14, RESORT+21, RES1+4, MCS+9~
IBSORT3 HDR1+10, RESORT+6, RESORT+14, RES1+4, MCS+9~
IBSORTOR RESORT+18!
IBSORTOR( RESORT+15, RES1+5
IBSTOP LIST+1~, LIST+3*, LIST+7, LIST+8, LIST+9, LIST+10, LIST+16, LIST+20, LIST+22, LIST+25
LIST+27, LIST+31, LIST+34, LIST+38, LIST+39, LIST+46, LIST+51, HDR1+2, HDR1+3*
IBT0 LIST+26~, LIST+30*, LIST+32*, LIST+37
IBT1 LIST+26~, LIST+29*, LIST+37
IBX LIST+1~, LIST+7*, LIST+8, LIST+9, IBPAY~, IBPAY+2, IBPAY+3, HDR1+11
IBX2 LIST+1~, LIST+7*, LIST+8, LIST+9, IBPAY~, IBPAY+2, IBPAY+3
IBX3 LIST+7*, LIST+8, LIST+9, IBPAY~, IBPAY+2, IBPAY+3
IBZ LIST+1~, LIST+16*, LIST+17
IBZFT LIST+1~, LIST+15*, LIST+17, LIST+19*
IO EN+24
IO("Q" EN+15!
IOF LIST+2, HDR1+4
IOSL LIST+10, LIST+20, LIST+27, LIST+34, LIST+39, LIST+46
IOST LIST+2, LIST+52, HDR1+3
>> POP EN+14
U LIST+11, LIST+12, LIST+13, LIST+14, LIST+35, LIST+36, IBPAY+4, RESORT+14, RESORT+15, RESORT+19
RES1+1, RES1+4, RES1+5
>> VALMBCK RESORT+2*, RES1+12*, MCS+2*, MCS+14*
>> VALMBG RES1+12*, MCS+13*
VALMQUIT RESORT+1~, RESORT+19, RESORT+20, RESORT+21
X EN+1~, LIST+1~, LIST+14*, LIST+17*, LIST+18, IBPAY+1~, IBPAY+2*, IBPAY+3*, IBPAY+4, RESORT+1~
Y EN+1~, EN+10, HDR1+1~, HDR1+3, RESORT+1~, RESORT+11
Z RESORT+1~, RESORT+15*, RES1+5*
ZTDESC EN+1~, EN+23*
>> ZTQUEUED LISTQ
>> ZTREQ LISTQ*
ZTRTN EN+1~, EN+16*
ZTSAVE EN+1~
ZTSAVE("IBRVW" EN+22*
ZTSAVE("IBSORT1" EN+17*
ZTSAVE("IBSORT2" EN+18*
ZTSAVE("IBSORT3" EN+19*
ZTSAVE("IBSORTOR" EN+20*
ZTSAVE("^TMP(""IBCECSB"",$J," EN+21*
ZTSK EN+23!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All