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

Package: Integrated Billing

Routine: IBCEPTR


Information

IBCEPTR ;ALB/ESG - Test Claim Messages Report ;28-JAN-2005

Source Information

Source file <IBCEPTR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry Point
EXIT ; Exit Point
SELECT ; Determine which claim#'s or batch#'s to report on
SELECTX ;
DEVICE ; standard device selection
DEVX ;
COMPILE ; compile the data into a scratch global
COMPX ;
STORE(IBIFN) ; Input = internal bill#; continue compilation
STOREX ;
STORETX(IBIFN,TXIEN) ; store transmission info
STTXXX ;
PRINT ; print the report to the specified device
PRINTX ;
TXPRT ; print transmission information
TXPRTX ;
SMPRT ; print returned status message information
SMPRTX ;
HEADER ; page break and header
HEADX ;
BT(IBIFN) ; bill type and info
; [1] TYPE (form type, charge type, inp/outp)
; [2] claim#
; [3] patient name
CLMLST(IBIFN) ; DIC lister
CLMLSTX ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: !!?23,"Test Claim EDI Transmission Report"
  • Line Location: SELECT+4
Function Call: WRITE
  • Prompt: !!?7,"This report will display EDI transmission data and returned status"
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: !?7,"message data for selected test claims. You may select test claims"
  • Line Location: SELECT+6
Function Call: WRITE
  • Prompt: !?7,"by claim number or by batch number or you may search for claims that"
  • Line Location: SELECT+7
Function Call: WRITE
  • Prompt: !?7,"were transmitted within a date range.",!
  • Line Location: SELECT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+19
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+31
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+42
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+47
Function Call: WRITE
  • Prompt: !!!,"This report is 80 characters wide.",!
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !!!?5,"No Data Found"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!,"Batch#: ",BATCH
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,"Claim#: ",CLAIM
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: ?18,$E($P(CLMD,U,3),1,20),?40,"(",$P(CLMD,U,1),")"
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR("",80,"-")
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !!?5,"*** End of Report ***"
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !,"Transmission Information"
  • Line Location: TXPRT+12
Function Call: WRITE
  • Prompt: !?1,TXDTM,?22,"Bch#",+$E(EXTBCH,4,99),?33,$E(TXBY,1,15),?50,$E(PAYER,1,20)," (",PSEQ,")"
  • Line Location: TXPRT+13
Function Call: WRITE
  • Prompt: !?50,$E($P(INZ,U,2),1,15),",",$E($P(INZ,U,3),1,11),",",$E($P(INZ,U,4),1,2)
  • Line Location: TXPRT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: TXPRT+16
Function Call: WRITE
  • Prompt: !,"Status Message Information"
  • Line Location: SMPRT+7
Function Call: WRITE
  • Prompt: !?1,TXDTM,?22,SEVERITY,?65,"Msg#",$P(DATA,U,3)
  • Line Location: SMPRT+8
Function Call: WRITE
  • Prompt: !?2,$G(^TMP($J,RTN,BATCH,CLAIM,TXD,TYPE,IEN,1,Z,0))
  • Line Location: SMPRT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: SMPRT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: "Test Claim EDI Transmission Report"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: ?TAB,HDR
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !,"Selected ",$S(IBRMETH="B":"Batches",IBRMETH="C":"Claims",1:"Date Range")
  • Line Location: HEADER+15
Function Call: WRITE
  • Prompt: ?TAB,HDR
  • Line Location: HEADER+17
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR("",80,"=")
  • Line Location: HEADER+18
Function Call: WRITE
  • Prompt: !!!?5,"*** Report Halted by TaskManager Request ***"
  • Line Location: HEADER+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
361.41 EXTERNAL^DILFD
361.42 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call