ABME5RF2.m

ABME5RF2 ; IHS/ASDST/DMJ - 837 REF Segment [ 02/04/2003  11:07 AM ]

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

 ;other payer provider info

 ;  

EP(X,Y) ;EP

 K ABMREC("REF"),ABMR("REF")

 S ABMEIC=X

 S ABME("RTYPE")="REF"

 D LOOP

 K ABME,ABM

 Q

LOOP ;LOOP HERE

 F I=10:10:50 D

 .D @I

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

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

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

 Q

10 ;segment

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

 Q

20 ;REF01 - Reference Identification Qualifier

 S ABMR("REF",20)=ABMEIC

 Q

30 ;REF02 - Reference Identification

 S ABMR("REF",30)=$G(ABMPNBR)

 Q

40 ;REF03 - Description-not used

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

 Q

50 ;REF04 - Reference Identifier-not used

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

 Q

ABME5RF2  ; IHS/ASDST/DMJ - 837 REF Segment [ 02/04/2003  11:07 AM ]

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

 +2       ;other payer provider info

 +3       ;  

EP(X,Y)   ;EP

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

 +2        SET ABMEIC=X

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

 +4        DO LOOP

 +5        KILL ABME,ABM

 +6        QUIT 

LOOP      ;LOOP HERE

 +1        FOR I=10:10:50

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

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

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

               End DoDot:1

 +6        QUIT 

10        ;segment

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

 +2        QUIT 

20        ;REF01 - Reference Identification Qualifier

 +1        SET ABMR("REF",20)=ABMEIC

 +2        QUIT 

30        ;REF02 - Reference Identification

 +1        SET ABMR("REF",30)=$GET(ABMPNBR)

 +2        QUIT 

40        ;REF03 - Description-not used

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

 +2        QUIT 

50        ;REF04 - Reference Identifier-not used

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

 +2        QUIT