ABME5FRM.m

ABME5FRM ; IHS/SD/SDR - 837 FRM Segment 

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

 ;Supporting Documentation

 ;

START ;START HERE

 K ABMREC("FRM"),ABMR("FRM")

 S ABME("RTYPE")="FRM"

 D LOOP

 K ABME,ABM

 Q

LOOP ;LOOP HERE

 F I=10:10:60 D

 .D @I

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

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

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

 Q

10 ;segment

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

 Q

20 ;FRM01 - Assigned Identification

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

 Q

30 ;FRM02 - Yes/No Condition or Response Code

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

 Q

40 ;FRM03 - Reference Identification

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

 Q

50 ;FRM04 - Date

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

 Q

60 ;FRM05 - Percent, Decimal Format

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

 Q

ABME5FRM  ; IHS/SD/SDR - 837 FRM Segment 

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

 +2       ;Supporting Documentation

 +3       ;

START     ;START HERE

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

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

 +3        DO LOOP

 +4        KILL ABME,ABM

 +5        QUIT 

LOOP      ;LOOP HERE

 +1        FOR I=10:10:60

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

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

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

               End DoDot:1

 +6        QUIT 

10        ;segment

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

 +2        QUIT 

20        ;FRM01 - Assigned Identification

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

 +2        QUIT 

30        ;FRM02 - Yes/No Condition or Response Code

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

 +2        QUIT 

40        ;FRM03 - Reference Identification

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

 +2        QUIT 

50        ;FRM04 - Date

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

 +2        QUIT 

60        ;FRM05 - Percent, Decimal Format

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

 +2        QUIT