ABME5SV5.m

ABME5SV5 ; IHS/ASDST/DMJ - 837 SV5 Segment 

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

 ;Transaction Set Header

 ;

EP ;EP

 K ABMREC("SV5"),ABMR("SV5")

 S ABME("RTYPE")="SV5"

 D LOOP

 K ABME

 Q

LOOP ;LOOP HERE

 F I=10:10:80 D

 .D @I

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

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

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

 Q

10 ;segment

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

 Q

20 ;SV501 - Composite Medical Procedure Identifier

 ;SV501-1 Product Service ID Qualifier

 ;SV501-2 Product Service ID (Procedure Code)

 I $P(ABMRV(ABMI,ABMJ,ABMK),U,2)'="" D

 .S ABMR("SV5",20)="HC"

 .S $P(ABMR("SV5",20),":",2)=$P(ABMRV(ABMI,ABMJ,ABMK),U,2)

 Q

30 ;SV502 - Unit or Basis for Measurement Code

 S ABMR("SV5",30)="DA"

 Q

40 ;SV503 - Quantity

 S ABMR("SV5",40)=+$P(ABMRV(ABMI,ABMJ,ABMK),U,33)

 Q

50 ;SV504 - Monetary Amount (DME Rental Price)

 S ABMR("SV5",50)=+$P(ABMRV(ABMI,ABMJ,ABMK),U,34)

 Q

60 ;SV505 - Monetary Amount (DME Purchase Price)

 S ABMR("SV5",60)=+$P(ABMRV(ABMI,ABMJ,ABMK),U,35)

 Q

70 ;SV506 - Frequency Code

 S ABMR("SV5",70)=+$P(ABMRV(ABMI,ABMJ,ABMK),U,36)

 Q

80 ;SV507 - Prognosis Code

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

 Q

ABME5SV5  ; IHS/ASDST/DMJ - 837 SV5 Segment 

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

 +2       ;Transaction Set Header

 +3       ;

EP        ;EP

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

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

 +3        DO LOOP

 +4        KILL ABME

 +5        QUIT 

LOOP      ;LOOP HERE

 +1        FOR I=10:10:80

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

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

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

               End DoDot:1

 +6        QUIT 

10        ;segment

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

 +2        QUIT 

20        ;SV501 - Composite Medical Procedure Identifier

 +1       ;SV501-1 Product Service ID Qualifier

 +2       ;SV501-2 Product Service ID (Procedure Code)

 +3        IF $PIECE(ABMRV(ABMI,ABMJ,ABMK),U,2)'=""

               Begin DoDot:1

 +4                SET ABMR("SV5",20)="HC"

 +5                SET $PIECE(ABMR("SV5",20),":",2)=$PIECE(ABMRV(ABMI,ABMJ,ABMK),U,2)

               End DoDot:1

 +6        QUIT 

30        ;SV502 - Unit or Basis for Measurement Code

 +1        SET ABMR("SV5",30)="DA"

 +2        QUIT 

40        ;SV503 - Quantity

 +1        SET ABMR("SV5",40)=+$PIECE(ABMRV(ABMI,ABMJ,ABMK),U,33)

 +2        QUIT 

50        ;SV504 - Monetary Amount (DME Rental Price)

 +1        SET ABMR("SV5",50)=+$PIECE(ABMRV(ABMI,ABMJ,ABMK),U,34)

 +2        QUIT 

60        ;SV505 - Monetary Amount (DME Purchase Price)

 +1        SET ABMR("SV5",60)=+$PIECE(ABMRV(ABMI,ABMJ,ABMK),U,35)

 +2        QUIT 

70        ;SV506 - Frequency Code

 +1        SET ABMR("SV5",70)=+$PIECE(ABMRV(ABMI,ABMJ,ABMK),U,36)

 +2        QUIT 

80        ;SV507 - Prognosis Code

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

 +2        QUIT