[Home] [Help]
51: --PL/SQL Table to check the sections has already copied.
52: --If Yes give the new scn_id
53: ----------------------------------------------------------------------------
54: TYPE sections_rec_type IS RECORD (
55: old_scn_id NUMBER := OKC_API.G_MISS_NUM,
56: new_scn_id NUMBER := OKC_API.G_MISS_NUM);
57: TYPE sections_tbl_type IS TABLE OF sections_rec_type
58: INDEX BY BINARY_INTEGER;
59: g_sections sections_tbl_type;
52: --If Yes give the new scn_id
53: ----------------------------------------------------------------------------
54: TYPE sections_rec_type IS RECORD (
55: old_scn_id NUMBER := OKC_API.G_MISS_NUM,
56: new_scn_id NUMBER := OKC_API.G_MISS_NUM);
57: TYPE sections_tbl_type IS TABLE OF sections_rec_type
58: INDEX BY BINARY_INTEGER;
59: g_sections sections_tbl_type;
60:
61: --PL/SQL Table to check time value id has already copied.
62: --If Yes give the new tve_id ----Begins
63: -------------------------------------------------------------------------------
64: TYPE price_adjustments_rec_type IS RECORD (
65: old_pat_id NUMBER := OKC_API.G_MISS_NUM,
66: new_pat_id NUMBER := OKC_API.G_MISS_NUM);
67: TYPE price_adjustments_tbl_type IS TABLE OF price_adjustments_rec_type
68: INDEX BY BINARY_INTEGER;
69: g_price_adjustments price_adjustments_tbl_type;
62: --If Yes give the new tve_id ----Begins
63: -------------------------------------------------------------------------------
64: TYPE price_adjustments_rec_type IS RECORD (
65: old_pat_id NUMBER := OKC_API.G_MISS_NUM,
66: new_pat_id NUMBER := OKC_API.G_MISS_NUM);
67: TYPE price_adjustments_tbl_type IS TABLE OF price_adjustments_rec_type
68: INDEX BY BINARY_INTEGER;
69: g_price_adjustments price_adjustments_tbl_type;
70: ----------------------------------------------------------------------------
68: INDEX BY BINARY_INTEGER;
69: g_price_adjustments price_adjustments_tbl_type;
70: ----------------------------------------------------------------------------
71: TYPE timevalues_rec_type IS RECORD (
72: old_tve_id NUMBER := OKC_API.G_MISS_NUM,
73: new_tve_id NUMBER := OKC_API.G_MISS_NUM);
74: TYPE timevalues_tbl_type IS TABLE OF timevalues_rec_type
75: INDEX BY BINARY_INTEGER;
76: g_timevalues timevalues_tbl_type;
69: g_price_adjustments price_adjustments_tbl_type;
70: ----------------------------------------------------------------------------
71: TYPE timevalues_rec_type IS RECORD (
72: old_tve_id NUMBER := OKC_API.G_MISS_NUM,
73: new_tve_id NUMBER := OKC_API.G_MISS_NUM);
74: TYPE timevalues_tbl_type IS TABLE OF timevalues_rec_type
75: INDEX BY BINARY_INTEGER;
76: g_timevalues timevalues_tbl_type;
77:
79: --PL/SQL Table to check the rule has already copied.
80: --If Yes give the new rul_id ----Begins
81: ----------------------------------------------------------------------------
82: TYPE ruls_rec_type IS RECORD (
83: old_rul_id NUMBER := OKC_API.G_MISS_NUM,
84: new_rul_id NUMBER := OKC_API.G_MISS_NUM);
85: TYPE ruls_tbl_type IS TABLE OF ruls_rec_type
86: INDEX BY BINARY_INTEGER;
87: g_ruls ruls_tbl_type;
80: --If Yes give the new rul_id ----Begins
81: ----------------------------------------------------------------------------
82: TYPE ruls_rec_type IS RECORD (
83: old_rul_id NUMBER := OKC_API.G_MISS_NUM,
84: new_rul_id NUMBER := OKC_API.G_MISS_NUM);
85: TYPE ruls_tbl_type IS TABLE OF ruls_rec_type
86: INDEX BY BINARY_INTEGER;
87: g_ruls ruls_tbl_type;
88:
90: --PL/SQL Table to check the party has already copied.
91: --If Yes give the new cpl_id ----Begins
92: ----------------------------------------------------------------------------
93: TYPE party_rec_type IS RECORD (
94: old_cpl_id NUMBER := OKC_API.G_MISS_NUM,
95: new_cpl_id NUMBER := OKC_API.G_MISS_NUM);
96: TYPE party_tbl_type IS TABLE OF party_rec_type
97: INDEX BY BINARY_INTEGER;
98: g_party party_tbl_type;
91: --If Yes give the new cpl_id ----Begins
92: ----------------------------------------------------------------------------
93: TYPE party_rec_type IS RECORD (
94: old_cpl_id NUMBER := OKC_API.G_MISS_NUM,
95: new_cpl_id NUMBER := OKC_API.G_MISS_NUM);
96: TYPE party_tbl_type IS TABLE OF party_rec_type
97: INDEX BY BINARY_INTEGER;
98: g_party party_tbl_type;
99:
101: --Logic to check the event has already copied.
102: --If Yes give the new cnh_id ----Begins
103: ----------------------------------------------------------------------------
104: TYPE events_rec_type IS RECORD (
105: old_cnh_id NUMBER := OKC_API.G_MISS_NUM,
106: new_cnh_id NUMBER := OKC_API.G_MISS_NUM);
107: TYPE events_tbl_type IS TABLE OF events_rec_type
108: INDEX BY BINARY_INTEGER;
109: g_events events_tbl_type;
102: --If Yes give the new cnh_id ----Begins
103: ----------------------------------------------------------------------------
104: TYPE events_rec_type IS RECORD (
105: old_cnh_id NUMBER := OKC_API.G_MISS_NUM,
106: new_cnh_id NUMBER := OKC_API.G_MISS_NUM);
107: TYPE events_tbl_type IS TABLE OF events_rec_type
108: INDEX BY BINARY_INTEGER;
109: g_events events_tbl_type;
110: -- Added for Bug 1917514
123: -- To get PARENT_OLE_ID for top line, search for ID = header_id
124: -- for sub line, search for ID = Parent Line Id
125: ----------------------------------------------------------------------------
126: TYPE line_op_rec_type IS RECORD (
127: id NUMBER := OKC_API.G_MISS_NUM,
128: ole_id NUMBER := OKC_API.G_MISS_NUM);
129:
130: TYPE line_op_tbl_type IS TABLE OF line_op_rec_type
131: INDEX BY BINARY_INTEGER;
124: -- for sub line, search for ID = Parent Line Id
125: ----------------------------------------------------------------------------
126: TYPE line_op_rec_type IS RECORD (
127: id NUMBER := OKC_API.G_MISS_NUM,
128: ole_id NUMBER := OKC_API.G_MISS_NUM);
129:
130: TYPE line_op_tbl_type IS TABLE OF line_op_rec_type
131: INDEX BY BINARY_INTEGER;
132:
519: OKC_DEBUG.ReSet_Indentation;
520: END IF;
521: RETURN(TRUE);
522: Else
523: OKC_API.SET_MESSAGE('OKC', 'OKC_INVALID_TEMPLATE');
524: IF (l_debug = 'Y') THEN
525: OKC_DEBUG.ReSet_Indentation;
526: END IF;
527: RETURN(FALSE);
813:
814: EXCEPTION
815: WHEN OTHERS THEN
816: -- store SQL error message on message stack for caller
817: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
818: -- notify caller of an UNEXPECTED error
819:
820: END derive_line_style;
821:
853: l_scn_count NUMBER := 0;
854:
855: l_sccv_rec sccv_rec_type;
856: x_sccv_rec sccv_rec_type;
857: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
858:
859: TYPE sec_rec_type IS RECORD (
860: scn_id NUMBER := OKC_API.G_MISS_NUM);
861: TYPE sec_tbl_type IS TABLE OF sec_rec_type
856: x_sccv_rec sccv_rec_type;
857: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
858:
859: TYPE sec_rec_type IS RECORD (
860: scn_id NUMBER := OKC_API.G_MISS_NUM);
861: TYPE sec_tbl_type IS TABLE OF sec_rec_type
862: INDEX BY BINARY_INTEGER;
863: l_sec sec_tbl_type;
864:
886:
887: l_new_scn_id NUMBER;
888: l_scnv_rec scnv_rec_type;
889: x_scnv_rec scnv_rec_type;
890: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
891:
892: BEGIN
893: x_return_status := l_return_status;
894: IF get_new_scn_id(p_scn_id,l_new_scn_id) THEN
915: x_msg_data => x_msg_data,
916: p_scnv_rec => l_scnv_rec,
917: x_scnv_rec => x_scnv_rec);
918:
919: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
920: x_return_status := l_return_status;
921: RAISE G_EXCEPTION_HALT_VALIDATION;
922: END IF;
923:
929: WHEN G_EXCEPTION_HALT_VALIDATION THEN
930: NULL;
931: WHEN OTHERS THEN
932: -- store SQL error message on message stack for caller
933: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
934: -- notify caller of an UNEXPECTED error
935: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
936: END copy_section;
937:
931: WHEN OTHERS THEN
932: -- store SQL error message on message stack for caller
933: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
934: -- notify caller of an UNEXPECTED error
935: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
936: END copy_section;
937:
938: BEGIN
939: x_return_status := l_return_status;
967: p_scn_id => l_sec(i).scn_id,
968: p_to_chr_id => p_to_chr_id,
969: x_scn_id => l_scn_id_out);
970:
971: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
972: x_return_status := l_return_status;
973: RAISE G_EXCEPTION_HALT_VALIDATION;
974: END IF;
975: END LOOP;
995: x_msg_data => x_msg_data,
996: p_sccv_rec => l_sccv_rec,
997: x_sccv_rec => x_sccv_rec);
998:
999: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1000: x_return_status := l_return_status;
1001: RAISE G_EXCEPTION_HALT_VALIDATION;
1002: END IF;
1003: End If;
1006: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1007: NULL;
1008: WHEN OTHERS THEN
1009: -- store SQL error message on message stack for caller
1010: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1011: -- notify caller of an UNEXPECTED error
1012: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1013: END copy_sections;
1014:
1008: WHEN OTHERS THEN
1009: -- store SQL error message on message stack for caller
1010: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1011: -- notify caller of an UNEXPECTED error
1012: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1013: END copy_sections;
1014:
1015: ----------------------------------------------------------------------------
1016: -- Proceudre copy_cover_times - Makes a copy of cover times
1035:
1036: l_new_tve_id NUMBER;
1037: l_ctiv_rec ctiv_rec_type;
1038: x_ctiv_rec ctiv_rec_type;
1039: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1040:
1041: BEGIN
1042:
1043: -------------------------------------------------------------------------
1065: p_to_chr_id => p_to_chr_id,
1066: p_to_template_yn => p_to_template_yn,
1067: x_tve_id => l_new_tve_id);
1068:
1069: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1070: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1071: x_return_status := l_return_status;
1072: RAISE G_EXCEPTION_HALT_VALIDATION;
1073: ELSE
1066: p_to_template_yn => p_to_template_yn,
1067: x_tve_id => l_new_tve_id);
1068:
1069: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1070: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1071: x_return_status := l_return_status;
1072: RAISE G_EXCEPTION_HALT_VALIDATION;
1073: ELSE
1074: x_return_status := l_return_status;
1088: x_msg_data => x_msg_data,
1089: p_ctiv_rec => l_ctiv_rec,
1090: x_ctiv_rec => x_ctiv_rec);
1091:
1092: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1093: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1094: x_return_status := l_return_status;
1095: RAISE G_EXCEPTION_HALT_VALIDATION;
1096: ELSE
1089: p_ctiv_rec => l_ctiv_rec,
1090: x_ctiv_rec => x_ctiv_rec);
1091:
1092: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1093: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1094: x_return_status := l_return_status;
1095: RAISE G_EXCEPTION_HALT_VALIDATION;
1096: ELSE
1097: x_return_status := l_return_status;
1104: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1105: NULL;
1106: WHEN OTHERS THEN
1107: -- store SQL error message on message stack for caller
1108: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1109: -- notify caller of an UNEXPECTED error
1110: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1111: END copy_cover_times;
1112:
1106: WHEN OTHERS THEN
1107: -- store SQL error message on message stack for caller
1108: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1109: -- notify caller of an UNEXPECTED error
1110: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1111: END copy_cover_times;
1112:
1113: ----------------------------------------------------------------------------
1114: -- Proceudre copy_react_intervals - Makes copy of react_intervals
1135:
1136: l_new_tve_id NUMBER;
1137: l_rilv_rec rilv_rec_type;
1138: x_rilv_rec rilv_rec_type;
1139: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1140:
1141: BEGIN
1142:
1143: -------------------------------------------------------------------------
1165: p_to_chr_id => p_to_chr_id,
1166: p_to_template_yn => p_to_template_yn,
1167: x_tve_id => l_new_tve_id);
1168:
1169: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1170: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1171: x_return_status := l_return_status;
1172: RAISE G_EXCEPTION_HALT_VALIDATION;
1173: ELSE
1166: p_to_template_yn => p_to_template_yn,
1167: x_tve_id => l_new_tve_id);
1168:
1169: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1170: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1171: x_return_status := l_return_status;
1172: RAISE G_EXCEPTION_HALT_VALIDATION;
1173: ELSE
1174: x_return_status := l_return_status;
1190: x_msg_data => x_msg_data,
1191: p_rilv_rec => l_rilv_rec,
1192: x_rilv_rec => x_rilv_rec);
1193:
1194: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1195: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1196: x_return_status := l_return_status;
1197: RAISE G_EXCEPTION_HALT_VALIDATION;
1198: ELSE
1191: p_rilv_rec => l_rilv_rec,
1192: x_rilv_rec => x_rilv_rec);
1193:
1194: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1195: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1196: x_return_status := l_return_status;
1197: RAISE G_EXCEPTION_HALT_VALIDATION;
1198: ELSE
1199: x_return_status := l_return_status;
1206: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1207: NULL;
1208: WHEN OTHERS THEN
1209: -- store SQL error message on message stack for caller
1210: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1211: -- notify caller of an UNEXPECTED error
1212: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1213: END copy_react_intervals;
1214:
1208: WHEN OTHERS THEN
1209: -- store SQL error message on message stack for caller
1210: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1211: -- notify caller of an UNEXPECTED error
1212: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1213: END copy_react_intervals;
1214:
1215: --------------------------------------------------------------------------
1216: --Proceudre copy_accesses - Makes a copy of the okc_k_accesses.
1225: p_to_chr_id IN NUMBER) IS
1226:
1227: l_cacv_rec cacv_rec_type;
1228: x_cacv_rec cacv_rec_type;
1229: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1230:
1231: CURSOR c_access IS
1232: SELECT id
1233: FROM okc_k_accesses_v
1248: x_msg_data => x_msg_data,
1249: p_cacv_rec => l_cacv_rec,
1250: x_cacv_rec => x_cacv_rec);
1251:
1252: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1253: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1254: x_return_status := l_return_status;
1255: RAISE G_EXCEPTION_HALT_VALIDATION;
1256: ELSE
1249: p_cacv_rec => l_cacv_rec,
1250: x_cacv_rec => x_cacv_rec);
1251:
1252: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1253: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1254: x_return_status := l_return_status;
1255: RAISE G_EXCEPTION_HALT_VALIDATION;
1256: ELSE
1257: x_return_status := l_return_status;
1263: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1264: NULL;
1265: WHEN OTHERS THEN
1266: -- store SQL error message on message stack for caller
1267: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1268: -- notify caller of an UNEXPECTED error
1269: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1270:
1271: END copy_accesses;
1265: WHEN OTHERS THEN
1266: -- store SQL error message on message stack for caller
1267: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1268: -- notify caller of an UNEXPECTED error
1269: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1270:
1271: END copy_accesses;
1272:
1273: ----------------------------------------------------------------------------
1283: p_to_chr_id IN NUMBER) IS
1284:
1285: l_cpsv_rec cpsv_rec_type;
1286: x_cpsv_rec cpsv_rec_type;
1287: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1288:
1289: CURSOR c_process IS
1290: SELECT id
1291: FROM okc_k_processes_v
1307: x_msg_data => x_msg_data,
1308: p_cpsv_rec => l_cpsv_rec,
1309: x_cpsv_rec => x_cpsv_rec);
1310:
1311: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1312: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1313: x_return_status := l_return_status;
1314: RAISE G_EXCEPTION_HALT_VALIDATION;
1315: ELSE
1308: p_cpsv_rec => l_cpsv_rec,
1309: x_cpsv_rec => x_cpsv_rec);
1310:
1311: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1312: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1313: x_return_status := l_return_status;
1314: RAISE G_EXCEPTION_HALT_VALIDATION;
1315: ELSE
1316: x_return_status := l_return_status;
1322: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1323: NULL;
1324: WHEN OTHERS THEN
1325: -- store SQL error message on message stack for caller
1326: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1327: -- notify caller of an UNEXPECTED error
1328: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1329:
1330: END copy_processes;
1324: WHEN OTHERS THEN
1325: -- store SQL error message on message stack for caller
1326: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1327: -- notify caller of an UNEXPECTED error
1328: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1329:
1330: END copy_processes;
1331:
1332: ----------------------------------------------------------------------------
1342: p_to_chr_id IN NUMBER) IS
1343:
1344: l_cgcv_rec cgcv_rec_type;
1345: x_cgcv_rec cgcv_rec_type;
1346: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1347:
1348: CURSOR c_grpings IS
1349: SELECT cgcv.id
1350: FROM okc_k_grpings_v cgcv,
1368: x_msg_data => x_msg_data,
1369: p_cgcv_rec => l_cgcv_rec,
1370: x_cgcv_rec => x_cgcv_rec);
1371:
1372: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1373: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1374: x_return_status := l_return_status;
1375: RAISE G_EXCEPTION_HALT_VALIDATION;
1376: ELSE
1369: p_cgcv_rec => l_cgcv_rec,
1370: x_cgcv_rec => x_cgcv_rec);
1371:
1372: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1373: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1374: x_return_status := l_return_status;
1375: RAISE G_EXCEPTION_HALT_VALIDATION;
1376: ELSE
1377: x_return_status := l_return_status;
1383: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1384: NULL;
1385: WHEN OTHERS THEN
1386: -- store SQL error message on message stack for caller
1387: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1388: -- notify caller of an UNEXPECTED error
1389: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1390:
1391: END copy_grpings;
1385: WHEN OTHERS THEN
1386: -- store SQL error message on message stack for caller
1387: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1388: -- notify caller of an UNEXPECTED error
1389: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1390:
1391: END copy_grpings;
1392:
1393: /*******************************************************************************
1406: p_to_chr_id IN NUMBER) IS
1407:
1408: l_gvev_rec gvev_rec_type;
1409: x_gvev_rec gvev_rec_type;
1410: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1411:
1412: CURSOR c_governances IS
1413: SELECT id
1414: FROM okc_governances_v
1420: ----------------------------------------------------------------------------
1421: FUNCTION get_gvev_rec(p_gve_id IN NUMBER,
1422: x_gvev_rec OUT NOCOPY gvev_rec_type)
1423: RETURN VARCHAR2 IS
1424: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1425: l_no_data_found BOOLEAN := TRUE;
1426:
1427: CURSOR c_gvev_rec IS
1428: SELECT
1448:
1449: l_no_data_found := c_gvev_rec%NOTFOUND;
1450: CLOSE c_gvev_rec;
1451: IF l_no_data_found THEN
1452: l_return_status := OKC_API.G_RET_STS_ERROR;
1453: return(l_return_status);
1454: ELSE
1455: return(l_return_status);
1456: END IF;
1456: END IF;
1457: EXCEPTION
1458: WHEN OTHERS THEN
1459: -- store SQL error message on message stack for caller
1460: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1461: -- notify caller of an UNEXPECTED error
1462: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1463: return(l_return_status);
1464:
1458: WHEN OTHERS THEN
1459: -- store SQL error message on message stack for caller
1460: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1461: -- notify caller of an UNEXPECTED error
1462: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1463: return(l_return_status);
1464:
1465: END get_gvev_rec;
1466: BEGIN
1479: x_msg_data => x_msg_data,
1480: p_gvev_rec => l_gvev_rec,
1481: x_gvev_rec => x_gvev_rec);
1482:
1483: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1484: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1485: x_return_status := l_return_status;
1486: RAISE G_EXCEPTION_HALT_VALIDATION;
1487: ELSE
1480: p_gvev_rec => l_gvev_rec,
1481: x_gvev_rec => x_gvev_rec);
1482:
1483: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1484: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1485: x_return_status := l_return_status;
1486: RAISE G_EXCEPTION_HALT_VALIDATION;
1487: ELSE
1488: x_return_status := l_return_status;
1494: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1495: NULL;
1496: WHEN OTHERS THEN
1497: -- store SQL error message on message stack for caller
1498: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1499: -- notify caller of an UNEXPECTED error
1500: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1501:
1502: END copy_governances;
1496: WHEN OTHERS THEN
1497: -- store SQL error message on message stack for caller
1498: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1499: -- notify caller of an UNEXPECTED error
1500: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1501:
1502: END copy_governances;
1503: *******************************************************************************/
1504:
1521: x_catv_rec catv_rec_type;
1522: l_atnv_rec atnv_rec_type;
1523: x_atnv_rec atnv_rec_type;
1524:
1525: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1526: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
1527: l_new_rul_id NUMBER := OKC_API.G_MISS_NUM;
1528:
1529: CURSOR c_dnz_chr_id(p_id IN NUMBER) IS
1522: l_atnv_rec atnv_rec_type;
1523: x_atnv_rec atnv_rec_type;
1524:
1525: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1526: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
1527: l_new_rul_id NUMBER := OKC_API.G_MISS_NUM;
1528:
1529: CURSOR c_dnz_chr_id(p_id IN NUMBER) IS
1530: SELECT dnz_chr_id
1523: x_atnv_rec atnv_rec_type;
1524:
1525: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1526: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
1527: l_new_rul_id NUMBER := OKC_API.G_MISS_NUM;
1528:
1529: CURSOR c_dnz_chr_id(p_id IN NUMBER) IS
1530: SELECT dnz_chr_id
1531: FROM okc_k_lines_b
1561: If p_sav_sav_release IS NOT NULL Then
1562: l_catv_rec.sav_sav_release := p_sav_sav_release;
1563: End If;
1564:
1565: IF p_chr_id IS NULL OR p_chr_id = OKC_API.G_MISS_NUM THEN
1566: OPEN c_dnz_chr_id(p_cle_id);
1567: FETCH c_dnz_chr_id INTO l_catv_rec.dnz_chr_id;
1568: CLOSE c_dnz_chr_id;
1569: ELSE
1589: IF (l_debug = 'Y') THEN
1590: OKC_DEBUG.log('400 : create_k_article returns ' || l_return_status, 2);
1591: END IF;
1592:
1593: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1594: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1595: x_return_status := l_return_status;
1596: RAISE G_EXCEPTION_HALT_VALIDATION;
1597: ELSE
1590: OKC_DEBUG.log('400 : create_k_article returns ' || l_return_status, 2);
1591: END IF;
1592:
1593: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1594: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1595: x_return_status := l_return_status;
1596: RAISE G_EXCEPTION_HALT_VALIDATION;
1597: ELSE
1598: x_return_status := l_return_status;
1616: x_msg_data => x_msg_data,
1617: p_atnv_rec => l_atnv_rec,
1618: x_atnv_rec => x_atnv_rec);
1619:
1620: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1621: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1622: x_return_status := l_return_status;
1623: RAISE G_EXCEPTION_HALT_VALIDATION;
1624: ELSE
1617: p_atnv_rec => l_atnv_rec,
1618: x_atnv_rec => x_atnv_rec);
1619:
1620: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1621: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1622: x_return_status := l_return_status;
1623: RAISE G_EXCEPTION_HALT_VALIDATION;
1624: ELSE
1625: x_return_status := l_return_status;
1641: p_to_cat_id => x_catv_rec.id,
1642: p_to_chr_id => x_catv_rec.dnz_chr_id,
1643: p_scn_id => NULL);
1644:
1645: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1646: x_return_status := l_return_status;
1647: RAISE G_EXCEPTION_HALT_VALIDATION;
1648: END IF;
1649: END LOOP;
1660: OKC_DEBUG.ReSet_Indentation;
1661: END IF;
1662: WHEN OTHERS THEN
1663: -- store SQL error message on message stack for caller
1664: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1665: -- notify caller of an UNEXPECTED error
1666: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1667: IF (l_debug = 'Y') THEN
1668: OKC_DEBUG.ReSet_Indentation;
1662: WHEN OTHERS THEN
1663: -- store SQL error message on message stack for caller
1664: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1665: -- notify caller of an UNEXPECTED error
1666: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1667: IF (l_debug = 'Y') THEN
1668: OKC_DEBUG.ReSet_Indentation;
1669: END IF;
1670:
1684: p_chr_id IN NUMBER ,
1685: x_cat_id OUT NOCOPY NUMBER) IS
1686:
1687:
1688: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1689: l_sae_id NUMBER;
1690: l_sav_release VARCHAR2(150);
1691:
1692: CURSOR c_sav_sae_id(p_cat_id IN NUMBER) IS
1744: IF (l_debug = 'Y') THEN
1745: OKC_DEBUG.log('1006 : After OKC_COPY_CONTRACT_PUB.Copy_Articles ' || l_return_status );
1746: END IF;
1747:
1748: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1749: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1750: x_return_status := l_return_status;
1751: RAISE G_EXCEPTION_HALT_VALIDATION;
1752: ELSE
1745: OKC_DEBUG.log('1006 : After OKC_COPY_CONTRACT_PUB.Copy_Articles ' || l_return_status );
1746: END IF;
1747:
1748: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1749: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1750: x_return_status := l_return_status;
1751: RAISE G_EXCEPTION_HALT_VALIDATION;
1752: ELSE
1753: x_return_status := l_return_status;
1766: END IF;
1767: NULL;
1768: WHEN OTHERS THEN
1769: -- store SQL error message on message stack for caller
1770: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1771: -- notify caller of an UNEXPECTED error
1772: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1773: IF (l_debug = 'Y') THEN
1774: OKC_DEBUG.ReSet_Indentation;
1768: WHEN OTHERS THEN
1769: -- store SQL error message on message stack for caller
1770: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1771: -- notify caller of an UNEXPECTED error
1772: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1773: IF (l_debug = 'Y') THEN
1774: OKC_DEBUG.ReSet_Indentation;
1775: END IF;
1776:
1792:
1793: l_pavv_rec pavv_rec_type;
1794: x_pavv_rec pavv_rec_type;
1795:
1796: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1797: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
1798:
1799: BEGIN
1800: x_return_status := l_return_status;
1793: l_pavv_rec pavv_rec_type;
1794: x_pavv_rec pavv_rec_type;
1795:
1796: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1797: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
1798:
1799: BEGIN
1800: x_return_status := l_return_status;
1801: l_return_status := get_pavv_rec( p_pav_id => p_pav_id,
1812: x_msg_data => x_msg_data,
1813: p_pavv_rec => l_pavv_rec,
1814: x_pavv_rec => x_pavv_rec);
1815:
1816: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1817: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: x_return_status := l_return_status;
1819: RAISE G_EXCEPTION_HALT_VALIDATION;
1820: ELSE
1813: p_pavv_rec => l_pavv_rec,
1814: x_pavv_rec => x_pavv_rec);
1815:
1816: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1817: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: x_return_status := l_return_status;
1819: RAISE G_EXCEPTION_HALT_VALIDATION;
1820: ELSE
1821: x_return_status := l_return_status;
1828: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1829: NULL;
1830: WHEN OTHERS THEN
1831: -- store SQL error message on message stack for caller
1832: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1833: -- notify caller of an UNEXPECTED error
1834: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1835:
1836: END copy_price_att_values;
1830: WHEN OTHERS THEN
1831: -- store SQL error message on message stack for caller
1832: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1833: -- notify caller of an UNEXPECTED error
1834: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1835:
1836: END copy_price_att_values;
1837:
1838:
1852:
1853: l_patv_rec patv_rec_type;
1854: x_patv_rec patv_rec_type;
1855:
1856: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1857: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
1858:
1859: l_new_pat_id NUMBER;
1860: BEGIN
1853: l_patv_rec patv_rec_type;
1854: x_patv_rec patv_rec_type;
1855:
1856: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1857: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
1858:
1859: l_new_pat_id NUMBER;
1860: BEGIN
1861: x_return_status := l_return_status;
1878: p_patv_rec => l_patv_rec,
1879: x_patv_rec => x_patv_rec);
1880:
1881:
1882: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1883: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1884: x_return_status := l_return_status;
1885: RAISE G_EXCEPTION_HALT_VALIDATION;
1886: ELSE
1879: x_patv_rec => x_patv_rec);
1880:
1881:
1882: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1883: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1884: x_return_status := l_return_status;
1885: RAISE G_EXCEPTION_HALT_VALIDATION;
1886: ELSE
1887: x_return_status := l_return_status;
1895: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1896: NULL;
1897: WHEN OTHERS THEN
1898: -- store SQL error message on message stack for caller
1899: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1900: -- notify caller of an UNEXPECTED error
1901: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1902:
1903: END copy_price_adjustments;
1897: WHEN OTHERS THEN
1898: -- store SQL error message on message stack for caller
1899: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1900: -- notify caller of an UNEXPECTED error
1901: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1902:
1903: END copy_price_adjustments;
1904:
1905: ---------------------------------------------------------------------------------------------------
1917:
1918: l_pacv_rec pacv_rec_type;
1919: x_pacv_rec pacv_rec_type;
1920:
1921: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1922: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
1923:
1924: l_new_pat_id NUMBER := OKC_API.G_MISS_NUM;
1925: l_new_pat_id_from NUMBER := OKC_API.G_MISS_NUM; -- Added as per Bug 2554460
1918: l_pacv_rec pacv_rec_type;
1919: x_pacv_rec pacv_rec_type;
1920:
1921: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1922: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
1923:
1924: l_new_pat_id NUMBER := OKC_API.G_MISS_NUM;
1925: l_new_pat_id_from NUMBER := OKC_API.G_MISS_NUM; -- Added as per Bug 2554460
1926:
1920:
1921: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1922: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
1923:
1924: l_new_pat_id NUMBER := OKC_API.G_MISS_NUM;
1925: l_new_pat_id_from NUMBER := OKC_API.G_MISS_NUM; -- Added as per Bug 2554460
1926:
1927: BEGIN
1928: x_return_status := l_return_status;
1921: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1922: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
1923:
1924: l_new_pat_id NUMBER := OKC_API.G_MISS_NUM;
1925: l_new_pat_id_from NUMBER := OKC_API.G_MISS_NUM; -- Added as per Bug 2554460
1926:
1927: BEGIN
1928: x_return_status := l_return_status;
1929: l_return_status := get_pacv_rec( p_pac_id => p_pac_id,
1959: x_msg_data => x_msg_data,
1960: p_pacv_rec => l_pacv_rec,
1961: x_pacv_rec => x_pacv_rec);
1962:
1963: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1964: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1965: x_return_status := l_return_status;
1966: RAISE G_EXCEPTION_HALT_VALIDATION;
1967: ELSE
1960: p_pacv_rec => l_pacv_rec,
1961: x_pacv_rec => x_pacv_rec);
1962:
1963: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1964: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1965: x_return_status := l_return_status;
1966: RAISE G_EXCEPTION_HALT_VALIDATION;
1967: ELSE
1968: x_return_status := l_return_status;
1975: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1976: NULL;
1977: WHEN OTHERS THEN
1978: -- store SQL error message on message stack for caller
1979: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1980: -- notify caller of an UNEXPECTED error
1981: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1982:
1983: END copy_price_adj_assocs;
1977: WHEN OTHERS THEN
1978: -- store SQL error message on message stack for caller
1979: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1980: -- notify caller of an UNEXPECTED error
1981: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1982:
1983: END copy_price_adj_assocs;
1984:
1985: ----------------------------------------------------------------
1995:
1996: l_paav_rec paav_rec_type;
1997: x_paav_rec paav_rec_type;
1998:
1999: l_new_pat_id NUMBER := OKC_API.G_MISS_NUM;
2000:
2001: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2002:
2003:
1997: x_paav_rec paav_rec_type;
1998:
1999: l_new_pat_id NUMBER := OKC_API.G_MISS_NUM;
2000:
2001: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2002:
2003:
2004: CURSOR c_paav IS
2005: SELECT id
2030: x_msg_count => x_msg_count,
2031: x_msg_data => x_msg_data,
2032: p_paav_rec => l_paav_rec,
2033: x_paav_rec => x_paav_rec);
2034: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2036: x_return_status := l_return_status;
2037: RAISE G_EXCEPTION_HALT_VALIDATION;
2038: ELSE
2031: x_msg_data => x_msg_data,
2032: p_paav_rec => l_paav_rec,
2033: x_paav_rec => x_paav_rec);
2034: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2036: x_return_status := l_return_status;
2037: RAISE G_EXCEPTION_HALT_VALIDATION;
2038: ELSE
2039: x_return_status := l_return_status;
2047: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2048: NULL;
2049: WHEN OTHERS THEN
2050: -- store SQL error message on message stack for caller
2051: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2052: -- notify caller of an UNEXPECTED error
2053: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2054:
2055: END copy_price_adj_attribs;
2049: WHEN OTHERS THEN
2050: -- store SQL error message on message stack for caller
2051: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2052: -- notify caller of an UNEXPECTED error
2053: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2054:
2055: END copy_price_adj_attribs;
2056:
2057: --------------------------------------------------------------------------------------------
2064: ----------------------------------------------------------------------------
2065: FUNCTION get_scrv_rec(p_scrv_id IN NUMBER,
2066: x_scrv_rec OUT NOCOPY OKC_SALES_CREDIT_PUB.scrv_rec_type) RETURN VARCHAR2 IS
2067:
2068: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2069: l_no_data_found BOOLEAN := TRUE;
2070:
2071: CURSOR c_scrv_rec IS
2072: SELECT
2108:
2109: l_no_data_found := c_scrv_rec%NOTFOUND;
2110: CLOSE c_scrv_rec;
2111: IF l_no_data_found THEN
2112: l_return_status := OKC_API.G_RET_STS_ERROR;
2113: return(l_return_status);
2114: ELSE
2115: return(l_return_status);
2116: END IF;
2116: END IF;
2117: EXCEPTION
2118: WHEN OTHERS THEN
2119: -- store SQL error message on message stack for caller
2120: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2121: -- notify caller of an UNEXPECTED error
2122: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2123: return(l_return_status);
2124:
2118: WHEN OTHERS THEN
2119: -- store SQL error message on message stack for caller
2120: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2121: -- notify caller of an UNEXPECTED error
2122: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2123: return(l_return_status);
2124:
2125: END get_scrv_rec;
2126:
2144: l_scrv_rec OKC_SALES_credit_PUB.scrv_rec_type;
2145: x_scrv_rec OKC_SALES_credit_PUB.scrv_rec_type;
2146:
2147:
2148: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2149: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
2150:
2151: BEGIN
2152: x_return_status := l_return_status;
2145: x_scrv_rec OKC_SALES_credit_PUB.scrv_rec_type;
2146:
2147:
2148: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2149: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
2150:
2151: BEGIN
2152: x_return_status := l_return_status;
2153:
2168: p_scrv_rec => l_scrv_rec,
2169: x_scrv_rec => x_scrv_rec);
2170:
2171:
2172: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2173: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2174: x_return_status := l_return_status;
2175: RAISE G_EXCEPTION_HALT_VALIDATION;
2176: ELSE
2169: x_scrv_rec => x_scrv_rec);
2170:
2171:
2172: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2173: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2174: x_return_status := l_return_status;
2175: RAISE G_EXCEPTION_HALT_VALIDATION;
2176: ELSE
2177: x_return_status := l_return_status;
2184: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2185: NULL;
2186: WHEN OTHERS THEN
2187: -- store SQL error message on message stack for caller
2188: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2189: -- notify caller of an UNEXPECTED error
2190: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2191:
2192: END copy_sales_credits ;
2186: WHEN OTHERS THEN
2187: -- store SQL error message on message stack for caller
2188: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2189: -- notify caller of an UNEXPECTED error
2190: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2191:
2192: END copy_sales_credits ;
2193:
2194:
2202: FUNCTION get_okc_ph_line_breaks_v_rec(p_okc_ph_line_breaks_v_id IN NUMBER,
2203: x_okc_ph_line_breaks_v_rec OUT NOCOPY OKC_PH_LINE_BREAKS_PUB.okc_ph_line_breaks_v_rec_type)
2204: RETURN VARCHAR2 IS
2205:
2206: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2207: l_no_data_found BOOLEAN := TRUE;
2208:
2209: CURSOR c_okc_ph_line_breaks_v_rec IS
2210: SELECT
2254:
2255: l_no_data_found := c_okc_ph_line_breaks_v_rec%NOTFOUND;
2256: CLOSE c_okc_ph_line_breaks_v_rec;
2257: IF l_no_data_found THEN
2258: l_return_status := OKC_API.G_RET_STS_ERROR;
2259: return(l_return_status);
2260: ELSE
2261: return(l_return_status);
2262: END IF;
2262: END IF;
2263: EXCEPTION
2264: WHEN OTHERS THEN
2265: -- store SQL error message on message stack for caller
2266: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2267: -- notify caller of an UNEXPECTED error
2268: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2269: return(l_return_status);
2270:
2264: WHEN OTHERS THEN
2265: -- store SQL error message on message stack for caller
2266: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2267: -- notify caller of an UNEXPECTED error
2268: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2269: return(l_return_status);
2270:
2271: END get_okc_ph_line_breaks_v_rec;
2272:
2291: l_okc_ph_line_breaks_v_rec OKC_PH_LINE_BREAKS_PUB.okc_ph_line_breaks_v_rec_type;
2292: x_okc_ph_line_breaks_v_rec OKC_PH_LINE_BREAKS_PUB.okc_ph_line_breaks_v_rec_type;
2293:
2294:
2295: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2296: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
2297:
2298: BEGIN
2299: x_return_status := l_return_status;
2292: x_okc_ph_line_breaks_v_rec OKC_PH_LINE_BREAKS_PUB.okc_ph_line_breaks_v_rec_type;
2293:
2294:
2295: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2296: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
2297:
2298: BEGIN
2299: x_return_status := l_return_status;
2300:
2318: x_okc_ph_line_breaks_v_rec => x_okc_ph_line_breaks_v_rec);
2319:
2320:
2321:
2322: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2323: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2324: x_return_status := l_return_status;
2325: RAISE G_EXCEPTION_HALT_VALIDATION;
2326: ELSE
2319:
2320:
2321:
2322: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2323: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2324: x_return_status := l_return_status;
2325: RAISE G_EXCEPTION_HALT_VALIDATION;
2326: ELSE
2327: x_return_status := l_return_status;
2334: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2335: NULL;
2336: WHEN OTHERS THEN
2337: -- store SQL error message on message stack for caller
2338: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2339: -- notify caller of an UNEXPECTED error
2340: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2341:
2342: END copy_price_hold_line_breaks ;
2336: WHEN OTHERS THEN
2337: -- store SQL error message on message stack for caller
2338: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2339: -- notify caller of an UNEXPECTED error
2340: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2341:
2342: END copy_price_hold_line_breaks ;
2343:
2344: -- Price Hold is bosoleted and this procedure is nolonger required.
2348: ----------------------------------------------------------------------------
2349: FUNCTION get_gvev_rec(p_gve_id IN NUMBER,
2350: x_gvev_rec OUT NOCOPY gvev_rec_type)
2351: RETURN VARCHAR2 IS
2352: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2353: l_no_data_found BOOLEAN := TRUE;
2354:
2355: CURSOR c_gvev_rec IS
2356: SELECT
2376:
2377: l_no_data_found := c_gvev_rec%NOTFOUND;
2378: CLOSE c_gvev_rec;
2379: IF l_no_data_found THEN
2380: l_return_status := OKC_API.G_RET_STS_ERROR;
2381: return(l_return_status);
2382: ELSE
2383: return(l_return_status);
2384: END IF;
2384: END IF;
2385: EXCEPTION
2386: WHEN OTHERS THEN
2387: -- store SQL error message on message stack for caller
2388: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2389: -- notify caller of an UNEXPECTED error
2390: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2391: return(l_return_status);
2392:
2386: WHEN OTHERS THEN
2387: -- store SQL error message on message stack for caller
2388: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2389: -- notify caller of an UNEXPECTED error
2390: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2391: return(l_return_status);
2392:
2393: END get_gvev_rec;
2394:
2410:
2411: l_gvev_rec gvev_rec_type;
2412: x_gvev_rec gvev_rec_type;
2413:
2414: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2415:
2416: BEGIN
2417:
2418: x_return_status := l_return_status;
2419:
2420: l_return_status := get_gvev_rec(p_gve_id => p_gvev_id,
2421: x_gvev_rec => l_gvev_rec);
2422:
2423: IF p_cle_id IS NOT NULL AND p_cle_id <> OKC_API.G_MISS_NUM THEN
2424: --we are copying at line level so chr_id should be null
2425: l_gvev_rec.chr_id := NULL;
2426: ELSE
2427: --we are copying at header level
2440: x_msg_data => x_msg_data,
2441: p_gvev_rec => l_gvev_rec,
2442: x_gvev_rec => x_gvev_rec);
2443:
2444: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2446: x_return_status := l_return_status;
2447: RAISE G_EXCEPTION_HALT_VALIDATION;
2448: ELSE
2441: p_gvev_rec => l_gvev_rec,
2442: x_gvev_rec => x_gvev_rec);
2443:
2444: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2446: x_return_status := l_return_status;
2447: RAISE G_EXCEPTION_HALT_VALIDATION;
2448: ELSE
2449: x_return_status := l_return_status;
2456: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2457: NULL;
2458: WHEN OTHERS THEN
2459: -- store SQL error message on message stack for caller
2460: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2461: -- notify caller of an UNEXPECTED error
2462: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2463:
2464: END copy_governances;
2458: WHEN OTHERS THEN
2459: -- store SQL error message on message stack for caller
2460: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2461: -- notify caller of an UNEXPECTED error
2462: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2463:
2464: END copy_governances;
2465:
2466:
2487: x_ctcv_rec ctcv_rec_type;
2488:
2489: l_party_name VARCHAR2(200);
2490: l_party_desc VARCHAR2(2000);
2491: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2492: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
2493:
2494: CURSOR c_dnz_chr_id(p_id IN NUMBER) IS
2495: SELECT dnz_chr_id
2488:
2489: l_party_name VARCHAR2(200);
2490: l_party_desc VARCHAR2(2000);
2491: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2492: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
2493:
2494: CURSOR c_dnz_chr_id(p_id IN NUMBER) IS
2495: SELECT dnz_chr_id
2496: FROM okc_k_lines_b
2505: x_return_status := l_return_status;
2506: l_return_status := get_cplv_rec( p_cpl_id => p_cpl_id,
2507: x_cplv_rec => l_cplv_rec);
2508:
2509: IF p_chr_id IS NULL OR p_chr_id = OKC_API.G_MISS_NUM THEN
2510: OPEN c_dnz_chr_id(p_cle_id);
2511: FETCH c_dnz_chr_id INTO l_cplv_rec.dnz_chr_id;
2512: CLOSE c_dnz_chr_id;
2513: ELSE
2528: x_msg_data => x_msg_data,
2529: p_cplv_rec => l_cplv_rec,
2530: x_cplv_rec => x_cplv_rec);
2531:
2532: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2533: x_return_status := l_return_status;
2534: RAISE G_EXCEPTION_HALT_VALIDATION;
2535: END IF;
2536:
2555: x_msg_data => x_msg_data,
2556: p_ctcv_rec => l_ctcv_rec,
2557: x_ctcv_rec => x_ctcv_rec);
2558:
2559: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2561: x_return_status := l_return_status;
2562: RAISE G_EXCEPTION_HALT_VALIDATION;
2563: ELSE
2556: p_ctcv_rec => l_ctcv_rec,
2557: x_ctcv_rec => x_ctcv_rec);
2558:
2559: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2561: x_return_status := l_return_status;
2562: RAISE G_EXCEPTION_HALT_VALIDATION;
2563: ELSE
2564: x_return_status := OKC_API.G_RET_STS_WARNING;
2560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2561: x_return_status := l_return_status;
2562: RAISE G_EXCEPTION_HALT_VALIDATION;
2563: ELSE
2564: x_return_status := OKC_API.G_RET_STS_WARNING;
2565: okc_util.get_name_desc_from_jtfv( p_object_code => x_cplv_rec.jtot_object1_code,
2566: p_id1 => x_cplv_rec.object1_id1,
2567: p_id2 => x_cplv_rec.object1_id2,
2568: x_name => l_party_name,
2567: p_id2 => x_cplv_rec.object1_id2,
2568: x_name => l_party_name,
2569: x_description => l_party_desc);
2570:
2571: OKC_API.set_message(G_APP_NAME,'OKC_CONTACT_NOT_COPIED','PARTY_NAME',l_party_name);
2572: END IF;
2573: END IF;
2574: END LOOP;
2575:
2577: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2578: NULL;
2579: WHEN OTHERS THEN
2580: -- store SQL error message on message stack for caller
2581: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2582: -- notify caller of an UNEXPECTED error
2583: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2584:
2585: END copy_party_roles;
2579: WHEN OTHERS THEN
2580: -- store SQL error message on message stack for caller
2581: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2582: -- notify caller of an UNEXPECTED error
2583: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2584:
2585: END copy_party_roles;
2586:
2587: ----------------------------------------------------------------------------
2606: x_ocev_rec ocev_rec_type;
2607: l_oatv_rec oatv_rec_type;
2608: x_oatv_rec oatv_rec_type;
2609:
2610: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2611: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
2612: l_new_cnh_id NUMBER;
2613:
2614: CURSOR c_cnlv IS
2607: l_oatv_rec oatv_rec_type;
2608: x_oatv_rec oatv_rec_type;
2609:
2610: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2611: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
2612: l_new_cnh_id NUMBER;
2613:
2614: CURSOR c_cnlv IS
2615: SELECT id
2662: x_msg_data => x_msg_data,
2663: p_cnhv_rec => l_cnhv_rec,
2664: x_cnhv_rec => x_cnhv_rec);
2665:
2666: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2667: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2668: x_return_status := l_return_status;
2669: RAISE G_EXCEPTION_HALT_VALIDATION;
2670: ELSE
2663: p_cnhv_rec => l_cnhv_rec,
2664: x_cnhv_rec => x_cnhv_rec);
2665:
2666: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2667: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2668: x_return_status := l_return_status;
2669: RAISE G_EXCEPTION_HALT_VALIDATION;
2670: ELSE
2671: x_return_status := OKC_API.G_RET_STS_WARNING;
2667: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2668: x_return_status := l_return_status;
2669: RAISE G_EXCEPTION_HALT_VALIDATION;
2670: ELSE
2671: x_return_status := OKC_API.G_RET_STS_WARNING;
2672:
2673: OKC_API.set_message(G_APP_NAME,'OKC_CONDITION_NOT_COPIED','CONDITION',l_cnhv_rec.name);
2674: RAISE G_EXCEPTION_HALT_VALIDATION;
2675: END IF;
2669: RAISE G_EXCEPTION_HALT_VALIDATION;
2670: ELSE
2671: x_return_status := OKC_API.G_RET_STS_WARNING;
2672:
2673: OKC_API.set_message(G_APP_NAME,'OKC_CONDITION_NOT_COPIED','CONDITION',l_cnhv_rec.name);
2674: RAISE G_EXCEPTION_HALT_VALIDATION;
2675: END IF;
2676: END IF;
2677:
2692: x_msg_data => x_msg_data,
2693: p_cnlv_rec => l_cnlv_rec,
2694: x_cnlv_rec => x_cnlv_rec);
2695:
2696: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2697: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2698: x_return_status := l_return_status;
2699: RAISE G_EXCEPTION_HALT_VALIDATION;
2700: ELSE
2693: p_cnlv_rec => l_cnlv_rec,
2694: x_cnlv_rec => x_cnlv_rec);
2695:
2696: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2697: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2698: x_return_status := l_return_status;
2699: RAISE G_EXCEPTION_HALT_VALIDATION;
2700: ELSE
2701: x_return_status := l_return_status;
2718: x_msg_data => x_msg_data,
2719: p_ocev_rec => l_ocev_rec,
2720: x_ocev_rec => x_ocev_rec);
2721:
2722: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2723: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2724: x_return_status := l_return_status;
2725: RAISE G_EXCEPTION_HALT_VALIDATION;
2726: ELSE
2719: p_ocev_rec => l_ocev_rec,
2720: x_ocev_rec => x_ocev_rec);
2721:
2722: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2723: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2724: x_return_status := l_return_status;
2725: RAISE G_EXCEPTION_HALT_VALIDATION;
2726: ELSE
2727: x_return_status := l_return_status;
2743: x_msg_data => x_msg_data,
2744: p_oatv_rec => l_oatv_rec,
2745: x_oatv_rec => x_oatv_rec);
2746:
2747: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2748: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2749: x_return_status := l_return_status;
2750: RAISE G_EXCEPTION_HALT_VALIDATION;
2751: ELSE
2744: p_oatv_rec => l_oatv_rec,
2745: x_oatv_rec => x_oatv_rec);
2746:
2747: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2748: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2749: x_return_status := l_return_status;
2750: RAISE G_EXCEPTION_HALT_VALIDATION;
2751: ELSE
2752: x_return_status := l_return_status;
2762: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2763: NULL;
2764: WHEN OTHERS THEN
2765: -- store SQL error message on message stack for caller
2766: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2767: -- notify caller of an UNEXPECTED error
2768: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2769:
2770: END copy_events;
2764: WHEN OTHERS THEN
2765: -- store SQL error message on message stack for caller
2766: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2767: -- notify caller of an UNEXPECTED error
2768: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2769:
2770: END copy_events;
2771:
2772: ----------------------------------------------------------------------------
2790: x_rulv_rec rulv_rec_type;
2791: l_rmpv_rec rmpv_rec_type;
2792: x_rmpv_rec rmpv_rec_type;
2793:
2794: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2795: l_old_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2796: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
2797: l_tve_id NUMBER;
2798: l_tve_id_out NUMBER;
2791: l_rmpv_rec rmpv_rec_type;
2792: x_rmpv_rec rmpv_rec_type;
2793:
2794: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2795: l_old_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2796: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
2797: l_tve_id NUMBER;
2798: l_tve_id_out NUMBER;
2799: l_col_vals okc_time_util_pub.t_col_vals;
2792: x_rmpv_rec rmpv_rec_type;
2793:
2794: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2795: l_old_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2796: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
2797: l_tve_id NUMBER;
2798: l_tve_id_out NUMBER;
2799: l_col_vals okc_time_util_pub.t_col_vals;
2800: l_col_vals_temp okc_time_util_pub.t_col_vals;
2868: x_return_status := l_return_status;
2869: l_return_status := get_rgpv_rec( p_rgp_id => p_rgp_id,
2870: x_rgpv_rec => l_rgpv_rec);
2871:
2872: IF p_chr_id IS NULL OR p_chr_id = OKC_API.G_MISS_NUM THEN
2873: OPEN c_dnz_chr_id(p_cle_id);
2874: FETCH c_dnz_chr_id INTO l_rgpv_rec.dnz_chr_id;
2875: CLOSE c_dnz_chr_id;
2876: ELSE
2946: x_msg_data => x_msg_data,
2947: p_rgpv_rec => l_rgpv_rec,
2948: x_rgpv_rec => x_rgpv_rec);
2949:
2950: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2951: x_return_status := l_return_status;
2952: RAISE G_EXCEPTION_HALT_VALIDATION;
2953: END IF;
2954:
2976: x_msg_data => x_msg_data,
2977: p_rmpv_rec => l_rmpv_rec,
2978: x_rmpv_rec => x_rmpv_rec);
2979:
2980: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2981: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2982: x_return_status := l_return_status;
2983: RAISE G_EXCEPTION_HALT_VALIDATION;
2984: ELSE
2977: p_rmpv_rec => l_rmpv_rec,
2978: x_rmpv_rec => x_rmpv_rec);
2979:
2980: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2981: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2982: x_return_status := l_return_status;
2983: RAISE G_EXCEPTION_HALT_VALIDATION;
2984: ELSE
2985: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR then
2981: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2982: x_return_status := l_return_status;
2983: RAISE G_EXCEPTION_HALT_VALIDATION;
2984: ELSE
2985: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR then
2986: x_return_status := OKC_API.G_RET_STS_WARNING;
2987: END IF;
2988: END IF;
2989: END IF;
2982: x_return_status := l_return_status;
2983: RAISE G_EXCEPTION_HALT_VALIDATION;
2984: ELSE
2985: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR then
2986: x_return_status := OKC_API.G_RET_STS_WARNING;
2987: END IF;
2988: END IF;
2989: END IF;
2990: END IF;
3042: p_to_chr_id => l_rgpv_rec.dnz_chr_id,-- the rule group dnz_chr_id is passed
3043: p_to_template_yn => p_to_template_yn,
3044: x_tve_id => l_tve_id_out);
3045:
3046: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3047: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3048: x_return_status := l_return_status;
3049: RAISE G_EXCEPTION_HALT_VALIDATION;
3050: ELSE
3043: p_to_template_yn => p_to_template_yn,
3044: x_tve_id => l_tve_id_out);
3045:
3046: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3047: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3048: x_return_status := l_return_status;
3049: RAISE G_EXCEPTION_HALT_VALIDATION;
3050: ELSE
3051: l_time_value_copied := 'N';
3172: x_msg_data => x_msg_data,
3173: p_rulv_rec => g_rulv_rec,
3174: x_rulv_rec => x_rulv_rec);
3175:
3176: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3177: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3178: x_return_status := l_return_status;
3179: RAISE G_EXCEPTION_HALT_VALIDATION;
3180: ELSE
3173: p_rulv_rec => g_rulv_rec,
3174: x_rulv_rec => x_rulv_rec);
3175:
3176: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3177: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3178: x_return_status := l_return_status;
3179: RAISE G_EXCEPTION_HALT_VALIDATION;
3180: ELSE
3181: x_return_status := l_return_status;
3202: p_chr_id => p_chr_id,
3203: p_cle_id => p_cle_id,
3204: p_to_chr_id => l_rgpv_rec.dnz_chr_id);
3205:
3206: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3207: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3208: x_return_status := l_return_status;
3209: RAISE G_EXCEPTION_HALT_VALIDATION;
3210: ELSE
3203: p_cle_id => p_cle_id,
3204: p_to_chr_id => l_rgpv_rec.dnz_chr_id);
3205:
3206: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3207: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3208: x_return_status := l_return_status;
3209: RAISE G_EXCEPTION_HALT_VALIDATION;
3210: ELSE
3211: x_return_status := l_return_status;
3233: p_chr_id => p_chr_id,
3234: p_cle_id => p_cle_id,
3235: p_to_chr_id => l_rgpv_rec.dnz_chr_id);
3236:
3237: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3238: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3239: x_return_status := l_return_status;
3240: RAISE G_EXCEPTION_HALT_VALIDATION;
3241: ELSE
3234: p_cle_id => p_cle_id,
3235: p_to_chr_id => l_rgpv_rec.dnz_chr_id);
3236:
3237: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3238: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3239: x_return_status := l_return_status;
3240: RAISE G_EXCEPTION_HALT_VALIDATION;
3241: ELSE
3242: x_return_status := l_return_status;
3264: END IF;
3265: NULL;
3266: WHEN OTHERS THEN
3267: -- store SQL error message on message stack for caller
3268: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3269: -- notify caller of an UNEXPECTED error
3270: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3271: IF (l_debug = 'Y') THEN
3272: OKC_DEBUG.ReSet_Indentation;
3266: WHEN OTHERS THEN
3267: -- store SQL error message on message stack for caller
3268: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3269: -- notify caller of an UNEXPECTED error
3270: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3271: IF (l_debug = 'Y') THEN
3272: OKC_DEBUG.ReSet_Indentation;
3273: END IF;
3274:
3289:
3290: l_cimv_rec cimv_rec_type;
3291: x_cimv_rec cimv_rec_type;
3292:
3293: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3294: l_dnz_chr_id NUMBER := OKC_API.G_MISS_NUM;
3295: l_price_level_ind VARCHAR2(20);
3296: l_item_name VARCHAR2(2000);
3297: l_item_desc VARCHAR2(2000);
3290: l_cimv_rec cimv_rec_type;
3291: x_cimv_rec cimv_rec_type;
3292:
3293: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3294: l_dnz_chr_id NUMBER := OKC_API.G_MISS_NUM;
3295: l_price_level_ind VARCHAR2(20);
3296: l_item_name VARCHAR2(2000);
3297: l_item_desc VARCHAR2(2000);
3298:
3351: x_msg_data => x_msg_data,
3352: p_cimv_rec => l_cimv_rec,
3353: x_cimv_rec => x_cimv_rec);
3354:
3355: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3356: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3357: --bug 2667634 start , changes commented for bug 2774888
3358: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) OR (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3359: --bug 2667634 end
3352: p_cimv_rec => l_cimv_rec,
3353: x_cimv_rec => x_cimv_rec);
3354:
3355: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3356: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3357: --bug 2667634 start , changes commented for bug 2774888
3358: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) OR (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3359: --bug 2667634 end
3360: x_return_status := l_return_status;
3354:
3355: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3356: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3357: --bug 2667634 start , changes commented for bug 2774888
3358: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) OR (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3359: --bug 2667634 end
3360: x_return_status := l_return_status;
3361: RAISE G_EXCEPTION_HALT_VALIDATION;
3362: ELSE
3387: x_msg_data => x_msg_data,
3388: p_cimv_rec => l_cimv_rec,
3389: x_cimv_rec => x_cimv_rec);
3390:
3391: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3392: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3393: x_return_status := l_return_status;
3394: RAISE G_EXCEPTION_HALT_VALIDATION;
3395: ELSE
3388: p_cimv_rec => l_cimv_rec,
3389: x_cimv_rec => x_cimv_rec);
3390:
3391: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3392: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3393: x_return_status := l_return_status;
3394: RAISE G_EXCEPTION_HALT_VALIDATION;
3395: ELSE
3396: okc_util.get_name_desc_from_jtfv( p_object_code => l_cimv_rec.jtot_object1_code,
3398: p_id2 => l_cimv_rec.object1_id2,
3399: x_name => l_item_name,
3400: x_description => l_item_desc);
3401:
3402: OKC_API.set_message(G_APP_NAME,'OKC_ITEM_NOT_COPIED','ITEM_NAME',l_item_name);
3403:
3404: -- Begin Added for Bug 2207226
3405:
3406: DELETE FROM okc_k_lines_b
3420: p_id2 => l_cimv_rec.object1_id2,
3421: x_name => l_item_name,
3422: x_description => l_item_desc);
3423:
3424: OKC_API.set_message(G_APP_NAME,'OKC_ITEM_NOT_COPIED','ITEM_NAME',l_item_name);
3425:
3426: -- Begin Added for Bug 2207226
3427:
3428: DELETE FROM okc_k_lines_b
3448: x_msg_data => x_msg_data,
3449: p_cimv_rec => l_cimv_rec,
3450: x_cimv_rec => x_cimv_rec);
3451:
3452: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3453: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3454: x_return_status := l_return_status;
3455: RAISE G_EXCEPTION_HALT_VALIDATION;
3456: ELSE
3449: p_cimv_rec => l_cimv_rec,
3450: x_cimv_rec => x_cimv_rec);
3451:
3452: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3453: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3454: x_return_status := l_return_status;
3455: RAISE G_EXCEPTION_HALT_VALIDATION;
3456: ELSE
3457: okc_util.get_name_desc_from_jtfv( p_object_code => l_cimv_rec.jtot_object1_code,
3459: p_id2 => l_cimv_rec.object1_id2,
3460: x_name => l_item_name,
3461: x_description => l_item_desc);
3462:
3463: OKC_API.set_message(G_APP_NAME,'OKC_ITEM_NOT_COPIED','ITEM_NAME',l_item_name);
3464:
3465: -- Begin Added for Bug 2207226
3466:
3467: DELETE FROM okc_k_lines_b
3482: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3483: NULL;
3484: WHEN OTHERS THEN
3485: -- store SQL error message on message stack for caller
3486: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3487: -- notify caller of an UNEXPECTED error
3488: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3489:
3490: END copy_items;
3484: WHEN OTHERS THEN
3485: -- store SQL error message on message stack for caller
3486: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3487: -- notify caller of an UNEXPECTED error
3488: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3489:
3490: END copy_items;
3491:
3492: --
3554:
3555: return x_from_version;
3556: EXCEPTION
3557: WHEN OTHERS THEN
3558: return OKC_API.G_RET_STS_UNEXP_ERROR;
3559:
3560: END Get_Major_Version;
3561:
3562: ----------------------------------------------------------------------------
3589: x_clev_rec clev_rec_type;
3590: xx_clev_rec clev_rec_type; ---for Bug#3155217.
3591:
3592: l_sts_code VARCHAR2(30);
3593: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3594: l_old_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3595: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
3596: l_rgp_id NUMBER;
3597: l_cat_id NUMBER;
3590: xx_clev_rec clev_rec_type; ---for Bug#3155217.
3591:
3592: l_sts_code VARCHAR2(30);
3593: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3594: l_old_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3595: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
3596: l_rgp_id NUMBER;
3597: l_cat_id NUMBER;
3598: l_pav_id NUMBER;
3591:
3592: l_sts_code VARCHAR2(30);
3593: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3594: l_old_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3595: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
3596: l_rgp_id NUMBER;
3597: l_cat_id NUMBER;
3598: l_pav_id NUMBER;
3599: l_pat_id NUMBER;
3764: l_lty_code VARCHAR2(90);
3765: l_clev_rec clev_rec_type := p_clev_rec;
3766: l_cimv_rec cimv_rec_type;
3767:
3768: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3769:
3770: CURSOR c_lse(p_id IN NUMBER) IS
3771: SELECT lty_code,
3772: priced_yn
3815: x_msg_count => x_msg_count,
3816: x_msg_data => x_msg_data,
3817: p_cimv_rec => l_cimv_rec);
3818:
3819: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3820: l_clev_rec.price_negotiated := NULL;
3821: l_clev_rec.PRICE_UNIT := NULL;
3822: l_clev_rec.name := NULL;
3823: END IF;
3843:
3844: l_item_id VARCHAR2(40);
3845: l_counter_grp_id NUMBER;
3846: l_found BOOLEAN;
3847: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3848: l_ctr_grp_id_template NUMBER;
3849: l_ctr_grp_id_instance NUMBER;
3850: l_instcnd_inp_rec OKC_INST_CND_PUB.instcnd_inp_rec;
3851: l_ac_rec OKS_COVERAGES_PUB.ac_rec_type;
3892: p_source_object_id_instance => p_new_cle_id,
3893: x_ctr_grp_id_template => l_ctr_grp_id_template,
3894: x_ctr_grp_id_instance => l_ctr_grp_id_instance);
3895:
3896: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3897: x_return_status := l_return_status;
3898: RAISE G_EXCEPTION_HALT_VALIDATION;
3899: END IF;
3900:
3910: x_msg_count => x_msg_count,
3911: x_msg_data => x_msg_data,
3912: p_instcnd_inp_rec => l_instcnd_inp_rec);
3913:
3914: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3915: x_return_status := l_return_status;
3916: RAISE G_EXCEPTION_HALT_VALIDATION;
3917: END IF;
3918: End If;
3938: p_ac_rec_in => l_ac_rec,
3939: x_actual_coverage_id => l_actual_coverage_id);
3940: END IF;
3941:
3942: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3943: x_return_status := l_return_status;
3944: RAISE G_EXCEPTION_HALT_VALIDATION;
3945: END IF;
3946:
3949: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3950: NULL;
3951: WHEN OTHERS THEN
3952: -- store SQL error message on message stack for caller
3953: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3954: -- notify caller of an UNEXPECTED error
3955: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3956: END instantiate_counters_events;
3957:
3951: WHEN OTHERS THEN
3952: -- store SQL error message on message stack for caller
3953: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3954: -- notify caller of an UNEXPECTED error
3955: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3956: END instantiate_counters_events;
3957:
3958: FUNCTION get_parent_date(p_from_start_date IN DATE,
3959: p_from_end_date IN DATE,
3975: FROM okc_k_headers_b
3976: WHERE id = p_to_chr_id;
3977:
3978: BEGIN
3979: IF (p_to_chr_id IS NULL OR p_to_chr_id = OKC_API.G_MISS_NUM) THEN
3980: OPEN c_cle;
3981: FETCH c_cle INTO l_parent_start_date,l_parent_end_date;
3982: CLOSE c_cle;
3983: IF (NVL(p_from_start_date,sysdate)
4109:
4110: EXCEPTION
4111: when NO_DATA_FOUND then
4112: -- store SQL error message on message stack
4113: x_return_status := OKC_API.G_RET_STS_ERROR;
4114: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4115: p_msg_name => 'OKC_NOT_FOUND',
4116: p_token1 => 'VALUE1',
4117: p_token1_value => 'Status Code',
4110: EXCEPTION
4111: when NO_DATA_FOUND then
4112: -- store SQL error message on message stack
4113: x_return_status := OKC_API.G_RET_STS_ERROR;
4114: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4115: p_msg_name => 'OKC_NOT_FOUND',
4116: p_token1 => 'VALUE1',
4117: p_token1_value => 'Status Code',
4118: p_token2 => 'VALUE2',
4118: p_token2 => 'VALUE2',
4119: p_token2_value => 'OKC_CLASS_OPERATIONS_V');
4120: when OTHERS then
4121: -- store SQL error message on message stack
4122: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4123: p_msg_name => g_unexpected_error,
4124: p_token1 => g_sqlcode_token,
4125: p_token1_value => sqlcode,
4126: p_token2 => g_sqlerrm_token,
4125: p_token1_value => sqlcode,
4126: p_token2 => g_sqlerrm_token,
4127: p_token2_value => sqlerrm);
4128: -- notify caller of an error as UNEXPETED error
4129: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4130: END Create_Renewal_Line_Link;
4131:
4132: BEGIN
4133:
4260:
4261: end if;
4262: end if;
4263:
4264: IF p_to_chr_id IS NULL OR p_to_chr_id = OKC_API.G_MISS_NUM THEN
4265: OPEN c_dnz_chr_id;
4266: FETCH c_dnz_chr_id INTO l_clev_rec.dnz_chr_id;
4267: CLOSE c_dnz_chr_id;
4268: ELSE
4377: OKC_DEBUG.log('555 : x_msg_count : '||x_msg_count);
4378: OKC_DEBUG.log('555 : x_msg_data : '||x_msg_data);
4379: END IF;
4380:
4381: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4382: x_return_status := l_return_status;
4383: RAISE G_EXCEPTION_HALT_VALIDATION;
4384: END IF;
4385:
4401: x_msg_data => x_msg_data,
4402: p_to_chr_id => l_clev_rec.dnz_chr_id,
4403: p_to_cle_id => x_cle_id);
4404:
4405: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4406: x_return_status := l_return_status;
4407: RAISE G_EXCEPTION_HALT_VALIDATION;
4408: END IF;
4409: END IF;
4414: IF (l_debug = 'Y') THEN
4415: OKC_DEBUG.log('750 : l_from_version : '||l_from_version);
4416: END IF;
4417:
4418: IF (l_from_version = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4419: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4420: RAISE G_EXCEPTION_HALT_VALIDATION;
4421: END IF;
4422:
4415: OKC_DEBUG.log('750 : l_from_version : '||l_from_version);
4416: END IF;
4417:
4418: IF (l_from_version = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4419: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4420: RAISE G_EXCEPTION_HALT_VALIDATION;
4421: END IF;
4422:
4423: -- set attachement session variables
4459: p_start_date => x_clev_rec.start_date,
4460: p_end_date => x_clev_rec.end_date,
4461: p_new_cle_id => x_clev_rec.id);
4462:
4463: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4464: x_return_status := l_return_status;
4465: RAISE G_EXCEPTION_HALT_VALIDATION;
4466: END IF;
4467: END IF;
4489: p_chr_id => NULL,
4490: p_to_template_yn => p_to_template_yn,
4491: x_rgp_id => l_rgp_id);
4492:
4493: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4495: x_return_status := l_return_status;
4496: RAISE G_EXCEPTION_HALT_VALIDATION;
4497: ELSE
4490: p_to_template_yn => p_to_template_yn,
4491: x_rgp_id => l_rgp_id);
4492:
4493: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4495: x_return_status := l_return_status;
4496: RAISE G_EXCEPTION_HALT_VALIDATION;
4497: ELSE
4498: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
4494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4495: x_return_status := l_return_status;
4496: RAISE G_EXCEPTION_HALT_VALIDATION;
4497: ELSE
4498: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
4499: x_return_status := l_return_status;
4500: END IF;
4501: END IF;
4502: END IF;
4517: p_cle_id => x_clev_rec.id,
4518: p_chr_id => NULL,
4519: x_cat_id => l_cat_id);
4520:
4521: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4522: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4523: x_return_status := l_return_status;
4524: RAISE G_EXCEPTION_HALT_VALIDATION;
4525: ELSE
4518: p_chr_id => NULL,
4519: x_cat_id => l_cat_id);
4520:
4521: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4522: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4523: x_return_status := l_return_status;
4524: RAISE G_EXCEPTION_HALT_VALIDATION;
4525: ELSE
4526: x_return_status := l_return_status;
4545: p_cle_id => x_clev_rec.id,
4546: p_chr_id => NULL,
4547: x_pav_id => l_pav_id);
4548:
4549: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4550: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4551: x_return_status := l_return_status;
4552: RAISE G_EXCEPTION_HALT_VALIDATION;
4553: ELSE
4546: p_chr_id => NULL,
4547: x_pav_id => l_pav_id);
4548:
4549: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4550: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4551: x_return_status := l_return_status;
4552: RAISE G_EXCEPTION_HALT_VALIDATION;
4553: ELSE
4554: x_return_status := l_return_status;
4574: p_chr_id => x_clev_rec.dnz_chr_id,
4575: --p_chr_id => NULL, Modified for Bug 2027165
4576: x_pat_id => l_pat_id);
4577:
4578: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4579: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4580: x_return_status := l_return_status;
4581: RAISE G_EXCEPTION_HALT_VALIDATION;
4582: ELSE
4575: --p_chr_id => NULL, Modified for Bug 2027165
4576: x_pat_id => l_pat_id);
4577:
4578: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4579: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4580: x_return_status := l_return_status;
4581: RAISE G_EXCEPTION_HALT_VALIDATION;
4582: ELSE
4583: x_return_status := l_return_status;
4597: p_paa_id => NULL,
4598: p_pat_id => l_c_patv.id
4599: );
4600:
4601: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4602: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4603: x_return_status := l_return_status;
4604: RAISE G_EXCEPTION_HALT_VALIDATION;
4605: ELSE
4598: p_pat_id => l_c_patv.id
4599: );
4600:
4601: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4602: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4603: x_return_status := l_return_status;
4604: RAISE G_EXCEPTION_HALT_VALIDATION;
4605: ELSE
4606: x_return_status := l_return_status;
4625: p_cle_id => x_clev_rec.id,
4626: p_pat_id => NULL,
4627: x_pac_id => l_pac_id);
4628:
4629: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4630: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4631: x_return_status := l_return_status;
4632: RAISE G_EXCEPTION_HALT_VALIDATION;
4633: ELSE
4626: p_pat_id => NULL,
4627: x_pac_id => l_pac_id);
4628:
4629: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4630: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4631: x_return_status := l_return_status;
4632: RAISE G_EXCEPTION_HALT_VALIDATION;
4633: ELSE
4634: x_return_status := l_return_status;
4648: p_paa_id => l_c_paav.id,
4649: p_pat_id => NULL,
4650: x_paa_id => l_paa_id);
4651:
4652: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4653: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4654: x_return_status := l_return_status;
4655: RAISE G_EXCEPTION_HALT_VALIDATION;
4656: ELSE
4649: p_pat_id => NULL,
4650: x_paa_id => l_paa_id);
4651:
4652: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4653: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4654: x_return_status := l_return_status;
4655: RAISE G_EXCEPTION_HALT_VALIDATION;
4656: ELSE
4657: x_return_status := l_return_status;
4677: p_cle_id => x_clev_rec.id,
4678: p_chr_id => g_chrv_rec.id, --NULL, --must always have a value in sales credits table
4679: x_scrv_id => l_scrv_id);
4680:
4681: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4682: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4683: x_return_status := l_return_status;
4684: RAISE G_EXCEPTION_HALT_VALIDATION;
4685: ELSE
4678: p_chr_id => g_chrv_rec.id, --NULL, --must always have a value in sales credits table
4679: x_scrv_id => l_scrv_id);
4680:
4681: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4682: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4683: x_return_status := l_return_status;
4684: RAISE G_EXCEPTION_HALT_VALIDATION;
4685: ELSE
4686: x_return_status := l_return_status;
4709: p_chr_id => g_chrv_rec.id,
4710:
4711: x_gvev_id => l_gvev_id);
4712:
4713: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4714: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4715: x_return_status := l_return_status;
4716: RAISE G_EXCEPTION_HALT_VALIDATION;
4717: ELSE
4710:
4711: x_gvev_id => l_gvev_id);
4712:
4713: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4714: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4715: x_return_status := l_return_status;
4716: RAISE G_EXCEPTION_HALT_VALIDATION;
4717: ELSE
4718: x_return_status := l_return_status;
4740: p_okc_ph_line_breaks_v_rec_id => l_c_okc_ph_line_breaks_v.id,
4741: p_cle_id => x_clev_rec.id,
4742: x_okc_ph_line_breaks_v_rec_id => l_okc_ph_line_breaks_v_id);
4743:
4744: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4745: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4746: x_return_status := l_return_status;
4747: RAISE G_EXCEPTION_HALT_VALIDATION;
4748: ELSE
4741: p_cle_id => x_clev_rec.id,
4742: x_okc_ph_line_breaks_v_rec_id => l_okc_ph_line_breaks_v_id);
4743:
4744: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4745: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4746: x_return_status := l_return_status;
4747: RAISE G_EXCEPTION_HALT_VALIDATION;
4748: ELSE
4749: x_return_status := l_return_status;
4772: p_chr_id => NULL,
4773: p_rle_code => NULL,
4774: x_cpl_id => l_cpl_id);
4775:
4776: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4777: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4778: x_return_status := l_return_status;
4779: RAISE G_EXCEPTION_HALT_VALIDATION;
4780: ELSE
4773: p_rle_code => NULL,
4774: x_cpl_id => l_cpl_id);
4775:
4776: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4777: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4778: x_return_status := l_return_status;
4779: RAISE G_EXCEPTION_HALT_VALIDATION;
4780: ELSE
4781: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
4777: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4778: x_return_status := l_return_status;
4779: RAISE G_EXCEPTION_HALT_VALIDATION;
4780: ELSE
4781: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
4782: x_return_status := l_return_status;
4783: END IF;
4784: END IF;
4785: END IF;
4802: p_copy_reference => p_copy_reference,
4803: p_to_cle_id => x_clev_rec.id);
4804:
4805:
4806: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4807: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4808: -- bug 2667634 start , changes commented for bug 2774888
4809: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) OR (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4810: -- bug 2667634 end
4803: p_to_cle_id => x_clev_rec.id);
4804:
4805:
4806: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4807: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4808: -- bug 2667634 start , changes commented for bug 2774888
4809: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) OR (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4810: -- bug 2667634 end
4811: x_return_status := l_return_status;
4805:
4806: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4807: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4808: -- bug 2667634 start , changes commented for bug 2774888
4809: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) OR (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4810: -- bug 2667634 end
4811: x_return_status := l_return_status;
4812: RAISE G_EXCEPTION_HALT_VALIDATION;
4813: ELSE
4810: -- bug 2667634 end
4811: x_return_status := l_return_status;
4812: RAISE G_EXCEPTION_HALT_VALIDATION;
4813: ELSE
4814: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
4815: x_return_status := OKC_API.G_RET_STS_WARNING;
4816: END IF;
4817: END IF;
4818: END IF;
4811: x_return_status := l_return_status;
4812: RAISE G_EXCEPTION_HALT_VALIDATION;
4813: ELSE
4814: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
4815: x_return_status := OKC_API.G_RET_STS_WARNING;
4816: END IF;
4817: END IF;
4818: END IF;
4819:
4849: IF l_string is NOT NULL THEN -- Begin L_STRING IF
4850: proc_string := 'begin '||l_string || ' (:b1,:b2,:b3); end ;';
4851: EXECUTE IMMEDIATE proc_string using l_chr_id,l_cle_id1, out l_return_status; -- Bugfix 2151523(1917514) - changed l_cle_id to l_cle_id1.
4852:
4853: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4854: x_return_status := l_return_status;
4855: RAISE G_EXCEPTION_HALT_VALIDATION;
4856: ELSE
4857: x_return_status := l_return_status;
4875: END IF;
4876: NULL;
4877: WHEN OTHERS THEN
4878: -- store SQL error message on message stack for caller
4879: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4880: IF (l_debug = 'Y') THEN
4881: OKC_DEBUG.log('30000 : SQLCODE : '||SQLCODE);
4882: OKC_DEBUG.log('30000 : SQLERRM : '||SQLERRM);
4883: OKC_DEBUG.log('30000 : Exiting Procedure copy_contract_line ', 2);
4883: OKC_DEBUG.log('30000 : Exiting Procedure copy_contract_line ', 2);
4884: OKC_DEBUG.ReSet_Indentation;
4885: END IF;
4886: -- notify caller of an UNEXPECTED error
4887: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4888:
4889: END copy_contract_line;
4890:
4891: ----------------------------------------------------------------------------
4913: -- of the topline during update service
4914:
4915: IS
4916:
4917: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4918: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
4919: l_cle_id_out NUMBER := OKC_API.G_MISS_NUM;
4920: i NUMBER := 0;
4921: l_lse_id NUMBER := OKC_API.G_MISS_NUM;
4914:
4915: IS
4916:
4917: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4918: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
4919: l_cle_id_out NUMBER := OKC_API.G_MISS_NUM;
4920: i NUMBER := 0;
4921: l_lse_id NUMBER := OKC_API.G_MISS_NUM;
4922:
4915: IS
4916:
4917: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4918: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
4919: l_cle_id_out NUMBER := OKC_API.G_MISS_NUM;
4920: i NUMBER := 0;
4921: l_lse_id NUMBER := OKC_API.G_MISS_NUM;
4922:
4923: TYPE lines_rec_type IS RECORD (
4917: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4918: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
4919: l_cle_id_out NUMBER := OKC_API.G_MISS_NUM;
4920: i NUMBER := 0;
4921: l_lse_id NUMBER := OKC_API.G_MISS_NUM;
4922:
4923: TYPE lines_rec_type IS RECORD (
4924: level NUMBER := OKC_API.G_MISS_NUM,
4925: line_id NUMBER := OKC_API.G_MISS_NUM,
4920: i NUMBER := 0;
4921: l_lse_id NUMBER := OKC_API.G_MISS_NUM;
4922:
4923: TYPE lines_rec_type IS RECORD (
4924: level NUMBER := OKC_API.G_MISS_NUM,
4925: line_id NUMBER := OKC_API.G_MISS_NUM,
4926: new_line_id NUMBER := OKC_API.G_MISS_NUM,
4927: cle_id NUMBER := OKC_API.G_MISS_NUM,
4928: new_cle_id NUMBER := OKC_API.G_MISS_NUM,
4921: l_lse_id NUMBER := OKC_API.G_MISS_NUM;
4922:
4923: TYPE lines_rec_type IS RECORD (
4924: level NUMBER := OKC_API.G_MISS_NUM,
4925: line_id NUMBER := OKC_API.G_MISS_NUM,
4926: new_line_id NUMBER := OKC_API.G_MISS_NUM,
4927: cle_id NUMBER := OKC_API.G_MISS_NUM,
4928: new_cle_id NUMBER := OKC_API.G_MISS_NUM,
4929: ole_id NUMBER := OKC_API.G_MISS_NUM);
4922:
4923: TYPE lines_rec_type IS RECORD (
4924: level NUMBER := OKC_API.G_MISS_NUM,
4925: line_id NUMBER := OKC_API.G_MISS_NUM,
4926: new_line_id NUMBER := OKC_API.G_MISS_NUM,
4927: cle_id NUMBER := OKC_API.G_MISS_NUM,
4928: new_cle_id NUMBER := OKC_API.G_MISS_NUM,
4929: ole_id NUMBER := OKC_API.G_MISS_NUM);
4930:
4923: TYPE lines_rec_type IS RECORD (
4924: level NUMBER := OKC_API.G_MISS_NUM,
4925: line_id NUMBER := OKC_API.G_MISS_NUM,
4926: new_line_id NUMBER := OKC_API.G_MISS_NUM,
4927: cle_id NUMBER := OKC_API.G_MISS_NUM,
4928: new_cle_id NUMBER := OKC_API.G_MISS_NUM,
4929: ole_id NUMBER := OKC_API.G_MISS_NUM);
4930:
4931: TYPE lines_tbl_type IS TABLE OF lines_rec_type
4924: level NUMBER := OKC_API.G_MISS_NUM,
4925: line_id NUMBER := OKC_API.G_MISS_NUM,
4926: new_line_id NUMBER := OKC_API.G_MISS_NUM,
4927: cle_id NUMBER := OKC_API.G_MISS_NUM,
4928: new_cle_id NUMBER := OKC_API.G_MISS_NUM,
4929: ole_id NUMBER := OKC_API.G_MISS_NUM);
4930:
4931: TYPE lines_tbl_type IS TABLE OF lines_rec_type
4932: INDEX BY BINARY_INTEGER;
4925: line_id NUMBER := OKC_API.G_MISS_NUM,
4926: new_line_id NUMBER := OKC_API.G_MISS_NUM,
4927: cle_id NUMBER := OKC_API.G_MISS_NUM,
4928: new_cle_id NUMBER := OKC_API.G_MISS_NUM,
4929: ole_id NUMBER := OKC_API.G_MISS_NUM);
4930:
4931: TYPE lines_tbl_type IS TABLE OF lines_rec_type
4932: INDEX BY BINARY_INTEGER;
4933:
4957: FUNCTION get_new_cle_id(p_line_id IN NUMBER,
4958: p_cle_id IN NUMBER,
4959: p_new_cle_id OUT NOCOPY NUMBER)
4960: RETURN VARCHAR2 IS
4961: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4962: i NUMBER := 0;
4963: BEGIN
4964:
4965: IF l_lines_tbl.COUNT > 0 THEN
4972: EXIT WHEN (i = l_lines_tbl.LAST);
4973: i := l_lines_tbl.NEXT(i);
4974: END LOOP;
4975: END IF;
4976: l_return_status := OKC_API.G_RET_STS_ERROR;
4977: return(l_return_status);
4978: EXCEPTION
4979: WHEN OTHERS THEN
4980: -- store SQL error message on message stack for caller
4977: return(l_return_status);
4978: EXCEPTION
4979: WHEN OTHERS THEN
4980: -- store SQL error message on message stack for caller
4981: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4982: -- notify caller of an UNEXPECTED error
4983: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4984: return(l_return_status);
4985: END get_new_cle_id;
4979: WHEN OTHERS THEN
4980: -- store SQL error message on message stack for caller
4981: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4982: -- notify caller of an UNEXPECTED error
4983: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4984: return(l_return_status);
4985: END get_new_cle_id;
4986:
4987: ----------------------------------------------------------------------------
5069: IF (l_debug = 'Y') THEN
5070: OKC_DEBUG.log('500 : copy_contract_line - x_return_status : '||l_return_status);
5071: END IF;
5072:
5073: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5074: x_return_status := l_return_status;
5075:
5076: -- Continue line copy in case of warning
5077: If (l_return_status <> OKC_API.G_RET_STS_WARNING) Then
5073: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5074: x_return_status := l_return_status;
5075:
5076: -- Continue line copy in case of warning
5077: If (l_return_status <> OKC_API.G_RET_STS_WARNING) Then
5078: RAISE G_EXCEPTION_HALT_VALIDATION;
5079: End If;
5080: END IF;
5081:
5083:
5084: END LOOP;
5085: i := 0;
5086:
5087: If (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) Then
5088: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
5089: x_return_status := l_return_status;
5090: Elsif (x_return_status <> OKC_API.G_RET_STS_ERROR) Then
5091: If (l_return_status = OKC_API.G_RET_STS_ERROR) Then
5084: END LOOP;
5085: i := 0;
5086:
5087: If (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) Then
5088: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
5089: x_return_status := l_return_status;
5090: Elsif (x_return_status <> OKC_API.G_RET_STS_ERROR) Then
5091: If (l_return_status = OKC_API.G_RET_STS_ERROR) Then
5092: x_return_status := l_return_status;
5086:
5087: If (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) Then
5088: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
5089: x_return_status := l_return_status;
5090: Elsif (x_return_status <> OKC_API.G_RET_STS_ERROR) Then
5091: If (l_return_status = OKC_API.G_RET_STS_ERROR) Then
5092: x_return_status := l_return_status;
5093: Elsif (x_return_status <> OKC_API.G_RET_STS_WARNING) Then
5094: x_return_status := l_return_status;
5087: If (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) Then
5088: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
5089: x_return_status := l_return_status;
5090: Elsif (x_return_status <> OKC_API.G_RET_STS_ERROR) Then
5091: If (l_return_status = OKC_API.G_RET_STS_ERROR) Then
5092: x_return_status := l_return_status;
5093: Elsif (x_return_status <> OKC_API.G_RET_STS_WARNING) Then
5094: x_return_status := l_return_status;
5095: End If;
5089: x_return_status := l_return_status;
5090: Elsif (x_return_status <> OKC_API.G_RET_STS_ERROR) Then
5091: If (l_return_status = OKC_API.G_RET_STS_ERROR) Then
5092: x_return_status := l_return_status;
5093: Elsif (x_return_status <> OKC_API.G_RET_STS_WARNING) Then
5094: x_return_status := l_return_status;
5095: End If;
5096: End If;
5097: End If;
5109: END IF;
5110: NULL;
5111: WHEN OTHERS THEN
5112: -- store SQL error message on message stack for caller
5113: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
5114: IF (l_debug = 'Y') THEN
5115: OKC_DEBUG.log('30000 : SQLCODE : '||SQLCODE);
5116: OKC_DEBUG.log('30000 : SQLERRM : '||SQLERRM);
5117: OKC_DEBUG.log('30000 : Exiting Procedure copy_contract_lines ', 2);
5117: OKC_DEBUG.log('30000 : Exiting Procedure copy_contract_lines ', 2);
5118: OKC_DEBUG.ReSet_Indentation;
5119: END IF;
5120: -- notify caller of an UNEXPECTED error
5121: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5122:
5123: END copy_contract_lines;
5124:
5125: ----------------------------------------------------------------------------
5171: x_msg_data => x_msg_data,
5172: p_oiev_rec => l_oiev_rec,
5173: x_oiev_rec => lx_oiev_rec);
5174:
5175: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
5176: l_olev_rec.SELECT_YN := NULL;
5177: l_olev_rec.ACTIVE_YN := 'Y';
5178: l_olev_rec.PROCESS_FLAG := 'P';
5179: l_olev_rec.OIE_ID := lx_oiev_rec.id;
5187: x_msg_count => x_msg_count,
5188: x_msg_data => x_msg_data,
5189: p_olev_rec => l_olev_rec,
5190: x_olev_rec => lx_olev_rec);
5191: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
5192: -- set g_op_lines table
5193: l_count := g_op_lines.COUNT + 1;
5194: g_op_lines(l_count).id := p_chrv_rec.ID;
5195: g_op_lines(l_count).ole_id := lx_olev_rec.ID;
5198:
5199: EXCEPTION
5200: when NO_DATA_FOUND then
5201: -- store SQL error message on message stack
5202: x_return_status := OKC_API.G_RET_STS_ERROR;
5203: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
5204: p_msg_name => 'OKC_NOT_FOUND',
5205: p_token1 => 'VALUE1',
5206: p_token1_value => 'Status Code',
5199: EXCEPTION
5200: when NO_DATA_FOUND then
5201: -- store SQL error message on message stack
5202: x_return_status := OKC_API.G_RET_STS_ERROR;
5203: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
5204: p_msg_name => 'OKC_NOT_FOUND',
5205: p_token1 => 'VALUE1',
5206: p_token1_value => 'Status Code',
5207: p_token2 => 'VALUE2',
5207: p_token2 => 'VALUE2',
5208: p_token2_value => 'OKC_CLASS_OPERATIONS_V');
5209: when OTHERS then
5210: -- store SQL error message on message stack
5211: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
5212: p_msg_name => g_unexpected_error,
5213: p_token1 => g_sqlcode_token,
5214: p_token1_value => sqlcode,
5215: p_token2 => g_sqlerrm_token,
5214: p_token1_value => sqlcode,
5215: p_token2 => g_sqlerrm_token,
5216: p_token2_value => sqlerrm);
5217: -- notify caller of an error as UNEXPECTED error
5218: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5219: END Create_Renewal_Header_Link;
5220:
5221: ----------------------------------------------------------------------------
5222: --Proceudre copy_contract_header
5249: l_paa_id NUMBER;
5250: l_sts_code VARCHAR2(30);
5251: l_status_type VARCHAR2(30) := 'ENTERED';
5252: l_orig_system_source_code VARCHAR2(30) := 'OKC_HDR';
5253: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5254: l_from_version FND_ATTACHED_DOCUMENTS.PK2_VALUE%TYPE;
5255:
5256: l_euro_currency varchar2(15) := NULL; /* For Euro Conversion - Bug 2155930 */
5257: l_converted_amount number := NULL; /* For Euro Conversion - Bug 2155930 */
5380: END IF;
5381:
5382: IF l_chrv_rec.authoring_org_id <> okc_context.get_okc_org_id OR
5383: l_chrv_rec.inv_organization_id <> okc_context.get_okc_organization_id THEN
5384: OKC_API.SET_MESSAGE('OKC','OKC_INCOMPATIBLE_ORG');
5385: x_return_status := OKC_API.G_RET_STS_ERROR;
5386: RAISE G_EXCEPTION_HALT_VALIDATION;
5387: END IF;
5388:
5381:
5382: IF l_chrv_rec.authoring_org_id <> okc_context.get_okc_org_id OR
5383: l_chrv_rec.inv_organization_id <> okc_context.get_okc_organization_id THEN
5384: OKC_API.SET_MESSAGE('OKC','OKC_INCOMPATIBLE_ORG');
5385: x_return_status := OKC_API.G_RET_STS_ERROR;
5386: RAISE G_EXCEPTION_HALT_VALIDATION;
5387: END IF;
5388:
5389: --moving the initialization of g_application_id up for Bug 3693912
5416: if (g_pricelist is NULL) then
5417: fnd_message.set_name('OKC','OKC_PROFILE_CHECK');
5418: fnd_message.set_token('PROFILE','OKC_EURO_DEFAULT_PRICELIST');
5419: FND_MSG_PUB.add;
5420: x_return_status := OKC_API.G_RET_STS_ERROR;
5421: RAISE G_EXCEPTION_HALT_VALIDATION;
5422: end if;
5423:
5424: --/Rule Migration/
5567: END IF;
5568:
5569: IF l_chrv_rec.authoring_org_id <> okc_context.get_okc_org_id OR
5570: l_chrv_rec.inv_organization_id <> okc_context.get_okc_organization_id THEN
5571: OKC_API.SET_MESSAGE('OKC','OKC_INCOMPATIBLE_ORG');
5572: x_return_status := OKC_API.G_RET_STS_ERROR;
5573: RAISE G_EXCEPTION_HALT_VALIDATION;
5574: END IF;
5575: */
5568:
5569: IF l_chrv_rec.authoring_org_id <> okc_context.get_okc_org_id OR
5570: l_chrv_rec.inv_organization_id <> okc_context.get_okc_organization_id THEN
5571: OKC_API.SET_MESSAGE('OKC','OKC_INCOMPATIBLE_ORG');
5572: x_return_status := OKC_API.G_RET_STS_ERROR;
5573: RAISE G_EXCEPTION_HALT_VALIDATION;
5574: END IF;
5575: */
5576:
5582: x_msg_data => x_msg_data,
5583: p_chrv_rec => l_chrv_rec,
5584: x_chrv_rec => x_chrv_rec);
5585:
5586: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5587: x_return_status := l_return_status;
5588: RAISE G_EXCEPTION_HALT_VALIDATION;
5589: END IF;
5590:
5605: x_msg_data => x_msg_data,
5606: p_chrv_rec => l_chrv_rec,
5607: p_to_chr_id => x_chr_id);
5608:
5609: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5610: x_return_status := l_return_status;
5611: RAISE G_EXCEPTION_HALT_VALIDATION;
5612: END IF;
5613:
5625:
5626: -- copy associated attachments
5627: l_from_version := Get_Major_Version(p_from_chr_id);
5628:
5629: IF (l_from_version = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5630: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5631: RAISE G_EXCEPTION_HALT_VALIDATION;
5632: END IF;
5633:
5626: -- copy associated attachments
5627: l_from_version := Get_Major_Version(p_from_chr_id);
5628:
5629: IF (l_from_version = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5630: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5631: RAISE G_EXCEPTION_HALT_VALIDATION;
5632: END IF;
5633:
5634: -- set attachement session variables
5676: x_msg_data => x_msg_data,
5677: p_from_chr_id => p_from_chr_id,
5678: p_to_chr_id => x_chrv_rec.id);
5679:
5680: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5681: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5682: x_return_status := l_return_status;
5683: RAISE G_EXCEPTION_HALT_VALIDATION;
5684: ELSE
5677: p_from_chr_id => p_from_chr_id,
5678: p_to_chr_id => x_chrv_rec.id);
5679:
5680: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5681: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5682: x_return_status := l_return_status;
5683: RAISE G_EXCEPTION_HALT_VALIDATION;
5684: ELSE
5685: x_return_status := l_return_status;
5694: x_msg_data => x_msg_data,
5695: p_from_chr_id => p_from_chr_id,
5696: p_to_chr_id => x_chrv_rec.id);
5697:
5698: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5699: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5700: x_return_status := l_return_status;
5701: RAISE G_EXCEPTION_HALT_VALIDATION;
5702: ELSE
5695: p_from_chr_id => p_from_chr_id,
5696: p_to_chr_id => x_chrv_rec.id);
5697:
5698: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5699: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5700: x_return_status := l_return_status;
5701: RAISE G_EXCEPTION_HALT_VALIDATION;
5702: ELSE
5703: x_return_status := l_return_status;
5712: x_msg_data => x_msg_data,
5713: p_from_chr_id => p_from_chr_id,
5714: p_to_chr_id => x_chrv_rec.id);
5715:
5716: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5718: x_return_status := l_return_status;
5719: RAISE G_EXCEPTION_HALT_VALIDATION;
5720: ELSE
5713: p_from_chr_id => p_from_chr_id,
5714: p_to_chr_id => x_chrv_rec.id);
5715:
5716: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5718: x_return_status := l_return_status;
5719: RAISE G_EXCEPTION_HALT_VALIDATION;
5720: ELSE
5721: x_return_status := l_return_status;
5740: p_to_chr_id => x_chrv_rec.id);
5741:
5742:
5743:
5744: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5745: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5746: x_return_status := l_return_status;
5747: RAISE G_EXCEPTION_HALT_VALIDATION;
5748: ELSE
5741:
5742:
5743:
5744: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5745: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5746: x_return_status := l_return_status;
5747: RAISE G_EXCEPTION_HALT_VALIDATION;
5748: ELSE
5749: x_return_status := l_return_status;
5774: p_chr_id => x_chrv_rec.id,
5775: x_gvev_id => l_gvev_id);
5776:
5777:
5778: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5779: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5780: x_return_status := l_return_status;
5781: RAISE G_EXCEPTION_HALT_VALIDATION;
5782: ELSE
5775: x_gvev_id => l_gvev_id);
5776:
5777:
5778: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5779: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5780: x_return_status := l_return_status;
5781: RAISE G_EXCEPTION_HALT_VALIDATION;
5782: ELSE
5783: x_return_status := l_return_status;
5799: p_cle_id => NULL,
5800: p_chr_id => x_chrv_rec.id,
5801: x_pav_id => l_pav_id);
5802:
5803: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5804: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5805: x_return_status := l_return_status;
5806: RAISE G_EXCEPTION_HALT_VALIDATION;
5807: ELSE
5800: p_chr_id => x_chrv_rec.id,
5801: x_pav_id => l_pav_id);
5802:
5803: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5804: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5805: x_return_status := l_return_status;
5806: RAISE G_EXCEPTION_HALT_VALIDATION;
5807: ELSE
5808: x_return_status := l_return_status;
5821: p_cle_id => NULL,
5822: p_chr_id => x_chrv_rec.id,
5823: x_pat_id => l_pat_id);
5824:
5825: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5826: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5827: x_return_status := l_return_status;
5828: RAISE G_EXCEPTION_HALT_VALIDATION;
5829: ELSE
5822: p_chr_id => x_chrv_rec.id,
5823: x_pat_id => l_pat_id);
5824:
5825: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5826: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5827: x_return_status := l_return_status;
5828: RAISE G_EXCEPTION_HALT_VALIDATION;
5829: ELSE
5830: x_return_status := l_return_status;
5838: x_msg_data => x_msg_data,
5839: p_paa_id => NULL,
5840: p_pat_id => l_c_patv.id);
5841:
5842: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5843: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5844: x_return_status := l_return_status;
5845: RAISE G_EXCEPTION_HALT_VALIDATION;
5846: ELSE
5839: p_paa_id => NULL,
5840: p_pat_id => l_c_patv.id);
5841:
5842: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5843: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5844: x_return_status := l_return_status;
5845: RAISE G_EXCEPTION_HALT_VALIDATION;
5846: ELSE
5847: x_return_status := l_return_status;
5862: p_cle_id => NULL,
5863: p_pat_id => l_pat_id,
5864: x_pac_id => l_pac_id);
5865:
5866: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5867: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5868: x_return_status := l_return_status;
5869: RAISE G_EXCEPTION_HALT_VALIDATION;
5870: ELSE
5863: p_pat_id => l_pat_id,
5864: x_pac_id => l_pac_id);
5865:
5866: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5867: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5868: x_return_status := l_return_status;
5869: RAISE G_EXCEPTION_HALT_VALIDATION;
5870: ELSE
5871: x_return_status := l_return_status;
5883: p_paa_id => l_c_paav.id,
5884: p_pat_id => x_patv_rec.id,
5885: );
5886:
5887: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5888: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5889: x_return_status := l_return_status;
5890: RAISE G_EXCEPTION_HALT_VALIDATION;
5891: ELSE
5884: p_pat_id => x_patv_rec.id,
5885: );
5886:
5887: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5888: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5889: x_return_status := l_return_status;
5890: RAISE G_EXCEPTION_HALT_VALIDATION;
5891: ELSE
5892: x_return_status := l_return_status;
5907: p_cle_id => NULL,
5908: p_chr_id => x_chrv_rec.id,
5909: x_scrv_id => l_scrv_id);
5910:
5911: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5912: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5913: x_return_status := l_return_status;
5914: RAISE G_EXCEPTION_HALT_VALIDATION;
5915: ELSE
5908: p_chr_id => x_chrv_rec.id,
5909: x_scrv_id => l_scrv_id);
5910:
5911: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5912: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5913: x_return_status := l_return_status;
5914: RAISE G_EXCEPTION_HALT_VALIDATION;
5915: ELSE
5916: x_return_status := l_return_status;
5925: WHEN G_EXCEPTION_HALT_VALIDATION THEN
5926: NULL;
5927: WHEN OTHERS THEN
5928: -- store SQL error message on message stack for caller
5929: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
5930: -- notify caller of an UNEXPECTED error
5931: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5932:
5933: END copy_contract_header;
5927: WHEN OTHERS THEN
5928: -- store SQL error message on message stack for caller
5929: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
5930: -- notify caller of an UNEXPECTED error
5931: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5932:
5933: END copy_contract_header;
5934:
5935: ----------------------------------------------------------------------------
5938: -- were not copied in copy_sections procedure
5939: ----------------------------------------------------------------------------
5940: PROCEDURE copy_other_sections(p_chr_id IN NUMBER, l_to_chr_id IN NUMBER) IS
5941:
5942: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5943: l_section_id NUMBER;
5944: l_scn_id NUMBER;
5945: l_level NUMBER;
5946: l_api_version CONSTANT NUMBER := 1.0;
5980: p_to_cat_id => NULL,
5981: p_to_chr_id => l_to_chr_id,
5982: p_scn_id => l_scn_id);
5983:
5984: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5985: --x_return_status := l_return_status;
5986: RAISE G_EXCEPTION_HALT_VALIDATION;
5987: END IF;
5988: END LOOP;
5993: WHEN G_EXCEPTION_HALT_VALIDATION THEN
5994: NULL;
5995: WHEN OTHERS THEN
5996: -- store SQL error message on message stack for caller
5997: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
5998: -- notify caller of an UNEXPECTED error
5999: --x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6000: END copy_other_sections;
6001:
5995: WHEN OTHERS THEN
5996: -- store SQL error message on message stack for caller
5997: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
5998: -- notify caller of an UNEXPECTED error
5999: --x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6000: END copy_other_sections;
6001:
6002: ----------------------------------------------------------------------------
6003: --Proceudre copy_contract. Copies the contract header and all its components.
6021: p_copy_latest_articles IN VARCHAR2 ,
6022: p_calling_mode IN VARCHAR2 ,
6023: x_chr_id OUT NOCOPY NUMBER) IS
6024:
6025: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6026: l_old_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6027: l_chr_id NUMBER;
6028: l_cle_id_out NUMBER;
6029: l_rgp_id NUMBER;
6022: p_calling_mode IN VARCHAR2 ,
6023: x_chr_id OUT NOCOPY NUMBER) IS
6024:
6025: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6026: l_old_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6027: l_chr_id NUMBER;
6028: l_cle_id_out NUMBER;
6029: l_rgp_id NUMBER;
6030: l_cat_id NUMBER;
6040: WHERE opn_code = 'COPY'
6041: AND cls_code = 'SERVICE';
6042:
6043: l_pdf_id NUMBER;
6044: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
6045: --l_chr_id NUMBER;
6046: l_string VARCHAR2(32000);
6047: proc_string VARCHAR2(32000);
6048: -- Cursor created to get the PDF_ID for Class 'SERVICE' - Bug 2151523(1917514)
6156:
6157: IF (l_debug = 'Y') THEN
6158: OKC_DEBUG.log('1020 : G_COPY_HISTORY_YN = N', 2);
6159: END IF;
6160: OKC_API.SET_MESSAGE(G_APP_NAME,'OKC_VERSION_NUMBER_MISSING');
6161: X_return_status := OKC_API.G_RET_STS_ERROR;
6162: raise G_EXCEPTION_HALT_VALIDATION;
6163: END IF;
6164: ELSE
6157: IF (l_debug = 'Y') THEN
6158: OKC_DEBUG.log('1020 : G_COPY_HISTORY_YN = N', 2);
6159: END IF;
6160: OKC_API.SET_MESSAGE(G_APP_NAME,'OKC_VERSION_NUMBER_MISSING');
6161: X_return_status := OKC_API.G_RET_STS_ERROR;
6162: raise G_EXCEPTION_HALT_VALIDATION;
6163: END IF;
6164: ELSE
6165: G_FROM_VERSION_NUMBER := NULL;
6175: IF (l_debug = 'Y') THEN
6176: OKC_DEBUG.log('1040 : Inside If NOT l_result Then', 2);
6177: END IF;
6178: -- notify caller of an UNEXPECTED error
6179: x_return_status := OKC_API.G_RET_STS_ERROR;
6180: raise G_EXCEPTION_HALT_VALIDATION;
6181: End If;
6182:
6183: -- Intitialize globals.
6236: l_oks_copy := 'N'; -- Bugfix 2151523(1917514)
6237: IF (l_debug = 'Y') THEN
6238: OKC_DEBUG.log('1003 : After Procedure : Copy_contract_header ', 1);
6239: END IF;
6240: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6241: x_return_status := l_return_status;
6242: RAISE G_EXCEPTION_HALT_VALIDATION;
6243: END IF;
6244:
6263:
6264: IF (l_debug = 'Y') THEN
6265: OKC_DEBUG.log(' After Procedure : copy_events ' || l_return_status);
6266: END IF;
6267: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6269: x_return_status := l_return_status;
6270: RAISE G_EXCEPTION_HALT_VALIDATION;
6271: ELSE
6264: IF (l_debug = 'Y') THEN
6265: OKC_DEBUG.log(' After Procedure : copy_events ' || l_return_status);
6266: END IF;
6267: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6269: x_return_status := l_return_status;
6270: RAISE G_EXCEPTION_HALT_VALIDATION;
6271: ELSE
6272: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
6268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6269: x_return_status := l_return_status;
6270: RAISE G_EXCEPTION_HALT_VALIDATION;
6271: ELSE
6272: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
6273: x_return_status := l_return_status;
6274: END IF;
6275: END IF;
6276: END IF;
6296:
6297: IF (l_debug = 'Y') THEN
6298: OKC_DEBUG.log(' After Procedure : copy_party_roles ' || l_return_status);
6299: END IF;
6300: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6301: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6302: x_return_status := l_return_status;
6303: RAISE G_EXCEPTION_HALT_VALIDATION;
6304: ELSE
6297: IF (l_debug = 'Y') THEN
6298: OKC_DEBUG.log(' After Procedure : copy_party_roles ' || l_return_status);
6299: END IF;
6300: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6301: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6302: x_return_status := l_return_status;
6303: RAISE G_EXCEPTION_HALT_VALIDATION;
6304: ELSE
6305: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
6301: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6302: x_return_status := l_return_status;
6303: RAISE G_EXCEPTION_HALT_VALIDATION;
6304: ELSE
6305: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
6306: x_return_status := l_return_status;
6307: END IF;
6308: END IF;
6309: END IF;
6337:
6338: IF (l_debug = 'Y') THEN
6339: OKC_DEBUG.log(' After Procedure : copy_rules ' || l_return_status);
6340: END IF;
6341: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6342: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6343: x_return_status := l_return_status;
6344: RAISE G_EXCEPTION_HALT_VALIDATION;
6345: ELSE
6338: IF (l_debug = 'Y') THEN
6339: OKC_DEBUG.log(' After Procedure : copy_rules ' || l_return_status);
6340: END IF;
6341: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6342: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6343: x_return_status := l_return_status;
6344: RAISE G_EXCEPTION_HALT_VALIDATION;
6345: ELSE
6346: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
6342: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6343: x_return_status := l_return_status;
6344: RAISE G_EXCEPTION_HALT_VALIDATION;
6345: ELSE
6346: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
6347: x_return_status := l_return_status;
6348: END IF;
6349: END IF;
6350: END IF;
6380:
6381: IF (l_debug = 'Y') THEN
6382: OKC_DEBUG.log(' After Procedure : copy_articles ' || l_return_status);
6383: END IF;
6384: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6385: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6386: x_return_status := l_return_status;
6387: RAISE G_EXCEPTION_HALT_VALIDATION;
6388: ELSE
6381: IF (l_debug = 'Y') THEN
6382: OKC_DEBUG.log(' After Procedure : copy_articles ' || l_return_status);
6383: END IF;
6384: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6385: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6386: x_return_status := l_return_status;
6387: RAISE G_EXCEPTION_HALT_VALIDATION;
6388: ELSE
6389: x_return_status := l_return_status;
6409:
6410: IF (l_debug = 'Y') THEN
6411: OKC_DEBUG.log(' After Procedure : copy_latest_articles : ' || l_return_status);
6412: END IF;
6413: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6414: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6415: x_return_status := l_return_status;
6416: RAISE G_EXCEPTION_HALT_VALIDATION;
6417: ELSE
6410: IF (l_debug = 'Y') THEN
6411: OKC_DEBUG.log(' After Procedure : copy_latest_articles : ' || l_return_status);
6412: END IF;
6413: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6414: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6415: x_return_status := l_return_status;
6416: RAISE G_EXCEPTION_HALT_VALIDATION;
6417: ELSE
6418: x_return_status := l_return_status;
6434: p_cle_id => NULL,
6435: p_chr_id => l_chr_id, -- the new generated contract header id
6436: x_cat_id => l_cat_id);
6437:
6438: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6439: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6440: x_return_status := l_return_status;
6441: RAISE G_EXCEPTION_HALT_VALIDATION;
6442: ELSE
6435: p_chr_id => l_chr_id, -- the new generated contract header id
6436: x_cat_id => l_cat_id);
6437:
6438: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6439: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6440: x_return_status := l_return_status;
6441: RAISE G_EXCEPTION_HALT_VALIDATION;
6442: ELSE
6443: x_return_status := l_return_status;
6470:
6471: IF (l_debug = 'Y') THEN
6472: OKC_DEBUG.log(' After Procedure : Get_Contract_Document_Type for source chr_id ' || l_return_status);
6473: END IF;
6474: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6475: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6476: x_return_status := l_return_status;
6477: RAISE G_EXCEPTION_HALT_VALIDATION;
6478: ELSE
6471: IF (l_debug = 'Y') THEN
6472: OKC_DEBUG.log(' After Procedure : Get_Contract_Document_Type for source chr_id ' || l_return_status);
6473: END IF;
6474: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6475: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6476: x_return_status := l_return_status;
6477: RAISE G_EXCEPTION_HALT_VALIDATION;
6478: ELSE
6479: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
6475: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6476: x_return_status := l_return_status;
6477: RAISE G_EXCEPTION_HALT_VALIDATION;
6478: ELSE
6479: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
6480: x_return_status := l_return_status;
6481: END IF;
6482: END IF;
6483: END IF;
6492:
6493: IF (l_debug = 'Y') THEN
6494: OKC_DEBUG.log(' After Procedure : Get_Contract_Document_Type for target chr_id ' || l_return_status);
6495: END IF;
6496: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6497: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6498: x_return_status := l_return_status;
6499: RAISE G_EXCEPTION_HALT_VALIDATION;
6500: ELSE
6493: IF (l_debug = 'Y') THEN
6494: OKC_DEBUG.log(' After Procedure : Get_Contract_Document_Type for target chr_id ' || l_return_status);
6495: END IF;
6496: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6497: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6498: x_return_status := l_return_status;
6499: RAISE G_EXCEPTION_HALT_VALIDATION;
6500: ELSE
6501: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
6497: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6498: x_return_status := l_return_status;
6499: RAISE G_EXCEPTION_HALT_VALIDATION;
6500: ELSE
6501: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
6502: x_return_status := l_return_status;
6503: END IF;
6504: END IF;
6505: END IF;
6544: END IF;
6545: IF (l_debug = 'Y') THEN
6546: OKC_DEBUG.log(' After Procedure : OKC_TERMS_COPY_GRP.copy_doc ' || l_return_status);
6547: END IF;
6548: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6550: x_return_status := l_return_status;
6551: RAISE G_EXCEPTION_HALT_VALIDATION;
6552: ELSE
6545: IF (l_debug = 'Y') THEN
6546: OKC_DEBUG.log(' After Procedure : OKC_TERMS_COPY_GRP.copy_doc ' || l_return_status);
6547: END IF;
6548: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6550: x_return_status := l_return_status;
6551: RAISE G_EXCEPTION_HALT_VALIDATION;
6552: ELSE
6553: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
6549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6550: x_return_status := l_return_status;
6551: RAISE G_EXCEPTION_HALT_VALIDATION;
6552: ELSE
6553: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
6554: x_return_status := l_return_status;
6555: END IF;
6556: END IF;
6557: END IF;
6586: IF (l_debug = 'Y') THEN
6587: OKC_DEBUG.log(' After Procedure : copy_contract_lines ' || l_return_status);
6588: END IF;
6589:
6590: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6591: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6592: -- bug 2667634 start , changes commented for bug 2774888
6593: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) OR (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6594: -- bug 2667634 end
6587: OKC_DEBUG.log(' After Procedure : copy_contract_lines ' || l_return_status);
6588: END IF;
6589:
6590: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6591: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6592: -- bug 2667634 start , changes commented for bug 2774888
6593: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) OR (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6594: -- bug 2667634 end
6595: x_return_status := l_return_status;
6589:
6590: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6591: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6592: -- bug 2667634 start , changes commented for bug 2774888
6593: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) OR (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6594: -- bug 2667634 end
6595: x_return_status := l_return_status;
6596: RAISE G_EXCEPTION_HALT_VALIDATION;
6597: ELSE
6615:
6616: OKC_CFG_PUB.COPY_CONFIG(p_dnz_chr_id => l_chr_id,
6617: x_return_status => l_return_status);
6618:
6619: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6620: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6621: x_return_status := l_return_status;
6622: RAISE G_EXCEPTION_HALT_VALIDATION;
6623: ELSE
6616: OKC_CFG_PUB.COPY_CONFIG(p_dnz_chr_id => l_chr_id,
6617: x_return_status => l_return_status);
6618:
6619: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6620: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6621: x_return_status := l_return_status;
6622: RAISE G_EXCEPTION_HALT_VALIDATION;
6623: ELSE
6624: x_return_status := l_return_status;
6641:
6642: IF l_string is NOT NULL THEN
6643: proc_string := 'begin '||l_string || ' (:b1,:b2,:b3); end ;';
6644: EXECUTE IMMEDIATE proc_string using l_chr_id,l_cle_id, out l_return_status;
6645: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6646: x_return_status := l_return_status;
6647: RAISE G_EXCEPTION_HALT_VALIDATION;
6648: ELSE
6649: x_return_status := l_return_status;
6674: NULL;
6675:
6676: WHEN OTHERS THEN
6677: -- store SQL error message on message stack for caller
6678: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
6679: -- notify caller of an UNEXPECTED error
6680: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6681:
6682: ---Initialisation is not to create contract from History Tables
6676: WHEN OTHERS THEN
6677: -- store SQL error message on message stack for caller
6678: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
6679: -- notify caller of an UNEXPECTED error
6680: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6681:
6682: ---Initialisation is not to create contract from History Tables
6683: G_COPY_HISTORY_YN := 'N';
6684: IF (l_debug = 'Y') THEN
6692: ----------------------------------------------------------------------------
6693: FUNCTION get_atnv_rec(p_atn_id IN NUMBER,
6694: x_atnv_rec OUT NOCOPY atnv_rec_type)
6695: RETURN VARCHAR2 IS
6696: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6697: l_no_data_found BOOLEAN := TRUE;
6698:
6699: CURSOR c_atnv_rec IS
6700: SELECT ID,
6726:
6727: l_no_data_found := c_atnv_rec%NOTFOUND;
6728: CLOSE c_atnv_rec;
6729: IF l_no_data_found THEN
6730: l_return_status := OKC_API.G_RET_STS_ERROR;
6731: return(l_return_status);
6732: ELSE
6733: return(l_return_status);
6734: END IF;
6734: END IF;
6735: EXCEPTION
6736: WHEN OTHERS THEN
6737: -- store SQL error message on message stack for caller
6738: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
6739: -- notify caller of an UNEXPECTED error
6740: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6741: return(l_return_status);
6742:
6736: WHEN OTHERS THEN
6737: -- store SQL error message on message stack for caller
6738: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
6739: -- notify caller of an UNEXPECTED error
6740: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6741: return(l_return_status);
6742:
6743: END get_atnv_rec;
6744:
6747: ----------------------------------------------------------------------------
6748: FUNCTION get_catv_rec(p_cat_id IN NUMBER,
6749: x_catv_rec OUT NOCOPY catv_rec_type)
6750: RETURN VARCHAR2 IS
6751: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6752: l_no_data_found BOOLEAN := TRUE;
6753: BEGIN
6754: x_catv_rec := OKC_K_ARTICLE_PUB.Get_Rec(
6755: p_id => p_cat_id,
6756: p_major_version => G_FROM_VERSION_NUMBER,
6757: x_no_data_found => l_no_data_found
6758: );
6759: IF l_no_data_found THEN
6760: l_return_status := OKC_API.G_RET_STS_ERROR;
6761: return(l_return_status);
6762: ELSE
6763: return(l_return_status);
6764: END IF;
6764: END IF;
6765: EXCEPTION
6766: WHEN OTHERS THEN
6767: -- store SQL error message on message stack for caller
6768: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
6769: -- notify caller of an UNEXPECTED error
6770: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6771: return(l_return_status);
6772:
6766: WHEN OTHERS THEN
6767: -- store SQL error message on message stack for caller
6768: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
6769: -- notify caller of an UNEXPECTED error
6770: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6771: return(l_return_status);
6772:
6773: END get_catv_rec;
6774:
6776: --Function to populate the contract items record to be copied.
6777: ----------------------------------------------------------------------------
6778: FUNCTION get_cimv_rec(p_cim_id IN NUMBER,
6779: x_cimv_rec OUT NOCOPY cimv_rec_type) RETURN VARCHAR2 IS
6780: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6781: l_no_data_found BOOLEAN := TRUE;
6782:
6783: CURSOR c_cimv_rec IS
6784: SELECT ID,
6814:
6815: l_no_data_found := c_cimv_rec%NOTFOUND;
6816: CLOSE c_cimv_rec;
6817: IF l_no_data_found THEN
6818: l_return_status := OKC_API.G_RET_STS_ERROR;
6819: return(l_return_status);
6820: ELSE
6821: return(l_return_status);
6822: END IF;
6822: END IF;
6823: EXCEPTION
6824: WHEN OTHERS THEN
6825: -- store SQL error message on message stack for caller
6826: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
6827: -- notify caller of an UNEXPECTED error
6828: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6829: return(l_return_status);
6830:
6824: WHEN OTHERS THEN
6825: -- store SQL error message on message stack for caller
6826: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
6827: -- notify caller of an UNEXPECTED error
6828: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6829: return(l_return_status);
6830:
6831: END get_cimv_rec;
6832: ----------------------------------------------------------------------------
6833: --Function to populate the contract access record to be copied.
6834: ----------------------------------------------------------------------------
6835: FUNCTION get_cacv_rec(p_cac_id IN NUMBER,
6836: x_cacv_rec OUT NOCOPY cacv_rec_type) RETURN VARCHAR2 IS
6837: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6838: l_no_data_found BOOLEAN := TRUE;
6839:
6840: CURSOR c_cacv_rec IS
6841: SELECT ID,
6857:
6858: l_no_data_found := c_cacv_rec%NOTFOUND;
6859: CLOSE c_cacv_rec;
6860: IF l_no_data_found THEN
6861: l_return_status := OKC_API.G_RET_STS_ERROR;
6862: return(l_return_status);
6863: ELSE
6864: return(l_return_status);
6865: END IF;
6865: END IF;
6866: EXCEPTION
6867: WHEN OTHERS THEN
6868: -- store SQL error message on message stack for caller
6869: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
6870: -- notify caller of an UNEXPECTED error
6871: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6872: return(l_return_status);
6873:
6867: WHEN OTHERS THEN
6868: -- store SQL error message on message stack for caller
6869: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
6870: -- notify caller of an UNEXPECTED error
6871: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6872: return(l_return_status);
6873:
6874: END get_cacv_rec;
6875: ----------------------------------------------------------------------------
6876: --Function to populate the contract party roles record to be copied.
6877: ----------------------------------------------------------------------------
6878: FUNCTION get_cplv_rec(p_cpl_id IN NUMBER,
6879: x_cplv_rec OUT NOCOPY cplv_rec_type) RETURN VARCHAR2 IS
6880: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6881: l_no_data_found BOOLEAN := TRUE;
6882:
6883: CURSOR c_cplv_rec IS
6884: SELECT ID,
7005:
7006: l_no_data_found := c_cplv_rec%NOTFOUND;
7007: CLOSE c_cplv_rec;
7008: IF l_no_data_found THEN
7009: l_return_status := OKC_API.G_RET_STS_ERROR;
7010: return(l_return_status);
7011: ELSE
7012: return(l_return_status);
7013: END IF;
7013: END IF;
7014: EXCEPTION
7015: WHEN OTHERS THEN
7016: -- store SQL error message on message stack for caller
7017: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7018: -- notify caller of an UNEXPECTED error
7019: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7020: return(l_return_status);
7021:
7015: WHEN OTHERS THEN
7016: -- store SQL error message on message stack for caller
7017: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7018: -- notify caller of an UNEXPECTED error
7019: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7020: return(l_return_status);
7021:
7022: END get_cplv_rec;
7023: ----------------------------------------------------------------------------
7024: --Function to populate the contract process record to be copied.
7025: ----------------------------------------------------------------------------
7026: FUNCTION get_cpsv_rec(p_cps_id IN NUMBER,
7027: x_cpsv_rec OUT NOCOPY cpsv_rec_type) RETURN VARCHAR2 IS
7028: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7029: l_no_data_found BOOLEAN := TRUE;
7030:
7031: CURSOR c_cpsv_rec IS
7032: SELECT ID,
7083:
7084: l_no_data_found := c_cpsv_rec%NOTFOUND;
7085: CLOSE c_cpsv_rec;
7086: IF l_no_data_found THEN
7087: l_return_status := OKC_API.G_RET_STS_ERROR;
7088: return(l_return_status);
7089: ELSE
7090: return(l_return_status);
7091: END IF;
7091: END IF;
7092: EXCEPTION
7093: WHEN OTHERS THEN
7094: -- store SQL error message on message stack for caller
7095: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7096: -- notify caller of an UNEXPECTED error
7097: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7098: return(l_return_status);
7099:
7093: WHEN OTHERS THEN
7094: -- store SQL error message on message stack for caller
7095: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7096: -- notify caller of an UNEXPECTED error
7097: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7098: return(l_return_status);
7099:
7100: END get_cpsv_rec;
7101: ----------------------------------------------------------------------------
7102: --Function to populate the contract group record to be copied.
7103: ----------------------------------------------------------------------------
7104: FUNCTION get_cgcv_rec(p_cgc_id IN NUMBER,
7105: x_cgcv_rec OUT NOCOPY cgcv_rec_type) RETURN VARCHAR2 IS
7106: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7107: l_no_data_found BOOLEAN := TRUE;
7108:
7109: CURSOR c_cgcv_rec IS
7110: SELECT ID,
7123: x_cgcv_rec.INCLUDED_CGP_ID;
7124: l_no_data_found := c_cgcv_rec%NOTFOUND;
7125: CLOSE c_cgcv_rec;
7126: IF l_no_data_found THEN
7127: l_return_status := OKC_API.G_RET_STS_ERROR;
7128: return(l_return_status);
7129: ELSE
7130: return(l_return_status);
7131: END IF;
7131: END IF;
7132: EXCEPTION
7133: WHEN OTHERS THEN
7134: -- store SQL error message on message stack for caller
7135: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7136: -- notify caller of an UNEXPECTED error
7137: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7138: return(l_return_status);
7139:
7133: WHEN OTHERS THEN
7134: -- store SQL error message on message stack for caller
7135: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7136: -- notify caller of an UNEXPECTED error
7137: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7138: return(l_return_status);
7139:
7140: END get_cgcv_rec;
7141: ----------------------------------------------------------------------------
7142: --Function to populate the condition headers record to be copied.
7143: ----------------------------------------------------------------------------
7144: FUNCTION get_cnhv_rec(p_cnh_id IN NUMBER,
7145: x_cnhv_rec OUT NOCOPY cnhv_rec_type) RETURN VARCHAR2 IS
7146: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7147: l_no_data_found BOOLEAN := TRUE;
7148:
7149: CURSOR c_cnhv_rec IS
7150: SELECT ID,
7272:
7273: l_no_data_found := c_cnhv_rec%NOTFOUND;
7274: CLOSE c_cnhv_rec;
7275: IF l_no_data_found THEN
7276: l_return_status := OKC_API.G_RET_STS_ERROR;
7277: return(l_return_status);
7278: ELSE
7279: return(l_return_status);
7280: END IF;
7280: END IF;
7281: EXCEPTION
7282: WHEN OTHERS THEN
7283: -- store SQL error message on message stack for caller
7284: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7285: -- notify caller of an UNEXPECTED error
7286: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7287: return(l_return_status);
7288:
7282: WHEN OTHERS THEN
7283: -- store SQL error message on message stack for caller
7284: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7285: -- notify caller of an UNEXPECTED error
7286: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7287: return(l_return_status);
7288:
7289: END get_cnhv_rec;
7290: ----------------------------------------------------------------------------
7291: --Function to populate the condition lines record to be copied.
7292: ----------------------------------------------------------------------------
7293: FUNCTION get_cnlv_rec(p_cnl_id IN NUMBER,
7294: x_cnlv_rec OUT NOCOPY cnlv_rec_type) RETURN VARCHAR2 IS
7295: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7296: l_no_data_found BOOLEAN := TRUE;
7297:
7298: CURSOR c_cnlv_rec IS
7299: SELECT ID,
7418:
7419: l_no_data_found := c_cnlv_rec%NOTFOUND;
7420: CLOSE c_cnlv_rec;
7421: IF l_no_data_found THEN
7422: l_return_status := OKC_API.G_RET_STS_ERROR;
7423: return(l_return_status);
7424: ELSE
7425: return(l_return_status);
7426: END IF;
7426: END IF;
7427: EXCEPTION
7428: WHEN OTHERS THEN
7429: -- store SQL error message on message stack for caller
7430: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7431: -- notify caller of an UNEXPECTED error
7432: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7433: return(l_return_status);
7434:
7428: WHEN OTHERS THEN
7429: -- store SQL error message on message stack for caller
7430: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7431: -- notify caller of an UNEXPECTED error
7432: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7433: return(l_return_status);
7434:
7435: END get_cnlv_rec;
7436: ----------------------------------------------------------------------------
7439:
7440: FUNCTION get_ctcv_rec(p_ctc_id IN NUMBER,
7441: x_ctcv_rec OUT NOCOPY ctcv_rec_type) RETURN VARCHAR2 IS
7442:
7443: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7444: l_no_data_found BOOLEAN := TRUE;
7445:
7446: CURSOR c_ctcv_rec IS
7447: SELECT ID,
7545: x_ctcv_rec.PRIMARY_YN;
7546: l_no_data_found := c_ctcv_rec%NOTFOUND;
7547: CLOSE c_ctcv_rec;
7548: IF l_no_data_found THEN
7549: l_return_status := OKC_API.G_RET_STS_ERROR;
7550: return(l_return_status);
7551: ELSE
7552: return(l_return_status);
7553: END IF;
7553: END IF;
7554: EXCEPTION
7555: WHEN OTHERS THEN
7556: -- store SQL error message on message stack for caller
7557: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7558: -- notify caller of an UNEXPECTED error
7559: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7560: return(l_return_status);
7561:
7555: WHEN OTHERS THEN
7556: -- store SQL error message on message stack for caller
7557: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7558: -- notify caller of an UNEXPECTED error
7559: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7560: return(l_return_status);
7561:
7562: END get_ctcv_rec;
7563: ----------------------------------------------------------------------------
7565: ----------------------------------------------------------------------------
7566: FUNCTION get_rgpv_rec(p_rgp_id IN NUMBER,
7567: x_rgpv_rec OUT NOCOPY rgpv_rec_type)
7568: RETURN VARCHAR2 IS
7569: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7570: l_no_data_found BOOLEAN := TRUE;
7571:
7572: CURSOR c_rgpv_rec IS
7573: SELECT ID,
7662:
7663: l_no_data_found := c_rgpv_rec%NOTFOUND;
7664: CLOSE c_rgpv_rec;
7665: IF l_no_data_found THEN
7666: l_return_status := OKC_API.G_RET_STS_ERROR;
7667: return(l_return_status);
7668: ELSE
7669: return(l_return_status);
7670: END IF;
7670: END IF;
7671: EXCEPTION
7672: WHEN OTHERS THEN
7673: -- store SQL error message on message stack for caller
7674: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7675: -- notify caller of an UNEXPECTED error
7676: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7677: return(l_return_status);
7678: END get_rgpv_rec;
7672: WHEN OTHERS THEN
7673: -- store SQL error message on message stack for caller
7674: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7675: -- notify caller of an UNEXPECTED error
7676: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7677: return(l_return_status);
7678: END get_rgpv_rec;
7679:
7680: ----------------------------------------------------------------------------
7682: ----------------------------------------------------------------------------
7683: FUNCTION get_tvev_rec(p_tve_id IN NUMBER,
7684: x_tvev_rec OUT NOCOPY tvev_rec_type)
7685: RETURN VARCHAR2 IS
7686: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7687: l_no_data_found BOOLEAN := TRUE;
7688:
7689: CURSOR c_tvev_rec IS
7690: SELECT ID,
7785:
7786: l_no_data_found := c_tvev_rec%NOTFOUND;
7787: CLOSE c_tvev_rec;
7788: IF l_no_data_found THEN
7789: l_return_status := OKC_API.G_RET_STS_ERROR;
7790: return(l_return_status);
7791: ELSE
7792: return(l_return_status);
7793: END IF;
7793: END IF;
7794: EXCEPTION
7795: WHEN OTHERS THEN
7796: -- store SQL error message on message stack for caller
7797: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7798: -- notify caller of an UNEXPECTED error
7799: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7800: return(l_return_status);
7801: END get_tvev_rec;
7795: WHEN OTHERS THEN
7796: -- store SQL error message on message stack for caller
7797: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7798: -- notify caller of an UNEXPECTED error
7799: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7800: return(l_return_status);
7801: END get_tvev_rec;
7802:
7803:
7806: ----------------------------------------------------------------------------
7807: FUNCTION get_rulv_rec(p_rul_id IN NUMBER,
7808: x_rulv_rec OUT NOCOPY rulv_rec_type)
7809: RETURN VARCHAR2 IS
7810: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7811: l_no_data_found BOOLEAN := TRUE;
7812:
7813: CURSOR c_rulv_rec IS
7814: SELECT ID,
7974: x_rulv_rec.RULE_INFORMATION15;
7975: l_no_data_found := c_rulv_rec%NOTFOUND;
7976: CLOSE c_rulv_rec;
7977: IF l_no_data_found THEN
7978: l_return_status := OKC_API.G_RET_STS_ERROR;
7979: return(l_return_status);
7980: ELSE
7981: return(l_return_status);
7982: END IF;
7982: END IF;
7983: EXCEPTION
7984: WHEN OTHERS THEN
7985: -- store SQL error message on message stack for caller
7986: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7987: -- notify caller of an UNEXPECTED error
7988: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7989: return(l_return_status);
7990: END get_rulv_rec;
7984: WHEN OTHERS THEN
7985: -- store SQL error message on message stack for caller
7986: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
7987: -- notify caller of an UNEXPECTED error
7988: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7989: return(l_return_status);
7990: END get_rulv_rec;
7991:
7992: ----------------------------------------------------------------------------
7995: FUNCTION get_clev_rec(p_cle_id IN NUMBER,
7996: p_renew_ref_yn IN VARCHAR2, -- Added for bugfix 2307197
7997: x_clev_rec OUT NOCOPY clev_rec_type)
7998: RETURN VARCHAR2 IS
7999: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8000: l_no_data_found BOOLEAN := TRUE;
8001:
8002: CURSOR c_clev_rec IS
8003: SELECT ID,
8184:
8185: l_no_data_found := c_clev_rec%NOTFOUND;
8186: CLOSE c_clev_rec;
8187: IF l_no_data_found THEN
8188: l_return_status := OKC_API.G_RET_STS_ERROR;
8189: IF (l_debug = 'Y') THEN
8190: OKC_DEBUG.log('10000 : Exiting Procedure get_clev_rec ', 2);
8191: OKC_DEBUG.ReSet_Indentation;
8192: END IF;
8200: END IF;
8201: EXCEPTION
8202: WHEN OTHERS THEN
8203: -- store SQL error message on message stack for caller
8204: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
8205: -- notify caller of an UNEXPECTED error
8206: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8207: IF (l_debug = 'Y') THEN
8208: OKC_DEBUG.log('40000 : Exiting Procedure get_clev_rec ', 2);
8202: WHEN OTHERS THEN
8203: -- store SQL error message on message stack for caller
8204: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
8205: -- notify caller of an UNEXPECTED error
8206: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8207: IF (l_debug = 'Y') THEN
8208: OKC_DEBUG.log('40000 : Exiting Procedure get_clev_rec ', 2);
8209: OKC_DEBUG.ReSet_Indentation;
8210: END IF;
8216: ----------------------------------------------------------------------------
8217: FUNCTION get_chrv_rec(p_chr_id IN NUMBER,
8218: x_chrv_rec OUT NOCOPY chrv_rec_type)
8219: RETURN VARCHAR2 IS
8220: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8221: l_no_data_found BOOLEAN := TRUE;
8222:
8223: -- Bug 1922121: Compilation errors on ktst115. Problem occurred
8224: -- because application_id is defined as varchar2(240) in
8504:
8505: l_no_data_found := c_chrv_rec%NOTFOUND;
8506: CLOSE c_chrv_rec;
8507: IF l_no_data_found THEN
8508: l_return_status := OKC_API.G_RET_STS_ERROR;
8509: return(l_return_status);
8510: ELSE
8511: return(l_return_status);
8512: END IF;
8512: END IF;
8513: EXCEPTION
8514: WHEN OTHERS THEN
8515: -- store SQL error message on message stack for caller
8516: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
8517: -- notify caller of an UNEXPECTED error
8518: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8519: return(l_return_status);
8520: END get_chrv_rec;
8514: WHEN OTHERS THEN
8515: -- store SQL error message on message stack for caller
8516: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
8517: -- notify caller of an UNEXPECTED error
8518: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8519: return(l_return_status);
8520: END get_chrv_rec;
8521:
8522: ----------------------------------------------------------------------------
8525:
8526: FUNCTION get_ocev_rec(p_oce_id IN NUMBER,
8527: x_ocev_rec OUT NOCOPY ocev_rec_type) RETURN VARCHAR2 IS
8528:
8529: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8530: l_no_data_found BOOLEAN := TRUE;
8531:
8532: CURSOR c_ocev_rec IS
8533: SELECT ID,
8613:
8614: l_no_data_found := c_ocev_rec%NOTFOUND;
8615: CLOSE c_ocev_rec;
8616: IF l_no_data_found THEN
8617: l_return_status := OKC_API.G_RET_STS_ERROR;
8618: return(l_return_status);
8619: ELSE
8620: return(l_return_status);
8621: END IF;
8621: END IF;
8622: EXCEPTION
8623: WHEN OTHERS THEN
8624: -- store SQL error message on message stack for caller
8625: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
8626: -- notify caller of an UNEXPECTED error
8627: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8628: return(l_return_status);
8629: END get_ocev_rec;
8623: WHEN OTHERS THEN
8624: -- store SQL error message on message stack for caller
8625: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
8626: -- notify caller of an UNEXPECTED error
8627: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8628: return(l_return_status);
8629: END get_ocev_rec;
8630:
8631: ----------------------------------------------------------------------------
8633: ----------------------------------------------------------------------------
8634: FUNCTION get_oatv_rec(p_oat_id IN NUMBER,
8635: x_oatv_rec OUT NOCOPY oatv_rec_type) RETURN VARCHAR2 IS
8636:
8637: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8638: l_no_data_found BOOLEAN := TRUE;
8639:
8640: CURSOR c_oatv_rec IS
8641: SELECT ID,
8670:
8671: l_no_data_found := c_oatv_rec%NOTFOUND;
8672: CLOSE c_oatv_rec;
8673: IF l_no_data_found THEN
8674: l_return_status := OKC_API.G_RET_STS_ERROR;
8675: return(l_return_status);
8676: ELSE
8677: return(l_return_status);
8678: END IF;
8678: END IF;
8679: EXCEPTION
8680: WHEN OTHERS THEN
8681: -- store SQL error message on message stack for caller
8682: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
8683: -- notify caller of an UNEXPECTED error
8684: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8685: return(l_return_status);
8686:
8680: WHEN OTHERS THEN
8681: -- store SQL error message on message stack for caller
8682: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
8683: -- notify caller of an UNEXPECTED error
8684: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8685: return(l_return_status);
8686:
8687: END get_oatv_rec;
8688:
8692:
8693: FUNCTION get_scnv_rec(p_scn_id IN NUMBER,
8694: x_scnv_rec OUT NOCOPY scnv_rec_type) RETURN VARCHAR2 IS
8695:
8696: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8697: l_no_data_found BOOLEAN := TRUE;
8698:
8699: CURSOR c_scnv_rec IS
8700: SELECT ID,
8755:
8756: l_no_data_found := c_scnv_rec%NOTFOUND;
8757: CLOSE c_scnv_rec;
8758: IF l_no_data_found THEN
8759: l_return_status := OKC_API.G_RET_STS_ERROR;
8760: return(l_return_status);
8761: ELSE
8762: return(l_return_status);
8763: END IF;
8763: END IF;
8764: EXCEPTION
8765: WHEN OTHERS THEN
8766: -- store SQL error message on message stack for caller
8767: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
8768: -- notify caller of an UNEXPECTED error
8769: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8770: return(l_return_status);
8771:
8765: WHEN OTHERS THEN
8766: -- store SQL error message on message stack for caller
8767: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
8768: -- notify caller of an UNEXPECTED error
8769: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8770: return(l_return_status);
8771:
8772: END get_scnv_rec;
8773:
8777:
8778: FUNCTION get_sccv_rec(p_scc_id IN NUMBER,
8779: x_sccv_rec OUT NOCOPY sccv_rec_type) RETURN VARCHAR2 IS
8780:
8781: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8782: l_no_data_found BOOLEAN := TRUE;
8783:
8784: CURSOR c_sccv_rec IS
8785: SELECT ID,
8836:
8837: l_no_data_found := c_sccv_rec%NOTFOUND;
8838: CLOSE c_sccv_rec;
8839: IF l_no_data_found THEN
8840: l_return_status := OKC_API.G_RET_STS_ERROR;
8841: return(l_return_status);
8842: ELSE
8843: return(l_return_status);
8844: END IF;
8844: END IF;
8845: EXCEPTION
8846: WHEN OTHERS THEN
8847: -- store SQL error message on message stack for caller
8848: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
8849: -- notify caller of an UNEXPECTED error
8850: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8851: return(l_return_status);
8852:
8846: WHEN OTHERS THEN
8847: -- store SQL error message on message stack for caller
8848: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
8849: -- notify caller of an UNEXPECTED error
8850: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8851: return(l_return_status);
8852:
8853: END get_sccv_rec;
8854:
8857: ----------------------------------------------------------------------------
8858: FUNCTION get_patv_rec(p_pat_id IN NUMBER,
8859: x_patv_rec OUT NOCOPY patv_rec_type) RETURN VARCHAR2 IS
8860:
8861: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8862: l_no_data_found BOOLEAN := TRUE;
8863:
8864: CURSOR c_patv_rec IS
8865: SELECT
9006:
9007: l_no_data_found := c_patv_rec%NOTFOUND;
9008: CLOSE c_patv_rec;
9009: IF l_no_data_found THEN
9010: l_return_status := OKC_API.G_RET_STS_ERROR;
9011: return(l_return_status);
9012: ELSE
9013: return(l_return_status);
9014: END IF;
9014: END IF;
9015: EXCEPTION
9016: WHEN OTHERS THEN
9017: -- store SQL error message on message stack for caller
9018: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
9019: -- notify caller of an UNEXPECTED error
9020: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
9021: return(l_return_status);
9022:
9016: WHEN OTHERS THEN
9017: -- store SQL error message on message stack for caller
9018: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
9019: -- notify caller of an UNEXPECTED error
9020: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
9021: return(l_return_status);
9022:
9023: END get_patv_rec;
9024: --------------------------------------------------------------------------------------------------
9025:
9026: FUNCTION get_pacv_rec(p_pac_id IN NUMBER,
9027: x_pacv_rec OUT NOCOPY pacv_rec_type) RETURN VARCHAR2 IS
9028:
9029: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
9030: l_no_data_found BOOLEAN := TRUE;
9031:
9032: CURSOR c_pacv_rec IS
9033: SELECT
9071: x_pacv_rec.OBJECT_VERSION_NUMBER;
9072: l_no_data_found := c_pacv_rec%NOTFOUND;
9073: CLOSE c_pacv_rec;
9074: IF l_no_data_found THEN
9075: l_return_status := OKC_API.G_RET_STS_ERROR;
9076: return(l_return_status);
9077: ELSE
9078: return(l_return_status);
9079: END IF;
9079: END IF;
9080: EXCEPTION
9081: WHEN OTHERS THEN
9082: -- store SQL error message on message stack for caller
9083: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
9084: -- notify caller of an UNEXPECTED error
9085: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
9086: return(l_return_status);
9087:
9081: WHEN OTHERS THEN
9082: -- store SQL error message on message stack for caller
9083: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
9084: -- notify caller of an UNEXPECTED error
9085: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
9086: return(l_return_status);
9087:
9088: END get_pacv_rec;
9089: ----------------------------------------------------------------------------------------------
9089: ----------------------------------------------------------------------------------------------
9090: FUNCTION get_paav_rec(p_paa_id IN NUMBER,
9091: x_paav_rec OUT NOCOPY paav_rec_type) RETURN VARCHAR2 IS
9092:
9093: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
9094: l_no_data_found BOOLEAN := TRUE;
9095:
9096: CURSOR c_paav_rec IS
9097: SELECT
9139: x_paav_rec.OBJECT_VERSION_NUMBER;
9140: l_no_data_found := c_paav_rec%NOTFOUND;
9141: CLOSE c_paav_rec;
9142: IF l_no_data_found THEN
9143: l_return_status := OKC_API.G_RET_STS_ERROR;
9144: return(l_return_status);
9145: ELSE
9146: return(l_return_status);
9147: END IF;
9147: END IF;
9148: EXCEPTION
9149: WHEN OTHERS THEN
9150: -- store SQL error message on message stack for caller
9151: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
9152: -- notify caller of an UNEXPECTED error
9153: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
9154: return(l_return_status);
9155:
9149: WHEN OTHERS THEN
9150: -- store SQL error message on message stack for caller
9151: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
9152: -- notify caller of an UNEXPECTED error
9153: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
9154: return(l_return_status);
9155:
9156: END get_paav_rec;
9157:
9159: -----------------------------------------------------------------------------------------------
9160: FUNCTION get_pavv_rec(p_pav_id IN NUMBER,
9161: x_pavv_rec OUT NOCOPY pavv_rec_type) RETURN VARCHAR2 IS
9162:
9163: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
9164: l_no_data_found BOOLEAN := TRUE;
9165:
9166: CURSOR c_pavv_rec IS
9167: SELECT ID,
9584:
9585: l_no_data_found := c_pavv_rec%NOTFOUND;
9586: CLOSE c_pavv_rec;
9587: IF l_no_data_found THEN
9588: l_return_status := OKC_API.G_RET_STS_ERROR;
9589: return(l_return_status);
9590: ELSE
9591: return(l_return_status);
9592: END IF;
9592: END IF;
9593: EXCEPTION
9594: WHEN OTHERS THEN
9595: -- store SQL error message on message stack for caller
9596: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
9597: -- notify caller of an UNEXPECTED error
9598: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
9599: return(l_return_status);
9600:
9594: WHEN OTHERS THEN
9595: -- store SQL error message on message stack for caller
9596: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
9597: -- notify caller of an UNEXPECTED error
9598: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
9599: return(l_return_status);
9600:
9601: END get_pavv_rec;
9602:
9741: p_to.sfwt_flag := p_from.sfwt_flag;
9742: p_to.description := p_from.description;
9743: p_to.short_description := p_from.short_description;
9744: p_to.comments := p_from.comments;
9745: IF p_from.tve_id_limited IS NULL OR p_from.tve_id_limited = OKC_API.G_MISS_NUM THEN
9746: p_to.limited_start_date := NULL;
9747: p_to.limited_end_date := NULL;
9748: ELSE
9749: OPEN c_start_end(p_from.tve_id_limited);
9925: OPEN c_cyl(p_from.id);
9926: FETCH c_cyl INTO p_to.uom_code,p_to.duration,p_to.active_yn;
9927: CLOSE c_cyl;
9928:
9929: IF p_from.tve_id_limited IS NULL OR p_from.tve_id_limited = OKC_API.G_MISS_NUM THEN
9930: p_to.limited_start_date := NULL;
9931: p_to.limited_end_date := NULL;
9932: ELSE
9933: OPEN c_start_end(p_from.tve_id_limited);
9970: x_isev_rel_rec isev_rel_rec_type;
9971: l_isev_ext_rec isev_ext_rec_type;
9972: x_isev_ext_rec isev_ext_rec_type;
9973: l_tve_type VARCHAR2(10);
9974: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
9975: l_cnh_id_out NUMBER;
9976: l_cnh_id_temp NUMBER;
9977: l_dnz_chr_id NUMBER;
9978: l_template_yn VARCHAR2(3);
10079: x_msg_data => x_msg_data,
10080: p_tavv_rec => l_tavv_rec,
10081: x_tavv_rec => x_tavv_rec);
10082:
10083: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10084: x_return_status := l_return_status;
10085: RAISE G_EXCEPTION_HALT_VALIDATION;
10086: END IF;
10087: x_tve_id := x_tavv_rec.id;
10109: p_chr_id => p_to_chr_id,
10110: p_to_template_yn => p_to_template_yn,
10111: x_cnh_id => l_cnh_id_out);
10112:
10113: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10114: x_return_status := l_return_status;
10115: RAISE G_EXCEPTION_HALT_VALIDATION;
10116: END IF;
10117:
10128: x_msg_data => x_msg_data,
10129: p_talv_evt_rec => l_talv_evt_rec,
10130: x_talv_evt_rec => x_talv_evt_rec);
10131:
10132: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10133: x_return_status := l_return_status;
10134: RAISE G_EXCEPTION_HALT_VALIDATION;
10135: END IF;
10136: x_tve_id := x_talv_evt_rec.id;
10149: x_msg_data => x_msg_data,
10150: p_tgdv_ext_rec => l_tgdv_ext_rec,
10151: x_tgdv_ext_rec => x_tgdv_ext_rec);
10152:
10153: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10154: x_return_status := l_return_status;
10155: RAISE G_EXCEPTION_HALT_VALIDATION;
10156: END IF;
10157: x_tve_id := x_tgdv_ext_rec.id;
10174: p_chr_id => p_to_chr_id,
10175: p_to_template_yn => p_to_template_yn,
10176: x_cnh_id => l_cnh_id_out);
10177:
10178: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10179: x_return_status := l_return_status;
10180: RAISE G_EXCEPTION_HALT_VALIDATION;
10181: END IF;
10182: l_tgnv_rec.cnh_id := l_cnh_id_out; -- the new event id generated is assigned to the time value
10192: x_msg_data => x_msg_data,
10193: p_tgnv_rec => l_tgnv_rec,
10194: x_tgnv_rec => x_tgnv_rec);
10195:
10196: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10197: x_return_status := l_return_status;
10198: RAISE G_EXCEPTION_HALT_VALIDATION;
10199: END IF;
10200: x_tve_id := x_tgnv_rec.id;
10249: x_msg_data => x_msg_data,
10250: p_isev_ext_rec => l_isev_ext_rec,
10251: x_isev_ext_rec => x_isev_ext_rec);
10252:
10253: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10254: x_return_status := l_return_status;
10255: RAISE G_EXCEPTION_HALT_VALIDATION;
10256: END IF;
10257: x_tve_id := x_isev_ext_rec.id;
10307: x_msg_data => x_msg_data,
10308: p_isev_rel_rec => l_isev_rel_rec,
10309: x_isev_rel_rec => x_isev_rel_rec);
10310:
10311: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10312: x_return_status := l_return_status;
10313: RAISE G_EXCEPTION_HALT_VALIDATION;
10314: END IF;
10315: x_tve_id := x_isev_rel_rec.id;
10328: x_msg_data => x_msg_data,
10329: p_igsv_ext_rec => l_igsv_ext_rec,
10330: x_igsv_ext_rec => x_igsv_ext_rec);
10331:
10332: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10333: x_return_status := l_return_status;
10334: RAISE G_EXCEPTION_HALT_VALIDATION;
10335: END IF;
10336: x_tve_id := x_igsv_ext_rec.id;
10346: x_msg_data => x_msg_data,
10347: p_cylv_ext_rec => l_cylv_ext_rec,
10348: x_cylv_ext_rec => x_cylv_ext_rec);
10349:
10350: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10351: x_return_status := l_return_status;
10352: RAISE G_EXCEPTION_HALT_VALIDATION;
10353: END IF;
10354: x_tve_id := x_cylv_ext_rec.id;
10359: WHEN G_EXCEPTION_HALT_VALIDATION THEN
10360: NULL;
10361: WHEN OTHERS THEN
10362: -- store SQL error message on message stack for caller
10363: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
10364: -- notify caller of an UNEXPECTED error
10365: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
10366:
10367: END copy_timevalues;
10361: WHEN OTHERS THEN
10362: -- store SQL error message on message stack for caller
10363: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
10364: -- notify caller of an UNEXPECTED error
10365: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
10366:
10367: END copy_timevalues;
10368:
10369: PROCEDURE copy_components(
10393: l_components_tbl api_components_tbl := p_components_tbl;
10394: l_lines_tbl api_lines_tbl := p_lines_tbl;
10395: l_published_line_ids_tbl OKS_COPY_CONTRACT_PVT.published_line_ids_tbl;
10396:
10397: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
10398: l_old_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
10399: l_cle_id_out NUMBER;
10400: l_chr_id NUMBER;
10401: l_cnh_id NUMBER;
10394: l_lines_tbl api_lines_tbl := p_lines_tbl;
10395: l_published_line_ids_tbl OKS_COPY_CONTRACT_PVT.published_line_ids_tbl;
10396:
10397: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
10398: l_old_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
10399: l_cle_id_out NUMBER;
10400: l_chr_id NUMBER;
10401: l_cnh_id NUMBER;
10402: l_rgp_id NUMBER;
10411: l_copy_sublines VARCHAR2(1) := 'F';
10412: l_generate_line_number VARCHAR2(1) := 'Y'; --Bug 2489856
10413: l_result BOOLEAN;
10414: --Bug:3668722
10415: l_cle_id_out20 NUMBER := OKC_API.G_MISS_NUM;
10416: l_cle_id_out21 NUMBER := OKC_API.G_MISS_NUM;
10417: l_c_lines_id NUMBER := OKC_API.G_MISS_NUM;
10418: l_c_lines_dnz_chr_id NUMBER := OKC_API.G_MISS_NUM;
10419:
10412: l_generate_line_number VARCHAR2(1) := 'Y'; --Bug 2489856
10413: l_result BOOLEAN;
10414: --Bug:3668722
10415: l_cle_id_out20 NUMBER := OKC_API.G_MISS_NUM;
10416: l_cle_id_out21 NUMBER := OKC_API.G_MISS_NUM;
10417: l_c_lines_id NUMBER := OKC_API.G_MISS_NUM;
10418: l_c_lines_dnz_chr_id NUMBER := OKC_API.G_MISS_NUM;
10419:
10420:
10413: l_result BOOLEAN;
10414: --Bug:3668722
10415: l_cle_id_out20 NUMBER := OKC_API.G_MISS_NUM;
10416: l_cle_id_out21 NUMBER := OKC_API.G_MISS_NUM;
10417: l_c_lines_id NUMBER := OKC_API.G_MISS_NUM;
10418: l_c_lines_dnz_chr_id NUMBER := OKC_API.G_MISS_NUM;
10419:
10420:
10421: --11510
10414: --Bug:3668722
10415: l_cle_id_out20 NUMBER := OKC_API.G_MISS_NUM;
10416: l_cle_id_out21 NUMBER := OKC_API.G_MISS_NUM;
10417: l_c_lines_id NUMBER := OKC_API.G_MISS_NUM;
10418: l_c_lines_dnz_chr_id NUMBER := OKC_API.G_MISS_NUM;
10419:
10420:
10421: --11510
10422: l_source_doc_type VARCHAR2(60);
10449: WHERE opn_code = 'COPY'
10450: AND cls_code = 'SERVICE';
10451:
10452: l_pdf_id NUMBER;
10453: l_cle_id NUMBER := OKC_API.G_MISS_NUM; -- Bugfix 2151523(1917514) - Initializing
10454: --l_chr_id NUMBER;
10455: l_string VARCHAR2(32000);
10456: proc_string VARCHAR2(32000);
10457: -- Cursor created to get the PDF_ID for Class 'SERVICE' - Bug 1917514
10571: END IF;
10572: l_result := OKC_COPY_CONTRACT_PUB.IS_COPY_ALLOWED(p_from_chr_id, NULL);
10573: If NOT l_result Then
10574: -- notify caller of an UNEXPECTED error
10575: x_return_status := OKC_API.G_RET_STS_ERROR;
10576: raise G_EXCEPTION_HALT_VALIDATION;
10577: End If;
10578:
10579: -- Intitialize globals.
10624:
10625: l_oks_copy := 'N'; -- Bugfix 1917514
10626: -- Setting l_oks_copy to 'N' so that this procedure should not be called from
10627: -- Copy Line if it is already called from Copy Header
10628: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10629: x_return_status := l_return_status;
10630: RAISE G_EXCEPTION_HALT_VALIDATION;
10631: END IF;
10632: ELSE
10659: p_chr_id => l_chr_id,
10660: p_to_template_yn => p_to_template_yn,
10661: x_cnh_id => l_cnh_id);
10662:
10663: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10665: x_return_status := l_return_status;
10666: RAISE G_EXCEPTION_HALT_VALIDATION;
10667: ELSE
10660: p_to_template_yn => p_to_template_yn,
10661: x_cnh_id => l_cnh_id);
10662:
10663: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10665: x_return_status := l_return_status;
10666: RAISE G_EXCEPTION_HALT_VALIDATION;
10667: ELSE
10668: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
10664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10665: x_return_status := l_return_status;
10666: RAISE G_EXCEPTION_HALT_VALIDATION;
10667: ELSE
10668: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
10669: x_return_status := l_return_status;
10670: END IF;
10671: END IF;
10672: END IF;
10698: p_chr_id => l_chr_id,
10699: p_rle_code => l_components_tbl(i).attribute1,
10700: x_cpl_id => l_cpl_id);
10701:
10702: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10703: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10704: x_return_status := l_return_status;
10705: RAISE G_EXCEPTION_HALT_VALIDATION;
10706: ELSE
10699: p_rle_code => l_components_tbl(i).attribute1,
10700: x_cpl_id => l_cpl_id);
10701:
10702: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10703: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10704: x_return_status := l_return_status;
10705: RAISE G_EXCEPTION_HALT_VALIDATION;
10706: ELSE
10707: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
10703: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10704: x_return_status := l_return_status;
10705: RAISE G_EXCEPTION_HALT_VALIDATION;
10706: ELSE
10707: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
10708: x_return_status := l_return_status;
10709: END IF;
10710: END IF;
10711: END IF;
10743: p_chr_id => l_chr_id,
10744: p_to_template_yn => p_to_template_yn,
10745: x_rgp_id => l_rgp_id);
10746:
10747: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10748: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10749: x_return_status := l_return_status;
10750: RAISE G_EXCEPTION_HALT_VALIDATION;
10751: ELSE
10744: p_to_template_yn => p_to_template_yn,
10745: x_rgp_id => l_rgp_id);
10746:
10747: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10748: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10749: x_return_status := l_return_status;
10750: RAISE G_EXCEPTION_HALT_VALIDATION;
10751: ELSE
10752: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
10748: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10749: x_return_status := l_return_status;
10750: RAISE G_EXCEPTION_HALT_VALIDATION;
10751: ELSE
10752: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
10753: x_return_status := l_return_status;
10754: END IF;
10755: END IF;
10756: END IF;
10783: p_cle_id => NULL,
10784: p_chr_id => l_chr_id,
10785: x_cat_id => l_cat_id);
10786:
10787: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10788: l_old_return_status := l_return_status;
10789: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10790: x_return_status := l_return_status;
10791: RAISE G_EXCEPTION_HALT_VALIDATION;
10785: x_cat_id => l_cat_id);
10786:
10787: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10788: l_old_return_status := l_return_status;
10789: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10790: x_return_status := l_return_status;
10791: RAISE G_EXCEPTION_HALT_VALIDATION;
10792: ELSE
10793: x_return_status := l_return_status;
10822: );
10823: IF (l_debug = 'Y') THEN
10824: OKC_DEBUG.log(' After Procedure : Get_Contract_Document_Type for source chr_id ' || l_return_status);
10825: END IF;
10826: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10828: x_return_status := l_return_status;
10829: RAISE G_EXCEPTION_HALT_VALIDATION;
10830: ELSE
10823: IF (l_debug = 'Y') THEN
10824: OKC_DEBUG.log(' After Procedure : Get_Contract_Document_Type for source chr_id ' || l_return_status);
10825: END IF;
10826: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10828: x_return_status := l_return_status;
10829: RAISE G_EXCEPTION_HALT_VALIDATION;
10830: ELSE
10831: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
10827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10828: x_return_status := l_return_status;
10829: RAISE G_EXCEPTION_HALT_VALIDATION;
10830: ELSE
10831: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
10832: x_return_status := l_return_status;
10833: END IF;
10834: END IF;
10835: END IF;
10845:
10846: IF (l_debug = 'Y') THEN
10847: OKC_DEBUG.log(' After Procedure : Get_Contract_Document_Type for target chr_id ' || l_return_status);
10848: END IF;
10849: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10850: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10851: x_return_status := l_return_status;
10852: RAISE G_EXCEPTION_HALT_VALIDATION;
10853: ELSE
10846: IF (l_debug = 'Y') THEN
10847: OKC_DEBUG.log(' After Procedure : Get_Contract_Document_Type for target chr_id ' || l_return_status);
10848: END IF;
10849: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10850: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10851: x_return_status := l_return_status;
10852: RAISE G_EXCEPTION_HALT_VALIDATION;
10853: ELSE
10854: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
10850: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10851: x_return_status := l_return_status;
10852: RAISE G_EXCEPTION_HALT_VALIDATION;
10853: ELSE
10854: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
10855: x_return_status := l_return_status;
10856: END IF;
10857: END IF;
10858: END IF;
10878: );
10879: IF (l_debug = 'Y') THEN
10880: OKC_DEBUG.log(' After Procedure : OKC_TERMS_COPY_GRP.copy_doc ' || l_return_status);
10881: END IF;
10882: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10883: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10884: x_return_status := l_return_status;
10885: RAISE G_EXCEPTION_HALT_VALIDATION;
10886: ELSE
10879: IF (l_debug = 'Y') THEN
10880: OKC_DEBUG.log(' After Procedure : OKC_TERMS_COPY_GRP.copy_doc ' || l_return_status);
10881: END IF;
10882: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10883: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10884: x_return_status := l_return_status;
10885: RAISE G_EXCEPTION_HALT_VALIDATION;
10886: ELSE
10887: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
10883: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10884: x_return_status := l_return_status;
10885: RAISE G_EXCEPTION_HALT_VALIDATION;
10886: ELSE
10887: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
10888: x_return_status := l_return_status;
10889: END IF;
10890: END IF;
10891: END IF;
10975: OKC_DEBUG.log('650 : x_msg_count : '||x_msg_count);
10976: OKC_DEBUG.log('650 : x_msg_data : '||x_msg_data);
10977: END IF;
10978: -- If any error happens it exits the loop or if it is a warning it still continues.
10979: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10980: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
10981: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
10982: x_return_status := OKC_API.G_RET_STS_WARNING;
10983: END IF;
10976: OKC_DEBUG.log('650 : x_msg_data : '||x_msg_data);
10977: END IF;
10978: -- If any error happens it exits the loop or if it is a warning it still continues.
10979: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10980: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
10981: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
10982: x_return_status := OKC_API.G_RET_STS_WARNING;
10983: END IF;
10984: ELSE
10977: END IF;
10978: -- If any error happens it exits the loop or if it is a warning it still continues.
10979: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10980: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
10981: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
10982: x_return_status := OKC_API.G_RET_STS_WARNING;
10983: END IF;
10984: ELSE
10985: x_return_status := l_return_status;
10978: -- If any error happens it exits the loop or if it is a warning it still continues.
10979: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10980: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
10981: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
10982: x_return_status := OKC_API.G_RET_STS_WARNING;
10983: END IF;
10984: ELSE
10985: x_return_status := l_return_status;
10986: RAISE G_EXCEPTION_HALT_VALIDATION;
10990: IF(l_lines_tbl(j).lse_id=19 ) then
10991: OPEN c_lines(l_from_cle_id);
10992: FETCH c_lines INTO l_c_lines_id,l_c_lines_dnz_chr_id;
10993: CLOSE c_lines;
10994: IF(l_c_lines_id <> OKC_API.G_MISS_NUM) THEN
10995: copy_contract_line (
10996: p_api_version => p_api_version,
10997: p_init_msg_list => p_init_msg_list,
10998: x_return_status => l_return_status,
11012: IF (l_debug = 'Y') THEN
11013: OKC_DEBUG.log('660 :after copy_contract_line');
11014: END IF;
11015: -- If any error happens it exits the loop or if it is a warning it still continues.
11016: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11017: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11018: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11019: x_return_status := OKC_API.G_RET_STS_WARNING;
11020: END IF;
11013: OKC_DEBUG.log('660 :after copy_contract_line');
11014: END IF;
11015: -- If any error happens it exits the loop or if it is a warning it still continues.
11016: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11017: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11018: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11019: x_return_status := OKC_API.G_RET_STS_WARNING;
11020: END IF;
11021: ELSE
11014: END IF;
11015: -- If any error happens it exits the loop or if it is a warning it still continues.
11016: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11017: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11018: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11019: x_return_status := OKC_API.G_RET_STS_WARNING;
11020: END IF;
11021: ELSE
11022: x_return_status := l_return_status;
11015: -- If any error happens it exits the loop or if it is a warning it still continues.
11016: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11017: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11018: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11019: x_return_status := OKC_API.G_RET_STS_WARNING;
11020: END IF;
11021: ELSE
11022: x_return_status := l_return_status;
11023: RAISE G_EXCEPTION_HALT_VALIDATION;
11044: IF (l_debug = 'Y') THEN
11045: OKC_DEBUG.log('670 :after copy_contract_lines');
11046: END IF;
11047: -- If any error happens it exits the loop or if it is a warning it still continues.
11048: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11049: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11050: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11051: x_return_status := OKC_API.G_RET_STS_WARNING;
11052: END IF;
11045: OKC_DEBUG.log('670 :after copy_contract_lines');
11046: END IF;
11047: -- If any error happens it exits the loop or if it is a warning it still continues.
11048: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11049: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11050: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11051: x_return_status := OKC_API.G_RET_STS_WARNING;
11052: END IF;
11053: ELSE
11046: END IF;
11047: -- If any error happens it exits the loop or if it is a warning it still continues.
11048: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11049: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11050: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11051: x_return_status := OKC_API.G_RET_STS_WARNING;
11052: END IF;
11053: ELSE
11054: x_return_status := l_return_status;
11047: -- If any error happens it exits the loop or if it is a warning it still continues.
11048: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11049: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11050: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11051: x_return_status := OKC_API.G_RET_STS_WARNING;
11052: END IF;
11053: ELSE
11054: x_return_status := l_return_status;
11055: RAISE G_EXCEPTION_HALT_VALIDATION;
11081: END IF;
11082:
11083: l_copy_sublines := 'F';
11084: -- If any error happens it exits the loop or if it is a warning it still continues.
11085: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11086: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11087: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11088: x_return_status := OKC_API.G_RET_STS_WARNING;
11089: END IF;
11082:
11083: l_copy_sublines := 'F';
11084: -- If any error happens it exits the loop or if it is a warning it still continues.
11085: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11086: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11087: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11088: x_return_status := OKC_API.G_RET_STS_WARNING;
11089: END IF;
11090: ELSE
11083: l_copy_sublines := 'F';
11084: -- If any error happens it exits the loop or if it is a warning it still continues.
11085: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11086: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11087: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11088: x_return_status := OKC_API.G_RET_STS_WARNING;
11089: END IF;
11090: ELSE
11091: x_return_status := l_return_status;
11084: -- If any error happens it exits the loop or if it is a warning it still continues.
11085: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11086: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11087: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11088: x_return_status := OKC_API.G_RET_STS_WARNING;
11089: END IF;
11090: ELSE
11091: x_return_status := l_return_status;
11092: RAISE G_EXCEPTION_HALT_VALIDATION;
11121: OKC_DEBUG.log('850 : x_return_status : '||l_return_status);
11122: END IF;
11123:
11124:
11125: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11126: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11127: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11128: x_return_status := OKC_API.G_RET_STS_WARNING;
11129: END IF;
11122: END IF;
11123:
11124:
11125: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11126: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11127: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11128: x_return_status := OKC_API.G_RET_STS_WARNING;
11129: END IF;
11130: ELSE
11123:
11124:
11125: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11126: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11127: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11128: x_return_status := OKC_API.G_RET_STS_WARNING;
11129: END IF;
11130: ELSE
11131: x_return_status := l_return_status;
11124:
11125: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11126: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11127: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11128: x_return_status := OKC_API.G_RET_STS_WARNING;
11129: END IF;
11130: ELSE
11131: x_return_status := l_return_status;
11132: RAISE G_EXCEPTION_HALT_VALIDATION;
11161: OKC_DEBUG.log('950 : x_return_status : '||l_return_status);
11162: END IF;
11163:
11164:
11165: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11166: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11167: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11168: x_return_status := OKC_API.G_RET_STS_WARNING;
11169: END IF;
11162: END IF;
11163:
11164:
11165: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11166: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11167: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11168: x_return_status := OKC_API.G_RET_STS_WARNING;
11169: END IF;
11170: ELSE
11163:
11164:
11165: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11166: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11167: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11168: x_return_status := OKC_API.G_RET_STS_WARNING;
11169: END IF;
11170: ELSE
11171: x_return_status := l_return_status;
11164:
11165: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11166: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11167: IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
11168: x_return_status := OKC_API.G_RET_STS_WARNING;
11169: END IF;
11170: ELSE
11171: x_return_status := l_return_status;
11172: RAISE G_EXCEPTION_HALT_VALIDATION;
11192:
11193: OKC_CFG_PUB.COPY_CONFIG(p_dnz_chr_id => l_chr_id,
11194: x_return_status => l_return_status);
11195:
11196: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11197: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
11198: x_return_status := l_return_status;
11199: RAISE G_EXCEPTION_HALT_VALIDATION;
11200: ELSE
11193: OKC_CFG_PUB.COPY_CONFIG(p_dnz_chr_id => l_chr_id,
11194: x_return_status => l_return_status);
11195:
11196: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11197: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
11198: x_return_status := l_return_status;
11199: RAISE G_EXCEPTION_HALT_VALIDATION;
11200: ELSE
11201: x_return_status := l_return_status;
11232:
11233: IF l_string is NOT NULL THEN
11234: proc_string := 'begin '||l_string || ' (:b1,:b2,:b3); end ;';
11235: EXECUTE IMMEDIATE proc_string using l_chr_id,l_cle_id, out l_return_status;
11236: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN -- Bugfix 2151523(1917514) - modified IF
11237: x_return_status := l_return_status;
11238: RAISE G_EXCEPTION_HALT_VALIDATION;
11239: ELSE
11240: --for Bug#3101222 -Return status below is not properly initialized.
11284: END IF;
11285: x_chr_id := l_to_chr_id;
11286: x_return_status := l_return_status;
11287:
11288: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN -- Bugfix 2151523(1917514) - modified IF
11289: x_return_status := l_return_status;
11290: RAISE G_EXCEPTION_HALT_VALIDATION;
11291: END IF;
11292: -- End
11305: END IF;
11306: NULL;
11307: WHEN OTHERS THEN
11308: -- store SQL error message on message stack for caller
11309: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
11310: IF (l_debug = 'Y') THEN
11311: OKC_DEBUG.log('30000 : SQLCODE : '||SQLCODE);
11312: OKC_DEBUG.log('30000 : SQLERRM : '||SQLERRM);
11313: OKC_DEBUG.log('30000 : Exiting Procedure OKC_COPY_CONTRACT_PVT.copy_components ', 2);
11313: OKC_DEBUG.log('30000 : Exiting Procedure OKC_COPY_CONTRACT_PVT.copy_components ', 2);
11314: OKC_DEBUG.ReSet_Indentation;
11315: END IF;
11316: -- notify caller of an UNEXPECTED error
11317: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
11318:
11319: END copy_components;
11320:
11321: -- Bug 2950549 - Added procedure add_concurent : This procedure will make a call-- to the concurrent program and insert records in OKC_CONC_requests table.
11437: ARGUMENT12 => 'N', /*P_Copy_Entire_K_YN*/
11438: ARGUMENT13 => p_include_cancelled_lines,
11439: ARGUMENT14 => p_include_terminated_lines);
11440: IF l_request_id > 0 THEN
11441: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
11442: p_msg_name => 'OKC_COPY_SUBMIT_S',
11443: p_token1 => 'TOKEN1',
11444: p_token1_value => l_request_id);
11445: END IF;
11468: l_lines_tbl api_lines_tbl;
11469: l_published_line_ids_tbl OKS_COPY_CONTRACT_PVT.published_line_ids_tbl;
11470:
11471: l_api_version CONSTANT NUMBER := 1;
11472: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
11473: l_init_msg_list VARCHAR2(1) := 'T';
11474: x_msg_count NUMBER := OKC_API.G_MISS_NUM;
11475: x_msg_data VARCHAR2(2000) := OKC_API.G_MISS_CHAR;
11476: l_chr_id NUMBER;
11470:
11471: l_api_version CONSTANT NUMBER := 1;
11472: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
11473: l_init_msg_list VARCHAR2(1) := 'T';
11474: x_msg_count NUMBER := OKC_API.G_MISS_NUM;
11475: x_msg_data VARCHAR2(2000) := OKC_API.G_MISS_CHAR;
11476: l_chr_id NUMBER;
11477: CURSOR cur_select_records IS SELECT
11478: SOURCE_ID ID,
11471: l_api_version CONSTANT NUMBER := 1;
11472: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
11473: l_init_msg_list VARCHAR2(1) := 'T';
11474: x_msg_count NUMBER := OKC_API.G_MISS_NUM;
11475: x_msg_data VARCHAR2(2000) := OKC_API.G_MISS_CHAR;
11476: l_chr_id NUMBER;
11477: CURSOR cur_select_records IS SELECT
11478: SOURCE_ID ID,
11479: TARGET_CHR_ID TO_K,
11548: ||'Return Status='||x_return_status
11549: ||'New Chr Id='||l_chr_id);
11550: END IF;
11551:
11552: If x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
11553: FOR i in 1..fnd_msg_pub.count_msg LOOP
11554: l_msg_stack := fnd_msg_pub.get(p_msg_index => i
11555: ,p_encoded => 'F');
11556: FND_FILE.PUT_LINE (FND_FILE.LOG,l_msg_stack);
11652: ||'p_contract_number='||p_contract_number
11653: ||'Return Status='||x_return_status);
11654: END IF;
11655:
11656: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
11657: FOR i in 1..fnd_msg_pub.count_msg LOOP
11658: l_msg_stack := fnd_msg_pub.get(p_msg_index => i
11659: ,p_encoded => 'F');
11660: FND_FILE.PUT_LINE (FND_FILE.LOG,l_msg_stack);
12045: x_msg_data => l_msg_data,
12046: p_clev_rec => l_clev_rec ,
12047: x_clev_rec => x_clev_rec);
12048:
12049: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12050: RAISE G_EXCEPTION_HALT_VALIDATION;
12051: END IF;
12052:
12053: IF (p_lse_id =1) OR (p_lse_id = 14) OR (p_lse_id = 19) THEN
12078: okc_debug.log('1150: After Update Coverage ' || l_return_status);
12079: END IF;
12080:
12081:
12082: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12083: RAISE G_EXCEPTION_HALT_VALIDATION;
12084: END IF;
12085:
12086: -- Update PM Schedules.
12102:
12103: END IF;
12104: CLOSE check_pm_sch_csr;
12105:
12106: /* IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12107: RAISE G_EXCEPTION_HALT_VALIDATION;
12108: END IF; */
12109: END IF;
12110:
12112:
12113: IF (p_lse_id = 46) THEN
12114:
12115: OKS_SUBSCRIPTION_PUB.RECREATE_SCHEDULE(p_api_version => l_api_version,
12116: p_init_msg_list => OKC_API.G_FALSE,
12117: x_return_status => l_return_status,
12118: x_msg_count => l_msg_count,
12119: x_msg_data => l_msg_data,
12120: p_cle_id => p_cle_id,
12123: IF (l_debug = 'Y') THEN
12124: okc_debug.log('1170: After Sucbscription recreate ' || l_return_status);
12125: END IF;
12126:
12127: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12128: RAISE G_EXCEPTION_HALT_VALIDATION;
12129: END IF;
12130: END IF;
12131:
12207: p_tavv_tbl => l_p_tavv_tbl,
12208: x_tavv_tbl => l_x_tavv_tbl) ;
12209:
12210: If l_return_status <> 'S' then
12211: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Create TPA Value ');
12212: Raise G_EXCEPTION_HALT_VALIDATION;
12213: End If;
12214:
12215: RETURN(l_x_tavv_tbl(1).id);
12261:
12262: IF (l_debug = 'Y') THEN
12263: okc_debug.log('1020: After OKC_CONTRACT_PUB.update_contract_header call ' || l_return_status);
12264: END IF;
12265: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12266: RAISE G_EXCEPTION_HALT_VALIDATION;
12267: END IF;
12268:
12269: -- Delete Header billing schedule bug# 4188236
12300: l_khrv_tbl_in.delete;
12301: END IF;
12302: CLOSE get_estimation_date;
12303:
12304: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12305: RAISE G_EXCEPTION_HALT_VALIDATION;
12306: END IF;
12307: -- Delete all security restriction for this contract.
12308: FOR l_access_rec IN get_access_level(p_chr_id) LOOP
12312: x_msg_count => l_msg_count,
12313: x_msg_data => l_msg_data,
12314: p_cacv_rec => cacv_rec);
12315:
12316: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12317: RAISE G_EXCEPTION_HALT_VALIDATION;
12318: END IF;
12319: END LOOP;
12320:
12331: x_msg_count => l_msg_count,
12332: x_msg_data => l_msg_data,
12333: x_return_status => l_return_status );
12334:
12335: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12336: RAISE G_EXCEPTION_HALT_VALIDATION;
12337: END IF;
12338:
12339: END LOOP;
12354: x_duration => l_hdr_duration,
12355: x_timeunit => l_hdr_timeunit,
12356: x_return_status => l_return_status);
12357:
12358: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12359: RAISE G_EXCEPTION_HALT_VALIDATION;
12360: END IF;
12361:
12362: IF (l_debug = 'Y') THEN
12381: x_msg_data => l_msg_data,
12382: p_chrv_rec => l_chrv_rec,
12383: x_chrv_rec => x_chrv_rec);
12384:
12385: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12386: RAISE G_EXCEPTION_HALT_VALIDATION;
12387: END IF;
12388:
12389: IF (l_debug = 'Y') THEN
12444: p_validate_yn => 'N');
12445:
12446:
12447:
12448: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12449: RAISE G_EXCEPTION_HALT_VALIDATION;
12450: END IF;
12451: l_khrv_tbl_in.delete;
12452:
12464: x_msg_count => l_msg_count,
12465: x_msg_data => l_msg_data,
12466: p_cacv_rec => cacv_rec);
12467:
12468: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12469: RAISE G_EXCEPTION_HALT_VALIDATION;
12470: END IF;
12471:
12472: IF (l_debug = 'Y') THEN
12486: x_duration => l_line_duration,
12487: x_timeunit => l_line_timeunit,
12488: x_return_status => l_return_status);
12489:
12490: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12491: RAISE G_EXCEPTION_HALT_VALIDATION;
12492: END IF;
12493:
12494: IF (l_debug = 'Y') THEN
12535: x_msg_count => l_msg_count,
12536: x_msg_data => l_msg_data,
12537: x_return_status => l_return_status );
12538:
12539: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12540: RAISE G_EXCEPTION_HALT_VALIDATION;
12541: END IF;
12542:
12543: END LOOP;
12571: IF (l_debug = 'Y') THEN
12572: okc_debug.log('1190: After QP Call ' || l_return_status);
12573: END IF;
12574:
12575: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12576: RAISE G_EXCEPTION_HALT_VALIDATION;
12577: END IF;
12578:
12579: --npalepu added on 27-FEB-2007 for bug # 5671352
12613: p_validate_yn => 'N'
12614: );
12615:
12616: x_return_status := l_return_status;
12617: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12618: RAISE G_EXCEPTION_HALT_VALIDATION;
12619: END IF;
12620:
12621: --updating contract header tax amount
12642: x_khrv_tbl => l_khrv_tax_tbl_out,
12643: p_validate_yn => 'N');
12644:
12645: x_return_status := l_return_status;
12646: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12647: RAISE G_EXCEPTION_HALT_VALIDATION;
12648: END IF;
12649: --end 5671352
12650:
12693: IF (l_debug = 'Y') THEN
12694: okc_debug.log('1200: After deleting SLL ' || l_return_status);
12695: END IF;
12696:
12697: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12698: RAISE G_EXCEPTION_HALT_VALIDATION;
12699: END IF;
12700:
12701: -- l_timevalue_id := Create_Timevalue(topline_rec.start_date,topline_rec.dnz_chr_id);
12721: , x_duration => l_duration
12722: , x_timeunit => l_timeunit
12723: , x_return_status => x_return_status);
12724:
12725: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12726: RAISE G_EXCEPTION_HALT_VALIDATION;
12727: END IF;
12728:
12729: l_sll_tbl(1).cle_id := topline_rec.id;
12760: IF (l_debug = 'Y') THEN
12761: okc_debug.log('1210: After Creating Billing Schedule ' || l_return_status);
12762: END IF;
12763:
12764: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) Then
12765: RAISE G_EXCEPTION_HALT_VALIDATION;
12766: END IF; */
12767:
12768: --check for template duration and new contract duration or matching or not
12767:
12768: --check for template duration and new contract duration or matching or not
12769: oks_copy_contract_pvt.chk_line_effectivity(topline_rec.id,l_duration_match, x_return_status);
12770:
12771: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12772: RAISE G_EXCEPTION_HALT_VALIDATION;
12773: END IF;
12774:
12775: IF l_duration_match = 'T' THEN
12828: IF (l_debug = 'Y') THEN
12829: okc_debug.log('1210: After Creating Billing Schedule ' || l_return_status);
12830: END IF;
12831:
12832: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) Then
12833: RAISE G_EXCEPTION_HALT_VALIDATION;
12834: END IF;
12835:
12836: END IF; -- l_duration_match check
12859: END IF;
12860:
12861: END IF;
12862:
12863: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) Then
12864: RAISE G_EXCEPTION_HALT_VALIDATION;
12865: END IF;
12866:
12867: -- Reset the flags.
12886: x_return_status => l_return_status,
12887: x_msg_count => l_msg_count,
12888: x_msg_data => l_msg_data);
12889:
12890: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12891: RAISE G_EXCEPTION_HALT_VALIDATION;
12892: END IF;
12893: END LOOP;
12894: --end npalepu
12918: okc_debug.Reset_Indentation;
12919: END IF;
12920:
12921: WHEN OTHERS THEN
12922: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
12923: IF get_estimation_date%ISOPEN THEN
12924: CLOSE get_estimation_date;
12925: END IF;
12926: IF (l_debug = 'Y') THEN
12926: IF (l_debug = 'Y') THEN
12927: okc_debug.log('1230: Unexpected Error');
12928: okc_debug.Reset_Indentation;
12929: END IF;
12930: OKC_API.set_message
12931: (G_APP_NAME,G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
12932:
12933: END UPDATE_TEMPLATE_CONTRACT ;
12934: