Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBCE835A

IBCE835A.m

Go to the documentation of this file.
  1. IBCE835A ;ALB/ESG/PJH - 835 EDI EOB PROCESSING CONTINUED ; 7/15/10 7:02pm
  1. ;;2.0;INTEGRATED BILLING;**135,431,718**;21-MAR-94;Build 73
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. Q
  1. ; Continue processing of IBCE835 since that routine grew too large
  1. ;
  1. 37(IBD) ; Process claim level adjustment data for Inpatient MEDICARE
  1. ; Claim must have been referenced by a previous '05' level
  1. ;
  1. ; INPUT:
  1. ; IBD must be passed by reference = entire message line
  1. ;
  1. ; OUTPUT:
  1. ; IBD("LINE") = The last line # populated in the message
  1. ; ^TMP("IBMSG",$J,"CLAIM",claim #,line #)=claim level adjustment msg
  1. ; ,"D",37,seq#)=
  1. ; ,"D1",seq#,37)=
  1. ; claim level adjust. raw data
  1. ;
  1. N IBCLM,IBHCT
  1. S IBCLM=$$GETCLM^IBCE277($P(IBD,U,2))
  1. ;
  1. ;;IB*2.0*718;JWS;EBILL-924;handle split MRAs in the same file received from FSC
  1. S IBHCT=$$GETHCT^IBCE835(IBCLM)
  1. S IBCLM=IBCLM_"#"_IBHCT
  1. ;
  1. Q:'$D(^TMP("IBMSG",$J,"CLAIM",IBCLM))
  1. S IBD("LINE")=$G(IBD("LINE"))+1
  1. S ^TMP("IBMSG",$J,"CLAIM",IBCLM,IBD("LINE"))=$S($D(^TMP("IBMSG",$J,"CLAIM",IBCLM,"D",37)):$J("",34),1:"MEDICARE ADJUDICATION MESSAGE(S): ")_"("_$P(IBD,U,4)_") "_$P(IBD,U,5)
  1. S ^TMP("IBMSG",$J,"CLAIM",IBCLM,"D",37,IBD("LINE"))="##RAW DATA: "_IBD
  1. S ^TMP("IBMSG",$J,"CLAIM",IBCLM,"D1",IBD("LINE"),37)="##RAW DATA: "_IBD
  1. Q
  1. ;
  1. 40(IBD) ; Process service line data
  1. ;
  1. ; INPUT:
  1. ; IBD must be passed by reference = entire message line
  1. ;
  1. ; OUTPUT:
  1. ; ^TMP("IBMSG",$J,"CLAIM",claim #,"D",40,msg seq #)=
  1. ; "D1",msg seq #,40)=
  1. ; claim status raw data
  1. ; IBD("LINE") = The last line # populated in the message
  1. ;
  1. N IBCLM,IBHCT
  1. S IBCLM=$$GETCLM^IBCE277($P(IBD,U,2))
  1. S IBD("LINE")=$G(IBD("LINE"))+1
  1. ;
  1. ;;IB*2.0*718;JWS;EBILL-924;handle split MRAs in the same file received from FSC
  1. S IBHCT=$$GETHCT^IBCE835(IBCLM)
  1. S IBCLM=IBCLM_"#"_IBHCT
  1. ;
  1. I '$D(^TMP("IBMSG",$J,"CLAIM",IBCLM,"D",40)) D
  1. . S ^TMP("IBMSG",$J,"CLAIM",IBCLM,IBD("LINE"))="Line level detail exists for this claim"
  1. . S IBD("LINE")=IBD("LINE")+1
  1. ;
  1. S ^TMP("IBMSG",$J,"CLAIM",IBCLM,"D",40,IBD("LINE"))="##RAW DATA: "_IBD
  1. S ^TMP("IBMSG",$J,"CLAIM",IBCLM,"D1",IBD("LINE"),40)="##RAW DATA: "_IBD
  1. ;
  1. Q
  1. ;
  1. 45(IBD) ; Process service line adjustment data
  1. ;
  1. ; INPUT:
  1. ; IBD must be passed by reference = entire message line
  1. ;
  1. ; OUTPUT:
  1. ; ^TMP("IBMSG",$J,"CLAIM",claim #,"D",45,msg seq #)=
  1. ; ^TMP("IBMSG",$J,"CLAIM",claim #,"D1",msg seq #,45)=
  1. ; claim status raw data
  1. ; IBD("LINE") = The last line # populated in the message
  1. ;
  1. N IBCLM,IBHCT
  1. S IBCLM=$$GETCLM^IBCE277($P(IBD,U,2))
  1. S IBD("LINE")=$G(IBD("LINE"))+1
  1. ;
  1. ;;IB*2.0*718;JWS;EBILL-924;handle split MRAs in the same file received from FSC
  1. S IBHCT=$$GETHCT^IBCE835(IBCLM)
  1. S IBCLM=IBCLM_"#"_IBHCT
  1. ;
  1. I '$D(^TMP("IBMSG",$J,"CLAIM",IBCLM,"D",45)) D
  1. . S ^TMP("IBMSG",$J,"CLAIM",IBCLM,IBD("LINE"))="Line level adjustments exist for this claim"
  1. . S IBD("LINE")=IBD("LINE")+1
  1. ;
  1. S ^TMP("IBMSG",$J,"CLAIM",IBCLM,"D",45,IBD("LINE"))="##RAW DATA: "_IBD
  1. S ^TMP("IBMSG",$J,"CLAIM",IBCLM,"D1",IBD("LINE"),45)="##RAW DATA: "_IBD
  1. ;
  1. Q
  1. ;
  1. 46(IBD) ; Process service line adjustment data
  1. ;
  1. ; INPUT:
  1. ; IBD must be passed by reference = entire message line
  1. ;
  1. ; OUTPUT:
  1. ; ^TMP("IBMSG",$J,"CLAIM",claim #,"D",46,msg seq #)=
  1. ; ^TMP("IBMSG",$J,"CLAIM",claim #,"D1",msg seq #,46)=
  1. ; claim status raw data
  1. ; IBD("LINE") = The last line # populated in the message
  1. ;
  1. N IBCLM,IBHCT
  1. S IBCLM=$$GETCLM^IBCE277($P(IBD,U,2))
  1. S IBD("LINE")=$G(IBD("LINE"))+1
  1. ;
  1. ;;IB*2.0*718;JWS;EBILL-924;handle split MRAs in the same file received from FSC
  1. S IBHCT=$$GETHCT^IBCE835(IBCLM)
  1. S IBCLM=IBCLM_"#"_IBHCT
  1. ;
  1. I '$D(^TMP("IBMSG",$J,"CLAIM",IBCLM,"D",46)) D
  1. . S ^TMP("IBMSG",$J,"CLAIM",IBCLM,IBD("LINE"))="Line level adjustments exist for this claim"
  1. . S IBD("LINE")=IBD("LINE")+1
  1. ;
  1. S ^TMP("IBMSG",$J,"CLAIM",IBCLM,"D",46,IBD("LINE"))="##RAW DATA: "_IBD
  1. S ^TMP("IBMSG",$J,"CLAIM",IBCLM,"D1",IBD("LINE"),46)="##RAW DATA: "_IBD
  1. ;
  1. Q