ABME5MIA.m

ABME5MIA ; IHS/ASDST/DMJ - 837 MIA Segment 

 ;;2.6;IHS 3P BILLING SYSTEM;**6**;NOV 12, 2009

 ;

START ;START HERE

 K ABMREC("MIA"),ABMR("MIA")

 S ABME("RTYPE")="MIA"

 D LOOP

 K ABME,ABM

 Q

LOOP ;LOOP HERE

 F I=10:10:250 D

 .D @I

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

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

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

 Q

10 ;segment

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

 Q

20 ;MIA01 - Quantity

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

 Q

30 ;MIA02 - Quantity

 S ABMR("MIA",30)=""

 Q

40 ;MIA03 - Quantity

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

 Q

50 ;MIA04 - Monetary Amount

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

 Q

60 ;MIA05 - Reference Identification

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

 Q

70 ;MIA06 - Monetary Amount

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

 Q

80 ;MIA07 - Monetary Amount

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

 Q

90 ;MIA08 - Monetary Amount

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

 Q

100 ;MIA09 - Monetary Amount

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

 Q

110 ;MIA10 - Monetary Amount

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

 Q

120 ;MIA11 - Monetary Amount

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

 Q

130 ;MIA12 - Monetary Amount

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

 Q

140 ;MIA13 - Monetary Amount

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

 Q

150 ;MIA14 - Monetary Amount

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

 Q

160 ;MIA15 - Quantity

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

 Q

170 ;MIA16 - Monetary Amount

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

 Q

180 ;MIA17 - Monetary Amount

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

 Q

190 ;MIA18 - Monetary Amount

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

 Q

200 ;MIA19 - Monetary Amount

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

 Q

210 ;MIA20 - Reference Identification

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

 Q

220 ;MIA21 - Reference Identification

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

 Q

230 ;MIA22 - Reference Identification

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

 Q

240 ;MIA23 - Reference Identification

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

 Q

250 ;MIA24 - Monetary Amount

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

 Q

ABME5MIA  ; IHS/ASDST/DMJ - 837 MIA Segment 

 +1       ;;2.6;IHS 3P BILLING SYSTEM;**6**;NOV 12, 2009

 +2       ;

START     ;START HERE

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

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

 +3        DO LOOP

 +4        KILL ABME,ABM

 +5        QUIT 

LOOP      ;LOOP HERE

 +1        FOR I=10:10:250

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

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

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

               End DoDot:1

 +6        QUIT 

10        ;segment

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

 +2        QUIT 

20        ;MIA01 - Quantity

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

 +2        QUIT 

30        ;MIA02 - Quantity

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

 +2        QUIT 

40        ;MIA03 - Quantity

 +1        SET ABMR("MIA",40)=""

 +2        QUIT 

50        ;MIA04 - Monetary Amount

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

 +2        QUIT 

60        ;MIA05 - Reference Identification

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

 +2        QUIT 

70        ;MIA06 - Monetary Amount

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

 +2        QUIT 

80        ;MIA07 - Monetary Amount

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

 +2        QUIT 

90        ;MIA08 - Monetary Amount

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

 +2        QUIT 

100       ;MIA09 - Monetary Amount

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

 +2        QUIT 

110       ;MIA10 - Monetary Amount

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

 +2        QUIT 

120       ;MIA11 - Monetary Amount

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

 +2        QUIT 

130       ;MIA12 - Monetary Amount

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

 +2        QUIT 

140       ;MIA13 - Monetary Amount

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

 +2        QUIT 

150       ;MIA14 - Monetary Amount

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

 +2        QUIT 

160       ;MIA15 - Quantity

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

 +2        QUIT 

170       ;MIA16 - Monetary Amount

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

 +2        QUIT 

180       ;MIA17 - Monetary Amount

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

 +2        QUIT 

190       ;MIA18 - Monetary Amount

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

 +2        QUIT 

200       ;MIA19 - Monetary Amount

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

 +2        QUIT 

210       ;MIA20 - Reference Identification

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

 +2        QUIT 

220       ;MIA21 - Reference Identification

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

 +2        QUIT 

230       ;MIA22 - Reference Identification

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

 +2        QUIT 

240       ;MIA23 - Reference Identification

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

 +2        QUIT 

250       ;MIA24 - Monetary Amount

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

 +2        QUIT