69: l_return_status VARCHAR2(1);
70: l_msg_count NUMBER;
71: l_msg_data VARCHAR2(2000);
72: l_msg_index_out NUMBER;
73: l_olev_tbl_in OKC_OPER_INST_PUB.olev_tbl_type;
74: l_olev_tbl_out OKC_OPER_INST_PUB.olev_tbl_type;
75:
76: PROCEDURE SET_OL_SEL(p_ole_id IN NUMBER) IS
77: l_api_name CONSTANT VARCHAR2(30) := 'SET_OL_SEL';
70: l_msg_count NUMBER;
71: l_msg_data VARCHAR2(2000);
72: l_msg_index_out NUMBER;
73: l_olev_tbl_in OKC_OPER_INST_PUB.olev_tbl_type;
74: l_olev_tbl_out OKC_OPER_INST_PUB.olev_tbl_type;
75:
76: PROCEDURE SET_OL_SEL(p_ole_id IN NUMBER) IS
77: l_api_name CONSTANT VARCHAR2(30) := 'SET_OL_SEL';
78: l_mod_name VARCHAR2(256) := lower(G_OKS_APP_NAME) || '.plsql.' || G_PROGRAM_NAME || '.' || l_api_name;
84: RETURN;
85: END IF;
86: l_olev_tbl_in(1).id := p_ole_id;
87: l_olev_tbl_in(1).select_yn := 'Y';
88: OKC_OPER_INST_PUB.Update_Operation_Line(
89: p_api_version => l_api_version,
90: p_init_msg_list => l_init_msg_list,
91: x_return_status => l_return_status,
92: x_msg_count => l_msg_count,
93: x_msg_data => l_msg_data,
94: p_olev_tbl => l_olev_tbl_in,
95: x_olev_tbl => l_olev_tbl_out );
96: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
97: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Update_Operation_Line l_return_status = ' || l_return_status);
98: END IF;
99: x_return_status := l_return_status;
100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
101: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
98: END IF;
99: x_return_status := l_return_status;
100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
101: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
102: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Update_Operation_Line l_msg_data = ' || l_msg_data);
103: END IF;
104: RETURN;
105: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
106: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
103: END IF;
104: RETURN;
105: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
106: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
107: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Update_Operation_Line l_msg_data = ' || l_msg_data);
108: END IF;
109: RETURN;
110: END IF;
111: END SET_OL_SEL;
801: l_msg_data VARCHAR2(2000);
802:
803: l_msg_index_out NUMBER;
804:
805: l_oiev_tbl_in OKC_OPER_INST_PUB.oiev_tbl_type; --OPERATION INSTANCE
806: l_oiev_tbl_out OKC_OPER_INST_PUB.oiev_tbl_type; --OPERATION INSTANCE
807: --------------------------------------------------------------------
808: ---Program Variables
809: --------------------------------------------------------------------
802:
803: l_msg_index_out NUMBER;
804:
805: l_oiev_tbl_in OKC_OPER_INST_PUB.oiev_tbl_type; --OPERATION INSTANCE
806: l_oiev_tbl_out OKC_OPER_INST_PUB.oiev_tbl_type; --OPERATION INSTANCE
807: --------------------------------------------------------------------
808: ---Program Variables
809: --------------------------------------------------------------------
810: p_class_operation_id NUMBER := 0;
835: l_oiev_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
836: l_oiev_tbl_in(1).last_update_date := SYSDATE;
837: l_oiev_tbl_in(1).last_update_login := OKC_API.G_MISS_NUM;
838:
839: OKC_OPER_INST_PUB.Create_Operation_Instance(
840: p_api_version => l_api_version,
841: p_init_msg_list => l_init_msg_list,
842: x_return_status => l_return_status,
843: x_msg_count => l_msg_count,
847: );
848: p_oie_id := l_oiev_tbl_out(1).id;
849:
850: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
851: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_return_status = ' || l_return_status);
852: END IF;
853:
854: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
855: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
852: END IF;
853:
854: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
855: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
856: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_msg_data = ' || l_msg_data);
857: END IF;
858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
860: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
857: END IF;
858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
860: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
861: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_msg_data = ' || l_msg_data);
862: END IF;
863: RAISE OKC_API.G_EXCEPTION_ERROR;
864: END IF;
865:
887: l_msg_data VARCHAR2(2000);
888:
889: l_msg_index_out NUMBER;
890:
891: l_olev_tbl_in OKC_OPER_INST_PUB.olev_tbl_type; --OPERATION LINES
892: l_olev_tbl_out OKC_OPER_INST_PUB.olev_tbl_type; --OPERATION LINES
893:
894:
895: ------------------------------------------------------------------
888:
889: l_msg_index_out NUMBER;
890:
891: l_olev_tbl_in OKC_OPER_INST_PUB.olev_tbl_type; --OPERATION LINES
892: l_olev_tbl_out OKC_OPER_INST_PUB.olev_tbl_type; --OPERATION LINES
893:
894:
895: ------------------------------------------------------------------
896: ---PROGRAM variables
1079: END IF;
1080: j := j + 1;
1081: END LOOP;
1082:
1083: OKC_OPER_INST_PUB.Create_Operation_Line(
1084: p_api_version => l_api_version,
1085: p_init_msg_list => l_init_msg_list,
1086: x_return_status => l_return_status,
1087: x_msg_count => l_msg_count,
1090: x_olev_tbl => l_olev_tbl_out
1091: );
1092:
1093: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1094: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FOR CONTRACT HEADER OKC_OPER_INST_PUB.Create_Operation_Line l_return_status = ' || l_return_status);
1095: END IF;
1096: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1097: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1098: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1094: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FOR CONTRACT HEADER OKC_OPER_INST_PUB.Create_Operation_Line l_return_status = ' || l_return_status);
1095: END IF;
1096: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1097: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1098: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1099: END IF;
1100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1102: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1099: END IF;
1100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1102: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1103: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1104: END IF;
1105: RAISE OKC_API.G_EXCEPTION_ERROR;
1106: END IF;
1107: ------------------------------------------------------------------------------------
1172: END IF;
1173: j := j + 1;
1174: END LOOP;
1175:
1176: OKC_OPER_INST_PUB.Create_Operation_Line(
1177: p_api_version => l_api_version,
1178: p_init_msg_list => l_init_msg_list,
1179: x_return_status => l_return_status,
1180: x_msg_count => l_msg_count,
1183: x_olev_tbl => l_olev_tbl_out
1184: );
1185:
1186: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1187: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FOR TOP LINES OKC_OPER_INST_PUB.Create_Operation_Line l_return_status = ' || l_return_status);
1188: END IF;
1189:
1190: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1191: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1188: END IF;
1189:
1190: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1191: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1192: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1193: END IF;
1194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1196: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1193: END IF;
1194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1196: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1197: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1198: END IF;
1199: RAISE OKC_API.G_EXCEPTION_ERROR;
1200: END IF;
1201: ------------------------------------------------------------------------------------
1250: i := i + 1;
1251: j := j + 1;
1252: END LOOP;
1253:
1254: OKC_OPER_INST_PUB.Create_Operation_Line(
1255: p_api_version => l_api_version,
1256: p_init_msg_list => l_init_msg_list,
1257: x_return_status => l_return_status,
1258: x_msg_count => l_msg_count,
1261: x_olev_tbl => l_olev_tbl_out
1262: );
1263:
1264: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1265: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FOR SUBLINES OKC_OPER_INST_PUB.Create_Operation_Line l_return_status = ' || l_return_status);
1266: END IF;
1267: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1268: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1269: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1265: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FOR SUBLINES OKC_OPER_INST_PUB.Create_Operation_Line l_return_status = ' || l_return_status);
1266: END IF;
1267: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1268: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1269: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1270: END IF;
1271: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1272: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1273: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1270: END IF;
1271: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1272: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1273: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1274: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1275: END IF;
1276: RAISE OKC_API.G_EXCEPTION_ERROR;
1277: END IF;
1278: ------------------------------------------------------------------------------------