ABME5ST.m

ABME5ST ; IHS/ASDST/DMJ - 837 ST Segment (Transaction Set Header) ;    

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

 ;Original;DMJ;07/08/96

 ;

START ;START HERE

 K ABMREC("ST"),ABMR("ST")

 S ABMSTOT=1

 S ABME("RTYPE")="ST"

 D LOOP

 K ABME,ABM

 Q

LOOP ;LOOP HERE

 F I=10:10:40 D

 .D @I

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

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

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

 Q

10 ;segment

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

 Q

20 ;ST01 - Transaction Set Identifier Code

 S ABMR("ST",20)=837

 Q

30 ;ST02 - Transaction Set Control Number

 S ABMR("ST",30)=$$FMT^ABMERUTL(ABMER("CNT"),"4NR")

 Q

40 ;ST03 - Implementation Convention Reference

 ;S ABMR("ST",40)="005010X222A1"  ;abm*2.6*8 5010

 S:ABMP("EXP")=32 ABMR("ST",40)="005010X222A1"  ;abm*2.6*8 5010

 S:ABMP("EXP")=31 ABMR("ST",40)="005010X223A2"  ;abm*2.6*8 5010

 S:ABMP("EXP")=33 ABMR("ST",40)="005010X224A2"  ;abm*2.6*8 5010

 Q

ABME5ST   ; IHS/ASDST/DMJ - 837 ST Segment (Transaction Set Header) ;    

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

 +2       ;Original;DMJ;07/08/96

 +3       ;

START     ;START HERE

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

 +2        SET ABMSTOT=1

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

 +4        DO LOOP

 +5        KILL ABME,ABM

 +6        QUIT 

LOOP      ;LOOP HERE

 +1        FOR I=10:10:40

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

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

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

               End DoDot:1

 +6        QUIT 

10        ;segment

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

 +2        QUIT 

20        ;ST01 - Transaction Set Identifier Code

 +1        SET ABMR("ST",20)=837

 +2        QUIT 

30        ;ST02 - Transaction Set Control Number

 +1        SET ABMR("ST",30)=$$FMT^ABMERUTL(ABMER("CNT"),"4NR")

 +2        QUIT 

40        ;ST03 - Implementation Convention Reference

 +1       ;S ABMR("ST",40)="005010X222A1"  ;abm*2.6*8 5010

 +2       ;abm*2.6*8 5010

           IF ABMP("EXP")=32

               SET ABMR("ST",40)="005010X222A1"

 +3       ;abm*2.6*8 5010

           IF ABMP("EXP")=31

               SET ABMR("ST",40)="005010X223A2"

 +4       ;abm*2.6*8 5010

           IF ABMP("EXP")=33

               SET ABMR("ST",40)="005010X224A2"

 +5        QUIT