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

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.

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
Info |  Source |  Entry Points |  Interaction Calls