ABMDEI1.m

ABMDEI1 ; IHS/ASDST/DMJ - Special Identifier for DIC Lookup ADA Table ;

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

 ;

 W " - ",$P(^AUTTADA(+Y,0),U,2)

 ;

XIT Q

ABMDEI1   ; IHS/ASDST/DMJ - Special Identifier for DIC Lookup ADA Table ;

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

 +2       ;

 +3        WRITE " - ",$PIECE(^AUTTADA(+Y,0),U,2)

 +4       ;

XIT        QUIT