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

Package: Integrated Billing

Routine: IBCICMEP


Information

IBCICMEP ;DSI/JSR - ClaimsManager ERROR REPORT ;6-APR-2001

Source Information

Source file <IBCICMEP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; this is the only entry point
PRINT ; prints data extracted
PRINT2 ; print audit report
HEADER ; header for main report
HEAD2 ; only printed when insurance is a selected sort
HEADA ; only for audit header
DATA ; formats line item data - note claims with same edit error mnemonic
; may print mulitple times if the HFCA line item is an unique line
; with the same error type. The report prints the error mnemonic and
; the HCFA line # as it relates to IB.
ERROR ; this is a unique error which CM reports
COMM ; print CM user comments these comments are keyed by the user
LINE ; print report detail line
XIT ; one exit point

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?35,"N O D A T A F O U N D",!!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?35,"N O D A T A F O U N D",!
  • Line Location: PRINT2+5
Function Call: WRITE
  • Prompt: ?20,SORT1,?40,$J($FN(AUDIT,","),9),!
  • Line Location: PRINT2+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT2+10
Function Call: WRITE
  • Prompt: ?20,"Total # Claims",?40,$J($FN($P($G(IBCITOT),U,1),","),9),!
  • Line Location: PRINT2+13
Function Call: WRITE
  • Prompt: ?20,"Total # Errors",?40,$J($FN($P($G(IBCITOT),U,2),","),9),!
  • Line Location: PRINT2+14
Function Call: WRITE
  • Prompt: @IOF,!,"ClaimsManager Detailed Error Report sort by "_RPTTYP(GROUPBY)_" for "
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: $E(IBCIBEG,4,5)_"/"_$E(IBCIBEG,6,7)_"/"_$E(IBCIBEG,2,3)_" thru "_$E(IBCIEND,4,5)_"/"_$E(IBCIEND,6,7)_"/"_$E(IBCIEND,2,3)
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?100,"Page :"_IBCIPGCT,!
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: "Detailed Report",?100,"Run Date: "_IBCIRUN,!!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: ?1,"ERROR",?8,"BILL NO.",?18,"PATIENT NAME",?44,"PID",?50," EVENT",?60,"BILLER",?68,"CODER",?76,"ASSIGN",?84,"ERROR CODES",?102,"TYPE",?108,"CHARGES",?116,"CM STATUS"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: ?1,"ERROR",?8,"BILL NO.",?18,"PATIENT NAME",?44,"PID",?50," ENTER",?60,"BILLER",?68,"CODER",?76,"ASSIGN",?84,"ERROR CODES",?102,"TYPE",?108,"CHARGES",?116,"CM STATUS"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,X,!
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: ?2,"INSURANCE: "_SORT4,!
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: @IOF,!,"ClaimsManager Audit Error Report for "
  • Line Location: HEADA+4
Function Call: WRITE
  • Prompt: $E(IBCIBEG,4,5)_"/"_$E(IBCIBEG,6,7)_"/"_$E(IBCIBEG,2,3)_" thru "_$E(IBCIEND,4,5)_"/"_$E(IBCIEND,6,7)_"/"_$E(IBCIEND,2,3)
  • Line Location: HEADA+5
Function Call: WRITE
  • Prompt: ?100,"Page :"_IBCIPGCT,!
  • Line Location: HEADA+6
Function Call: WRITE
  • Prompt: "Summary Report"
  • Line Location: HEADA+7
Function Call: WRITE
  • Prompt: "Detailed Report"
  • Line Location: HEADA+8
Function Call: WRITE
  • Prompt: ?100,"Run Date: "_IBCIRUN,!!
  • Line Location: HEADA+10
Function Call: WRITE
  • Prompt: ?10,"CM Error Message: "
  • Line Location: ERROR+5
Function Call: WRITE
  • Prompt: ?28,IBCITXT,!
  • Line Location: ERROR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ERROR+8
Function Call: WRITE
  • Prompt: ?10,$$CMTINFO^IBCIUT5(IBIFN),!
  • Line Location: COMM+4
Function Call: WRITE
  • Prompt: ?28,IBCITXT,!
  • Line Location: COMM+9
Function Call: WRITE
  • Prompt: !
  • Line Location: COMM+10
Function Call: WRITE
  • Prompt: ?1,IBCI12_"*"_IBCI11,?8,IBCI1,?19,$E(NAME,1,23),?44,$E(IBCI2,6,9)
  • Line Location: LINE+5
Function Call: WRITE
  • Prompt: ?50,IBCIDT,?60,$E(IBCI4,1,6),?68,$E(IBCI5,1,6),?76,$E(IBCI6,1,6)
  • Line Location: LINE+6
Function Call: WRITE
  • Prompt: ?84,IBCI10,?102,IBCI7,?108,$J($FN(IBCI8,",",0),6),?116,IBCIX,!
  • Line Location: LINE+7
Info |  Source |  Entry Points |  Interaction Calls