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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCEMRAX

Package: Integrated Billing

Routine: IBCEMRAX


Information

IBCEMRAX ;ALB/DSM - MEDICARE REMITTANCE ADVICE DETAIL-PART A Cont'd ;25-APR-2003

Source Information

Source file <IBCEMRAX.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZTLOAD  $$FMTE^XLFDT  
Integrated Billing 2 CLMHDR^IBCEMRAA  $$MRACNT^IBCEMU1  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Integrated Billing 2 IBCEMRAA  IBCEMRAB  

Entry Points

Name Comments DBIA/ICR reference
DEV(IBIFN,IBMRANOT) ; Prompt the user for a device ; WCJ IB*2.0*432
; Input: IBIFN= ien# of Claim file
; IBMRANOT = 1 if NOT an MRA ; WCJ IB*2.0*432
SRVHDR ; Print Srvice Level Header
; ROW 23 -
; Service (Line) Level Adjustments Data
SRVDATA ; Get Service Level Data of EOB file (#361.1 Level 15)
;
PAUSE ; Pause at the bottom of screen. This section is called
; from different points of the MRA report.
DSCLMR ;
LINELVL ; This section is called when printing Institutional Reports
; The values of Coinsurance, Contractual Adjustment, Noncovered Charges
; and Deductible are calculated from the Service Line level and not
; from the Claim level.

External References

Name Field # of Occurrence
^%ZIS DEV+10
HOME^%ZIS DEV+18
^%ZTLOAD DEV+16
^DIR PAUSE+5
CLMHDR^IBCEMRAA SRVDATA+15
$$MRACNT^IBCEMU1 DEV+6
$$FMTE^XLFDT SRVDATA+33

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report displays Medicare-equivalent Remittance Advice Detail."
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !,"*** Multiple MRAs on File for this claim. ",MRACNT," MRAs will be printed. ***"
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !,"You will need a 132 column printer for this report",!
  • Line Location: DEV+8
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Your task number "_ZTSK_" has been queued.",1:"Unable to queue this job.")
  • Line Location: DEV+17
Function Call: WRITE
  • Prompt: "SERV DATE"
  • Line Location: SRVHDR+3
Function Call: WRITE
  • Prompt: ?12,"PT",?15,"PROC",?21,"MODS",?30,"REV",?35,"APC",?43,"UNITS",?50,"TOT CHARGES"
  • Line Location: SRVHDR+4
Function Call: WRITE
  • Prompt: ?67,"DEDUCT",?80,"COINS",?90,"ALLOWED",?102,"PAYMENT",?111,"GRP-RC",?123,"ADJ AMT"
  • Line Location: SRVHDR+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SRVDATA+15
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(SRVDT,5)
  • Line Location: SRVDATA+33
Function Call: WRITE
  • Prompt: ?12,PRCTYP,?15,PRCD,?21,MOD,?30,REVCD,?41,$J(UNIT,7),?49,$J($G(TOTL),12,2)
  • Line Location: SRVDATA+34
Function Call: WRITE
  • Prompt: ?62,$J(SRVDED,11,2),?74,$J(SRVCOIN,11,2),?86,$J(ALWD,11,2),?98,$J(PAID,11,2)
  • Line Location: SRVDATA+50
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I>1
  • Line Location: SRVDATA+52
Function Call: WRITE
  • Prompt: ?111,$P(RSNCD(I),U),?118,$J($P(RSNCD(I),U,2),12,2)
  • Line Location: SRVDATA+52
Function Call: WRITE
  • Prompt: ?15,"(",$E(OPRCD,1,4),")"
  • Line Location: SRVDATA+55
Function Call: WRITE
  • Prompt: ?26,"REM:",?30,$P(SRMKS,U)
  • Line Location: SRVDATA+56
Function Call: WRITE
  • Prompt: !!,LINE
  • Line Location: DSCLMR+3
Function Call: WRITE
  • Prompt: !,"This is a printed representation of a remittance advice, developed through a joint effort between the Centers for Medicare and"
  • Line Location: DSCLMR+4
Function Call: WRITE
  • Prompt: !,"Medicaid Services and the Department of Veterans Affairs, for a claim for services or supplies furnished to a Medicare-eligible"
  • Line Location: DSCLMR+5
Function Call: WRITE
  • Prompt: !,"veteran through a facility of the Department of Veterans Affairs. The remittance advice shows the amount that Medicare would have"
  • Line Location: DSCLMR+6
Function Call: WRITE
  • Prompt: !,"paid had the claim been payable by Medicare, as well as the coinsurance and deductible amounts that would have applied."
  • Line Location: DSCLMR+7
Function Call: WRITE
  • Prompt: !,"The claim is not payable under the Medicare program, and no Medicare payment was issued."
  • Line Location: DSCLMR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DSCLMR+9
Routine Call
  • %ZIS
  • Line Location:
    • DEV+10
Routine Call
  • %ZIS
  • Line Location:
    • DEV+18
Routine Call
  • DIR
  • Line Location:
    • PAUSE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399.2 - [#399.2] SRVDATA+23
^IBM(361.1 - [#361.1] SRVDATA+6, SRVDATA+12, SRVDATA+27, SRVDATA+31, SRVDATA+39, SRVDATA+41, LINELVL+10, LINELVL+11, LINELVL+13

Label References

Name Line Occurrences
PAUSE SRVDATA+14
SRVHDR SRVDATA+16

Naked Globals

Name Field # of Occurrence
^( SRVDATA+6, SRVDATA+39, SRVDATA+41, LINELVL+10, LINELVL+11, LINELVL+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+3~, DEV+10*
ALWD SRVDATA+3~, SRVDATA+25*, SRVDATA+50
>> CLMADJ LINELVL+18*
DIR PAUSE+4~
DIR(0 PAUSE+5*
DIROUT PAUSE+4~
DIRUT PAUSE+4~, PAUSE+6
DTOUT PAUSE+4~
DUOUT PAUSE+4~, PAUSE+6
GLVL SRVDATA+2~, SRVDATA+3~, SRVDATA+38*, SRVDATA+39*, SRVDATA+41, LINELVL+8~, LINELVL+11*, LINELVL+13
GLVLD SRVDATA+2~, SRVDATA+39*, SRVDATA+40, LINELVL+8~, LINELVL+11*, LINELVL+12
GRPCD SRVDATA+2~, SRVDATA+40*, SRVDATA+42, SRVDATA+43, SRVDATA+44, SRVDATA+45, SRVDATA+46, SRVDATA+47, LINELVL+8~, LINELVL+12*
, LINELVL+14, LINELVL+15, LINELVL+16, LINELVL+20, LINELVL+22, LINELVL+23
I SRVDATA+2~, SRVDATA+27*, SRVDATA+52*
>> IBCOINS LINELVL+20*
>> IBCTADJ LINELVL+25*
>> IBDED LINELVL+22*
IBIFN DEV~, DEV+4, DEV+6
IBMRANOT DEV~, DEV+6
>> IBQUIT DEV+10*, DEV+12*, SRVDATA+11, SRVDATA+13, SRVDATA+14, PAUSE+6*
>> IBZDATA( SRVDATA+29
>> IEN SRVDATA+6, SRVDATA+12, SRVDATA+27, SRVDATA+31, SRVDATA+39, SRVDATA+41, LINELVL+10, LINELVL+11, LINELVL+13
>> INPAT SRVHDR+3, SRVDATA+33
IO DEV+19
IO("Q" DEV+12, DEV+18!
IOF SRVDATA+15
IOSL SRVDATA+13
IOST PAUSE+3
LINE DSCLMR+1~, DSCLMR+2*, DSCLMR+3
LNCNT SRVDATA+3~, SRVDATA+5*, SRVDATA+8*
LNLVL SRVDATA+2~, SRVDATA+5*, SRVDATA+6*, SRVDATA+7, SRVDATA+8, SRVDATA+11*, SRVDATA+12, SRVDATA+27, SRVDATA+31, SRVDATA+39
, SRVDATA+41, LINELVL+8~, LINELVL+9*, LINELVL+10*, LINELVL+11, LINELVL+13
LNLVLD SRVDATA+2~, SRVDATA+12*, SRVDATA+20, SRVDATA+21, SRVDATA+25, SRVDATA+29, LINELVL+8~, LINELVL+10*
LNORD SRVDATA+3~, SRVDATA+6*, SRVDATA+7, SRVDATA+10*, SRVDATA+11*
LNORD( SRVDATA+7*, SRVDATA+8*, SRVDATA+11
MOD SRVDATA+2~, SRVDATA+18!, SRVDATA+27*, SRVDATA+34
MOD( SRVDATA+27
MRACNT DEV+3~, DEV+6*, DEV+7
>> NCVRCHRG LINELVL+27*
OPRCD SRVDATA+3~, SRVDATA+25*, SRVDATA+54, SRVDATA+55
PAID SRVDATA+3~, SRVDATA+25*, SRVDATA+50
POP DEV+3~, DEV+10
PRCD SRVDATA+3~, SRVDATA+20*, SRVDATA+34
PRCTYP SRVDATA+3~, SRVDATA+21*, SRVDATA+34
>> RCDED LINELVL+22
>> RCLMADJ LINELVL+18
>> RCNCVR LINELVL+27
RCNT SRVDATA+3~, SRVDATA+18!*, SRVDATA+38*, SRVDATA+47*, SRVDATA+52
>> RCOINS LINELVL+20
>> RCTADJ LINELVL+25
REVCD SRVDATA+3~, SRVDATA+20*, SRVDATA+23*, SRVDATA+34
RLVL SRVDATA+2~, SRVDATA+40*, SRVDATA+41*, LINELVL+8~, LINELVL+12*, LINELVL+13*
RLVLD SRVDATA+2~, SRVDATA+41*, SRVDATA+45, SRVDATA+46, SRVDATA+47, LINELVL+8~, LINELVL+13*, LINELVL+18, LINELVL+20, LINELVL+22
, LINELVL+25, LINELVL+27
RSNCD SRVDATA+2~, SRVDATA+38!, SRVDATA+41*, SRVDATA+42, SRVDATA+43, SRVDATA+45, SRVDATA+46, SRVDATA+47, LINELVL+8~, LINELVL+13*
, LINELVL+14, LINELVL+15, LINELVL+18, LINELVL+20, LINELVL+22, LINELVL+25, LINELVL+27
RSNCD( SRVDATA+47*, SRVDATA+52
SRMKS SRVDATA+2~, SRVDATA+31*, SRVDATA+54, SRVDATA+56
SRVCOIN SRVDATA+2~, SRVDATA+38*, SRVDATA+46*, SRVDATA+50
SRVDED SRVDATA+2~, SRVDATA+3~, SRVDATA+38*, SRVDATA+45*, SRVDATA+50
SRVDT SRVDATA+3~, SRVDATA+20*, SRVDATA+33
TOTL SRVDATA+3~, SRVDATA+18!, SRVDATA+29*, SRVDATA+34
U SRVDATA+6, SRVDATA+20, SRVDATA+21, SRVDATA+23, SRVDATA+25, SRVDATA+29, SRVDATA+40, SRVDATA+41, SRVDATA+45, SRVDATA+46
, SRVDATA+47, SRVDATA+52, SRVDATA+56, LINELVL+12, LINELVL+13, LINELVL+18, LINELVL+20, LINELVL+22, LINELVL+25, LINELVL+27
UNIT SRVDATA+3~, SRVDATA+20*, SRVDATA+34
ZTDESC DEV+3~, DEV+14*
ZTRTN DEV+3~, DEV+13*
ZTSAVE DEV+3~
ZTSAVE("IB*" DEV+15*
ZTSK DEV+17, DEV+18!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All