ABME5NM1.m

ABME5NM1 ; IHS/ASDST/DMJ - 837 NM1 Segment 

 ;;2.6;IHS Third Party Billing System;**6,8,9,10,11,20**;NOV 12, 2009;Build 317

 ;Submitter Name

 ;IHS/SD/SDR 2.6*20 - HEAT270943 - Made change to default NM109 to the origanization/facility NPI if the provider doesn't have an NPI

 ;

EP(X,Y) ;EP - START HERE

 ;x=entity identifier

 ;y=file ien (optional)

 S ABMEIC=X

 S ABMNIEN=$G(Y)

 K ABMREC("NM1"),ABMR("NM1")

 S ABME("RTYPE")="NM1"

 D LOOP

 K ABME,ABMEIC

 Q

 ;

LOOP ;LOOP HERE

 F I=10:10:120 D

 .D @I

 .I $D(^ABMEXLM("AA",+$G(ABMP("INS")),+$G(ABMP("EXP")),ABME("RTYPE"),I)) D @(^(I))

 .I $G(ABMREC("NM1"))'="" S ABMREC("NM1")=ABMREC("NM1")_"*"

 .S ABMREC("NM1")=$G(ABMREC("NM1"))_ABMR("NM1",I)

 I '$D(^ABMEXLM("AA",+$G(ABMP("INS")),+$G(ABMP("EXP")),ABME("RTYPE"),I)) D 837^ABMUTL8

 Q

 ;

10 ;segment

 S ABMR("NM1",10)="NM1"

 Q

 ;

20 ;NM101 - Entity Identifier Code

 S ABMR("NM1",20)=ABMEIC

 Q

 ;

30 ;NM102 - Entity Type Qualifier

 S ABMR("NM1",30)=1

 S:"40^41^85^87^PR^77^PW^45"[ABMEIC ABMR("NM1",30)=2

 Q

 ;

40 ;NM103 - Name Last or Organization Name

 ;

 S ABMR("NM1",40)=""

 ;

 ; Receiver

 I ABMEIC=40 D

 .;S ABMR("NM1",40)=$P($G(^AUTNINS(ABMP("INS"),2)),"^",13)  ;abm*2.6*8

 .;start new code abm*2.6*6 HEAT28891

 .I $D(^ABMRECVR("C",ABMP("INS"))) D

 ..S ABMCHIEN=$O(^ABMRECVR("C",ABMP("INS"),0))

 ..S ABMR("NM1",40)=$P($G(^ABMRECVR(ABMCHIEN,1,ABMP("INS"),0)),U,3)

 ..K ABMCHIEN

 .;end new code HEAT28891

 .S:ABMR("NM1",40)="" ABMR("NM1",40)=$P($G(^AUTNINS(ABMP("INS"),2)),"^",13)  ;abm*2.6*8

 .S:ABMR("NM1",40)="" ABMR("NM1",40)=$P($G(^AUTNINS(ABMP("INS"),0)),U)

 ;

 ; Submitter ^ Billing Provider

 I "41^85"[ABMEIC D

 .S ABMR("NM1",40)=$P($G(^DIC(4,DUZ(2),0)),U)

 ;

 ; Patient

 I ABMEIC="QC" D

 .S ABMR("NM1",40)=$$LNM^ABMUTLN(2,ABMP("PDFN"))

 ;

 ; Provider

 I "71^72^ZZ^82^QB^DK^DN^DQ^P3"[ABMEIC D

 .I +ABM("PRV")'=0 D

 ..S ABMR("NM1",40)=$$LNM^ABMUTLN(200,ABM("PRV"))

 .E  S ABMR("NM1",40)=$P(ABM("PRV"),",")

 ;

 ; Payer

 I ABMEIC="PR" D

 .S ABMR("NM1",40)=$P($G(^ABMNINS(DUZ(2),ABMNIEN,1,ABMP("VTYP"),1)),"^",2)

 .S:ABMR("NM1",40)="" ABMR("NM1",40)=$P($G(^AUTNINS(ABMNIEN,2)),"^",13)

 .S:ABMR("NM1",40)="" ABMR("NM1",40)=$P(^AUTNINS(ABMNIEN,0),U)

 ;

 ; Insured or Subscriber

 I ABMEIC="IL" D

 .S ABMR("NM1",40)=$$LNM^ABMUTLN(ABMSFILE,ABMSIEN)

 ;

 ; Facility

 I ABMEIC="77" D

 .S ABMR("NM1",40)=$P($G(^DIC(4,ABMP("LDFN"),0)),U)

 ;S:$G(ABMP("ITYPE"))'="D" ABMR("NM1",40)=$TR(ABMR("NM1",40),"-"," ")  ;abm*2.6*11 HEAT104117

 ;

 ; Ambulance Drop Off Location

 I ABMEIC="45" D

 .S ABMR("NM1",40)=$$GET1^DIQ("9002274.4",ABMP("BDFN"),".127")

 Q

 ;

50 ;NM104 - Name First

 S ABMR("NM1",50)=""

 ;

 ; Patient

 I ABMEIC="QC" D

 .S ABMR("NM1",50)=$$FNM^ABMUTLN(2,ABMP("PDFN"))

 ;

 ; Provider

 I "71^72^ZZ^82^QB^DK^DN^DQ^P3"[ABMEIC D

 .I +ABM("PRV")'=0 D

 ..S ABMR("NM1",50)=$$FNM^ABMUTLN(200,ABM("PRV"))

 .E  S ABMR("NM1",50)=$P(ABM("PRV"),",",2)

 ;

 ; Insured or Subscriber

 I ABMEIC="IL" D

 .S ABMR("NM1",50)=$$FNM^ABMUTLN(ABMSFILE,ABMSIEN)

 Q

 ;

60 ;NM105 - Name Middle

 S ABMR("NM1",60)=""

 ;

 ; Patient

 I ABMEIC="QC" D

 .S ABMR("NM1",60)=$$MI^ABMUTLN(2,ABMP("PDFN"))

 ;

 ; Insured or Subscriber

 I ABMEIC="IL" D

 .S ABMR("NM1",60)=$$MI^ABMUTLN(ABMSFILE,ABMSIEN)

 ;

 ; Provider

 I "71^72^ZZ^82^QB^DK^DN^DQ^P3"[ABMEIC D

 .S ABMR("NM1",50)=$$MI^ABMUTLN(200,ABM("PRV"))

 ;

 Q

 ;

70 ;NM106 - Name Prefix (Not Used)

 S ABMR("NM1",70)=""

 Q

 ;

80 ;NM107 - Name Suffix

 S ABMR("NM1",80)=""

 ;

 ; Patient

 I ABMEIC="QC" D

 .S ABMR("NM1",80)=$$SFX^ABMUTLN(2,ABMP("PDFN"))

 ;

 ; Insured or Subscriber

 I ABMEIC="IL" D

 .S ABMR("NM1",80)=$$SFX^ABMUTLN(ABMSFILE,ABMSIEN)

 ;

 ; Provider

 I "71^72^ZZ^82^QB^DK^DN^DQ^P3"[ABMEIC D

 .S ABMR("NM1",50)=$$SFX^ABMUTLN(200,ABM("PRV"))

 ;

 Q

 ;

90 ;NM108 - Identification Code Qualifier

 S ABMNPIU=$$NPIUSAGE^ABMUTLF(ABMP("LDFN"),ABMP("INS"))

 S ABMR("NM1",90)=""

 I "40^41"[ABMEIC S ABMR("NM1",90)=46

 I ABMEIC=85 S ABMR("NM1",90)="XX"

 I "71^72^77^ZZ^82^DN^QB^DQ^DK"[ABMEIC S ABMR("NM1",90)="XX"

 I ABMEIC="PR" S ABMR("NM1",90)="PI"

 I ABMEIC="IL" S ABMR("NM1",90)="MI"

 Q

 ;

100 ;NM109 - Identification Code

 S ABMR("NM1",100)=""

 I ABMEIC=40 D

 .;S ABMR("NM1",100)=$$RCID^ABMUTLP(ABMP("INS"))  ;abm*2.6*8

 .;start new code abm*2.6*8 HEAT45044

 .I $D(^ABMRECVR("C",ABMP("INS"))) D

 ..S ABMCHIEN=$O(^ABMRECVR("C",ABMP("INS"),0))

 ..S:ABMCHIEN ABMR("NM1",100)=$P($G(^ABMRECVR(ABMCHIEN,1,ABMP("INS"),0)),U,2)

 .;I ABMR("NM1",100)="" S ABMR("NM1",100)=$P($G(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),0)),U,19)  ;abm*2.6*10 HEAT68447

 .I ABMR("NM1",100)="" S ABMR("NM1",100)=$P($G(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),0)),U,19)  ;abm*2.6*10 HEAT68447

 .I ABMR("NM1",100)="" S ABMR("NM1",100)=$$RCID^ABMUTLP(ABMP("INS"))

 .;end new code HEAT45044

 ;

 I ABMEIC=41 D

 .S ABMR("NM1",100)=$P($G(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),0)),U,19)

 .I ABMR("NM1",100)="" S ABMR("NM1",100)=$P($G(^ABMNINS(DUZ(2),ABMP("INS"),0)),U,2)

 ;

 I ABMEIC=85 D

 .I ABMNPIU="N"!(ABMNPIU="B") D  Q

 ..S ABMLNPI=$S($P($G(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1)),U,8)'="":$P(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1),U,8),$P($G(^ABMDPARM(ABMP("LDFN"),1,2)),U,12)'="":$P(^ABMDPARM(ABMP("LDFN"),1,2),U,12),1:ABMP("LDFN"))

 ..S ABMR("NM1",100)=$S($P($$NPI^XUSNPI("Organization_ID",ABMLNPI),U)>0:$P($$NPI^XUSNPI("Organization_ID",ABMLNPI),U),1:"")

 .S ABMR("NM1",100)=$P($G(^AUTTLOC(DUZ(2),0)),"^",18)

 ;

 ;attending/operating/other provider

 I "71^72^ZZ^82^DN^QB^DQ^DK^P3"[ABMEIC D

 .I ABMEIC="DN" S ABMR("NM1",100)=$S($D(^VA(200,ABMIEN)):$P($$NPI^XUSNPI("Individual_ID",+ABMIEN),U),1:$P($G(ABMP("PRV","F",ABMIEN)),U,3)) Q  ;abm*2.6*9 HEAT53094

 .;I ABMEIC="DQ" S ABMR("NM1",100)=$S($D(^VA(200,ABMIEN)):$P($$NPI^XUSNPI("Individual_ID",+ABMIEN),U),1:$P($G(ABMP("PRV","S",ABMIEN)),U,3)) Q  ;abm*2.6*9 HEAT53094  ;abm*2.6*10 HEAT80154

 .I ABMEIC="DQ" S ABMR("NM1",100)=$S(((+ABMIEN'=0)&$D(^VA(200,+ABMIEN))):$P($$NPI^XUSNPI("Individual_ID",+ABMIEN),U),1:$P($G(ABMP("PRV","S",ABMIEN)),U,3)) Q  ;abm*2.6*10 HEAT80154

 .;S ABMR("NM1",100)=$P($$NPI^XUSNPI("Individual_ID",+ABM("PRV")),U) Q  ;abm*2.6*20 IHS/SD/SDR HEAT270943

 .;start new abm*2.6*20 IHS/SD/SDR HEAT270943

 .I $P($$NPI^XUSNPI("Individual_ID",+ABM("PRV")),U)>1 S ABMR("NM1",100)=$P($$NPI^XUSNPI("Individual_ID",+ABM("PRV")),U) Q

 .S ABMR("NM1",100)=$P($$NPI^XUSNPI("Organization_ID",+ABMP("LDFN")),U)

 .;end new abm*2.6*20 IHS/SD/SDR HEAT270943

 ;

 ; Payer

 I ABMEIC="PR" D

 .K Y

 .;S ABMR("NM1",100)=$$RCID^ABMUTLP(ABMP("INS"))  ;abm*2.6*8

 .;start old code abm*2.6*9 HEAT55022

 .;;start new code abm*2.6*8 HEAT45044

 .;I $D(^ABMRECVR("C",ABMP("INS"))) D

 .;.S ABMCHIEN=$O(^ABMRECVR("C",ABMP("INS"),0))

 .;.S:ABMCHIEN ABMR("NM1",100)=$P($G(^ABMRECVR(ABMCHIEN,1,ABMP("INS"),0)),U,2)

 .;I ABMR("NM1",100)="" S ABMR("NM1",100)=$P($G(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),0)),U,19)

 .;I ABMR("NM1",100)="" S ABMR("NM1",100)=$$RCID^ABMUTLP(ABMP("INS"))

 .;;end new code HEAT45044

 .;end old code start new code HEAT55022

 .I $D(^ABMRECVR("C",ABMNIEN)) D

 ..Q:$G(ABMLOOP)="2330B"  ;write what is in insurer file for this loop

 ..S ABMCHIEN=$O(^ABMRECVR("C",ABMNIEN,0))

 ..S:ABMCHIEN ABMR("NM1",100)=$P($G(^ABMRECVR(ABMCHIEN,1,ABMNIEN,0)),U,2)

 .I ABMR("NM1",100)="" S ABMR("NM1",100)=$P($G(^ABMNINS(DUZ(2),ABMNIEN,1,ABMP("VTYP"),0)),U,19)

 .I ABMR("NM1",100)="" S ABMR("NM1",100)=$$RCID^ABMUTLP(ABMNIEN)

 .;end new code HEAT55022

 .S:$TR(ABMR("NM1",100)," ")="" ABMR("NM1",100)=99999

 ;

 ; Insured or Subscriber

 I ABMEIC="IL" D

 .S ABMR("NM1",100)=$G(ABMP("SNUM",ABMPST))

 .Q:ABMR("NM1",100)'=""

 .S ABMR("NM1",100)=$$PNUM^ABMUTLP(ABMP("BDFN"))

 ;

 ; Facility

 I ABMEIC="77" D

 .I ABMNPIU="N"!(ABMNPIU="B") D  Q

 ..S ABMLNPI=$S($P($G(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1)),U,8)'="":$P(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1),U,8),$P($G(^ABMDPARM(ABMP("LDFN"),1,2)),U,12)'="":$P(^ABMDPARM(ABMP("LDFN"),1,2),U,12),1:ABMP("LDFN"))

 ..S ABMR("NM1",100)=$S($P($$NPI^XUSNPI("Organization_ID",+ABMLNPI),U)>0:$P($$NPI^XUSNPI("Organization_ID",+ABMLNPI),U),1:"")

 .S ABMR("NM1",100)=$$EIN^ABMUTLF(ABMP("LDFN"))

 S ABMR("NM1",100)=$$AN^ABMUTL8(ABMR("NM1",100))

 Q

 ;

110 ;NM110 - Entity Relationship Code (Not used)

 S ABMR("NM1",110)=""

 Q

 ;

120 ;NM111 - Entity Identifier Code (Not used)

 S ABMR("NM1",120)=""

 Q

 ;

130 ;NM112 - Name Last or Organization Name (Not used)

 S ABMR("NM1",130)=""

 Q

ABME5NM1  ; IHS/ASDST/DMJ - 837 NM1 Segment 

 +1       ;;2.6;IHS Third Party Billing System;**6,8,9,10,11,20**;NOV 12, 2009;Build 317

 +2       ;Submitter Name

 +3       ;IHS/SD/SDR 2.6*20 - HEAT270943 - Made change to default NM109 to the origanization/facility NPI if the provider doesn't have an NPI

 +4       ;

EP(X,Y)   ;EP - START HERE

 +1       ;x=entity identifier

 +2       ;y=file ien (optional)

 +3        SET ABMEIC=X

 +4        SET ABMNIEN=$GET(Y)

 +5        KILL ABMREC("NM1"),ABMR("NM1")

 +6        SET ABME("RTYPE")="NM1"

 +7        DO LOOP

 +8        KILL ABME,ABMEIC

 +9        QUIT 

 +10      ;

LOOP      ;LOOP HERE

 +1        FOR I=10:10:120

               Begin DoDot:1

 +2                DO @I

 +3                IF $DATA(^ABMEXLM("AA",+$GET(ABMP("INS")),+$GET(ABMP("EXP")),ABME("RTYPE"),I))

                       DO @(^(I))

 +4                IF $GET(ABMREC("NM1"))'=""

                       SET ABMREC("NM1")=ABMREC("NM1")_"*"

 +5                SET ABMREC("NM1")=$GET(ABMREC("NM1"))_ABMR("NM1",I)

               End DoDot:1

 +6        IF '$DATA(^ABMEXLM("AA",+$GET(ABMP("INS")),+$GET(ABMP("EXP")),ABME("RTYPE"),I))

               DO 837^ABMUTL8

 +7        QUIT 

 +8       ;

10        ;segment

 +1        SET ABMR("NM1",10)="NM1"

 +2        QUIT 

 +3       ;

20        ;NM101 - Entity Identifier Code

 +1        SET ABMR("NM1",20)=ABMEIC

 +2        QUIT 

 +3       ;

30        ;NM102 - Entity Type Qualifier

 +1        SET ABMR("NM1",30)=1

 +2        IF "40^41^85^87^PR^77^PW^45"[ABMEIC

               SET ABMR("NM1",30)=2

 +3        QUIT 

 +4       ;

40        ;NM103 - Name Last or Organization Name

 +1       ;

 +2        SET ABMR("NM1",40)=""

 +3       ;

 +4       ; Receiver

 +5        IF ABMEIC=40

               Begin DoDot:1

 +6       ;S ABMR("NM1",40)=$P($G(^AUTNINS(ABMP("INS"),2)),"^",13)  ;abm*2.6*8

 +7       ;start new code abm*2.6*6 HEAT28891

 +8                IF $DATA(^ABMRECVR("C",ABMP("INS")))

                       Begin DoDot:2

 +9                        SET ABMCHIEN=$ORDER(^ABMRECVR("C",ABMP("INS"),0))

 +10                       SET ABMR("NM1",40)=$PIECE($GET(^ABMRECVR(ABMCHIEN,1,ABMP("INS"),0)),U,3)

 +11                       KILL ABMCHIEN

                       End DoDot:2

 +12      ;end new code HEAT28891

 +13      ;abm*2.6*8

                   IF ABMR("NM1",40)=""

                       SET ABMR("NM1",40)=$PIECE($GET(^AUTNINS(ABMP("INS"),2)),"^",13)

 +14               IF ABMR("NM1",40)=""

                       SET ABMR("NM1",40)=$PIECE($GET(^AUTNINS(ABMP("INS"),0)),U)

               End DoDot:1

 +15      ;

 +16      ; Submitter ^ Billing Provider

 +17       IF "41^85"[ABMEIC

               Begin DoDot:1

 +18               SET ABMR("NM1",40)=$PIECE($GET(^DIC(4,DUZ(2),0)),U)

               End DoDot:1

 +19      ;

 +20      ; Patient

 +21       IF ABMEIC="QC"

               Begin DoDot:1

 +22               SET ABMR("NM1",40)=$$LNM^ABMUTLN(2,ABMP("PDFN"))

               End DoDot:1

 +23      ;

 +24      ; Provider

 +25       IF "71^72^ZZ^82^QB^DK^DN^DQ^P3"[ABMEIC

               Begin DoDot:1

 +26               IF +ABM("PRV")'=0

                       Begin DoDot:2

 +27                       SET ABMR("NM1",40)=$$LNM^ABMUTLN(200,ABM("PRV"))

                       End DoDot:2

 +28              IF '$TEST

                       SET ABMR("NM1",40)=$PIECE(ABM("PRV"),",")

               End DoDot:1

 +29      ;

 +30      ; Payer

 +31       IF ABMEIC="PR"

               Begin DoDot:1

 +32               SET ABMR("NM1",40)=$PIECE($GET(^ABMNINS(DUZ(2),ABMNIEN,1,ABMP("VTYP"),1)),"^",2)

 +33               IF ABMR("NM1",40)=""

                       SET ABMR("NM1",40)=$PIECE($GET(^AUTNINS(ABMNIEN,2)),"^",13)

 +34               IF ABMR("NM1",40)=""

                       SET ABMR("NM1",40)=$PIECE(^AUTNINS(ABMNIEN,0),U)

               End DoDot:1

 +35      ;

 +36      ; Insured or Subscriber

 +37       IF ABMEIC="IL"

               Begin DoDot:1

 +38               SET ABMR("NM1",40)=$$LNM^ABMUTLN(ABMSFILE,ABMSIEN)

               End DoDot:1

 +39      ;

 +40      ; Facility

 +41       IF ABMEIC="77"

               Begin DoDot:1

 +42               SET ABMR("NM1",40)=$PIECE($GET(^DIC(4,ABMP("LDFN"),0)),U)

               End DoDot:1

 +43      ;S:$G(ABMP("ITYPE"))'="D" ABMR("NM1",40)=$TR(ABMR("NM1",40),"-"," ")  ;abm*2.6*11 HEAT104117

 +44      ;

 +45      ; Ambulance Drop Off Location

 +46       IF ABMEIC="45"

               Begin DoDot:1

 +47               SET ABMR("NM1",40)=$$GET1^DIQ("9002274.4",ABMP("BDFN"),".127")

               End DoDot:1

 +48       QUIT 

 +49      ;

50        ;NM104 - Name First

 +1        SET ABMR("NM1",50)=""

 +2       ;

 +3       ; Patient

 +4        IF ABMEIC="QC"

               Begin DoDot:1

 +5                SET ABMR("NM1",50)=$$FNM^ABMUTLN(2,ABMP("PDFN"))

               End DoDot:1

 +6       ;

 +7       ; Provider

 +8        IF "71^72^ZZ^82^QB^DK^DN^DQ^P3"[ABMEIC

               Begin DoDot:1

 +9                IF +ABM("PRV")'=0

                       Begin DoDot:2

 +10                       SET ABMR("NM1",50)=$$FNM^ABMUTLN(200,ABM("PRV"))

                       End DoDot:2

 +11              IF '$TEST

                       SET ABMR("NM1",50)=$PIECE(ABM("PRV"),",",2)

               End DoDot:1

 +12      ;

 +13      ; Insured or Subscriber

 +14       IF ABMEIC="IL"

               Begin DoDot:1

 +15               SET ABMR("NM1",50)=$$FNM^ABMUTLN(ABMSFILE,ABMSIEN)

               End DoDot:1

 +16       QUIT 

 +17      ;

60        ;NM105 - Name Middle

 +1        SET ABMR("NM1",60)=""

 +2       ;

 +3       ; Patient

 +4        IF ABMEIC="QC"

               Begin DoDot:1

 +5                SET ABMR("NM1",60)=$$MI^ABMUTLN(2,ABMP("PDFN"))

               End DoDot:1

 +6       ;

 +7       ; Insured or Subscriber

 +8        IF ABMEIC="IL"

               Begin DoDot:1

 +9                SET ABMR("NM1",60)=$$MI^ABMUTLN(ABMSFILE,ABMSIEN)

               End DoDot:1

 +10      ;

 +11      ; Provider

 +12       IF "71^72^ZZ^82^QB^DK^DN^DQ^P3"[ABMEIC

               Begin DoDot:1

 +13               SET ABMR("NM1",50)=$$MI^ABMUTLN(200,ABM("PRV"))

               End DoDot:1

 +14      ;

 +15       QUIT 

 +16      ;

70        ;NM106 - Name Prefix (Not Used)

 +1        SET ABMR("NM1",70)=""

 +2        QUIT 

 +3       ;

80        ;NM107 - Name Suffix

 +1        SET ABMR("NM1",80)=""

 +2       ;

 +3       ; Patient

 +4        IF ABMEIC="QC"

               Begin DoDot:1

 +5                SET ABMR("NM1",80)=$$SFX^ABMUTLN(2,ABMP("PDFN"))

               End DoDot:1

 +6       ;

 +7       ; Insured or Subscriber

 +8        IF ABMEIC="IL"

               Begin DoDot:1

 +9                SET ABMR("NM1",80)=$$SFX^ABMUTLN(ABMSFILE,ABMSIEN)

               End DoDot:1

 +10      ;

 +11      ; Provider

 +12       IF "71^72^ZZ^82^QB^DK^DN^DQ^P3"[ABMEIC

               Begin DoDot:1

 +13               SET ABMR("NM1",50)=$$SFX^ABMUTLN(200,ABM("PRV"))

               End DoDot:1

 +14      ;

 +15       QUIT 

 +16      ;

90        ;NM108 - Identification Code Qualifier

 +1        SET ABMNPIU=$$NPIUSAGE^ABMUTLF(ABMP("LDFN"),ABMP("INS"))

 +2        SET ABMR("NM1",90)=""

 +3        IF "40^41"[ABMEIC

               SET ABMR("NM1",90)=46

 +4        IF ABMEIC=85

               SET ABMR("NM1",90)="XX"

 +5        IF "71^72^77^ZZ^82^DN^QB^DQ^DK"[ABMEIC

               SET ABMR("NM1",90)="XX"

 +6        IF ABMEIC="PR"

               SET ABMR("NM1",90)="PI"

 +7        IF ABMEIC="IL"

               SET ABMR("NM1",90)="MI"

 +8        QUIT 

 +9       ;

100       ;NM109 - Identification Code

 +1        SET ABMR("NM1",100)=""

 +2        IF ABMEIC=40

               Begin DoDot:1

 +3       ;S ABMR("NM1",100)=$$RCID^ABMUTLP(ABMP("INS"))  ;abm*2.6*8

 +4       ;start new code abm*2.6*8 HEAT45044

 +5                IF $DATA(^ABMRECVR("C",ABMP("INS")))

                       Begin DoDot:2

 +6                        SET ABMCHIEN=$ORDER(^ABMRECVR("C",ABMP("INS"),0))

 +7                        IF ABMCHIEN

                               SET ABMR("NM1",100)=$PIECE($GET(^ABMRECVR(ABMCHIEN,1,ABMP("INS"),0)),U,2)

                       End DoDot:2

 +8       ;I ABMR("NM1",100)="" S ABMR("NM1",100)=$P($G(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),0)),U,19)  ;abm*2.6*10 HEAT68447

 +9       ;abm*2.6*10 HEAT68447

                   IF ABMR("NM1",100)=""

                       SET ABMR("NM1",100)=$PIECE($GET(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),0)),U,19)

 +10               IF ABMR("NM1",100)=""

                       SET ABMR("NM1",100)=$$RCID^ABMUTLP(ABMP("INS"))

 +11      ;end new code HEAT45044

               End DoDot:1

 +12      ;

 +13       IF ABMEIC=41

               Begin DoDot:1

 +14               SET ABMR("NM1",100)=$PIECE($GET(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),0)),U,19)

 +15               IF ABMR("NM1",100)=""

                       SET ABMR("NM1",100)=$PIECE($GET(^ABMNINS(DUZ(2),ABMP("INS"),0)),U,2)

               End DoDot:1

 +16      ;

 +17       IF ABMEIC=85

               Begin DoDot:1

 +18               IF ABMNPIU="N"!(ABMNPIU="B")

                       Begin DoDot:2

 +19                      SET ABMLNPI=$SELECT($PIECE($GET(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1)),U,8)'="":...

                           ... $PIECE(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1),U,8),$PIECE($GET(^ABMDPARM(ABMP("LDFN"),1,2)),U,12)'="":$PIECE(^ABMDPARM(ABMP("LDFN"),1,2),U,12),1:ABMP("LDFN"))

 +20                       SET ABMR("NM1",100)=$SELECT($PIECE($$NPI^XUSNPI("Organization_ID",ABMLNPI),U)>0:$PIECE($$NPI^XUSNPI("Organization_ID",ABMLNPI),U),1:"")

                       End DoDot:2

                       QUIT 

 +21               SET ABMR("NM1",100)=$PIECE($GET(^AUTTLOC(DUZ(2),0)),"^",18)

               End DoDot:1

 +22      ;

 +23      ;attending/operating/other provider

 +24       IF "71^72^ZZ^82^DN^QB^DQ^DK^P3"[ABMEIC

               Begin DoDot:1

 +25      ;abm*2.6*9 HEAT53094

                   IF ABMEIC="DN"

                       SET ABMR("NM1",100)=$SELECT($DATA(^VA(200,ABMIEN)):$PIECE($$NPI^XUSNPI("Individual_ID",+ABMIEN),U),1:$PIECE($GET(ABMP("PRV","F",ABMIEN)),U,3))

                       QUIT 

 +26      ;I ABMEIC="DQ" S ABMR("NM1",100)=$S($D(^VA(200,ABMIEN)):$P($$NPI^XUSNPI("Individual_ID",+ABMIEN),U),1:$P($G(ABMP("PRV","S",ABMIEN)),U,3)) Q  ;abm*2.6*9 HEAT53094  ;abm*2.6*10 HEAT80154

 +27      ;abm*2.6*10 HEAT80154

                   IF ABMEIC="DQ"

                       SET ABMR("NM1",100)=$SELECT(((+ABMIEN'=0)&$DATA(^VA(200,+ABMIEN))):$PIECE($$NPI^XUSNPI("Individual_ID",+ABMIEN),U),1:$PIECE($GET(ABMP("PRV","S",ABMIEN)),U,3))

                       QUIT 

 +28      ;S ABMR("NM1",100)=$P($$NPI^XUSNPI("Individual_ID",+ABM("PRV")),U) Q  ;abm*2.6*20 IHS/SD/SDR HEAT270943

 +29      ;start new abm*2.6*20 IHS/SD/SDR HEAT270943

 +30               IF $PIECE($$NPI^XUSNPI("Individual_ID",+ABM("PRV")),U)>1

                       SET ABMR("NM1",100)=$PIECE($$NPI^XUSNPI("Individual_ID",+ABM("PRV")),U)

                       QUIT 

 +31               SET ABMR("NM1",100)=$PIECE($$NPI^XUSNPI("Organization_ID",+ABMP("LDFN")),U)

 +32      ;end new abm*2.6*20 IHS/SD/SDR HEAT270943

               End DoDot:1

 +33      ;

 +34      ; Payer

 +35       IF ABMEIC="PR"

               Begin DoDot:1

 +36               KILL Y

 +37      ;S ABMR("NM1",100)=$$RCID^ABMUTLP(ABMP("INS"))  ;abm*2.6*8

 +38      ;start old code abm*2.6*9 HEAT55022

 +39      ;;start new code abm*2.6*8 HEAT45044

 +40      ;I $D(^ABMRECVR("C",ABMP("INS"))) D

 +41      ;.S ABMCHIEN=$O(^ABMRECVR("C",ABMP("INS"),0))

 +42      ;.S:ABMCHIEN ABMR("NM1",100)=$P($G(^ABMRECVR(ABMCHIEN,1,ABMP("INS"),0)),U,2)

 +43      ;I ABMR("NM1",100)="" S ABMR("NM1",100)=$P($G(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),0)),U,19)

 +44      ;I ABMR("NM1",100)="" S ABMR("NM1",100)=$$RCID^ABMUTLP(ABMP("INS"))

 +45      ;;end new code HEAT45044

 +46      ;end old code start new code HEAT55022

 +47               IF $DATA(^ABMRECVR("C",ABMNIEN))

                       Begin DoDot:2

 +48      ;write what is in insurer file for this loop

                           IF $GET(ABMLOOP)="2330B"

                               QUIT 

 +49                       SET ABMCHIEN=$ORDER(^ABMRECVR("C",ABMNIEN,0))

 +50                       IF ABMCHIEN

                               SET ABMR("NM1",100)=$PIECE($GET(^ABMRECVR(ABMCHIEN,1,ABMNIEN,0)),U,2)

                       End DoDot:2

 +51               IF ABMR("NM1",100)=""

                       SET ABMR("NM1",100)=$PIECE($GET(^ABMNINS(DUZ(2),ABMNIEN,1,ABMP("VTYP"),0)),U,19)

 +52               IF ABMR("NM1",100)=""

                       SET ABMR("NM1",100)=$$RCID^ABMUTLP(ABMNIEN)

 +53      ;end new code HEAT55022

 +54               IF $TRANSLATE(ABMR("NM1",100)," ")=""

                       SET ABMR("NM1",100)=99999

               End DoDot:1

 +55      ;

 +56      ; Insured or Subscriber

 +57       IF ABMEIC="IL"

               Begin DoDot:1

 +58               SET ABMR("NM1",100)=$GET(ABMP("SNUM",ABMPST))

 +59               IF ABMR("NM1",100)'=""

                       QUIT 

 +60               SET ABMR("NM1",100)=$$PNUM^ABMUTLP(ABMP("BDFN"))

               End DoDot:1

 +61      ;

 +62      ; Facility

 +63       IF ABMEIC="77"

               Begin DoDot:1

 +64               IF ABMNPIU="N"!(ABMNPIU="B")

                       Begin DoDot:2

 +65                      SET ABMLNPI=$SELECT($PIECE($GET(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1)),U,8)'="":...

                           ... $PIECE(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1),U,8),$PIECE($GET(^ABMDPARM(ABMP("LDFN"),1,2)),U,12)'="":$PIECE(^ABMDPARM(ABMP("LDFN"),1,2),U,12),1:ABMP("LDFN"))

 +66                       SET ABMR("NM1",100)=$SELECT($PIECE($$NPI^XUSNPI("Organization_ID",+ABMLNPI),U)>0:$PIECE($$NPI^XUSNPI("Organization_ID",+ABMLNPI),U),1:"")

                       End DoDot:2

                       QUIT 

 +67               SET ABMR("NM1",100)=$$EIN^ABMUTLF(ABMP("LDFN"))

               End DoDot:1

 +68       SET ABMR("NM1",100)=$$AN^ABMUTL8(ABMR("NM1",100))

 +69       QUIT 

 +70      ;

110       ;NM110 - Entity Relationship Code (Not used)

 +1        SET ABMR("NM1",110)=""

 +2        QUIT 

 +3       ;

120       ;NM111 - Entity Identifier Code (Not used)

 +1        SET ABMR("NM1",120)=""

 +2        QUIT 

 +3       ;

130       ;NM112 - Name Last or Organization Name (Not used)

 +1        SET ABMR("NM1",130)=""

 +2        QUIT