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

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;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBM(361.1 - [#361.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call