ABME8LX.m

ABME8LX ; IHS/ASDST/DMJ - 837 LX Segment 

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

 ;Transaction Set Header

 ;

EP ;EP - START HERE

 K ABMREC("LX"),ABMR("LX")

 S ABME("RTYPE")="LX"

 D LOOP

 K ABME

 Q

LOOP ;LOOP HERE

 F I=10:10:20 D

 .D @I

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

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

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

 Q

10 ;segment

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

 Q

20 ;LX01 - Assigned Number

 S ABMR("LX",20)=$G(ABMLXCNT)

 Q

ABME8LX   ; IHS/ASDST/DMJ - 837 LX Segment 

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

 +2       ;Transaction Set Header

 +3       ;

EP        ;EP - START HERE

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

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

 +3        DO LOOP

 +4        KILL ABME

 +5        QUIT 

LOOP      ;LOOP HERE

 +1        FOR I=10:10:20

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

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

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

               End DoDot:1

 +6        QUIT 

10        ;segment

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

 +2        QUIT 

20        ;LX01 - Assigned Number

 +1        SET ABMR("LX",20)=$GET(ABMLXCNT)

 +2        QUIT