// COPYRIGHT DASSAULT SYSTEMES 2005
// here follow basic block definition
// - internal use only
// - any modification to this file must be checked before deliveries
// 
block CATTPSCapturePartInstAndBodyData #block::upgrade(CATTPSCapturePartInstAndBodyDataUpgrade01)
{
  external $allocate #offset(0)
  external $list #offset(1)
  external `CapturedPartInstAndBody` #offset(1) #list
}
