ABME5GE.m

ABME5GE ; IHS/ASDST/DMJ - 837 GE Segment 

 ;;2.6;IHS Third Party Billing System;**6,8**;NOV 12, 2009

 ;Functional Group Trailer

 ;

START ;START HERE

 K ABMREC("GE"),ABMR("GE")

 K ABMSTCNT ;5010 837P

 S ABME("RTYPE")="GE"

 D LOOP

 K ABME,ABM

 Q

LOOP ;LOOP HERE

 F I=10:10:30 D

 .D @I

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

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

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

 Q

10 ;segment

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

 Q

20 ;GE01 - Number of Included Functional Groups

 ;S ABMR("GE",20)=1  ;abm*2.6*8

 S ABMR("GE",20)=ABMER("LAST")  ;abm*2.6*8

 Q

30 ;GE02 - Interchange Contol Number

 S ABMR("GE",30)=$$TCN^ABMERUTL(ABMPXMIT)

 Q

ABME5GE   ; IHS/ASDST/DMJ - 837 GE Segment 

 +1       ;;2.6;IHS Third Party Billing System;**6,8**;NOV 12, 2009

 +2       ;Functional Group Trailer

 +3       ;

START     ;START HERE

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

 +2       ;5010 837P

           KILL ABMSTCNT

 +3        SET ABME("RTYPE")="GE"

 +4        DO LOOP

 +5        KILL ABME,ABM

 +6        QUIT 

LOOP      ;LOOP HERE

 +1        FOR I=10:10:30

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

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

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

               End DoDot:1

 +6        QUIT 

10        ;segment

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

 +2        QUIT 

20        ;GE01 - Number of Included Functional Groups

 +1       ;S ABMR("GE",20)=1  ;abm*2.6*8

 +2       ;abm*2.6*8

           SET ABMR("GE",20)=ABMER("LAST")

 +3        QUIT 

30        ;GE02 - Interchange Contol Number

 +1        SET ABMR("GE",30)=$$TCN^ABMERUTL(ABMPXMIT)

 +2        QUIT