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 |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call