ABMDES11.m

ABMDES11 ; IHS/ASDST/DMJ - UB-92 ;

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

START ;START HERE

 D ^ABMDESM1

 S ABMP("EXP",11)=ABMS("TOT")

 S ABMP("NC")=$S($P($G(ABMP("FLAT")),U,2):$P(ABMS($P(ABMP("FLAT"),U,2)),U,5),1:0)

 D ^ABMDES1:ABMS("TOT")

 S ABMP("TOT")=ABMP("TOT")-ABMS("TOT")

 Q

ABMDES11  ; IHS/ASDST/DMJ - UB-92 ;

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

START     ;START HERE

 +1        DO ^ABMDESM1

 +2        SET ABMP("EXP",11)=ABMS("TOT")

 +3        SET ABMP("NC")=$SELECT($PIECE($GET(ABMP("FLAT")),U,2):$PIECE(ABMS($PIECE(ABMP("FLAT"),U,2)),U,5),1:0)

 +4        IF ABMS("TOT")

               DO ^ABMDES1

 +5        SET ABMP("TOT")=ABMP("TOT")-ABMS("TOT")

 +6        QUIT