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

ABME8L2.m

Go to the documentation of this file.
  1. ABME8L2 ; IHS/ASDST/DMJ - Header
  1. ;;2.6;IHS 3P BILLING SYSTEM;**3,6**;NOV 12, 2009
  1. ;Header Segments
  1. ;
  1. ; IHS/SD/SDR - v2.5 p8 - IM14124/IM15667/IM16383
  1. ; Added code to put REF segment for Medicaid and Kidscare
  1. ;
  1. ; IHS/SD/SDR - v2.5 p8 - IM14026/IM14883/IM16505
  1. ; Modified to use Location DFN instead of DUZ(2)
  1. ;
  1. ; IHS/SD/SDR - v2.5 p8 - IM13693/IM17856/IM21870
  1. ; Added code for REF segment for ID codes for 2010AA loop
  1. ;
  1. ; IHS/SD/SDR - v2.5 p10 - IM20454 - Added flag for what loop
  1. ; IHS/SD/SDR - v2.5 p11 - NPI
  1. ; IHS/SD/SDR - v2.5 p12 - IM24975 - Made changes for Value Options
  1. ; IHS/SD/SDR - abm*2.6*6 - HEAT7254 - add PRV segment to 837D claims
  1. ;
  1. START ;START HERE
  1. K ABMHLCNT
  1. D EP^ABME8HL(20,1)
  1. D WR^ABMUTL8("HL")
  1. ;I ABMP("EXP")=21!((ABMRCID="NMMAD")&(ABMP("EXP")=22))!((ABMP("EXP")=22)&(ABMP("VTYP")=831)) D ;abm*2.6*3 HEAT12845
  1. ;I ABMP("EXP")=21!((ABMRCID="NMMAD")&(ABMP("EXP")=22))!((ABMP("EXP")=22)&(ABMP("VTYP")=831))!($P($G(^AUTNINS(ABMP("INS"),0)),U)["WASHINGTON MEDICAID") D ;abm*2.6*3 HEAT12845 ;abm*2.6*6 HEAT7254
  1. I ABMP("EXP")=21!((ABMRCID="NMMAD")&(ABMP("EXP")=22))!((ABMP("EXP")=22)&(ABMP("VTYP")=831))!($P($G(^AUTNINS(ABMP("INS"),0)),U)["WASHINGTON MEDICAID")!(ABMP("EXP")=23) D ;abm*2.6*3 HEAT12845 ;abm*2.6*6 HEAT7254
  1. .D EP^ABME8PRV("BI",DUZ(2))
  1. .D WR^ABMUTL8("PRV")
  1. S ABMP("PAYDFN")=$P($G(^ABMDPARM(DUZ(2),1,2)),U,3)
  1. D EP^ABME8NM1(85)
  1. D WR^ABMUTL8("NM1")
  1. D EP^ABME8N3(4,DUZ(2))
  1. D WR^ABMUTL8("N3")
  1. D EP^ABME8N4(4,DUZ(2))
  1. D WR^ABMUTL8("N4")
  1. S ABMLOOP="2010AA"
  1. S ABMNPIU=$$NPIUSAGE^ABMUTLF(DUZ(2),ABMP("INS"))
  1. ;
  1. I ABMNPIU=""!(ABMNPIU="L")!(ABMNPIU="B") D
  1. .I ABMP("ITYPE")="R" D
  1. ..D EP^ABME8REF("1C",9999999.06,ABMP("LDFN"))
  1. ..D WR^ABMUTL8("REF")
  1. .I ABMP("ITYPE")="D"!(ABMP("ITYPE")="K") D
  1. ..I ABMRCID="FHC&AFFILIATES" D
  1. ...D EP^ABME8REF("G2",9999999.06,ABMP("LDFN"))
  1. ..E D EP^ABME8REF("1D",9999999.06,ABMP("LDFN"))
  1. ..D WR^ABMUTL8("REF")
  1. ..I ABMRCID="FHC&AFFILIATES" D
  1. ...D EP^ABME8REF("LU",9999999.06,ABMP("LDFN"))
  1. ...D WR^ABMUTL8("REF")
  1. .S ABMIDCD=""
  1. .D PIREFID
  1. .I ABMIDCD]"" D
  1. ..D EP^ABME8REF(ABMIDCD,9999999.06,DUZ(2))
  1. ..D WR^ABMUTL8("REF")
  1. ;
  1. I ABMNPIU="B"!(ABMNPIU="N") D
  1. .D EP^ABME8REF("EI",9999999.06,DUZ(2))
  1. .D WR^ABMUTL8("REF")
  1. K ABMIDCD
  1. I ABMP("PAYDFN")'=DUZ(2) D
  1. .Q:$P($G(^AUTNINS(ABMP("INS"),2)),U)="D"&($P($G(^AUTNINS(ABMP("INS"),0)),U)["OK")
  1. .S ABMLOOP="2010AB"
  1. .D EP^ABME8NM1(87)
  1. .D WR^ABMUTL8("NM1")
  1. .D EP^ABME8N3(9999999.06,ABMP("PAYDFN"))
  1. .D WR^ABMUTL8("N3")
  1. .D EP^ABME8N4(9999999.06,ABMP("PAYDFN"))
  1. .D WR^ABMUTL8("N4")
  1. .I ABMNPIU=""!(ABMNPIU="L")!(ABMNPIU="B") D
  1. ..I ABMP("ITYPE")="R" D
  1. ...D EP^ABME8REF("1C",9999999.06,ABMP("LDFN"))
  1. ...D WR^ABMUTL8("REF")
  1. ..I ABMP("ITYPE")="D"!(ABMP("ITYPE")="K") D
  1. ...I ABMRCID="FHC&AFFILIATES" D
  1. ....D EP^ABME8REF("G2",9999999.06,ABMP("LDFN"))
  1. ....D WR^ABMUTL8("REF")
  1. ...E D
  1. ....D EP^ABME8REF("1D",9999999.06,ABMP("LDFN"))
  1. ....D WR^ABMUTL8("REF")
  1. ...I ABMRCID="FHC&AFFILIATES" D
  1. ....D EP^ABME8REF("LU",9999999.06,ABMP("LDFN"))
  1. ....D WR^ABMUTL8("REF")
  1. .I ABMNPIU'="N" D
  1. ..S ABMIDCD=""
  1. ..D PIREFID
  1. ..I ABMIDCD]"" D
  1. ...D EP^ABME8REF(ABMIDCD,9999999.06,DUZ(2))
  1. ...D WR^ABMUTL8("REF")
  1. .I ABMNPIU="B"!(ABMNPIU="N") D
  1. ..D EP^ABME8REF("EI",9999999.06,DUZ(2))
  1. ..D WR^ABMUTL8("REF")
  1. .K ABMIDCD
  1. .K ABMLOOP
  1. Q
  1. PIREFID ;EP - Find EMC Ref ID for Private Ins.
  1. S:ABMP("ITYPE")="H" ABMIDCD="BQ"
  1. S:ABMP("ITYPE")="C" ABMIDCD="1H"
  1. I "M^P^W^F"[ABMP("ITYPE") S ABMIDCD="G2"
  1. I ABMIDCD="G2",ABMP("ITYPE")'="M" D
  1. .I $P($G(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),1)),U)]"" D
  1. ..S ABMIDCD=$P($G(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),1)),U)
  1. ..S ABMIDCD=$P($G(^ABMREFID(ABMIDCD,0)),U)
  1. ..S:ABMIDCD="" ABMIDCD="G2"
  1. Q