ABME8HCP.m

ABME8HCP ; IHS/ASDST/DMJ - 837 HCP Segment 

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

 ;Transaction Set Header

 ;

START ;START HERE

 K ABMREC("HCP"),ABMR("HCP")

 S ABME("RTYPE")="HCP"

 D LOOP

 K ABME,ABM

 Q

LOOP ;LOOP HERE

 F I=10:10:160 D

 .D @I

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

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

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

 Q

10 ;segment

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

 Q

20 ;HCP01 - Pricing Methodology

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

 Q

30 ;HCP02 - Monetary Amount

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

 Q

40 ;HCP03 - Monetary Amount

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

 Q

50 ;HCP04 - Reference Identification

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

 Q

60 ;HCP05 - Rate

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

 Q

70 ;HCP06 - Reference Identification

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

 Q

80 ;HCP07 - Monetary Amount

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

 Q

90 ;HCP08 - Product/Service ID

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

 Q

100 ;HCP09 - Product/Service ID Qualifier

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

 Q

110 ;HCP10 - Product/Service ID

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

 Q

120 ;HCP11 - Unit or Basis for Measurement Code

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

 Q

130 ;HCP12 - Quantity

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

 Q

140 ;HCP13 - Reject Reason Code

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

 Q

150 ;HCP14 - Policy Compliance Code

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

 Q

160 ;HCP15 - Exception Code

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

 Q

ABME8HCP  ; IHS/ASDST/DMJ - 837 HCP Segment 

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

 +2       ;Transaction Set Header

 +3       ;

START     ;START HERE

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

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

 +3        DO LOOP

 +4        KILL ABME,ABM

 +5        QUIT 

LOOP      ;LOOP HERE

 +1        FOR I=10:10:160

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

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

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

               End DoDot:1

 +6        QUIT 

10        ;segment

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

 +2        QUIT 

20        ;HCP01 - Pricing Methodology

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

 +2        QUIT 

30        ;HCP02 - Monetary Amount

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

 +2        QUIT 

40        ;HCP03 - Monetary Amount

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

 +2        QUIT 

50        ;HCP04 - Reference Identification

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

 +2        QUIT 

60        ;HCP05 - Rate

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

 +2        QUIT 

70        ;HCP06 - Reference Identification

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

 +2        QUIT 

80        ;HCP07 - Monetary Amount

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

 +2        QUIT 

90        ;HCP08 - Product/Service ID

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

 +2        QUIT 

100       ;HCP09 - Product/Service ID Qualifier

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

 +2        QUIT 

110       ;HCP10 - Product/Service ID

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

 +2        QUIT 

120       ;HCP11 - Unit or Basis for Measurement Code

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

 +2        QUIT 

130       ;HCP12 - Quantity

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

 +2        QUIT 

140       ;HCP13 - Reject Reason Code

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

 +2        QUIT 

150       ;HCP14 - Policy Compliance Code

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

 +2        QUIT 

160       ;HCP15 - Exception Code

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

 +2        QUIT