ABME5L1.m

ABME5L1 ; IHS/ASDST/DMJ - Header 

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

 ;Header Segments

 ;

START ;START HERE

 S ABMSTOT=0

 S ABMLOOP="HEADER"

 I ABMER("CNT")=1 D  ;only do ISA/GS first time through

 .D ^ABME5ISA

 .D WR^ABMUTL8("ISA")

 .D ^ABME5GS

 .D WR^ABMUTL8("GS")

 D ^ABME5ST

 D WR^ABMUTL8("ST")

 D ^ABME5BHT

 D WR^ABMUTL8("BHT")

 S ABMLOOP="1000A"

 D EP^ABME5NM1(41)

 D WR^ABMUTL8("NM1")

 D ^ABME5PER

 D WR^ABMUTL8("PER")

 S ABMLOOP="1000B"

 D EP^ABME5NM1(40)

 D WR^ABMUTL8("NM1")

 Q

ABME5L1   ; IHS/ASDST/DMJ - Header 

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

 +2       ;Header Segments

 +3       ;

START     ;START HERE

 +1        SET ABMSTOT=0

 +2        SET ABMLOOP="HEADER"

 +3       ;only do ISA/GS first time through

           IF ABMER("CNT")=1

               Begin DoDot:1

 +4                DO ^ABME5ISA

 +5                DO WR^ABMUTL8("ISA")

 +6                DO ^ABME5GS

 +7                DO WR^ABMUTL8("GS")

               End DoDot:1

 +8        DO ^ABME5ST

 +9        DO WR^ABMUTL8("ST")

 +10       DO ^ABME5BHT

 +11       DO WR^ABMUTL8("BHT")

 +12       SET ABMLOOP="1000A"

 +13       DO EP^ABME5NM1(41)

 +14       DO WR^ABMUTL8("NM1")

 +15       DO ^ABME5PER

 +16       DO WR^ABMUTL8("PER")

 +17       SET ABMLOOP="1000B"

 +18       DO EP^ABME5NM1(40)

 +19       DO WR^ABMUTL8("NM1")

 +20       QUIT