ABME8L1.m

ABME8L1 ; IHS/ASDST/DMJ - Header 

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

 ;Header Segments

 ;

START ;START HERE

 S ABMSTOT=0

 ;start old code abm*2.6*8

 ;D ^ABME8ISA

 ;D WR^ABMUTL8("ISA")

 ;D ^ABME8GS

 ;D WR^ABMUTL8("GS")

 ;end old code start new code

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

 .D ^ABME8ISA

 .D WR^ABMUTL8("ISA")

 .D ^ABME8GS

 .D WR^ABMUTL8("GS")

 ;end new code

 D ^ABME8ST

 D WR^ABMUTL8("ST")

 D ^ABME8BHT

 D WR^ABMUTL8("BHT")

 D EP^ABME8REF(87)

 D WR^ABMUTL8("REF")

 D EP^ABME8NM1(41)

 D WR^ABMUTL8("NM1")

 D ^ABME8PER

 D WR^ABMUTL8("PER")

 D EP^ABME8NM1(40)

 D WR^ABMUTL8("NM1")

 Q

ABME8L1   ; IHS/ASDST/DMJ - Header 

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

 +2       ;Header Segments

 +3       ;

START     ;START HERE

 +1        SET ABMSTOT=0

 +2       ;start old code abm*2.6*8

 +3       ;D ^ABME8ISA

 +4       ;D WR^ABMUTL8("ISA")

 +5       ;D ^ABME8GS

 +6       ;D WR^ABMUTL8("GS")

 +7       ;end old code start new code

 +8       ;only do ISA/GS first time through

           IF ABMER("CNT")=1

               Begin DoDot:1

 +9                DO ^ABME8ISA

 +10               DO WR^ABMUTL8("ISA")

 +11               DO ^ABME8GS

 +12               DO WR^ABMUTL8("GS")

               End DoDot:1

 +13      ;end new code

 +14       DO ^ABME8ST

 +15       DO WR^ABMUTL8("ST")

 +16       DO ^ABME8BHT

 +17       DO WR^ABMUTL8("BHT")

 +18       DO EP^ABME8REF(87)

 +19       DO WR^ABMUTL8("REF")

 +20       DO EP^ABME8NM1(41)

 +21       DO WR^ABMUTL8("NM1")

 +22       DO ^ABME8PER

 +23       DO WR^ABMUTL8("PER")

 +24       DO EP^ABME8NM1(40)

 +25       DO WR^ABMUTL8("NM1")

 +26       QUIT