/*
 * class operation:  validate
 */
void
ooaofooa_DOC_TBL_op_validate()
{
  ooaofooa_DOC_TBL * doc_tbl=0;Escher_ObjectSet_s doc_tbls_space={0}; Escher_ObjectSet_s * doc_tbls = &doc_tbls_space;
  /* SELECT many doc_tbls FROM INSTANCES OF DOC_TBL */
  Escher_CopySet( doc_tbls, &pG_ooaofooa_DOC_TBL_extent.active );
  /* FOR EACH doc_tbl IN doc_tbls */
  { Escher_Iterator_s iterdoc_tbl;
  ooaofooa_DOC_TBL * iidoc_tbl;
  Escher_IteratorReset( &iterdoc_tbl, doc_tbls );
  while ( (iidoc_tbl = (ooaofooa_DOC_TBL *)Escher_IteratorNext( &iterdoc_tbl )) != 0 ) {
    doc_tbl = iidoc_tbl; {
    ooaofooa_DOC_ROW * doc_row=0;ooaofooa_DOC_PAR * parent_doc_par=0;
    /* SELECT one parent_doc_par RELATED BY doc_tbl->DOC_PAR[R2315] */
    parent_doc_par = ( 0 != doc_tbl ) ? doc_tbl->DOC_PAR_R2315 : 0;
    /* SELECT one doc_row RELATED BY doc_tbl->DOC_ROW[R2317] */
    doc_row = ( 0 != doc_tbl ) ? doc_tbl->DOC_ROW_R2317_has_first : 0;
    /* IF ( ( empty parent_doc_par or empty doc_row ) ) */
    if ( ( ( 0 == parent_doc_par ) || ( 0 == doc_row ) ) ) {
      /* LOG::LogFailure( message:( ( !Table  + doc_tbl.title ) +  is not linked. ) ) */
      LOG_LogFailure( Escher_stradd( Escher_stradd( "!Table ", doc_tbl->title ), " is not linked." ) );
    }
  }}}
  Escher_ClearSet( doc_tbls );

}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_ACT_IOP *
ooaofooa_ACT_IOP_AnyWhere1( Escher_UniqueID_t w_Statement_ID )
{
  ooaofooa_ACT_IOP * w; 
  Escher_Iterator_s iter_ACT_IOP;
  Escher_IteratorReset( &iter_ACT_IOP, &pG_ooaofooa_ACT_IOP_extent.active );
  while ( (w = (ooaofooa_ACT_IOP *) Escher_IteratorNext( &iter_ACT_IOP )) != 0 ) {
    if ( w->Statement_ID == w_Statement_ID ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_TE_PO *
ooaofooa_TE_PO_AnyWhere1( Escher_UniqueID_t w_ID )
{
  ooaofooa_TE_PO * w; 
  Escher_Iterator_s iter_TE_PO;
  Escher_IteratorReset( &iter_TE_PO, &pG_ooaofooa_TE_PO_extent.active );
  while ( (w = (ooaofooa_TE_PO *) Escher_IteratorNext( &iter_TE_PO )) != 0 ) {
    if ( w->ID == w_ID ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_TE_SYNC *
ooaofooa_TE_SYNC_AnyWhere2( Escher_UniqueID_t w_ID )
{
  ooaofooa_TE_SYNC * w; 
  Escher_Iterator_s iter_TE_SYNC;
  Escher_IteratorReset( &iter_TE_SYNC, &pG_ooaofooa_TE_SYNC_extent.active );
  while ( (w = (ooaofooa_TE_SYNC *) Escher_IteratorNext( &iter_TE_SYNC )) != 0 ) {
    if ( w->ID == w_ID ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_SPR_PS *
ooaofooa_SPR_PS_AnyWhere1( Escher_UniqueID_t w_Id )
{
  ooaofooa_SPR_PS * w; 
  Escher_Iterator_s iter_SPR_PS;
  Escher_IteratorReset( &iter_SPR_PS, &pG_ooaofooa_SPR_PS_extent.active );
  while ( (w = (ooaofooa_SPR_PS *) Escher_IteratorNext( &iter_SPR_PS )) != 0 ) {
    if ( w->Id == w_Id ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_MSG_SM *
ooaofooa_MSG_SM_AnyWhere1( Escher_UniqueID_t w_Msg_ID )
{
  ooaofooa_MSG_SM * w; 
  Escher_Iterator_s iter_MSG_SM;
  Escher_IteratorReset( &iter_MSG_SM, &pG_ooaofooa_MSG_SM_extent.active );
  while ( (w = (ooaofooa_MSG_SM *) Escher_IteratorNext( &iter_MSG_SM )) != 0 ) {
    if ( w->Msg_ID == w_Msg_ID ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_O_IOBJ *
ooaofooa_O_IOBJ_AnyWhere1( Escher_UniqueID_t w_IObj_ID )
{
    ooaofooa_O_IOBJ * w;
    Escher_Iterator_s iter_O_IOBJ;
    Escher_IteratorReset( &iter_O_IOBJ, &pG_ooaofooa_O_IOBJ_extent.active );
    while ( (w = (ooaofooa_O_IOBJ *) Escher_IteratorNext( &iter_O_IOBJ )) != 0 ) {
        if ( w->IObj_ID == w_IObj_ID ) {
            return w;
        }
    }
    return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_SM_EVTDI *
ooaofooa_SM_EVTDI_AnyWhere1( Escher_UniqueID_t w_SMedi_ID, Escher_UniqueID_t w_SM_ID )
{
  ooaofooa_SM_EVTDI * w; 
  Escher_Iterator_s iter_SM_EVTDI;
  Escher_IteratorReset( &iter_SM_EVTDI, &pG_ooaofooa_SM_EVTDI_extent.active );
  while ( (w = (ooaofooa_SM_EVTDI *) Escher_IteratorNext( &iter_SM_EVTDI )) != 0 ) {
    if ( w->SMedi_ID == w_SMedi_ID && w->SM_ID == w_SM_ID ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_R_SIMP *
ooaofooa_R_SIMP_AnyWhere1( Escher_UniqueID_t w_Rel_ID )
{
  ooaofooa_R_SIMP * w; 
  Escher_Iterator_s iter_R_SIMP;
  Escher_IteratorReset( &iter_R_SIMP, &pG_ooaofooa_R_SIMP_extent.active );
  while ( (w = (ooaofooa_R_SIMP *) Escher_IteratorNext( &iter_R_SIMP )) != 0 ) {
    if ( w->Rel_ID == w_Rel_ID ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_SQ_CPA *
ooaofooa_SQ_CPA_AnyWhere1( Escher_UniqueID_t w_Ia_ID )
{
  ooaofooa_SQ_CPA * w; 
  Escher_Iterator_s iter_SQ_CPA;
  Escher_IteratorReset( &iter_SQ_CPA, &pG_ooaofooa_SQ_CPA_extent.active );
  while ( (w = (ooaofooa_SQ_CPA *) Escher_IteratorNext( &iter_SQ_CPA )) != 0 ) {
    if ( w->Ia_ID == w_Ia_ID ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_I_STF *
ooaofooa_I_STF_AnyWhere1( Escher_UniqueID_t w_Stack_Frame_ID )
{
  ooaofooa_I_STF * w; 
  Escher_Iterator_s iter_I_STF;
  Escher_IteratorReset( &iter_I_STF, &pG_ooaofooa_I_STF_extent.active );
  while ( (w = (ooaofooa_I_STF *) Escher_IteratorNext( &iter_I_STF )) != 0 ) {
    if ( w->Stack_Frame_ID == w_Stack_Frame_ID ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_CSME_CIE *
ooaofooa_CSME_CIE_AnyWhere1( Escher_UniqueID_t w_CIE_ID )
{
  ooaofooa_CSME_CIE * w; 
  Escher_Iterator_s iter_CSME_CIE;
  Escher_IteratorReset( &iter_CSME_CIE, &pG_ooaofooa_CSME_CIE_extent.active );
  while ( (w = (ooaofooa_CSME_CIE *) Escher_IteratorNext( &iter_CSME_CIE )) != 0 ) {
    if ( w->CIE_ID == w_CIE_ID ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_TE_DIM *
ooaofooa_TE_DIM_AnyWhere1( Escher_UniqueID_t w_te_dimID )
{
  ooaofooa_TE_DIM * w; 
  Escher_Iterator_s iter_TE_DIM;
  Escher_IteratorReset( &iter_TE_DIM, &pG_ooaofooa_TE_DIM_extent.active );
  while ( (w = (ooaofooa_TE_DIM *) Escher_IteratorNext( &iter_TE_DIM )) != 0 ) {
    if ( w->te_dimID == w_te_dimID ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_S_BRG *
ooaofooa_S_BRG_AnyWhere1( Escher_UniqueID_t w_Brg_ID )
{
  ooaofooa_S_BRG * w; 
  Escher_Iterator_s iter_S_BRG;
  Escher_IteratorReset( &iter_S_BRG, &pG_ooaofooa_S_BRG_extent.active );
  while ( (w = (ooaofooa_S_BRG *) Escher_IteratorNext( &iter_S_BRG )) != 0 ) {
    if ( w->Brg_ID == w_Brg_ID ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_SM_EVT *
ooaofooa_SM_EVT_AnyWhere2( Escher_UniqueID_t w_SMevt_ID, Escher_UniqueID_t w_SM_ID, Escher_UniqueID_t w_SMspd_ID )
{
  ooaofooa_SM_EVT * w; 
  Escher_Iterator_s iter_SM_EVT;
  Escher_IteratorReset( &iter_SM_EVT, &pG_ooaofooa_SM_EVT_extent.active );
  while ( (w = (ooaofooa_SM_EVT *) Escher_IteratorNext( &iter_SM_EVT )) != 0 ) {
    if ( w->SMevt_ID == w_SMevt_ID && w->SM_ID == w_SM_ID && w->SMspd_ID == w_SMspd_ID ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_ACT_BLK *
ooaofooa_ACT_BLK_AnyWhere1( Escher_UniqueID_t w_Block_ID )
{
  ooaofooa_ACT_BLK * w; 
  Escher_Iterator_s iter_ACT_BLK;
  Escher_IteratorReset( &iter_ACT_BLK, &pG_ooaofooa_ACT_BLK_extent.active );
  while ( (w = (ooaofooa_ACT_BLK *) Escher_IteratorNext( &iter_ACT_BLK )) != 0 ) {
    if ( w->Block_ID == w_Block_ID ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_C_P *
ooaofooa_C_P_AnyWhere1( Escher_UniqueID_t w_Provision_Id )
{
  ooaofooa_C_P * w; 
  Escher_Iterator_s iter_C_P;
  Escher_IteratorReset( &iter_C_P, &pG_ooaofooa_C_P_extent.active );
  while ( (w = (ooaofooa_C_P *) Escher_IteratorNext( &iter_C_P )) != 0 ) {
    if ( w->Provision_Id == w_Provision_Id ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_TE_SMT *
ooaofooa_TE_SMT_AnyWhere1( Escher_UniqueID_t w_Statement_ID )
{
  ooaofooa_TE_SMT * w; 
  Escher_Iterator_s iter_TE_SMT;
  Escher_IteratorReset( &iter_TE_SMT, &pG_ooaofooa_TE_SMT_extent.active );
  while ( (w = (ooaofooa_TE_SMT *) Escher_IteratorNext( &iter_TE_SMT )) != 0 ) {
    if ( w->Statement_ID == w_Statement_ID ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_C_IR *
ooaofooa_C_IR_AnyWhere1( Escher_UniqueID_t w_Id )
{
  ooaofooa_C_IR * w; 
  Escher_Iterator_s iter_C_IR;
  Escher_IteratorReset( &iter_C_IR, &pG_ooaofooa_C_IR_extent.active );
  while ( (w = (ooaofooa_C_IR *) Escher_IteratorNext( &iter_C_IR )) != 0 ) {
    if ( w->Id == w_Id ) {
      return w;
    }
  }
  return 0;
}

/*
 * Scan the extent for a matching instance.
 */
ooaofooa_PE_CRS *
ooaofooa_PE_CRS_AnyWhere1( Escher_UniqueID_t w_Id, c_t * w_Name, sys_ElementTypeConstants_t w_Type )
{
  ooaofooa_PE_CRS * w; 
  Escher_Iterator_s iter_PE_CRS;
  Escher_IteratorReset( &iter_PE_CRS, &pG_ooaofooa_PE_CRS_extent.active );
  while ( (w = (ooaofooa_PE_CRS *) Escher_IteratorNext( &iter_PE_CRS )) != 0 ) {
    if ( w->Id == w_Id && w->Name == w_Name && w->Type == w_Type ) {
      return w;
    }
  }
  return 0;
}