239: x_msg_count,
240: x_msg_data);
241:
242: EXCEPTION
243: WHEN FND_API.G_EXC_ERROR THEN
244: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
245: (
246: l_api_name,
247: G_PKG_NAME,
244: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
245: (
246: l_api_name,
247: G_PKG_NAME,
248: 'FND_API.G_RET_STS_ERROR',
249: x_msg_count,
250: x_msg_data,
251: '_Pvt'
252: );
249: x_msg_count,
250: x_msg_data,
251: '_Pvt'
252: );
253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
254: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
255: (
256: l_api_name,
257: G_PKG_NAME,
254: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
255: (
256: l_api_name,
257: G_PKG_NAME,
258: 'FND_API.G_RET_STS_UNEXP_ERROR',
259: x_msg_count,
260: x_msg_data,
261: '_Pvt'
262: );
387: p_api_version,
388: p_init_msg_list,
389: '_Pvt',
390: x_return_status);
391: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
393: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
394: RAISE FND_API.G_EXC_ERROR;
395: END IF;
388: p_init_msg_list,
389: '_Pvt',
390: x_return_status);
391: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
393: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
394: RAISE FND_API.G_EXC_ERROR;
395: END IF;
396:
389: '_Pvt',
390: x_return_status);
391: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
393: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
394: RAISE FND_API.G_EXC_ERROR;
395: END IF;
396:
397: OPEN Get_Contracts;
390: x_return_status);
391: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
393: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
394: RAISE FND_API.G_EXC_ERROR;
395: END IF;
396:
397: OPEN Get_Contracts;
398:
491:
492: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
493:
494: EXCEPTION
495: WHEN FND_API.G_EXC_ERROR THEN
496: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
497: (
498: l_api_name,
499: G_PKG_NAME,
496: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
497: (
498: l_api_name,
499: G_PKG_NAME,
500: 'FND_API.G_RET_STS_ERROR',
501: x_msg_count,
502: x_msg_data,
503: '_Pvt'
504: );
501: x_msg_count,
502: x_msg_data,
503: '_Pvt'
504: );
505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
506: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
507: (
508: l_api_name,
509: G_PKG_NAME,
506: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
507: (
508: l_api_name,
509: G_PKG_NAME,
510: 'FND_API.G_RET_STS_UNEXP_ERROR',
511: x_msg_count,
512: x_msg_data,
513: '_Pvt'
514: );
638: p_api_version,
639: p_init_msg_list,
640: '_Pvt',
641: x_return_status);
642: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
644: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
645: RAISE FND_API.G_EXC_ERROR;
646: END IF;
639: p_init_msg_list,
640: '_Pvt',
641: x_return_status);
642: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
644: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
645: RAISE FND_API.G_EXC_ERROR;
646: END IF;
647:
640: '_Pvt',
641: x_return_status);
642: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
644: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
645: RAISE FND_API.G_EXC_ERROR;
646: END IF;
647:
648: --DBMS_Output.Put_Line('Procedure 4');
641: x_return_status);
642: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
644: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
645: RAISE FND_API.G_EXC_ERROR;
646: END IF;
647:
648: --DBMS_Output.Put_Line('Procedure 4');
649:
737:
738: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
739:
740: EXCEPTION
741: WHEN FND_API.G_EXC_ERROR THEN
742: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
743: (
744: l_api_name,
745: G_PKG_NAME,
742: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
743: (
744: l_api_name,
745: G_PKG_NAME,
746: 'FND_API.G_RET_STS_ERROR',
747: x_msg_count,
748: x_msg_data,
749: '_Pvt'
750: );
747: x_msg_count,
748: x_msg_data,
749: '_Pvt'
750: );
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
753: (
754: l_api_name,
755: G_PKG_NAME,
752: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
753: (
754: l_api_name,
755: G_PKG_NAME,
756: 'FND_API.G_RET_STS_UNEXP_ERROR',
757: x_msg_count,
758: x_msg_data,
759: '_Pvt'
760: );
831: p_init_msg_list,
832: '_Pvt',
833: x_return_status);
834:
835: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
837: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
838: RAISE FND_API.G_EXC_ERROR;
839: END IF;
832: '_Pvt',
833: x_return_status);
834:
835: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
837: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
838: RAISE FND_API.G_EXC_ERROR;
839: END IF;
840:
833: x_return_status);
834:
835: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
837: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
838: RAISE FND_API.G_EXC_ERROR;
839: END IF;
840:
841:
834:
835: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
837: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
838: RAISE FND_API.G_EXC_ERROR;
839: END IF;
840:
841:
842: IF (P_Customer_Product_Id IS NOT NULL) THEN
1082:
1083: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1084:
1085: EXCEPTION
1086: WHEN FND_API.G_EXC_ERROR THEN
1087: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1088: (
1089: l_api_name,
1090: G_PKG_NAME,
1087: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1088: (
1089: l_api_name,
1090: G_PKG_NAME,
1091: 'FND_API.G_RET_STS_ERROR',
1092: x_msg_count,
1093: x_msg_data,
1094: '_Pvt'
1095: );
1092: x_msg_count,
1093: x_msg_data,
1094: '_Pvt'
1095: );
1096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1097: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1098: (
1099: l_api_name,
1100: G_PKG_NAME,
1097: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1098: (
1099: l_api_name,
1100: G_PKG_NAME,
1101: 'FND_API.G_RET_STS_UNEXP_ERROR',
1102: x_msg_count,
1103: x_msg_data,
1104: '_Pvt'
1105: );
1139: p_api_version,
1140: p_init_msg_list,
1141: '_Pvt',
1142: x_return_status);
1143: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1145: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1146: RAISE FND_API.G_EXC_ERROR;
1147: END IF;
1140: p_init_msg_list,
1141: '_Pvt',
1142: x_return_status);
1143: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1145: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1146: RAISE FND_API.G_EXC_ERROR;
1147: END IF;
1148:
1141: '_Pvt',
1142: x_return_status);
1143: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1145: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1146: RAISE FND_API.G_EXC_ERROR;
1147: END IF;
1148:
1149: --DBMS_Output.Put_Line('After start');
1142: x_return_status);
1143: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1145: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1146: RAISE FND_API.G_EXC_ERROR;
1147: END IF;
1148:
1149: --DBMS_Output.Put_Line('After start');
1150: G_Contracts_Tab_Type(p_rec_index).V_Contract_Id
1196:
1197: --DBMS_Output.Put_Line('After end activity');
1198:
1199: EXCEPTION
1200: WHEN FND_API.G_EXC_ERROR THEN
1201: --DBMS_Output.Put_Line('Expected Error');
1202: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1203: (
1204: l_api_name,
1202: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1203: (
1204: l_api_name,
1205: G_PKG_NAME,
1206: 'FND_API.G_RET_STS_ERROR',
1207: x_msg_count,
1208: x_msg_data,
1209: '_Pvt'
1210: );
1207: x_msg_count,
1208: x_msg_data,
1209: '_Pvt'
1210: );
1211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1212: --DBMS_Output.Put_Line('UnExpected Error');
1213: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1214: (
1215: l_api_name,
1213: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1214: (
1215: l_api_name,
1216: G_PKG_NAME,
1217: 'FND_API.G_RET_STS_UNEXP_ERROR',
1218: x_msg_count,
1219: x_msg_data,
1220: '_Pvt'
1221: );
1286: p_api_version,
1287: p_init_msg_list,
1288: '_Pvt',
1289: x_return_status);
1290: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1291:
1292: --DBMS_Output.Put_Line('Count and get unexpected error');
1293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1294: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1289: x_return_status);
1290: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1291:
1292: --DBMS_Output.Put_Line('Count and get unexpected error');
1293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1294: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1295:
1296: --DBMS_Output.Put_Line('Count and get error');
1297: RAISE FND_API.G_EXC_ERROR;
1290: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1291:
1292: --DBMS_Output.Put_Line('Count and get unexpected error');
1293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1294: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1295:
1296: --DBMS_Output.Put_Line('Count and get error');
1297: RAISE FND_API.G_EXC_ERROR;
1298: END IF;
1293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1294: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1295:
1296: --DBMS_Output.Put_Line('Count and get error');
1297: RAISE FND_API.G_EXC_ERROR;
1298: END IF;
1299:
1300: --DBMS_Output.Put_Line('After start');
1301:
1344:
1345: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1346:
1347: EXCEPTION
1348: WHEN FND_API.G_EXC_ERROR THEN
1349: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1350: (
1351: l_api_name,
1352: G_PKG_NAME,
1349: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1350: (
1351: l_api_name,
1352: G_PKG_NAME,
1353: 'FND_API.G_RET_STS_ERROR',
1354: x_msg_count,
1355: x_msg_data,
1356: '_Pvt'
1357: );
1354: x_msg_count,
1355: x_msg_data,
1356: '_Pvt'
1357: );
1358: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1359: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1360: (
1361: l_api_name,
1362: G_PKG_NAME,
1359: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1360: (
1361: l_api_name,
1362: G_PKG_NAME,
1363: 'FND_API.G_RET_STS_UNEXP_ERROR',
1364: x_msg_count,
1365: x_msg_data,
1366: '_Pvt'
1367: );
1380: END count_and_get;
1381:
1382: Procedure Migrate_to_Out_Variables(
1383: p_api_version IN NUMBER,
1384: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1385: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1386: x_contract_rec_Type IN CONTRACTS_REC_TYPE,
1387: x_Contract_Id OUT NUMBER,
1388: x_Contract_Number OUT NUMBER,
1381:
1382: Procedure Migrate_to_Out_Variables(
1383: p_api_version IN NUMBER,
1384: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1385: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1386: x_contract_rec_Type IN CONTRACTS_REC_TYPE,
1387: x_Contract_Id OUT NUMBER,
1388: x_Contract_Number OUT NUMBER,
1389: x_Contract_Status OUT VARCHAR2,
1427: p_api_version,
1428: p_init_msg_list,
1429: '_Pvt',
1430: x_return_status);
1431: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1433: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1434: RAISE FND_API.G_EXC_ERROR;
1435: END IF;
1428: p_init_msg_list,
1429: '_Pvt',
1430: x_return_status);
1431: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1433: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1434: RAISE FND_API.G_EXC_ERROR;
1435: END IF;
1436:
1429: '_Pvt',
1430: x_return_status);
1431: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1433: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1434: RAISE FND_API.G_EXC_ERROR;
1435: END IF;
1436:
1437: x_Contract_Id := x_contract_rec_type.V_Contract_Id;
1430: x_return_status);
1431: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1433: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1434: RAISE FND_API.G_EXC_ERROR;
1435: END IF;
1436:
1437: x_Contract_Id := x_contract_rec_type.V_Contract_Id;
1438: x_Contract_Number := x_contract_rec_type.V_Contract_Number;
1457:
1458: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1459:
1460: EXCEPTION
1461: WHEN FND_API.G_EXC_ERROR THEN
1462: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1463: (
1464: l_api_name,
1465: G_PKG_NAME,
1462: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1463: (
1464: l_api_name,
1465: G_PKG_NAME,
1466: 'FND_API.G_RET_STS_ERROR',
1467: x_msg_count,
1468: x_msg_data,
1469: '_Pvt'
1470: );
1467: x_msg_count,
1468: x_msg_data,
1469: '_Pvt'
1470: );
1471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1472: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1473: (
1474: l_api_name,
1475: G_PKG_NAME,
1472: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1473: (
1474: l_api_name,
1475: G_PKG_NAME,
1476: 'FND_API.G_RET_STS_UNEXP_ERROR',
1477: x_msg_count,
1478: x_msg_data,
1479: '_Pvt'
1480: );