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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: IBCEMRAA

Package: Integrated Billing

Routine: IBCEMRAA


Information

IBCEMRAA ;ALB/DSM/PJH - MEDICARE REMITTANCE ADVICE DETAIL-PART A ; 8/2/10 9:12pm

Source Information

Source file <IBCEMRAA.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 5 ($$FT,$$INPAT,F)^IBCEF  PRNT^IBCEMRAB  (DEV,DSCLMR,LINELVL,PAUSE,SRVDATA,SRVHDR)^IBCEMRAX  $$WNRBILL^IBEFUNC  $$PRVDATA^IBJPS3  
Kernel 3 ^%ZISC  $$FMTE^XLFDT  $$BLDNAME^XLFNAME  
VA FileMan 2 ^DIC  ^DIR  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Integrated Billing 7 IBCAPR  IBCAPR2  IBCECOB2  IBCEM MRA REPORT PRINT  IBCEMRAX  IBCEMU1  IBCEMU2  

Entry Points

Name Comments DBIA/ICR reference
MRA(IBIFN) ;;Module - Entry point to print ALL MRA reports, for a given IBIFN.
; This entry point doesn't ask for a Bill Number, it must pass IBIFN as Input.
; It will prompt the user for a device.
ENT ; Menu Option Entry Point
ENT1 ; Prompt for a print device and print MRA Reports
PROC ; This section must have IBIFN defined
; This section is called as both a foreground and a background process,
; so all write stmts need to consider printing in both cases.
PRNTMRA ; Print a single MRA
; Input IEN - the ien# of EOB file (361.1); Required
GETBIL ; Prompt the user for a Bill#. Get INIFN and IBEOB.
CLMDATA ; Get MRA Claim Level data of EOB file (#361.1)
CLMHDR ; Print Claim Level Header
CLMPRNT ; - Print Claim Level part of the Report
TABLE ;;variable;list of Reason Codes w/leading & trailing commas; description;

External References

Name Field # of Occurrence
^%ZISC PROC+27
^DIC GETBIL+7
^DIR PROC+23
$$FT^IBCEF PROC+5
$$INPAT^IBCEF PROC+6
F^IBCEF PROC+11, PROC+12
PRNT^IBCEMRAB PRNTMRA+4
DEV^IBCEMRAX ENT1+1
DSCLMR^IBCEMRAX PRNTMRA+19
LINELVL^IBCEMRAX CLMDATA+37
PAUSE^IBCEMRAX PRNTMRA+9, PRNTMRA+15
SRVDATA^IBCEMRAX PRNTMRA+16
SRVHDR^IBCEMRAX PRNTMRA+16
$$WNRBILL^IBEFUNC CLMPRNT+18
$$PRVDATA^IBJPS3 CLMHDR+9
$$SITE^VASITE CLMPRNT+9
$$FMTE^XLFDT CLMDATA+39, CLMHDR+15
$$BLDNAME^XLFNAME CLMPRNT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PROC+21
Function Call: WRITE
  • Prompt: !
  • Line Location: PROC+23
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRNTMRA+15
Function Call: WRITE
  • Prompt: !
  • Line Location: GETBIL+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLMHDR+2
Function Call: WRITE
  • Prompt: !,?108,"Medicare-equivalent",!?110,"Remittance Advice",!
  • Line Location: CLMHDR+5
Function Call: WRITE
  • Prompt: !!!,"DEPT OF VETERANS AFFAIRS"
  • Line Location: CLMHDR+12
Function Call: WRITE
  • Prompt: !,$P(PRVDR,U,5),?103,"PROVIDER #:",?117,$P($G(^IBE(350.9,1,1)),U,5)
  • Line Location: CLMHDR+13
Function Call: WRITE
  • Prompt: !,$P(PRVDR,U,6),?103,"PAGE #:",?117,$J(IBPGN,3)
  • Line Location: CLMHDR+14
Function Call: WRITE
  • Prompt: !,$P(PRVDR,U,7),", ",$P(PRVDR,U,8)," ",$P(PRVDR,U,9),?103,"DATE: ",?117,$$FMTE^XLFDT($P(IBEOB(0),U,6),5)
  • Line Location: CLMHDR+15
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?24,"PATIENT CNTRL NUMBER",?48,"RC",?52,"REM",?58,"DRG#",?72,"DRG OUT AMT"
  • Line Location: CLMHDR+16
Function Call: WRITE
  • Prompt: ?86,"COINSURANCE",?100,"PAT REFUND",?115,"CONTRACT ADJ"
  • Line Location: CLMHDR+17
Function Call: WRITE
  • Prompt: !,"HIC NUMBER",?48,"RC",?52,"REM",?58,"OUTCD CAPCD",?72,"DRG CAP AMT"
  • Line Location: CLMHDR+18
Function Call: WRITE
  • Prompt: ?86,"COVD CHGS",?100,"ESRD NET ADJ",?115,"PER DIEM RTE"
  • Line Location: CLMHDR+19
Function Call: WRITE
  • Prompt: !,"ICN NUMBER"
  • Line Location: CLMHDR+20
Function Call: WRITE
  • Prompt: !,"FROM DT THRU DT",?24,"NACHG HICHG TOB",?48,"RC",?52,"REM",?58,"PROF COMP",?72,"MSP PAYMT"
  • Line Location: CLMHDR+21
Function Call: WRITE
  • Prompt: ?86,"NCOVD CHGS",?100,"INTEREST",?115,"PROC CD AMT"
  • Line Location: CLMHDR+22
Function Call: WRITE
  • Prompt: !,"CLM STATUS",?24,"COST COVDY NCOVDY",?48,"RC",?52,"REM",?58,"DRG AMT",?72,"DEDUCTIBLES"
  • Line Location: CLMHDR+23
Function Call: WRITE
  • Prompt: ?86,"DENIED CHGS",?100,"CLAIM ADJ",?115,"NET REIMB",!
  • Line Location: CLMHDR+24
Function Call: WRITE
  • Prompt: !,PTNM
  • Line Location: CLMPRNT+7
Function Call: WRITE
  • Prompt: ?24,$P($$SITE^VASITE,U,3),"-",$P(IBILL,U)
  • Line Location: CLMPRNT+9
Function Call: WRITE
  • Prompt: ?48,$G(RSNCD(1)),?52,$P(RMKS,U,1)
  • Line Location: CLMPRNT+11
Function Call: WRITE
  • Prompt: ?58,$P(IBEOB(0),U,10)
  • Line Location: CLMPRNT+13
Function Call: WRITE
  • Prompt: ?86,$J($G(IBCOINS),11,2),?115,$J($G(IBCTADJ),11,2)
  • Line Location: CLMPRNT+15
Function Call: WRITE
  • Prompt: !,HIC
  • Line Location: CLMPRNT+19
Function Call: WRITE
  • Prompt: ?48,$G(RSNCD(2)),?52,$P(RMKS,U,2)
  • Line Location: CLMPRNT+21
Function Call: WRITE
  • Prompt: ?86,$J($P(IBEOB(1),U,3),11,2)
  • Line Location: CLMPRNT+23
Function Call: WRITE
  • Prompt: ?115,$J($P(IBEOB(3),U,1),11,2)
  • Line Location: CLMPRNT+25
Function Call: WRITE
  • Prompt: !,$P(IBEOB(0),U,14)
  • Line Location: CLMPRNT+27
Function Call: WRITE
  • Prompt: !,IBFD,?12,IBTD
  • Line Location: CLMPRNT+29
Function Call: WRITE
  • Prompt: ?38,$P(IBILL,U,24)_$P($G(^DGCR(399.1,$P(IBILL,U,25),0)),U,2)_$P(IBILL,U,26)
  • Line Location: CLMPRNT+31
Function Call: WRITE
  • Prompt: ?48,$G(RSNCD(3)),?52,$P(RMKS,U,3)
  • Line Location: CLMPRNT+33
Function Call: WRITE
  • Prompt: ?86,$J(NCVRCHRG,11,2)
  • Line Location: CLMPRNT+35
Function Call: WRITE
  • Prompt: ?100,$J($P(IBEOB(1),U,7),11,2)
  • Line Location: CLMPRNT+37
Function Call: WRITE
  • Prompt: ?115,$J($P(IBEOB(3),U,2),11,2)
  • Line Location: CLMPRNT+39
Function Call: WRITE
  • Prompt: !?6,$E($P(IBEOB(0),U,21),1,2)
  • Line Location: CLMPRNT+42
Function Call: WRITE
  • Prompt: ?24,$P(IBEOB(4),U,14)
  • Line Location: CLMPRNT+44
Function Call: WRITE
  • Prompt: ?30,$P(IBEOB(4),U,1)
  • Line Location: CLMPRNT+46
Function Call: WRITE
  • Prompt: ?38,$P(IBEOB(4),U,19)
  • Line Location: CLMPRNT+48
Function Call: WRITE
  • Prompt: ?48,$G(RSNCD(4)),?52,$P(RMKS,U,4)
  • Line Location: CLMPRNT+50
Function Call: WRITE
  • Prompt: ?58,$J($P(IBEOB(4),U,3),11,2)
  • Line Location: CLMPRNT+52
Function Call: WRITE
  • Prompt: ?72,$J($G(IBDED),11,2)
  • Line Location: CLMPRNT+54
Function Call: WRITE
  • Prompt: ?100,$J($G(CLMADJ),10,2)
  • Line Location: CLMPRNT+56
Function Call: WRITE
  • Prompt: ?115,$J($P(IBEOB(1),U,1),11,2)
  • Line Location: CLMPRNT+58
Function Call: WRITE
  • Prompt: !?48,$G(RSNCD(5)),?52,$P(RMKS,U,5)
  • Line Location: CLMPRNT+61
Routine Call
  • DIC
  • Line Location:
    • GETBIL+7
Routine Call
  • DIR
  • Line Location:
    • PROC+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBM(361.1 - [#361.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] CLMDATA+38, CLMPRNT+18
^DGCR(399.1 - [#399.1] CLMPRNT+31
^IBE(350.9 - [#350.9] CLMHDR+13
^IBM(361.1 - [#361.1] PROC+16, PROC+17, PRNTMRA+14, CLMDATA+5, CLMDATA+19, CLMDATA+21

Label References

Name Line Occurrences
CLMDATA PRNTMRA+10
CLMHDR PRNTMRA+10, PRNTMRA+15
CLMPRNT PRNTMRA+11
ENT1 MRA+7
GETBIL ENT+3
PRNTMRA PROC+18

Naked Globals

Name Field # of Occurrence
^( CLMDATA+19, CLMDATA+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CLMADJ PRNTMRA+8~, CLMDATA+18*, CLMDATA+27*, CLMPRNT+56
CLMLVL CLMDATA+1~, CLMDATA+18*, CLMDATA+27*, CLMDATA+30*, CLMDATA+31*, CLMDATA+33*, CLMDATA+34*, CLMDATA+37
DIC GETBIL+2~, GETBIL+5*
DIC("S" GETBIL+5*
DIC("W" GETBIL+6*
DIC(0 GETBIL+5*
DIR PROC+23!
DIR("A" PROC+23*
DIR(0 PROC+23*
>> DTOUT GETBIL+8
>> DUOUT GETBIL+8
FRMTYP ENT+1~, PROC+3~, PROC+5*, PROC+11, PRNTMRA+4
GLVL CLMDATA+1~, CLMDATA+18*, CLMDATA+19*, CLMDATA+21
GLVLD CLMDATA+1~, CLMDATA+19*, CLMDATA+20
GRPCD CLMDATA+1~, CLMDATA+20*, CLMDATA+23, CLMDATA+24, CLMDATA+25, CLMDATA+30, CLMDATA+31, CLMDATA+32
HIC CLMPRNT+1~, CLMPRNT+18*, CLMPRNT+19
I CLMDATA+1~, CLMDATA+2*, CLMDATA+5*
IBCOINS PRNTMRA+8~, CLMDATA+18*, CLMDATA+30*, CLMPRNT+15
IBCTADJ PRNTMRA+8~, CLMDATA+18*, CLMDATA+33*, CLMPRNT+15
IBDED PRNTMRA+8~, CLMDATA+18*, CLMDATA+31*, CLMPRNT+54
IBEOB ENT+1~, PRNTMRA+8~
IBEOB( CLMDATA+5*
IBEOB(0 CLMDATA+38, CLMHDR+9, CLMHDR+15, CLMPRNT+13, CLMPRNT+18, CLMPRNT+27, CLMPRNT+42
IBEOB(1 CLMPRNT+23, CLMPRNT+37, CLMPRNT+58
IBEOB(3 CLMDATA+11, CLMPRNT+25, CLMPRNT+39
IBEOB(4 CLMPRNT+44, CLMPRNT+46, CLMPRNT+48, CLMPRNT+52
IBEOB(5 CLMDATA+10
IBEOB(6 CLMPRNT+6, CLMPRNT+18
IBFD PRNTMRA+8~, CLMDATA+39*, CLMPRNT+29
IBIFN MRA~, ENT+1~, ENT1+1, PROC+5, PROC+6, PROC+11, PROC+12, PROC+16, GETBIL+9*, CLMPRNT+18
IBILL PRNTMRA+8~, CLMDATA+38*, CLMPRNT+4, CLMPRNT+9, CLMPRNT+31
IBILLU PRNTMRA+8~, CLMDATA+38*, CLMDATA+39
IBPGN MRA+6~, ENT+1~, PRNTMRA+2*, PRNTMRA+9, CLMHDR+1*, CLMHDR+2, CLMHDR+14
IBQUIT MRA+6~*, ENT+1~, ENT+2*, ENT+3, ENT1+1, PROC+4*, PROC+16, PROC+23, PRNTMRA+9, PRNTMRA+10
, PRNTMRA+14, PRNTMRA+15, GETBIL+8*
IBTD PRNTMRA+8~, CLMDATA+39*, CLMPRNT+29
IBZDATA PROC+3~
IEN PROC+3~, PROC+15*, PROC+16*, PROC+17, PRNTMRA+14, CLMDATA+5, CLMDATA+19, CLMDATA+21
INPAT PROC+3~, PROC+6*, CLMDATA+10, CLMPRNT+25
IOF PROC+21, PRNTMRA+15, CLMHDR+2
IOSL PRNTMRA+15
IOST PROC+21, PROC+23, CLMHDR+2
NCVRCHRG PRNTMRA+8~, CLMDATA+18*, CLMDATA+34*, CLMPRNT+35
PRVDR CLMHDR+6~, CLMHDR+9*, CLMHDR+13, CLMHDR+14, CLMHDR+15
PTLEN CLMPRNT+1~, CLMPRNT+4*, CLMPRNT+5, CLMPRNT+6
PTNM CLMPRNT+1~, CLMPRNT+5*, CLMPRNT+6*, CLMPRNT+7
PTNM("FIELD" CLMPRNT+4*
PTNM("FILE" CLMPRNT+4*
PTNM("IENS" CLMPRNT+4*
RCDED CLMDATA+1~, CLMDATA+31
RCLMADJ CLMDATA+1~, CLMDATA+27
RCNCVR CLMDATA+1~, CLMDATA+34
RCNT CLMDATA+1~, CLMDATA+18*, CLMDATA+26*
RCOINS CLMDATA+1~, CLMDATA+30
RCTADJ CLMDATA+1~, CLMDATA+33
RLVL CLMDATA+1~, CLMDATA+18*, CLMDATA+20*, CLMDATA+21*
RLVLD CLMDATA+1~, CLMDATA+21*, CLMDATA+22, CLMDATA+27, CLMDATA+30, CLMDATA+31, CLMDATA+33, CLMDATA+34
RMKS PRNTMRA+8~, CLMDATA+10*, CLMDATA+11*, CLMPRNT+11, CLMPRNT+21, CLMPRNT+33, CLMPRNT+50, CLMPRNT+61
RSNCD PRNTMRA+8~, CLMDATA+22*, CLMDATA+23, CLMDATA+24, CLMDATA+26, CLMDATA+27, CLMDATA+30, CLMDATA+31, CLMDATA+33, CLMDATA+34
RSNCD( CLMDATA+26*
RSNCD(1 CLMPRNT+11
RSNCD(2 CLMPRNT+21
RSNCD(3 CLMPRNT+33
RSNCD(4 CLMPRNT+50
RSNCD(5 CLMPRNT+61
U PROC+17, GETBIL+9, CLMDATA+11, CLMDATA+20, CLMDATA+22, CLMDATA+27, CLMDATA+30, CLMDATA+31, CLMDATA+33, CLMDATA+34
, CLMDATA+38, CLMDATA+39, CLMHDR+9, CLMHDR+13, CLMHDR+14, CLMHDR+15, CLMPRNT+4, CLMPRNT+6, CLMPRNT+9, CLMPRNT+11
, CLMPRNT+13, CLMPRNT+18, CLMPRNT+21, CLMPRNT+23, CLMPRNT+25, CLMPRNT+27, CLMPRNT+31, CLMPRNT+33, CLMPRNT+37, CLMPRNT+39
, CLMPRNT+42, CLMPRNT+44, CLMPRNT+46, CLMPRNT+48, CLMPRNT+50, CLMPRNT+52, CLMPRNT+58, CLMPRNT+61
Y GETBIL+2~, GETBIL+8, GETBIL+9
>> ZTQUEUED PROC+26
>> ZTREQ PROC+26*

Marked Items

Name Field # of Occurrence
$T(TABLE+I CLMDATA+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All