FORMAT==100
FEEDSTRINGS;

#******************************************************
# Check if rules apply to this scenario
#******************************************************
#[]=N:
#  IF(ATTRS('Version', !Version, 'Link to Drivers') @= 'Y',
#    CONTINUE,
#    STET
#  );

#******************************************************
#
#******************************************************
['Life in Years']=N:
  DB('AssetAttributes',!Version,
  SUBST(DB('AssetNewInput',!Version,!Region,!Department,!Item,'Purchase Month'),5, 4),
  DB('AssetNewInput',!Version,!Region,!Department,!Item,'Asset Type'),
  'Life in Years');

#******************************************************
#
#******************************************************
['Default Depreciation Rate']=N:
  DB('AssetAttributes',!Version,
  SUBST(DB('AssetNewInput',!Version,!Region,!Department,!Item,'Purchase Month'),5, 4),
  DB('AssetNewInput',!Version,!Region,!Department,!Item,'Asset Type'),
  'Default Depreciation Rate');

FEEDERS;

['Acquisition $']=>
  DB('AssetNewSummary','Local',!Version,
  DIMNM('SL_Time', DIMIX('SL_Time', DB('AssetNewInput',!Version,!Region,!Department,!Item,'Purchase Month'))),
  !Region,!Department,!Item,
  DB('AssetNewInput',!Version,!Region,!Department,!Item,'Asset Type'),
  'Asset Name');

['Acquisition $']=>
  DB('AssetNewSummary','Local',!Version,
  DIMNM('SL_Time', DIMIX('SL_Time', DB('AssetNewInput',!Version,!Region,!Department,!Item,'Purchase Month'))),
  !Region,!Department,!Item,
  DB('AssetNewInput',!Version,!Region,!Department,!Item,'Asset Type'),
  'Life in Years');

['Acquisition $']=>
  DB('AssetNewSummary','Local',!Version,
  DIMNM('SL_Time', DIMIX('SL_Time', DB('AssetNewInput',!Version,!Region,!Department,!Item,'Purchase Month'))),
  !Region,!Department,!Item,
  DB('AssetNewInput',!Version,!Region,!Department,!Item,'Asset Type'),
  'Months Remaining');

['Acquisition $']=>
  DB('AssetNewSummary','Local',!Version,
  DIMNM('SL_Time', DIMIX('SL_Time', DB('AssetNewInput',!Version,!Region,!Department,!Item,'Purchase Month'))),
  !Region,!Department,!Item,
  DB('AssetNewInput',!Version,!Region,!Department,!Item,'Asset Type'),
  'Acquisition $');

['Acquisition $']=>
  DB('AssetNewSummary','Local',!Version,
  DIMNM('SL_Time', DIMIX('SL_Time', DB('AssetNewInput',!Version,!Region,!Department,!Item,'Purchase Month'))),
  !Region,!Department,!Item,
  DB('AssetNewInput',!Version,!Region,!Department,!Item,'Asset Type'),
  '<Cum Amount>');

['Acquisition $']=>
  DB('AssetNewSummary','Local',!Version,
  DIMNM('SL_Time', DIMIX('SL_Time', DB('AssetNewInput',!Version,!Region,!Department,!Item,'Purchase Month'))),
  !Region,!Department,!Item,
  DB('AssetNewInput',!Version,!Region,!Department,!Item,'Asset Type'),
  'Cash Paid');

['Acquisition $']=>
  DB('AssetNewSummary','Local',!Version,
  DIMNM('SL_Time', DIMIX('SL_Time', DB('AssetNewInput',!Version,!Region,!Department,!Item,'Purchase Month'))),
  !Region,!Department,!Item,
  DB('AssetNewInput',!Version,!Region,!Department,!Item,'Asset Type'),
  'Opening Liab');

['Acquisition $']=>
  DB('AssetNewSummary','Local',!Version,
  DIMNM('SL_Time', DIMIX('SL_Time', DB('AssetNewInput',!Version,!Region,!Department,!Item,'Purchase Month'))),
  !Region,!Department,!Item,
  DB('AssetNewInput',!Version,!Region,!Department,!Item,'Asset Type'),
  'Closing Liab');

['Acquisition $']=>
  DB('AssetNewSummary','Local',!Version,
  DIMNM('SL_Time', DIMIX('SL_Time', DB('AssetNewInput',!Version,!Region,!Department,!Item,'Purchase Month'))),
  !Region,!Department,!Item,
  DB('AssetNewInput',!Version,!Region,!Department,!Item,'Asset Type'),
  'Mvmnt Liab');

['Acquisition $']=>
  DB('AssetNewSummary','Local',!Version,
  DIMNM('SL_Time', DIMIX('SL_Time', DB('AssetNewInput',!Version,!Region,!Department,!Item,'Purchase Month'))),
  !Region,!Department,!Item,
  DB('AssetNewInput',!Version,!Region,!Department,!Item,'Asset Type'),
  'Opening WDV');

['Acquisition $']=>
  DB('AssetNewSummary','Local',!Version,
  DIMNM('SL_Time', DIMIX('SL_Time', DB('AssetNewInput',!Version,!Region,!Department,!Item,'Purchase Month'))),
  !Region,!Department,!Item,
  DB('AssetNewInput',!Version,!Region,!Department,!Item,'Asset Type'),
  'Depreciation');

['Acquisition $']=>
  DB('AssetNewSummary','Local',!Version,
  DIMNM('SL_Time', DIMIX('SL_Time', DB('AssetNewInput',!Version,!Region,!Department,!Item,'Purchase Month'))),
  !Region,!Department,!Item,
  DB('AssetNewInput',!Version,!Region,!Department,!Item,'Asset Type'),
  'Closing WDV');

