ABME5L11.m

ABME5L11 ; IHS/ASDST/DMJ - Header 

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

 ;Header Segments

 ;

START ;START HERE

 S ABMLOOP="Header"

 D ^ABME5SE

 D WR^ABMUTL8("SE")

 I (ABMER("CNT")=ABMER("LAST")) D  ;only do last time thru

 .D ^ABME5GE

 .D WR^ABMUTL8("GE")

 .D ^ABME5IEA

 .D WR^ABMUTL8("IEA")

 Q

ABME5L11  ; 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 ABMLOOP="Header"

 +2        DO ^ABME5SE

 +3        DO WR^ABMUTL8("SE")

 +4       ;only do last time thru

           IF (ABMER("CNT")=ABMER("LAST"))

               Begin DoDot:1

 +5                DO ^ABME5GE

 +6                DO WR^ABMUTL8("GE")

 +7                DO ^ABME5IEA

 +8                DO WR^ABMUTL8("IEA")

               End DoDot:1

 +9        QUIT