ABME8L13.m

ABME8L13 ; IHS/ASDST/DMJ - Header 

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

 ;Header Segments

 ;

 ; IHS/SD/SDR - v2.5 p9 - IM19077

 ;    Pass date (not time) for DTP segments

 ;

START ;START HERE

 D ^ABME8CLM

 D WR^ABMUTL8("CLM")

 I $P(ABMB6,"^") D

 .D EP^ABME8DTP(435,"D8",$P(ABMB6,"^"))

 .D WR^ABMUTL8("DTP")

 I $P(ABMB6,"^",3) D

 .D EP^ABME8DTP("096","D8",$P(ABMB6,"^",3))

 .D WR^ABMUTL8("DTP")

 I $P(ABMB8,"^",2) D

 .D EP^ABME8DTP(439,"D8",$P(ABMB8,"^",2))

 .D WR^ABMUTL8("DTP")

 I $P(ABMB7,U)'=$P(ABMB7,"^",2) D

 .D EP^ABME8DTP(472,"RD8",$P(ABMB7,U),$P(ABMB7,"^",2))

 .D WR^ABMUTL8("DTP")

 I $P(ABMB7,U)=$P(ABMB7,"^",2) D

 .D EP^ABME8DTP(472,"D8",$P(ABMB7,U))

 .D WR^ABMUTL8("DTP")

 I $P(ABMB9,"^",9) D

 .D EP^ABME8AMT("F5")

 .D WR^ABMUTL8("AMT")

 I $D(^ABMDBILL(DUZ(2),ABMP("BDFN"),61)) D

 .D EP^ABME8NTE("ADD")

 .D WR^ABMUTL8("NTE")

 Q

ABME8L13  ; IHS/ASDST/DMJ - Header 

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

 +2       ;Header Segments

 +3       ;

 +4       ; IHS/SD/SDR - v2.5 p9 - IM19077

 +5       ;    Pass date (not time) for DTP segments

 +6       ;

START     ;START HERE

 +1        DO ^ABME8CLM

 +2        DO WR^ABMUTL8("CLM")

 +3        IF $PIECE(ABMB6,"^")

               Begin DoDot:1

 +4                DO EP^ABME8DTP(435,"D8",$PIECE(ABMB6,"^"))

 +5                DO WR^ABMUTL8("DTP")

               End DoDot:1

 +6        IF $PIECE(ABMB6,"^",3)

               Begin DoDot:1

 +7                DO EP^ABME8DTP("096","D8",$PIECE(ABMB6,"^",3))

 +8                DO WR^ABMUTL8("DTP")

               End DoDot:1

 +9        IF $PIECE(ABMB8,"^",2)

               Begin DoDot:1

 +10               DO EP^ABME8DTP(439,"D8",$PIECE(ABMB8,"^",2))

 +11               DO WR^ABMUTL8("DTP")

               End DoDot:1

 +12       IF $PIECE(ABMB7,U)'=$PIECE(ABMB7,"^",2)

               Begin DoDot:1

 +13               DO EP^ABME8DTP(472,"RD8",$PIECE(ABMB7,U),$PIECE(ABMB7,"^",2))

 +14               DO WR^ABMUTL8("DTP")

               End DoDot:1

 +15       IF $PIECE(ABMB7,U)=$PIECE(ABMB7,"^",2)

               Begin DoDot:1

 +16               DO EP^ABME8DTP(472,"D8",$PIECE(ABMB7,U))

 +17               DO WR^ABMUTL8("DTP")

               End DoDot:1

 +18       IF $PIECE(ABMB9,"^",9)

               Begin DoDot:1

 +19               DO EP^ABME8AMT("F5")

 +20               DO WR^ABMUTL8("AMT")

               End DoDot:1

 +21       IF $DATA(^ABMDBILL(DUZ(2),ABMP("BDFN"),61))

               Begin DoDot:1

 +22               DO EP^ABME8NTE("ADD")

 +23               DO WR^ABMUTL8("NTE")

               End DoDot:1

 +24       QUIT