          SUBROUTINE (VAL,CST.BN)
** Version# 3.0002[13] - 09/28/2010 - 08:42am - SMITJR - eclipse
*** V3.0002 Change - Custom Coding CIW979 - 09/28/2010 - SMITJR - eclipse
** Copied from SP DICT.GET.BR.COST Version# 2 - 05/23/2002 - 07:10pm - SHELLYF - develop
*** V3.0001 Change - Custom Coding .. - 09/27/2010 - SMITJR - eclipse

          PN  = FIELD(@ID,'~',1)
          IF FIELD(@ID,'~',10) = "" THEN BR=FIELD(@ID,'~',2)
          ELSE
          BR=FIELD(@ID,'~',10)
          END
          BR  = FIELD(@ID,'~',2)
          AOD = FIELD(@ID,'~',3)
          AOT = ''

          GET.BR.COST.AOD COST,BR,PN,CST.BN,AOD,AOT,PER.QTY,ERR.MSG

          VAL = COST
          RETURN

!SMITJR~09/28/10~08:42
