<& /ssmtlheader, model => $model, ssmObjectName => $ssmObjectName &>
<& modelheader &>
SSM Object Timeline
Object <% $ssmObjectName %>
<& /htmlfooter &>
<%args>
$ssmObjectName
<%init>
my $inst = $m->notes('INST');
my $model = $m->notes('MODEL');
use PS::MOPS::DC::SSM;
use PS::MOPS::DC::History;
my $ssmId = modcs_objectName2ssmId($inst, $ssmObjectName);