ABME8CR6.m

ABME8CR6 ; IHS/ASDST/DMJ - 837 CR6 Segment 

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

 ;Transaction Set Header

 ;

START ;START HERE

 K ABMREC("CR6"),ABMR("CR6")

 S ABME("RTYPE")="CR6"

 D LOOP

 K ABME,ABM

 Q

LOOP ;LOOP HERE

 F I=10:10:220 D

 .D @I

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

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

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

 Q

10 ;segment

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

 Q

20 ;CR601 - Prognosis Code

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

 Q

30 ;CR602 - Date

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

 Q

40 ;CR603 - Date Time Period Format Qualifier

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

 Q

50 ;CR604 - Date Time Period

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

 Q

60 ;CR605 - Date

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

 Q

70 ;CR606 - Yes/No Condition or Response Code

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

 Q

80 ;CR607 - Yes/No Condition of Response Code

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

 Q

90 ;CR608 - Certification Type Code

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

 Q

100 ;CR609 - Date

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

 Q

110 ;CR610 - Product/Service ID Qualifier

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

 Q

120 ;CR611 - Medical Code Value

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

 Q

130 ;CR612 - Date

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

 Q

140 ;CR613 - Date

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

 Q

150 ;CR614 - Date

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

 Q

160 ;CR615 - Date Time Period Format Qualifier

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

 Q

170 ;CR616 - Date Time Period

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

 Q

180 ;CR617 - Patient Location Code

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

 Q

190 ;CR618 - Date

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

 Q

200 ;CR619 - Date

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

 Q

210 ;CR620 - Date

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

 Q

220 ;CR621 - Date

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

 Q

ABME8CR6  ; IHS/ASDST/DMJ - 837 CR6 Segment 

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

 +2       ;Transaction Set Header

 +3       ;

START     ;START HERE

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

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

 +3        DO LOOP

 +4        KILL ABME,ABM

 +5        QUIT 

LOOP      ;LOOP HERE

 +1        FOR I=10:10:220

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

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

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

               End DoDot:1

 +6        QUIT 

10        ;segment

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

 +2        QUIT 

20        ;CR601 - Prognosis Code

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

 +2        QUIT 

30        ;CR602 - Date

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

 +2        QUIT 

40        ;CR603 - Date Time Period Format Qualifier

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

 +2        QUIT 

50        ;CR604 - Date Time Period

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

 +2        QUIT 

60        ;CR605 - Date

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

 +2        QUIT 

70        ;CR606 - Yes/No Condition or Response Code

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

 +2        QUIT 

80        ;CR607 - Yes/No Condition of Response Code

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

 +2        QUIT 

90        ;CR608 - Certification Type Code

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

 +2        QUIT 

100       ;CR609 - Date

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

 +2        QUIT 

110       ;CR610 - Product/Service ID Qualifier

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

 +2        QUIT 

120       ;CR611 - Medical Code Value

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

 +2        QUIT 

130       ;CR612 - Date

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

 +2        QUIT 

140       ;CR613 - Date

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

 +2        QUIT 

150       ;CR614 - Date

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

 +2        QUIT 

160       ;CR615 - Date Time Period Format Qualifier

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

 +2        QUIT 

170       ;CR616 - Date Time Period

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

 +2        QUIT 

180       ;CR617 - Patient Location Code

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

 +2        QUIT 

190       ;CR618 - Date

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

 +2        QUIT 

200       ;CR619 - Date

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

 +2        QUIT 

210       ;CR620 - Date

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

 +2        QUIT 

220       ;CR621 - Date

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

 +2        QUIT