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

Package: Integrated Billing

Routine: IBCEMRAB


Information

IBCEMRAB ;ALB/DSM - MEDICARE REMITTANCE ADVICE DETAIL-PART B ; 3/10/11 10:14am

Source Information

Source file <IBCEMRAB.m>

Entry Points

Name Comments DBIA/ICR reference
PRNT ;
; Claim Level Adjustments
GDATA ; Get MRA data
HDR ; Print Header
SRVPRNT ; Print Service Level Data of EOB file (#361.1 Level 15)
TOTAL ; Print Totals

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?102,"Medicare-equivalent",!?104,"Remittance Advice",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!!!,"DEPT OF VETERANS AFFAIRS"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,$P(PRVDR,U,5),?97,"PROVIDER #:",?111,"VA0"_$P($$SITE^VASITE,U,3)
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !,$P(PRVDR,U,6),?97,"PAGE #:",?111,$J(IBPGN,3)
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !,$P(PRVDR,U,7),", ",$P(PRVDR,U,8)," ",$P(PRVDR,U,9),?97,"DATE:",?111,$$FMTE^XLFDT($P(IBEOB(0),U,6),5)
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !!!!,"PERF PROV",?12,"SERV DATE",?25,"POS",?29,"NOS",?34,"PROC",?40,"MODS",?53,"BILLED",?63,"ALLOWED",?75,"DEDUCT"
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: ?87,"COINS",?93,"GRP-RC",?107,"AMT",?114,"PROV PD"
  • Line Location: HDR+22
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: HDR+24
Function Call: WRITE
  • Prompt: !!,"NAME",?7,PTNM,?31,"HIC",?35,HIC
  • Line Location: HDR+34
Function Call: WRITE
  • Prompt: ?49,"ACNT",?54,$P($$SITE^VASITE,U,3),"-",$P(IBILL,U)
  • Line Location: HDR+35
Function Call: WRITE
  • Prompt: ?76,"ICN",?80,ICN
  • Line Location: HDR+39
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(ICN)>17
  • Line Location: HDR+39
Function Call: WRITE
  • Prompt: ?97,"ASG",?101,$S($P(IBILLU,U,6):"Y",1:"N")
  • Line Location: HDR+40
Function Call: WRITE
  • Prompt: $P(RMKS,U,1)," ",$P(RMKS,U,2)
  • Line Location: HDR+44
Function Call: WRITE
  • Prompt: !,RMKS
  • Line Location: HDR+45
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SRVPRNT+11
Function Call: WRITE
  • Prompt: !,$G(PRFRMID)
  • Line Location: SRVPRNT+39
Function Call: WRITE
  • Prompt: ?12,SRVDT
  • Line Location: SRVPRNT+41
Function Call: WRITE
  • Prompt: ?17,$E("00",1,2-$L(+SRVTDT)),+SRVTDT,$E("00",1,2-$L($P(SRVTDT,"/",2))),$P(SRVTDT,"/",2),$E($P(SRVTDT,"/",3),3,4)
  • Line Location: SRVPRNT+43
Function Call: WRITE
  • Prompt: ?17,SRVDT,$E($P(SRVFDT,"/",3),3,4)
  • Line Location: SRVPRNT+45
Function Call: WRITE
  • Prompt: ?25,$P($G(IBZDATA(CLMLN)),U,3)
  • Line Location: SRVPRNT+47
Function Call: WRITE
  • Prompt: ?28,UNIT,?34,PRCD,?40,MOD,?49,$J(SRVCHRG,10,2),?60,$J(ALWD,10,2),?71,$J(SRVDED,10,2),?82,$J(SRVCOIN,10,2)
  • Line Location: SRVPRNT+49
Function Call: WRITE
  • Prompt: ?93,$P($G(RSNCD(1)),U),?100,$J($P($G(RSNCD(1)),U,2),10,2),?111,$J(PAID,10,2)
  • Line Location: SRVPRNT+51
Function Call: WRITE
  • Prompt: !
  • Line Location: SRVPRNT+53
Function Call: WRITE
  • Prompt: ?33,"(",OPRCD,")"
  • Line Location: SRVPRNT+54
Function Call: WRITE
  • Prompt: SRMKS(Z),$S($O(SRMKS(Z)):",",1:"")
  • Line Location: SRVPRNT+55
Function Call: WRITE
  • Prompt: !?93,$P(RSNCD(I),U),?100,$J($P(RSNCD(I),U,2),10,2)
  • Line Location: SRVPRNT+57
Function Call: WRITE
  • Prompt: !!,"PT RESP ",$J($P($G(IBEOB(1)),U,2),10,2)
  • Line Location: TOTAL+1
Function Call: WRITE
  • Prompt: ?35,"CLAIM TOTAL",?49,$J($P($G(IBEOB(2)),U,4),10,2),?60,$J(TOT("ALWD"),10,2),?71,$J(TOT("SRVDED"),10,2)
  • Line Location: TOTAL+3
Function Call: WRITE
  • Prompt: ?82,$J(TOT("SRVCOIN"),10,2),?100,$J(TOT("SRVADJ"),10,2),?111,$J(TOT("PAID"),10,2)
  • Line Location: TOTAL+5
Info |  Source |  Entry Points |  Interaction Calls