ABME8HSD.m

ABME8HSD ; IHS/ASDST/DMJ - 837 HSD Segment 

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

 ;Transaction Set Header

 ;

START ;START HERE

 K ABMREC("HSD"),ABMR("HSD")

 S ABME("RTYPE")="HSD"

 D LOOP

 K ABME,ABM

 Q

LOOP ;LOOP HERE

 F I=10:10:90 D

 .D @I

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

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

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

 Q

10 ;segment

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

 Q

20 ;HSD01 - Quantity Qualifier

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

 Q

30 ;HSD02 - Quantity

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

 Q

40 ;HSD03 - Unit or Basis for Measurement Code

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

 Q

50 ;HSD04 - Sample Selection Modulus

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

 Q

60 ;HSD05 - Time Period Qualifier

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

 Q

70 ;HSD06 - Number of Periods

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

 Q

80 ;HSD07 - Ship/Delivery or Calendar Pattern Code

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

 Q

90 ;HSD08 - Ship/Delivery Pattern Time Code

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

 Q

ABME8HSD  ; IHS/ASDST/DMJ - 837 HSD Segment 

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

 +2       ;Transaction Set Header

 +3       ;

START     ;START HERE

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

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

 +3        DO LOOP

 +4        KILL ABME,ABM

 +5        QUIT 

LOOP      ;LOOP HERE

 +1        FOR I=10:10:90

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

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

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

               End DoDot:1

 +6        QUIT 

10        ;segment

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

 +2        QUIT 

20        ;HSD01 - Quantity Qualifier

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

 +2        QUIT 

30        ;HSD02 - Quantity

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

 +2        QUIT 

40        ;HSD03 - Unit or Basis for Measurement Code

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

 +2        QUIT 

50        ;HSD04 - Sample Selection Modulus

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

 +2        QUIT 

60        ;HSD05 - Time Period Qualifier

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

 +2        QUIT 

70        ;HSD06 - Number of Periods

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

 +2        QUIT 

80        ;HSD07 - Ship/Delivery or Calendar Pattern Code

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

 +2        QUIT 

90        ;HSD08 - Ship/Delivery Pattern Time Code

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

 +2        QUIT