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

ABMER46.m

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