1: PACKAGE BODY MTH_UDA_PKG AS
2: /*$Header: mthuntbb.pls 120.13.12020000.2 2012/10/18 15:59:21 sasuren ship $*/
3:
4: PROCEDURE UPDATE_TO_PRIMARY_KEY(P_ENTITY IN VARCHAR2) IS
5: --initialize variables here
24: mth_util_pkg.log_msg('P_ENTITY = ' || P_ENTITY , mth_util_pkg.G_DBG_PARAM_VAL);
25:
26:
27: -- Get the pk key
28: v_pk_column := MTH_UDA_PKG.Get_Mst_Pk_Name(p_entity);
29: IF (v_pk_column IS null) THEN
30: RAISE e_tname_not_found;
31: END IF;
32:
131: NULL; -- allow compilation
132: /*
133: Using the p_entity, get the primary key column name
134: */
135: v_pk_column := MTH_UDA_PKG.Get_Mst_Pk_Name(p_entity);
136: IF (v_pk_column = null) THEN
137: RAISE e_tname_not_found;
138: END IF;
139:
139:
140: /*
141: Now get the EXT_TL and EXT_B names
142: */
143: v_tname_b := MTH_UDA_PKG.Get_Ext_Table_Name(p_entity);
144: IF (v_tname_b = NULL) THEN
145: RAISE e_tname_not_found;
146: END IF;
147:
144: IF (v_tname_b = NULL) THEN
145: RAISE e_tname_not_found;
146: END IF;
147:
148: v_tname_tl := MTH_UDA_PKG.Get_Ext_TL_Table_Name(p_entity);
149: IF (v_tname_tl = NULL) THEN
150: RAISE e_tname_not_found;
151: END IF;
152:
167:
168: ELSE
169: -- CALL to who upload column
170: --DBMS_OUTPUT.PUT_LINE('UPDating the who columns');
171: MTH_UDA_PKG.NTB_Upload_Standard_Who(v_tname_tl,p_extId,p_if_row_exists);
172: END IF;
173:
174:
175:
236: NULL; -- allow compilation
237: mth_util_pkg.log_msg('NTB_UPLOAD start', mth_util_pkg.G_DBG_PROC_FUN_START);
238: mth_util_pkg.log_msg('P_TARGET = ' || P_TARGET , mth_util_pkg.G_DBG_PARAM_VAL);
239: -- Call the procedure to rename columns to the pkey columns
240: MTH_UDA_PKG.Update_To_Primary_Key(v_entity);
241:
242:
243: -- Code to get find out table name depending on the entity input
244: v_stmt_no := 5;
241:
242:
243: -- Code to get find out table name depending on the entity input
244: v_stmt_no := 5;
245: v_tname := MTH_UDA_PKG.Get_Ext_Table_Name(v_entity);
246: IF (v_tname is NULL) THEN
247: RAISE e_tname_not_found;
248: END IF;
249:
471: /*
472: call procedure to update standard who columns
473: */
474: --DBMS_OUTPUT.PUT_LINE('calling who procedure');
475: MTH_UDA_PKG.NTB_Upload_Standard_Who(v_tname,v_extId, v_if_row_exists);
476:
477: /*
478: Call the procedure to update TL Table
479: */
476:
477: /*
478: Call the procedure to update TL Table
479: */
480: MTH_UDA_PKG.NTB_UploadTL(v_entity,v_extId,v_if_row_exists);
481:
482: END LOOP;
483: END LOOP;
484: mth_util_pkg.log_msg('NTB_UPLOAD end', mth_util_pkg.G_DBG_PROC_FUN_END);
509: BEGIN
510: NULL; -- allow compilation
511:
512: -- Get the code for the entity
513: v_entity_code := MTH_UDA_PKG.Get_Entity_Code(p_entity);
514:
515: -- Check if v_entity_code is -1, if so, return NULL
516: IF (v_entity_code = -1) THEN
517: RETURN NULL;
539: -- main body
540: BEGIN
541: NULL; -- allow compilation
542: -- Get the code for the entity
543: v_entity_code := MTH_UDA_PKG.Get_Entity_Code(p_entity);
544:
545: -- Check if v_entity_code is -1, if so, return NULL
546: IF (v_entity_code = -1) THEN
547: RETURN NULL;
568: BEGIN
569: NULL; -- allow compilation
570:
571: -- Get the code for the entity
572: v_entity_code := MTH_UDA_PKG.Get_Entity_Code(p_entity);
573:
574: -- Check if v_entity_code is -1, if so, return NULL
575: IF (v_entity_code = -1) THEN
576: RETURN NULL;
596: -- main body
597: BEGIN
598: NULL; -- allow compilation
599: -- Get the code for the entity
600: v_entity_code := MTH_UDA_PKG.Get_Entity_Code(p_entity);
601:
602: -- Check if v_entity_code is -1, if so, return NULL
603: IF (v_entity_code = -1) THEN
604: RETURN NULL;
889: -- main body
890: BEGIN
891: NULL; -- allow compilation
892: -- Get the code for the entity
893: v_entity_code := MTH_UDA_PKG.Get_Entity_Code(p_entity);
894:
895: -- Check if v_entity_code is -1, if so, return NULL
896: --IF (v_entity_code = -1) THEN
897: -- RETURN NULL;
934:
935:
936:
937: -- Get the pk key
938: --EXECUTE MTH_UDA_PKG.GET_MST_COMPOSITE_PK_NAME(p_entity,v_pk_column1,v_pk_column2);
939: --EXECUTE IMMEDIATE
940: MTH_UDA_PKG.GET_MST_COMPOSITE_PK_NAME(p_entity,v_mst_pk_column,v_entity_code, v_csv_cols);
941: --IF (v_pk_column IS NULL OR v_pk_column2 IS NULL ) THEN
942: IF (v_mst_pk_column IS NULL OR v_entity_code = -1) THEN
936:
937: -- Get the pk key
938: --EXECUTE MTH_UDA_PKG.GET_MST_COMPOSITE_PK_NAME(p_entity,v_pk_column1,v_pk_column2);
939: --EXECUTE IMMEDIATE
940: MTH_UDA_PKG.GET_MST_COMPOSITE_PK_NAME(p_entity,v_mst_pk_column,v_entity_code, v_csv_cols);
941: --IF (v_pk_column IS NULL OR v_pk_column2 IS NULL ) THEN
942: IF (v_mst_pk_column IS NULL OR v_entity_code = -1) THEN
943: RAISE e_tname_not_found;
944: END IF;
1013: NULL; -- allow compilation
1014: /*
1015: Using the p_entity, get the primary key column name
1016: */
1017: MTH_UDA_PKG.GET_MST_COMPOSITE_PK_NAME(p_entity,v_pk_column, v_entity_code, v_csv_column);
1018: --IF (v_pk_column1 IS NULL OR v_pk_column2 IS NULL OR (v_pk_column1 IS NULL AND v_pk_column2 IS NULL)) THEN
1019: IF (v_pk_column IS NULL OR v_entity_code = -1) THEN
1020: RAISE e_tname_not_found;
1021: END IF;
1022:
1023: /*
1024: Now get the EXT_TL and EXT_B names
1025: */
1026: v_tname_b := MTH_UDA_PKG.Get_Ext_Table_Name(p_entity);
1027: IF (v_tname_b = NULL) THEN
1028: RAISE e_tname_not_found;
1029: END IF;
1030:
1027: IF (v_tname_b = NULL) THEN
1028: RAISE e_tname_not_found;
1029: END IF;
1030:
1031: v_tname_tl := MTH_UDA_PKG.Get_Ext_TL_Table_Name(p_entity);
1032: IF (v_tname_tl = NULL) THEN
1033: RAISE e_tname_not_found;
1034: END IF;
1035:
1055:
1056: ELSE
1057: -- CALL to who upload column
1058: --DBMS_OUTPUT.PUT_LINE('UPDating the who columns');
1059: MTH_UDA_PKG.NTB_Upload_Standard_Who(v_tname_tl,p_extId,p_if_row_exists);
1060: END IF;
1061:
1062:
1063:
1125: -- main body
1126: BEGIN
1127: NULL; -- allow compilation
1128: -- Call the procedure to rename columns to the pkey columns
1129: MTH_UDA_PKG.UPDATE_COMPOSITE_PRIMARY_KEY(v_entity);
1130:
1131:
1132: -- Code to get find out table name depending on the entity input
1133: v_stmt_no := 5;
1130:
1131:
1132: -- Code to get find out table name depending on the entity input
1133: v_stmt_no := 5;
1134: v_tname := MTH_UDA_PKG.Get_Ext_Table_Name(v_entity);
1135: IF (v_tname is NULL) THEN
1136: RAISE e_tname_not_found;
1137: END IF;
1138:
1355: /*
1356: call procedure to update standard who columns
1357: */
1358: --DBMS_OUTPUT.PUT_LINE('calling who procedure');
1359: MTH_UDA_PKG.NTB_Upload_Standard_Who(v_tname,v_extId, v_if_row_exists);
1360:
1361: /*
1362: Call the procedure to update TL Table
1363: */
1360:
1361: /*
1362: Call the procedure to update TL Table
1363: */
1364: MTH_UDA_PKG.NTB_Upload_COMPOSITETL(v_entity,v_extId,v_if_row_exists);
1365:
1366: END LOOP;
1367: END LOOP;
1368:
1378: ROLLBACK;
1379:
1380: END; --End NTB_UPLOAD_COMPOSITE_PK
1381:
1382: END MTH_UDA_PKG;