ABMER46 ; IHS/ASDST/DMJ - UB92 EMC RECORD 46 (ENVOY/NEIC ADDITIONAL PROVIDER INFO) ;
;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
;
START ;START HERE
K ABMR(46),ABMREC(46)
S ABME("RTYPE")=46
D SET^ABMERUTL
D LOOP
D S90^ABMERUTL
K ABM
Q
;
LOOP ;LOOP HERE
F I=10:10:230 D
.D @I
.I $D(^ABMEXLM("AA",+$G(ABMP("INS")),+$G(ABMP("EXP")),46,I)) D @(^(I))
.I '$G(ABMP("NOFMT")) S ABMREC(46)=$G(ABMREC(46))_ABMR(46,I)
Q
10 ;1-2, Record Type 46
S ABMR(46,10)=46
Q
20 ;3-4, Filler
S ABMR(46,20)=""
S ABMR(46,20)=$$FMT^ABMERUTL(ABMR(46,20),2)
Q
30 ;5-24, Patient Control Number
S ABMR(46,30)=$$EX^ABMER20(30,ABMP("BDFN"))
S ABMR(46,30)=$$FMT^ABMERUTL(ABMR(46,30),20)
Q
40 ;25-25, Filler
S ABMR(46,40)=""
S ABMR(46,40)=$$FMT^ABMERUTL(ABMR(46,40),1)
Q
50 ;26-26, Claim Type Indicator
S ABMR(46,50)=""
S ABMR(46,50)=$$FMT^ABMERUTL(ABMR(46,50),1)
Q
60 ;27-35, Filler
S ABMR(46,60)=""
S ABMR(46,60)=$$FMT^ABMERUTL(ABMR(46,60),9)
Q
;rendering provider
70 ;36-36, Name Qualifier
S ABMR(46,70)=""
S ABMR(46,70)=$$FMT^ABMERUTL(ABMR(46,70),1)
Q
80 ;37-56, Organization or Last Name
S ABMR(46,80)=$P(^DIC(4,DUZ(2),0),U)
I $$ENVOY^ABMEF16 D
.S ABMR(46,80)=$$REPLNOT^ABMER10(ABMR(46,80),",. ")
S ABMR(46,80)=$$FMT^ABMERUTL(ABMR(46,80),20)
Q
90 ;57-66, First Name
S ABMR(46,90)=""
S ABMR(46,90)=$$FMT^ABMERUTL(ABMR(46,90),10)
Q
100 ;67-67, Middle Initial
S ABMR(46,100)=""
S ABMR(46,100)=$$FMT^ABMERUTL(ABMR(46,100),1)
Q
110 ;68-69, Filler
S ABMR(46,110)=""
S ABMR(46,110)=$$FMT^ABMERUTL(ABMR(46,110),2)
Q
120 ;70-84, Network ID
S ABMR(46,120)=""
S ABMR(46,120)=$$FMT^ABMERUTL(ABMR(46,120),15)
Q
130 ;85-102, Address
S ABMR(46,130)=$P($G(^AUTTLOC(DUZ(2),0)),"^",12)
S ABMR(46,130)=$$FMT^ABMERUTL(ABMR(46,130),18)
Q
140 ;103-117, City
S ABMR(46,140)=$P($G(^AUTTLOC(DUZ(2),0)),"^",13)
S ABMR(46,140)=$$FMT^ABMERUTL(ABMR(46,140),15)
Q
150 ;118-119, State
S ABMR(46,150)=$P($G(^AUTTLOC(DUZ(2),0)),"^",14)
S ABMR(46,150)=$P($G(^DIC(5,+ABMR(46,150),0)),"^",2)
S ABMR(46,150)=$$FMT^ABMERUTL(ABMR(46,150),2)
Q
160 ;120-128, Zip Code
S ABMR(46,160)=$P($G(^AUTTLOC(DUZ(2),0)),"^",15)
S ABMR(46,160)=$$FMT^ABMERUTL(ABMR(46,160),9)
Q
;referring provider
170 ;129-143, Network ID
S ABMR(46,170)=""
S ABMR(46,170)=$$FMT^ABMERUTL(ABMR(46,170),15)
Q
180 ;144-153, Telephone Number
S ABMR(46,180)=""
S ABMR(46,180)=$$FMT^ABMERUTL(ABMR(46,180),"10NR")
Q
190 ;154-168, Referral Number
S ABMR(46,190)=""
S ABMR(46,190)=$$FMT^ABMERUTL(ABMR(46,190),15)
Q
200 ;169-183, Authorization Number
S ABMR(46,200)=""
S ABMR(46,200)=$$FMT^ABMERUTL(ABMR(46,200),15)
Q
210 ;184-185, State
S ABMR(46,210)=""
S ABMR(46,210)=$$FMT^ABMERUTL(ABMR(46,210),2)
Q
220 ;186-188, HMO Code
S ABMR(46,220)=""
S ABMR(46,220)=$$FMT^ABMERUTL(ABMR(46,220),3)
Q
230 ;189-192 Filler
S ABMR(46,230)=""
S ABMR(46,230)=$$FMT^ABMERUTL(ABMR(46,230),4)
Q
ABMER46 ; IHS/ASDST/DMJ - UB92 EMC RECORD 46 (ENVOY/NEIC ADDITIONAL PROVIDER INFO) ;
+1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
+2 ;
START ;START HERE
+1 KILL ABMR(46),ABMREC(46)
+2 SET ABME("RTYPE")=46
+3 DO SET^ABMERUTL
+4 DO LOOP
+5 DO S90^ABMERUTL
+6 KILL ABM
+7 QUIT
+8 ;
LOOP ;LOOP HERE
+1 FOR I=10:10:230
Begin DoDot:1
+2 DO @I
+3 IF $DATA(^ABMEXLM("AA",+$GET(ABMP("INS")),+$GET(ABMP("EXP")),46,I))
DO @(^(I))
+4 IF '$GET(ABMP("NOFMT"))
SET ABMREC(46)=$GET(ABMREC(46))_ABMR(46,I)
End DoDot:1
+5 QUIT
10 ;1-2, Record Type 46
+1 SET ABMR(46,10)=46
+2 QUIT
20 ;3-4, Filler
+1 SET ABMR(46,20)=""
+2 SET ABMR(46,20)=$$FMT^ABMERUTL(ABMR(46,20),2)
+3 QUIT
30 ;5-24, Patient Control Number
+1 SET ABMR(46,30)=$$EX^ABMER20(30,ABMP("BDFN"))
+2 SET ABMR(46,30)=$$FMT^ABMERUTL(ABMR(46,30),20)
+3 QUIT
40 ;25-25, Filler
+1 SET ABMR(46,40)=""
+2 SET ABMR(46,40)=$$FMT^ABMERUTL(ABMR(46,40),1)
+3 QUIT
50 ;26-26, Claim Type Indicator
+1 SET ABMR(46,50)=""
+2 SET ABMR(46,50)=$$FMT^ABMERUTL(ABMR(46,50),1)
+3 QUIT
60 ;27-35, Filler
+1 SET ABMR(46,60)=""
+2 SET ABMR(46,60)=$$FMT^ABMERUTL(ABMR(46,60),9)
+3 QUIT
+4 ;rendering provider
70 ;36-36, Name Qualifier
+1 SET ABMR(46,70)=""
+2 SET ABMR(46,70)=$$FMT^ABMERUTL(ABMR(46,70),1)
+3 QUIT
80 ;37-56, Organization or Last Name
+1 SET ABMR(46,80)=$PIECE(^DIC(4,DUZ(2),0),U)
+2 IF $$ENVOY^ABMEF16
Begin DoDot:1
+3 SET ABMR(46,80)=$$REPLNOT^ABMER10(ABMR(46,80),",. ")
End DoDot:1
+4 SET ABMR(46,80)=$$FMT^ABMERUTL(ABMR(46,80),20)
+5 QUIT
90 ;57-66, First Name
+1 SET ABMR(46,90)=""
+2 SET ABMR(46,90)=$$FMT^ABMERUTL(ABMR(46,90),10)
+3 QUIT
100 ;67-67, Middle Initial
+1 SET ABMR(46,100)=""
+2 SET ABMR(46,100)=$$FMT^ABMERUTL(ABMR(46,100),1)
+3 QUIT
110 ;68-69, Filler
+1 SET ABMR(46,110)=""
+2 SET ABMR(46,110)=$$FMT^ABMERUTL(ABMR(46,110),2)
+3 QUIT
120 ;70-84, Network ID
+1 SET ABMR(46,120)=""
+2 SET ABMR(46,120)=$$FMT^ABMERUTL(ABMR(46,120),15)
+3 QUIT
130 ;85-102, Address
+1 SET ABMR(46,130)=$PIECE($GET(^AUTTLOC(DUZ(2),0)),"^",12)
+2 SET ABMR(46,130)=$$FMT^ABMERUTL(ABMR(46,130),18)
+3 QUIT
140 ;103-117, City
+1 SET ABMR(46,140)=$PIECE($GET(^AUTTLOC(DUZ(2),0)),"^",13)
+2 SET ABMR(46,140)=$$FMT^ABMERUTL(ABMR(46,140),15)
+3 QUIT
150 ;118-119, State
+1 SET ABMR(46,150)=$PIECE($GET(^AUTTLOC(DUZ(2),0)),"^",14)
+2 SET ABMR(46,150)=$PIECE($GET(^DIC(5,+ABMR(46,150),0)),"^",2)
+3 SET ABMR(46,150)=$$FMT^ABMERUTL(ABMR(46,150),2)
+4 QUIT
160 ;120-128, Zip Code
+1 SET ABMR(46,160)=$PIECE($GET(^AUTTLOC(DUZ(2),0)),"^",15)
+2 SET ABMR(46,160)=$$FMT^ABMERUTL(ABMR(46,160),9)
+3 QUIT
+4 ;referring provider
170 ;129-143, Network ID
+1 SET ABMR(46,170)=""
+2 SET ABMR(46,170)=$$FMT^ABMERUTL(ABMR(46,170),15)
+3 QUIT
180 ;144-153, Telephone Number
+1 SET ABMR(46,180)=""
+2 SET ABMR(46,180)=$$FMT^ABMERUTL(ABMR(46,180),"10NR")
+3 QUIT
190 ;154-168, Referral Number
+1 SET ABMR(46,190)=""
+2 SET ABMR(46,190)=$$FMT^ABMERUTL(ABMR(46,190),15)
+3 QUIT
200 ;169-183, Authorization Number
+1 SET ABMR(46,200)=""
+2 SET ABMR(46,200)=$$FMT^ABMERUTL(ABMR(46,200),15)
+3 QUIT
210 ;184-185, State
+1 SET ABMR(46,210)=""
+2 SET ABMR(46,210)=$$FMT^ABMERUTL(ABMR(46,210),2)
+3 QUIT
220 ;186-188, HMO Code
+1 SET ABMR(46,220)=""
+2 SET ABMR(46,220)=$$FMT^ABMERUTL(ABMR(46,220),3)
+3 QUIT
230 ;189-192 Filler
+1 SET ABMR(46,230)=""
+2 SET ABMR(46,230)=$$FMT^ABMERUTL(ABMR(46,230),4)
+3 QUIT
