          SUBROUTINE (VAL,CST.BN)
** Version# 0.0001[13] - 05/09/2013 - 02:51pm - TSMITH - eclipse
*** V0.0001 Change - Custom Coding L - 05/09/2013 - TSMITH - eclipse
*** V3.0002 Change - Custom Coding CIW979 - 09/27/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)
          BR  = '5'
          AOD = TRANS('LEDGER',FIELD(@ID,'~',4),4,'X')<1,1,1>
          AOT = ''
          ZERO.OK = 'YES'

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

          VAL = COST
          RETURN

!TSMITH~05/09/13~14:51
