ABME5LIN.m

ABME5LIN ; IHS/SD/SDR - 837 LIN Segment 

 ;;2.6;IHS Third Party Billing System;**6,9,23**;NOV 12, 2009;Build 427

 ;Transaction Set Header

 ;IHS/SD/AML 2.6*23 HEAT247169 If the subfile is 43 print the NDC in LIN03

 ;

EP ;EP - START HERE

 K ABMREC("LIN"),ABMR("LIN")

 S ABME("RTYPE")="LIN"

 D LOOP

 K ABME,ABM

 Q

LOOP ;LOOP HERE

 F I=10:10:320 D

 .D @I

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

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

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

 Q

10 ;segment

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

 Q

20 ;LIN01 - Assigned Identification - NOT USED

 S ABMR("LIN",20)=""

 Q

30 ;LIN02 - Product/Service ID Qualifier

 S ABMR("LIN",30)="N4"

 Q

40 ;LIN03 - Product/Service ID

 S ABMR("LIN",40)=$P(ABMRV(ABMI,ABMJ,ABMK),U,9)  ;abm*2.6*9 HEAT63888

 S ABMR("LIN",40)=$TR($P($P(ABMRV(ABMI,ABMJ,ABMK),U,9)," "),"-")  ;abm*2.6*9 HEAT63888

 I $P(ABMRV(ABMI,ABMJ,ABMK),U,19)'="" S ABMR("LIN",40)=$TR($P(ABMRV(ABMI,ABMJ,ABMK),U,19),"-")  ;abm*2.6*23 IHS/SD/AML,SDR HEAT247169 

 Q

50 ;LIN04 - Product Service ID Qualifier - NOT USED

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

 Q

60 ;LIN05 - Product/Service ID - NOT USED

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

 Q

70 ;LIN06 - Product Service ID Qualifier - NOT USED

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

 Q

80 ;LIN07 - Product/Service ID - NOT USED

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

 Q

90 ;LIN08 - Product Service ID Qualifier - NOT USED

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

 Q

100 ;LIN09 - Product/Service ID - NOT USED

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

 Q

110 ;LIN10 - Product Service ID Qualifier - NOT USED

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

 Q

120 ;LIN11 - Product/Service ID - NOT USED

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

 Q

130 ;LIN12 - Product Service ID Qualifier - NOT USED

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

 Q

140 ;LIN13 - Product/Service ID - NOT USED

 S ABMR("LIN",140)=""

 Q

150 ;LIN14 - Product Service ID Qualifier - NOT USED

 S ABMR("LIN",150)=""

 Q

160 ;LIN15 - Product/Service ID - NOT USED

 S ABMR("LIN",160)=""

 Q

170 ;LIN16 - Product Service ID Qualifier - NOT USED

 S ABMR("LIN",170)=""

 Q

180 ;LIN17 - Product/Service ID - NOT USED

 S ABMR("LIN",180)=""

 Q

190 ;LIN18 - Product Service ID Qualifier - NOT USED

 S ABMR("LIN",190)=""

 Q

200 ;LIN19 - Product/Service ID - NOT USED

 S ABMR("LIN",200)=""

 Q

210 ;LIN20 - Product Service ID Qualifier - NOT USED

 S ABMR("LIN",210)=""

 Q

220 ;LIN21 - Product/Service ID - NOT USED

 S ABMR("LIN",220)=""

 Q

230 ;LIN22 - Product/Service ID Qualifier - NOT USED

 S ABMR("LIN",230)=""

 Q

240 ;LIN23 - Product/Service ID - NOT USED

 S ABMR("LIN",240)=""

 Q

250 ;LIN24 - Product/Service ID Qualifier - NOT USED

 S ABMR("LIN",250)=""

 Q

260 ;LIN25 - Product/Service ID - NOT USED

 S ABMR("LIN",260)=""

 Q

270 ;LIN26 - Product Service ID Qualifier - NOT USED

 S ABMR("LIN",270)=""

 Q

280 ;LIN27 - Product/Service ID - NOT USED

 S ABMR("LIN",280)=""

 Q

290 ;LIN28 - Product Service ID Qualifier - NOT USED

 S ABMR("LIN",290)=""

 Q

300 ;LIN29 - Product/Service ID - NOT USED

 S ABMR("LIN",300)=""

 Q

310 ;LIN30 - Product Service ID Qualifier - NOT USED

 S ABMR("LIN",310)=""

 Q

320 ;LIN31 - Product/Service ID - NOT USED

 S ABMR("LIN",320)=""

 Q

ABME5LIN  ; IHS/SD/SDR - 837 LIN Segment 

 +1       ;;2.6;IHS Third Party Billing System;**6,9,23**;NOV 12, 2009;Build 427

 +2       ;Transaction Set Header

 +3       ;IHS/SD/AML 2.6*23 HEAT247169 If the subfile is 43 print the NDC in LIN03

 +4       ;

EP        ;EP - START HERE

 +1        KILL ABMREC("LIN"),ABMR("LIN")

 +2        SET ABME("RTYPE")="LIN"

 +3        DO LOOP

 +4        KILL ABME,ABM

 +5        QUIT 

LOOP      ;LOOP HERE

 +1        FOR I=10:10:320

               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("LIN"))'=""

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

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

               End DoDot:1

 +6        QUIT 

10        ;segment

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

 +2        QUIT 

20        ;LIN01 - Assigned Identification - NOT USED

 +1        SET ABMR("LIN",20)=""

 +2        QUIT 

30        ;LIN02 - Product/Service ID Qualifier

 +1        SET ABMR("LIN",30)="N4"

 +2        QUIT 

40        ;LIN03 - Product/Service ID

 +1       ;abm*2.6*9 HEAT63888

           SET ABMR("LIN",40)=$PIECE(ABMRV(ABMI,ABMJ,ABMK),U,9)

 +2       ;abm*2.6*9 HEAT63888

           SET ABMR("LIN",40)=$TRANSLATE($PIECE($PIECE(ABMRV(ABMI,ABMJ,ABMK),U,9)," "),"-")

 +3       ;abm*2.6*23 IHS/SD/AML,SDR HEAT247169 

           IF $PIECE(ABMRV(ABMI,ABMJ,ABMK),U,19)'=""

               SET ABMR("LIN",40)=$TRANSLATE($PIECE(ABMRV(ABMI,ABMJ,ABMK),U,19),"-")

 +4        QUIT 

50        ;LIN04 - Product Service ID Qualifier - NOT USED

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

 +2        QUIT 

60        ;LIN05 - Product/Service ID - NOT USED

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

 +2        QUIT 

70        ;LIN06 - Product Service ID Qualifier - NOT USED

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

 +2        QUIT 

80        ;LIN07 - Product/Service ID - NOT USED

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

 +2        QUIT 

90        ;LIN08 - Product Service ID Qualifier - NOT USED

 +1        SET ABMR("LIN",90)=""

 +2        QUIT 

100       ;LIN09 - Product/Service ID - NOT USED

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

 +2        QUIT 

110       ;LIN10 - Product Service ID Qualifier - NOT USED

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

 +2        QUIT 

120       ;LIN11 - Product/Service ID - NOT USED

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

 +2        QUIT 

130       ;LIN12 - Product Service ID Qualifier - NOT USED

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

 +2        QUIT 

140       ;LIN13 - Product/Service ID - NOT USED

 +1        SET ABMR("LIN",140)=""

 +2        QUIT 

150       ;LIN14 - Product Service ID Qualifier - NOT USED

 +1        SET ABMR("LIN",150)=""

 +2        QUIT 

160       ;LIN15 - Product/Service ID - NOT USED

 +1        SET ABMR("LIN",160)=""

 +2        QUIT 

170       ;LIN16 - Product Service ID Qualifier - NOT USED

 +1        SET ABMR("LIN",170)=""

 +2        QUIT 

180       ;LIN17 - Product/Service ID - NOT USED

 +1        SET ABMR("LIN",180)=""

 +2        QUIT 

190       ;LIN18 - Product Service ID Qualifier - NOT USED

 +1        SET ABMR("LIN",190)=""

 +2        QUIT 

200       ;LIN19 - Product/Service ID - NOT USED

 +1        SET ABMR("LIN",200)=""

 +2        QUIT 

210       ;LIN20 - Product Service ID Qualifier - NOT USED

 +1        SET ABMR("LIN",210)=""

 +2        QUIT 

220       ;LIN21 - Product/Service ID - NOT USED

 +1        SET ABMR("LIN",220)=""

 +2        QUIT 

230       ;LIN22 - Product/Service ID Qualifier - NOT USED

 +1        SET ABMR("LIN",230)=""

 +2        QUIT 

240       ;LIN23 - Product/Service ID - NOT USED

 +1        SET ABMR("LIN",240)=""

 +2        QUIT 

250       ;LIN24 - Product/Service ID Qualifier - NOT USED

 +1        SET ABMR("LIN",250)=""

 +2        QUIT 

260       ;LIN25 - Product/Service ID - NOT USED

 +1        SET ABMR("LIN",260)=""

 +2        QUIT 

270       ;LIN26 - Product Service ID Qualifier - NOT USED

 +1        SET ABMR("LIN",270)=""

 +2        QUIT 

280       ;LIN27 - Product/Service ID - NOT USED

 +1        SET ABMR("LIN",280)=""

 +2        QUIT 

290       ;LIN28 - Product Service ID Qualifier - NOT USED

 +1        SET ABMR("LIN",290)=""

 +2        QUIT 

300       ;LIN29 - Product/Service ID - NOT USED

 +1        SET ABMR("LIN",300)=""

 +2        QUIT 

310       ;LIN30 - Product Service ID Qualifier - NOT USED

 +1        SET ABMR("LIN",310)=""

 +2        QUIT 

320       ;LIN31 - Product/Service ID - NOT USED

 +1        SET ABMR("LIN",320)=""

 +2        QUIT