- ABME8L14 ; IHS/ASDST/DMJ - Header
- ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- ;Header Segments
- ;
- ; IHS/SD/SDR - V2.5 P8 - IM12418/IM14732/IM16264/IM16363/IM16618
- ; Treat rendering/attending the same
- ;
- ; IHS/SD/SDR - v2.5 p11 - NPI
- ;
- ; IHS/SD/SDR - v2.5 p12 - IM25247
- ; Add missing REG segment for TIN if NPI ONLY
- ;
- EP ;START HERE
- N ABM
- D GETPRV^ABMEEPRV ; Build Claim Level Provider array
- ;
- ; Loop 2310A - Referring Physician Name
- I $D(ABMP("PRV","F")) D
- .S ABM("PRV")=$O(ABMP("PRV","F",0))
- .D EP^ABME8NM1("DN")
- .D WR^ABMUTL8("NM1")
- .D EP^ABME8PRV("RF",ABM("PRV"))
- .D WR^ABMUTL8("PRV")
- .I ABMNPIU="N" D
- ..Q:((ABMRCID="99999")!(ABMRCID="AHCCCS866004791")) ;AZ Medicaid
- ..D EP^ABME8REF("EI",9999999.06,DUZ(2))
- ..D WR^ABMUTL8("REF")
- .I ABMNPIU'="N" D
- ..D EP^ABME8REF(ABMP("RTYPE"),200,ABM("PRV"))
- ..D WR^ABMUTL8("REF")
- ;
- ; Loop 2310B - Rendering Physician Name
- I $D(ABMP("PRV","R"))!($D(ABMP("PRV","A"))) D
- .S ABM("PRV")=$S($D(ABMP("PRV","R")):$O(ABMP("PRV","R",0)),1:$O(ABMP("PRV","A",0)))
- .D EP^ABME8NM1("82")
- .D WR^ABMUTL8("NM1")
- .D EP^ABME8PRV("PE",ABM("PRV"))
- .D WR^ABMUTL8("PRV")
- .I ABMNPIU="N" D
- ..D EP^ABME8REF("EI",9999999.06,DUZ(2))
- ..Q:((ABMRCID="99999")!(ABMRCID="AHCCCS866004791")) ;AZ Medicaid
- ..D WR^ABMUTL8("REF")
- .I ABMNPIU'="N" D
- ..D EP^ABME8REF(ABMP("RTYPE"),200,ABM("PRV"))
- ..D WR^ABMUTL8("REF")
- ;
- ; Loop 2310C - Service Facility Name
- I "21^22^31^35"[$$POS^ABMERUTL() D
- .D EP^ABME8NM1("FA")
- .D WR^ABMUTL8("NM1")
- .I ABMNPIU'="N" D
- ..I ABMP("ITYPE")="R" D
- ...D EP^ABME8REF("1C",9999999.06,ABMP("LDFN"))
- ...D WR^ABMUTL8("REF")
- ..I ABMP("ITYPE")="D"!(ABMP("ITYPE")="K") D
- ...D EP^ABME8REF("1D",9999999.06,ABMP("LDFN"))
- ...D WR^ABMUTL8("REF")
- Q
- ABME8L14 ; IHS/ASDST/DMJ - Header
- +1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- +2 ;Header Segments
- +3 ;
- +4 ; IHS/SD/SDR - V2.5 P8 - IM12418/IM14732/IM16264/IM16363/IM16618
- +5 ; Treat rendering/attending the same
- +6 ;
- +7 ; IHS/SD/SDR - v2.5 p11 - NPI
- +8 ;
- +9 ; IHS/SD/SDR - v2.5 p12 - IM25247
- +10 ; Add missing REG segment for TIN if NPI ONLY
- +11 ;
- EP ;START HERE
- +1 NEW ABM
- +2 ; Build Claim Level Provider array
- DO GETPRV^ABMEEPRV
- +3 ;
- +4 ; Loop 2310A - Referring Physician Name
- +5 IF $DATA(ABMP("PRV","F"))
- Begin DoDot:1
- +6 SET ABM("PRV")=$ORDER(ABMP("PRV","F",0))
- +7 DO EP^ABME8NM1("DN")
- +8 DO WR^ABMUTL8("NM1")
- +9 DO EP^ABME8PRV("RF",ABM("PRV"))
- +10 DO WR^ABMUTL8("PRV")
- +11 IF ABMNPIU="N"
- Begin DoDot:2
- +12 ;AZ Medicaid
- IF ((ABMRCID="99999")!(ABMRCID="AHCCCS866004791"))
- QUIT
- +13 DO EP^ABME8REF("EI",9999999.06,DUZ(2))
- +14 DO WR^ABMUTL8("REF")
- End DoDot:2
- +15 IF ABMNPIU'="N"
- Begin DoDot:2
- +16 DO EP^ABME8REF(ABMP("RTYPE"),200,ABM("PRV"))
- +17 DO WR^ABMUTL8("REF")
- End DoDot:2
- End DoDot:1
- +18 ;
- +19 ; Loop 2310B - Rendering Physician Name
- +20 IF $DATA(ABMP("PRV","R"))!($DATA(ABMP("PRV","A")))
- Begin DoDot:1
- +21 SET ABM("PRV")=$SELECT($DATA(ABMP("PRV","R")):$ORDER(ABMP("PRV","R",0)),1:$ORDER(ABMP("PRV","A",0)))
- +22 DO EP^ABME8NM1("82")
- +23 DO WR^ABMUTL8("NM1")
- +24 DO EP^ABME8PRV("PE",ABM("PRV"))
- +25 DO WR^ABMUTL8("PRV")
- +26 IF ABMNPIU="N"
- Begin DoDot:2
- +27 DO EP^ABME8REF("EI",9999999.06,DUZ(2))
- +28 ;AZ Medicaid
- IF ((ABMRCID="99999")!(ABMRCID="AHCCCS866004791"))
- QUIT
- +29 DO WR^ABMUTL8("REF")
- End DoDot:2
- +30 IF ABMNPIU'="N"
- Begin DoDot:2
- +31 DO EP^ABME8REF(ABMP("RTYPE"),200,ABM("PRV"))
- +32 DO WR^ABMUTL8("REF")
- End DoDot:2
- End DoDot:1
- +33 ;
- +34 ; Loop 2310C - Service Facility Name
- +35 IF "21^22^31^35"[$$POS^ABMERUTL()
- Begin DoDot:1
- +36 DO EP^ABME8NM1("FA")
- +37 DO WR^ABMUTL8("NM1")
- +38 IF ABMNPIU'="N"
- Begin DoDot:2
- +39 IF ABMP("ITYPE")="R"
- Begin DoDot:3
- +40 DO EP^ABME8REF("1C",9999999.06,ABMP("LDFN"))
- +41 DO WR^ABMUTL8("REF")
- End DoDot:3
- +42 IF ABMP("ITYPE")="D"!(ABMP("ITYPE")="K")
- Begin DoDot:3
- +43 DO EP^ABME8REF("1D",9999999.06,ABMP("LDFN"))
- +44 DO WR^ABMUTL8("REF")
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +45 QUIT
