{PROMPT: Enter command}


{ACTIONTEXT: Awmc_me_generic_pa_load_ronly}
Awmc_me_generic_pa_load_ronly Awm_me_generic_pa_load_ronly 
LET Win ( GET_CURRENT_WINDOW ) "Awm_editor" Awmc_ed_m_check_update_doc Win 
  "Awm_editor" Awm_ed_m_check_update_doc Awm_ed2_m_check_update_doc Win 
  "Awm_editor" Awm_ed_m_get_curr_doc_state Win "Awm_editor" 
  Awm_ed_m_get_curr_doc_class Win "Awm_editor" 
LET Dms_return_val ( READ_FIELD_VALUE ( Win "Awm_editor" + 
  ".Local.DocClass" ) ) "ME_DRAWING" Awm_ed_m_get_doc_state Win 
  "Awm_editor" Dms_return_val "ME_DRAWING" 
LET Row_num ( SEARCH_LTAB "AWM_UI_doc_classes" 0 Awm_ed_val_class_name 
  Db_class_name ( CATGETS "db_local_language" 31 "" ) Class_name 
  "ME_DRAWING" ) 1 
IF ( Row_num 1 <= 0 ) 0 
LET Dms_return_val ( READ_LTAB "AWM_UI_doc_classes" Row_num 1 
  Awm_ed_val_ed_state "ED_STATE" ) "VIEW" 
END_IF 
LET Docstate Dms_return_val "VIEW" Awm_ed_m_get_curr_part_state Win 
  "Awm_editor" Awm_ed_m_get_curr_part_class Win "Awm_editor" 
LET Dms_return_val ( READ_FIELD_VALUE ( Win "Awm_editor" + 
  ".Local.PartClass" ) ) "MASTER_PART" Awm_ed_m_get_part_state Win 
  "Awm_editor" Dms_return_val "MASTER_PART" 
LET Row_num ( SEARCH_LTAB "AWM_UI_part_classes" 0 Awm_ed_val_class_name 
  Db_class_name ( CATGETS "db_local_language" 31 "" ) Class_name 
  "MASTER_PART" ) 1 
IF ( Row_num 1 <= 0 ) 0 
LET Dms_return_val ( READ_LTAB "AWM_UI_part_classes" Row_num 1 
  Awm_ed_val_ed_state "ED_STATE" ) "VIEW" 
END_IF 
LET Partstate Dms_return_val "VIEW" 
IF ( ( ( Docstate "VIEW" != "VIEW" ) AND ( Docstate "VIEW" != "SEARCH" ) ) 
  OR ( ( Partstate "VIEW" != "VIEW" ) AND ( Partstate "VIEW" != "SEARCH" ) 
  ) OR ( Awm_li2_f_get_local_part_action Win "Awm_editor" ( 
  READ_FIELD_VALUE ( Win "Awm_editor" + ".PL.Local.Action" ) ) != "" ) OR ( 
  Awm_li2_f_get_local_doc_action Win "Awm_editor" ( READ_FIELD_VALUE ( Win 
  "Awm_editor" + ".DL.Local.Action" ) ) != "" ) ) 0 ( Docstate "VIEW" != 
  "VIEW" ) 0 
LET Dms_return_val 1 
END_IF 
IF ( NOT Dms_return_val 1 ) 0 Awmc_me_generic_get_desired_mesystem 
  Awm_me10_m_check_mesystem Awm_il_tool_get_platform 
IF ( Awm_il_tool_platform 2 == 0 ) 0 
IF ( Awm_il_tool_platform 2 == 2 ) 1 
  Awm_t_m_me10_interlink_check_annotation 
LET Ret_val -1 Awm_t_m_close_connection_pc 
LET Num_errors Dms_get_num_errors ( LTAB_ROWS "ERROR_TABLE" ) 0 
IF ( Global_dde_handle 0 == ERROR ) 0 
IF ( Global_dde_handle 0 != 0 ) 0 
IF ( Dde_handle 0 == ERROR ) 0 
IF ( Dde_handle 0 != 0 ) 0 
LET Dde_handle ( DDE_INITIATE "ME10F" "GENERAL" ) 2753388 
IF ( Dde_handle 2753388 == ERROR ) 0 
IF ( Dde_handle 2753388 != ERROR ) 1 
LET Anno_active ( DDE_REQUEST Dde_handle 2753388 "Annotation_active" ) "1" 
LET Ret_val ( DDE_CLOSE Dde_handle 2753388 ) NO_ERROR 
LET Dde_handle 0 
LET Ret_val ( STR_TO_INT Anno_active "1" ) 1 
END_IF 
LET Dms_return_val Ret_val 1 
IF ( Dms_return_val 1 == 0 ) 0 ( Dms_return_val 1 == 1 ) 1 
LET Ret_val 2 
ELSE 
ELSE 
LET Dms_return_val Ret_val 2 
IF ( Dms_return_val 2 == 0 ) 0 ( Dms_return_val 2 == 1 ) 0 ( Dms_return_val 
  2 == 2 ) 1 
LET Awm_me10_val_desired_mesystem 2 
LET Awm_me10_val_preferred_mesystem Awm_me10_val_desired_mesystem 2 
ELSE 
LET Dms_return_val Awm_me10_val_desired_mesystem 2 
  Awm_ed_m_get_curr_doc_user_cid Win "Awm_editor" 
  Awm_ed_m_get_curr_doc_class Win "Awm_editor" 
LET Dms_return_val ( READ_FIELD_VALUE ( Win "Awm_editor" + 
  ".Local.DocClass" ) ) "ME_DRAWING" Awm_ed_m_get_doc_user_cid Win 
  "Awm_editor" Dms_return_val "ME_DRAWING" 
LET Row_num ( SEARCH_LTAB "AWM_UI_doc_classes" 0 Awm_ed_val_class_name 
  Db_class_name ( CATGETS "db_local_language" 31 "" ) Class_name 
  "ME_DRAWING" ) 1 
IF ( Row_num 1 <= 0 ) 0 
LET User_cid ( READ_LTAB "AWM_UI_doc_classes" Row_num 1 Awm_ed_val_user_cid 
  "USER_CID" ) "000201b4" 
IF ( User_cid "000201b4" == "" ) 0 
END_IF 
LET Dms_return_val User_cid "000201b4" 
LET Ducid Dms_return_val "000201b4" 
LET Delid ( GET_CACHE_VALUE Ducid "000201b4" Db_elid ( CATGETS 
  "db_local_language" 100 "" ) ) "BCH17263HXUJUP" 
IF ( Awm_val_2d3d_enabled 1 ) 1 Awmc_2d3d_m_check_link Delid 
  "BCH17263HXUJUP" Awm_2d3d_m_check_link Doc_elid "BCH17263HXUJUP" 
LET Lstate "" Awmc_2d3d_i_get_link_elem Doc_elid "BCH17263HXUJUP" 
  Awm_2d3d_i_get_link_elem Doc_elid "BCH17263HXUJUP" 
CREATE_LTAB "2d3d__link__ltab" 
IF ( ( DMS_GET_SCHEMA_VERSION ) < 8 ) 1 
SQL_QUERY ( "SELECT " + Db_parent_element ( CATGETS "db_local_language" 113 
  "" ) + " FROM " + Dbr_ele_links ( CATGETS "db_local_language" 111 "" ) + 
  " WHERE " + Db_child_element ( CATGETS "db_local_language" 112 "" ) 
  " = '" + Doc_elid "BCH17263HXUJUP" + "' AND " + Db_view_name ( CATGETS 
  "db_local_language" 120 "" ) + " = '" + Awm_2d3d_val_ltype_drawing 
  "2D3D-DRAWING" + "'" ) 
  "SELECT PARENT_ELEMENT FROM WM_ELE_LINKS WHERE CHILD_ELEMENT = 'BCH17263HXUJUP' AND VIEW_NAME = '2D3D-DRAWING'" 
  USER_TABLE "2d3d__link__ltab" 
END 
{PROMPT: 1 record(s) read}
ELSE 
LET Dms_return_val ( READ_LTAB "2d3d__link__ltab" 1 1 ) "BCH1726HHXUJUP" 
LET Link_id Dms_return_val "BCH1726HHXUJUP" 
IF ( Link_id "BCH1726HHXUJUP" != "" ) 1 
LET Cid ( DMS_SELECT_ELEMENT VIEW Link_id "BCH1726HHXUJUP" ) "004801ba" 
IF ( ( TYPE Cid "004801ba" ) == STRING ) 1 
LET Lstate ( GET_CACHE_VALUE Cid "004801ba" Db_state ( CATGETS 
  "db_local_language" 104 "" ) ) "INVALID" 
LET Ret ( DMS_DROP Cid "004801ba" ) NO_ERROR 
ELSE 
END_IF 
LET Dms_return_val Lstate "INVALID" 
IF ( Dms_return_val "INVALID" == Awm_2d3d_state_invalid "INVALID" ) 1 
DISPLAY ( LOCAL_MESG "awm.cat" 997 
  "WARNING: One or more 3D models in this drawing have been modified" 80 ) 
  "WARNING: One or more 3D models in this drawing have been modified" 
{PROMPT: "WARNING: One or more 3D models in this drawing have been modified"}
END_IF 
END_IF Awmc_ed_m_prepare_load Win "Awm_editor" Delid "BCH17263HXUJUP" 
  Awm_ed_m_prepare_load Win "Awm_editor" Delid "BCH17263HXUJUP" 
LET Pelid "" 
LET Partlist "" Awm_ed_m_get_curr_part_state Win "Awm_editor" 
  Awm_ed_m_get_curr_part_class Win "Awm_editor" 
LET Dms_return_val ( READ_FIELD_VALUE ( Win "Awm_editor" + 
  ".Local.PartClass" ) ) "MASTER_PART" Awm_ed_m_get_part_state Win 
  "Awm_editor" Dms_return_val "MASTER_PART" 
LET Row_num ( SEARCH_LTAB "AWM_UI_part_classes" 0 Awm_ed_val_class_name 
  Db_class_name ( CATGETS "db_local_language" 31 "" ) Class_name 
  "MASTER_PART" ) 1 
IF ( Row_num 1 <= 0 ) 0 
LET Dms_return_val ( READ_LTAB "AWM_UI_part_classes" Row_num 1 
  Awm_ed_val_ed_state "ED_STATE" ) "VIEW" 
END_IF 
LET Part_state Dms_return_val "VIEW" 
IF ( Part_state "VIEW" == "VIEW" ) 1 Awm_ed_m_get_curr_part_user_cid Win 
  "Awm_editor" Awm_ed_m_get_curr_part_class Win "Awm_editor" 
LET Dms_return_val ( READ_FIELD_VALUE ( Win "Awm_editor" + 
  ".Local.PartClass" ) ) "MASTER_PART" Awm_ed_m_get_part_user_cid Win 
  "Awm_editor" Dms_return_val "MASTER_PART" 
LET Row_num ( SEARCH_LTAB "AWM_UI_part_classes" 0 Awm_ed_val_class_name 
  Db_class_name ( CATGETS "db_local_language" 31 "" ) Class_name 
  "MASTER_PART" ) 1 
IF ( Row_num 1 <= 0 ) 0 
LET User_cid ( READ_LTAB "AWM_UI_part_classes" Row_num 1 
  Awm_ed_val_user_cid "USER_CID" ) "000501b1" 
IF ( User_cid "000501b1" == "" ) 0 
END_IF 
LET Dms_return_val User_cid "000501b1" 
LET Pucid Dms_return_val "000501b1" 
LET Pelid ( GET_CACHE_VALUE Pucid "000501b1" Db_elid ( CATGETS 
  "db_local_language" 100 "" ) ) "BA90UC7FHXUJUP" 
LET Num_cleanups Dms_get_num_cleanups ( LTAB_ROWS "CLEANUP_TABLE" ) 0 
  Ui_select_element VIEW Pelid "BA90UC7FHXUJUP" 
IF ( Wm_workflow_enabled 0 ) 0 
LET Elem_cid Dms_filter_errors ( DMS_SELECT_ELEMENT Sel_how VIEW Elem_id 
  "BA90UC7FHXUJUP" ) "004901ba" 
WAIT 0 
IF ( Return_code "004901ba" == ERROR ) 0 Return_code "004901ba" 
END_IF 
END_IF Dms_cleanup_ui_drop Elem_cid "004901ba" 
IF ( ( TYPE Cacheid "004901ba" ) == NUMBER ) 0 Dms_push_cleanup ( FIX_MESGQ 
  "UI_drop_element {1}" Cacheid "004901ba" ) "UI_drop_element '004901ba'" 
INSERT_LTAB_ROW "CLEANUP_TABLE" 0 1 
WRITE_LTAB "CLEANUP_TABLE" 1 1 Cleanup_str "UI_drop_element '004901ba'" 
IF ( CHECK_FOR_ESC ) 0 
IF ( Sel_how VIEW == UPDATE ) 0 
LET Dms_return_val Elem_cid "004901ba" 
LET Pcid Dms_return_val "004901ba" 
IF ( ( DMS_GET_SCHEMA_VERSION ) < 8 ) 1 
LET Rel_ltab ( DMS_LOAD_ELE_RELATION Pcid "004901ba" ) 
  "__DMS_ELELINKS_BA90UC7FHXUJUP" 
ELSE 
LET Row_num ( SEARCH_LTAB Rel_ltab "__DMS_ELELINKS_BA90UC7FHXUJUP" 0 
  Db_child_element ( CATGETS "db_local_language" 112 "" ) Delid 
  "BCH17263HXUJUP" ) 3 Ui_drop_element Pcid "004901ba" 
LET Num_errors Dms_get_num_errors ( LTAB_ROWS "ERROR_TABLE" ) 0 
LET Class_name ( GET_CACHE_VALUE Elem_cid "004901ba" Db_class_name ( 
  CATGETS "db_local_language" 31 "" ) ) "MASTER_PART" 
LET Cid_mode ( DMS_CACHEID_MODE Elem_cid "004901ba" ) VIEW 
IF ( ( ( TYPE Class_name "MASTER_PART" ) == STRING ) AND ( ( Cid_mode VIEW 
  == UPDATE ) OR ( Cid_mode VIEW == CREATE ) ) ) 0 Dms_clear_errors 
  Num_errors 0 
IF ( Row_num 0 > 0 ) 0 
DELETE_LTAB_ROW "ERROR_TABLE" ALL 
END_IF 
END_IF Dms_check_errors ( DMS_DROP Elem_cid "004901ba" ) NO_ERROR 
WAIT 0 
IF ( Return_code NO_ERROR == ERROR ) 0 Dms_clear_cleanups_to Num_cleanups 0 
IF ( Row_num 0 > 0 ) 0 
DELETE_LTAB_ROW "CLEANUP_TABLE" ALL 
END_IF 
IF ( Row_num 3 <= 0 ) 0 
END_IF 
IF ( Pelid "BA90UC7FHXUJUP" == "" ) 0 
LET Dms_return_val Pelid "BA90UC7FHXUJUP" 
LET Dms_return_val2 Partlist "" 
LET Pelid Dms_return_val "BA90UC7FHXUJUP" 
LET Partlist Dms_return_val2 "" 
IF ( Partlist "" == "" ) 1 
IF ( Awm_me10_val_desired_mesystem 2 == 1 ) 0 Awmc_amsd_m_load_dwg 0 Pelid 
  "BA90UC7FHXUJUP" Delid "BCH17263HXUJUP" Awm_amsd_m_load_dwg Load_command 
  0 Part_elid "BA90UC7FHXUJUP" Doc_elid "BCH17263HXUJUP" 
  Awmc_amsd_m_load_dwg_fil Part_elid "BA90UC7FHXUJUP" Doc_elid 
  "BCH17263HXUJUP" 1 Load_command 0 Awm_amsd_m_load_dwg_fil {MACRO SECURED} 
{PROMPT: 1 record(s) read}
END_IF 
ELSE_IF 
{PROMPT: Enter command}


{ACTIONTEXT: trace off}
TRACE OFF