- 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