ABMUTLF ; IHS/ASDST/DMJ - FACILITY UTILITIES ;
;;2.6;IHS 3P BILLING SYSTEM;**10,11**;NOV 12, 2009;Build 133
;Original;DMJ;09/21/95 12:47 PM
;
; IHS/SD/SDR - v2.5 p8 - IM14883/IM16505
; Fix to pull Medicare number for Part B
;
; IHS/SD/SDR/LSL - v2.5 p8 - IM13693/IM17856
; Added code for 837 PI Billing
;
; IHS/SD/SDR - v2.5 p11 - NPI
;
PTAX(X) ;EP - provider taxonomy
;x=location ien
N I,ABM0
S Y=""
S I=0
F S I=$O(^AUTTLOC(X,11,I)) Q:'I D
.S ABM0=^AUTTLOC(X,11,I,0)
.Q:$P(ABM0,U)>ABMP("VDT")
.I $P(ABM0,"^",2) Q:$P(ABM0,"^",2)<ABMP("VDT")
.S ABMCLASS=$P(ABM0,"^",7)
.Q:'ABMCLASS
.S Y=$P($G(^AUTTPTAX(ABMCLASS,1)),U)
Q Y
MCR(X) ;EP - medicare provider number
;x=location ien
; get group number if 999 and Medicare
S Y=""
I ABMP("VTYP")=999,ABMP("ITYPE")="R" D
.S Y=$P($G(^ABMNINS(X,ABMP("INS"),0)),U,6)
.S:Y="" Y=$P($G(^ABMNINS(DUZ(2),ABMP("INS"),0)),U,6)
.S:Y="" Y=$P($G(^ABMNINS(X,ABMP("INS"),1,ABMP("VTYP"),0)),U,8)
.S:Y="" Y=$P($G(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),0)),U,8)
I ABMP("BTYP")=831,($G(ABMP("ITYPE"))="R") D
.S Y=$P($G(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),0)),U,8)
S:Y="" Y=$P($G(^AUTNINS(ABMP("INS"),15,X,0)),"^",2)
S:Y="" Y=$P($G(^AUTTLOC(X,0)),"^",19)
Q Y
MCD(X) ;EP - medicaid provider number
;x=location ien
S Y=$P($G(^ABMNINS(X,ABMP("INS"),1,ABMP("VTYP"),0)),"^",8)
S:Y="" Y=$P($G(^AUTNINS(ABMP("INS"),15,X,0)),"^",2)
Q Y
EIN(X) ;EP - federal tax id number
;x=location ien
S Y=$P($G(^AUTTLOC(X,0)),"^",18)
Q Y
PI(X) ;EP - PI Provider Number
;x=location ien
;I $G(ABMFILE)="9999999.06",($G(ABMNPIU)="N")!($G(ABMNPIU)="B"),ABMEIC="EI" S Y=$TR($P($G(^AUTTLOC(X,0)),U,18),"-") Q Y ;abm*2.6*10 HEAT72888
;start new code abm*2.6*10 HEAT72888
N Y
I $G(ABMFILE)="9999999.06",($G(ABMNPIU)="N")!($G(ABMNPIU)="B"),ABMEIC="EI" D Q Y
.I $P($G(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1)),U,8)'="" S Y=$P($G(^AUTTLOC($P($G(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1)),U,8),0)),U,18)
.I $G(Y)="",($P($G(^ABMDPARM(ABMP("LDFN"),1,2)),U,12)'="") S Y=$P($G(^AUTTLOC($P($G(^ABMDPARM(ABMP("LDFN"),1,2)),U,12),0)),U,18)
.I $G(Y)="" S Y=$P($G(^AUTTLOC(DUZ(2),0)),U,18)
.S Y=$TR(Y,"-") ;abm*2.6*11 NOHEAT
;end new code HEAT72888
S Y=$P($G(^ABMNINS(X,ABMP("INS"),1,ABMP("VTYP"),0)),U,8)
S:Y="" Y=$P($G(^AUTNINS(ABMP("INS"),15,X,0)),U,2)
S Y=$TR(Y,"-") ;abm*2.6*10 HEAT72888
Q Y
NPIUSAGE(X,Y) ;PEP - NPI Usage in 3P Insurer file
;x=location (i.e., DUZ(2))
;y=insurer
Q $P($G(^ABMNINS(+X,+Y,0)),U,9)
ABMUTLF ; IHS/ASDST/DMJ - FACILITY UTILITIES ;
+1 ;;2.6;IHS 3P BILLING SYSTEM;**10,11**;NOV 12, 2009;Build 133
+2 ;Original;DMJ;09/21/95 12:47 PM
+3 ;
+4 ; IHS/SD/SDR - v2.5 p8 - IM14883/IM16505
+5 ; Fix to pull Medicare number for Part B
+6 ;
+7 ; IHS/SD/SDR/LSL - v2.5 p8 - IM13693/IM17856
+8 ; Added code for 837 PI Billing
+9 ;
+10 ; IHS/SD/SDR - v2.5 p11 - NPI
+11 ;
PTAX(X) ;EP - provider taxonomy
+1 ;x=location ien
+2 NEW I,ABM0
+3 SET Y=""
+4 SET I=0
+5 FOR
SET I=$ORDER(^AUTTLOC(X,11,I))
IF 'I
QUIT
Begin DoDot:1
+6 SET ABM0=^AUTTLOC(X,11,I,0)
+7 IF $PIECE(ABM0,U)>ABMP("VDT")
QUIT
+8 IF $PIECE(ABM0,"^",2)
IF $PIECE(ABM0,"^",2)<ABMP("VDT")
QUIT
+9 SET ABMCLASS=$PIECE(ABM0,"^",7)
+10 IF 'ABMCLASS
QUIT
+11 SET Y=$PIECE($GET(^AUTTPTAX(ABMCLASS,1)),U)
End DoDot:1
+12 QUIT Y
MCR(X) ;EP - medicare provider number
+1 ;x=location ien
+2 ; get group number if 999 and Medicare
+3 SET Y=""
+4 IF ABMP("VTYP")=999
IF ABMP("ITYPE")="R"
Begin DoDot:1
+5 SET Y=$PIECE($GET(^ABMNINS(X,ABMP("INS"),0)),U,6)
+6 IF Y=""
SET Y=$PIECE($GET(^ABMNINS(DUZ(2),ABMP("INS"),0)),U,6)
+7 IF Y=""
SET Y=$PIECE($GET(^ABMNINS(X,ABMP("INS"),1,ABMP("VTYP"),0)),U,8)
+8 IF Y=""
SET Y=$PIECE($GET(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),0)),U,8)
End DoDot:1
+9 IF ABMP("BTYP")=831
IF ($GET(ABMP("ITYPE"))="R")
Begin DoDot:1
+10 SET Y=$PIECE($GET(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),0)),U,8)
End DoDot:1
+11 IF Y=""
SET Y=$PIECE($GET(^AUTNINS(ABMP("INS"),15,X,0)),"^",2)
+12 IF Y=""
SET Y=$PIECE($GET(^AUTTLOC(X,0)),"^",19)
+13 QUIT Y
MCD(X) ;EP - medicaid provider number
+1 ;x=location ien
+2 SET Y=$PIECE($GET(^ABMNINS(X,ABMP("INS"),1,ABMP("VTYP"),0)),"^",8)
+3 IF Y=""
SET Y=$PIECE($GET(^AUTNINS(ABMP("INS"),15,X,0)),"^",2)
+4 QUIT Y
EIN(X) ;EP - federal tax id number
+1 ;x=location ien
+2 SET Y=$PIECE($GET(^AUTTLOC(X,0)),"^",18)
+3 QUIT Y
PI(X) ;EP - PI Provider Number
+1 ;x=location ien
+2 ;I $G(ABMFILE)="9999999.06",($G(ABMNPIU)="N")!($G(ABMNPIU)="B"),ABMEIC="EI" S Y=$TR($P($G(^AUTTLOC(X,0)),U,18),"-") Q Y ;abm*2.6*10 HEAT72888
+3 ;start new code abm*2.6*10 HEAT72888
+4 NEW Y
+5 IF $GET(ABMFILE)="9999999.06"
IF ($GET(ABMNPIU)="N")!($GET(ABMNPIU)="B")
IF ABMEIC="EI"
Begin DoDot:1
+6 IF $PIECE($GET(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1)),U,8)'=""
SET Y=$PIECE($GET(^AUTTLOC($PIECE($GET(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1)),U,8),0)),U,18)
+7 IF $GET(Y)=""
IF ($PIECE($GET(^ABMDPARM(ABMP("LDFN"),1,2)),U,12)'="")
SET Y=$PIECE($GET(^AUTTLOC($PIECE($GET(^ABMDPARM(ABMP("LDFN"),1,2)),U,12),0)),U,18)
+8 IF $GET(Y)=""
SET Y=$PIECE($GET(^AUTTLOC(DUZ(2),0)),U,18)
+9 ;abm*2.6*11 NOHEAT
SET Y=$TRANSLATE(Y,"-")
End DoDot:1
QUIT Y
+10 ;end new code HEAT72888
+11 SET Y=$PIECE($GET(^ABMNINS(X,ABMP("INS"),1,ABMP("VTYP"),0)),U,8)
+12 IF Y=""
SET Y=$PIECE($GET(^AUTNINS(ABMP("INS"),15,X,0)),U,2)
+13 ;abm*2.6*10 HEAT72888
SET Y=$TRANSLATE(Y,"-")
+14 QUIT Y
NPIUSAGE(X,Y) ;PEP - NPI Usage in 3P Insurer file
+1 ;x=location (i.e., DUZ(2))
+2 ;y=insurer
+3 QUIT $PIECE($GET(^ABMNINS(+X,+Y,0)),U,9)
