ABME8L11.m

ABME8L11 ; IHS/ASDST/DMJ - Header 

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

 ;Header Segments

 ;

START ;START HERE

 D ^ABME8SE

 D WR^ABMUTL8("SE")

 ;start old code abm*2.6*8

 ;D ^ABME8GE

 ;D WR^ABMUTL8("GE")

 ;D ^ABME8IEA

 ;D WR^ABMUTL8("IEA")

 ;end old code start new code

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

 .D ^ABME8GE

 .D WR^ABMUTL8("GE")

 .D ^ABME8IEA

 .D WR^ABMUTL8("IEA")

 ;end new code

 Q

ABME8L11  ; IHS/ASDST/DMJ - Header 

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

 +2       ;Header Segments

 +3       ;

START     ;START HERE

 +1        DO ^ABME8SE

 +2        DO WR^ABMUTL8("SE")

 +3       ;start old code abm*2.6*8

 +4       ;D ^ABME8GE

 +5       ;D WR^ABMUTL8("GE")

 +6       ;D ^ABME8IEA

 +7       ;D WR^ABMUTL8("IEA")

 +8       ;end old code start new code

 +9       ;only do last time thru

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

               Begin DoDot:1

 +10               DO ^ABME8GE

 +11               DO WR^ABMUTL8("GE")

 +12               DO ^ABME8IEA

 +13               DO WR^ABMUTL8("IEA")

               End DoDot:1

 +14      ;end new code

 +15       QUIT