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

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls