[Home] [Help]
593: END IF;
594:
595:
596: -- Initialize API return status to success
597: x_return_status := FND_API.G_RET_STS_SUCCESS;
598:
599: IF (l_Debug_Level <= 1) THEN
600: ecx_cln_debug_pub.Add('------------Parameters Received-------------',1);
601: ecx_cln_debug_pub.Add('APPLCATION ID ----- >>>'||p_app_id,1);
624: END IF;
625: EXCEPTION
626: WHEN NO_DATA_FOUND THEN
627: l_param := 'Application ID';
628: RAISE FND_API.G_EXC_ERROR;
629: END;
630: END IF;
631:
632:
643: END IF;
644: EXCEPTION
645: WHEN NO_DATA_FOUND THEN
646: l_param := 'Document Direction';
647: RAISE FND_API.G_EXC_ERROR;
648: END;
649: END IF;
650:
651:
662: END IF;
663: EXCEPTION
664: WHEN NO_DATA_FOUND THEN
665: l_param := 'Document Type';
666: RAISE FND_API.G_EXC_ERROR;
667: END;
668: END IF;
669:
670:
681: END IF;
682: EXCEPTION
683: WHEN NO_DATA_FOUND THEN
684: l_param := 'Collaboration Status';
685: RAISE FND_API.G_EXC_ERROR;
686: END;
687: END IF;
688:
689:
700: END IF;
701: EXCEPTION
702: WHEN NO_DATA_FOUND THEN
703: l_param := 'Collaboration Point';
704: RAISE FND_API.G_EXC_ERROR;
705: END;
706: END IF;
707:
708:
719: END IF;
720: EXCEPTION
721: WHEN NO_DATA_FOUND THEN
722: l_param := 'Collaboration Type';
723: RAISE FND_API.G_EXC_ERROR;
724: END;
725: END IF;
726:
727:
738: END IF;
739: EXCEPTION
740: WHEN NO_DATA_FOUND THEN
741: l_param := 'Collaboration Document Status';
742: RAISE FND_API.G_EXC_ERROR;
743: END;
744: END IF;
745:
746: IF (l_Debug_Level <= 1) THEN
756: END IF;
757: EXCEPTION
758: WHEN NO_DATA_FOUND THEN
759: l_param := 'Disposition';
760: RAISE FND_API.G_EXC_ERROR;
761: END;
762: END IF;
763:
764:
773: END IF;
774:
775: -- Exception Handling
776: EXCEPTION
777: WHEN FND_API.G_EXC_ERROR THEN
778: x_return_status := FND_API.G_RET_STS_ERROR ;
779: FND_MESSAGE.SET_NAME('CLN','CLN_CH_PARAM_VALIDATION');
780: FND_MESSAGE.SET_TOKEN('PARAM',l_param);
781: FND_MESSAGE.SET_TOKEN('VALUE',l_meaning);
774:
775: -- Exception Handling
776: EXCEPTION
777: WHEN FND_API.G_EXC_ERROR THEN
778: x_return_status := FND_API.G_RET_STS_ERROR ;
779: FND_MESSAGE.SET_NAME('CLN','CLN_CH_PARAM_VALIDATION');
780: FND_MESSAGE.SET_TOKEN('PARAM',l_param);
781: FND_MESSAGE.SET_TOKEN('VALUE',l_meaning);
782: x_msg_data := FND_MESSAGE.GET;
788:
789: WHEN OTHERS THEN
790: l_error_code :=SQLCODE;
791: l_error_msg :=SQLERRM;
792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
793: x_msg_data :=l_error_code||' : '||l_error_msg;
794: IF (l_Debug_Level <= 5) THEN
795: ecx_cln_debug_pub.Add(x_msg_data,6);
796: ecx_cln_debug_pub.Add('-------- Exiting VALIDATE_PARAMS API ----- ',2);
847: END IF;
848:
849:
850: -- Initialize API return status to success
851: x_return_status := FND_API.G_RET_STS_SUCCESS;
852:
853: IF (l_Debug_Level <= 1) THEN
854: ecx_cln_debug_pub.Add('------------Parameters Received-------------',1);
855: ecx_cln_debug_pub.Add('COLLABORATION ID ----- >>>'||p_coll_id,1);
908: ecx_cln_debug_pub.Add('Collaboration Details successfully entered in CLN_COLL_HIST_DTL TABLE',1);
909: END IF;
910: ELSE
911: l_msg_data := 'Failed to add Collaboration Details in CLN_COLL_HIST_DTL TABLE';
912: RAISE FND_API.G_EXC_ERROR;
913: END IF;
914:
915: IF (l_Debug_Level <= 2) THEN
916: ecx_cln_debug_pub.Add('--------- Exiting UPDATE_COLLABORATION_INIT API -------- ',2);
918:
919: -- Exception Handling
920: EXCEPTION
921:
922: WHEN FND_API.G_EXC_ERROR THEN
923: x_return_status := FND_API.G_RET_STS_ERROR ;
924: IF (l_Debug_Level <= 4) THEN
925: ecx_cln_debug_pub.Add(l_msg_data,4);
926: ecx_cln_debug_pub.Add('--------- Exiting UPDATE_COLLABORATION_INIT API -------- ',2);
919: -- Exception Handling
920: EXCEPTION
921:
922: WHEN FND_API.G_EXC_ERROR THEN
923: x_return_status := FND_API.G_RET_STS_ERROR ;
924: IF (l_Debug_Level <= 4) THEN
925: ecx_cln_debug_pub.Add(l_msg_data,4);
926: ecx_cln_debug_pub.Add('--------- Exiting UPDATE_COLLABORATION_INIT API -------- ',2);
927: END IF;
925: ecx_cln_debug_pub.Add(l_msg_data,4);
926: ecx_cln_debug_pub.Add('--------- Exiting UPDATE_COLLABORATION_INIT API -------- ',2);
927: END IF;
928:
929: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
930: l_error_code :=SQLCODE;
931: l_error_msg :=SQLERRM;
932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
933: l_msg_data :=l_error_code||' : '||l_error_msg;
928:
929: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
930: l_error_code :=SQLCODE;
931: l_error_msg :=SQLERRM;
932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
933: l_msg_data :=l_error_code||' : '||l_error_msg;
934: IF (l_Debug_Level <= 5) THEN
935: ecx_cln_debug_pub.Add(l_msg_data,6);
936: ecx_cln_debug_pub.Add('--------- Exiting UPDATE_COLLABORATION_INIT API -------- ',2);
938:
939: WHEN OTHERS THEN
940: l_error_code :=SQLCODE;
941: l_error_msg :=SQLERRM;
942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
943: l_msg_data :=l_error_code||' : '||l_error_msg;
944: IF (l_Debug_Level <= 5) THEN
945: ecx_cln_debug_pub.Add(l_msg_data,6);
946: ecx_cln_debug_pub.Add('--------- Exiting UPDATE_COLLABORATION_INIT API -------- ',2);
1079: -- Standard Start of API savepoint
1080: SAVEPOINT CREATE_COLLABORATION_PUB;
1081:
1082: -- Initialize API return status to success
1083: x_return_status := FND_API.G_RET_STS_SUCCESS;
1084: l_msg_data := 'Collaboration successfully created ';
1085:
1086:
1087: -- get the paramaters passed
1260:
1261: IF ( x_return_status <> 'S') THEN
1262: l_msg_data := 'Error in GET_TRADING_PARTNER_DETAILS ';
1263: -- x_msg_data is set to appropriate value by GET_TRADING_PARTNER_DETAILS
1264: RAISE FND_API.G_EXC_ERROR;
1265: END IF;
1266: IF (l_Debug_Level <= 1) THEN
1267: ecx_cln_debug_pub.Add('===========================================',1);
1268:
1282:
1283: IF ( x_return_status <> 'S') THEN
1284: l_msg_data := 'Error in DEFAULT_XMLGTXN_MAPPING';
1285: -- x_msg_data is set to appropriate value by DEFAULT_XMLGTXN_MAPPING
1286: RAISE FND_API.G_EXC_ERROR;
1287: END IF;
1288: IF (l_Debug_Level <= 1) THEN
1289: ecx_cln_debug_pub.Add('===========================================',1);
1290:
1295: FND_MESSAGE.SET_NAME('CLN','CLN_CH_REQD_PARAMS_MISSING');
1296: FND_MESSAGE.SET_TOKEN('ACTION','create');
1297: x_msg_data := FND_MESSAGE.GET;
1298: l_msg_data := 'Failed to create Collaboration as required parameters Application ID/Document_Direction not found';
1299: RAISE FND_API.G_EXC_ERROR;
1300: END IF;
1301:
1302: -- GET THE COLLABORATION STATUS HERE IF NOT PASSED
1303: IF (l_Debug_Level <= 1) THEN
1327:
1328: IF ( x_return_status <> 'S') THEN
1329: l_msg_data := 'Error in DEFAULT_XMLGTXN_MAPPING';
1330: -- x_msg_data is set to appropriate value by DEFAULT_XMLGTXN_MAPPING
1331: RAISE FND_API.G_EXC_ERROR;
1332: END IF;
1333: END IF;
1334:
1335: ecx_cln_debug_pub.Add('===========================================',1);
1342:
1343: IF ( x_return_status <> 'S') THEN
1344: l_msg_data := 'Validation of parameters failed';
1345: -- x_msg_data is set to appropriate value by VALIDATE_PARAMS
1346: RAISE FND_API.G_EXC_ERROR;
1347: END IF;
1348:
1349:
1350: -- RosettaNet Check Required or not.
1367: IF (x_return_status <> 'S') THEN
1368: FND_MESSAGE.SET_NAME('CLN','CLN_CH_REQD_CRITERIA_FAIL');
1369: x_msg_data := FND_MESSAGE.GET;
1370: l_msg_data :='Failed to verify the required criteria for updating/creating collaboration';
1371: RAISE FND_API.G_EXC_ERROR;
1372: END IF;
1373: IF (l_update_reqd <> TRUE) THEN
1374: IF (l_Debug_Level <= 1) THEN
1375: ecx_cln_debug_pub.Add('Update Reqd as Returned By IS_UPDATE_REQUIRED -FALSE',1);
1458: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ADD_DTLS_FAILED');
1459: FND_MESSAGE.SET_TOKEN('TABLE','CLN_COLL_HIST_HDR');
1460: x_msg_data := FND_MESSAGE.GET;
1461: l_msg_data := 'Failed to add Collaboration Details in CLN_COLL_HIST_HDR TABLE';
1462: RAISE FND_API.G_EXC_ERROR;
1463: END IF;
1464:
1465: IF(l_msg_text IS NULL) THEN
1466: l_msg_text := 'CLN_CH_COLLABORATION_CREATED';
1485: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ADD_DTLS_FAILED');
1486: FND_MESSAGE.SET_TOKEN('TABLE','CLN_COLL_HIST_DTL');
1487: x_msg_data := FND_MESSAGE.GET;
1488: l_msg_data := 'Failed to add Collaboration Details in CLN_COLL_HIST_DTL TABLE';
1489: RAISE FND_API.G_EXC_ERROR;
1490: END IF;
1491:
1492: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLLABORATION_CREATED');
1493: x_msg_data := FND_MESSAGE.GET;
1501:
1502:
1503: EXCEPTION
1504:
1505: WHEN FND_API.G_EXC_ERROR THEN
1506: ROLLBACK TO CREATE_COLLABORATION_PUB;
1507: x_return_status :=FND_API.G_RET_STS_ERROR ;
1508: IF (l_Debug_Level <= 4) THEN
1509: ecx_cln_debug_pub.Add(l_msg_data,4);
1503: EXCEPTION
1504:
1505: WHEN FND_API.G_EXC_ERROR THEN
1506: ROLLBACK TO CREATE_COLLABORATION_PUB;
1507: x_return_status :=FND_API.G_RET_STS_ERROR ;
1508: IF (l_Debug_Level <= 4) THEN
1509: ecx_cln_debug_pub.Add(l_msg_data,4);
1510: ecx_cln_debug_pub.Add('------- Exiting CREATE_COLLABORATION API ---------- ',2);
1511: END IF;
1511: END IF;
1512:
1513:
1514:
1515: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1516: ROLLBACK TO CREATE_COLLABORATION_PUB;
1517: l_error_code :=SQLCODE;
1518: l_error_msg :=SQLERRM;
1519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1515: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1516: ROLLBACK TO CREATE_COLLABORATION_PUB;
1517: l_error_code :=SQLCODE;
1518: l_error_msg :=SQLERRM;
1519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1520: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1521: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1522: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1523: x_msg_data :=FND_MESSAGE.GET;
1532: WHEN OTHERS THEN
1533: ROLLBACK TO CREATE_COLLABORATION_PUB;
1534: l_error_code :=SQLCODE;
1535: l_error_msg :=SQLERRM;
1536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1537: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1538: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1539: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1540: x_msg_data :=FND_MESSAGE.GET;
1708: -- SAVEPOINT UPDATE_COLLABORATION_PUB;
1709:
1710:
1711: -- Initialize API return status to success
1712: x_return_status := FND_API.G_RET_STS_SUCCESS;
1713: l_msg_data := 'Collaboration successfully updated ';
1714:
1715:
1716: -- get the paramaters passed
1900:
1901: IF ( x_return_status <> 'S') THEN
1902: l_msg_data := 'Error in GET_TRADING_PARTNER_DETAILS ';
1903: -- x_msg_data is set to appropriate value by GET_TRADING_PARTNER_DETAILS
1904: RAISE FND_API.G_EXC_ERROR;
1905: END IF;
1906: IF (l_Debug_Level <= 1) THEN
1907: ecx_cln_debug_pub.Add('===========================================',1);
1908: END IF;
1927:
1928: IF ( x_return_status <> 'S') THEN
1929: l_msg_data := 'Error in DEFAULT_XMLGTXN_MAPPING';
1930: -- x_msg_data is set to appropriate value by DEFAULT_XMLGTXN_MAPPING
1931: RAISE FND_API.G_EXC_ERROR;
1932: END IF;
1933: IF (l_Debug_Level <= 1) THEN
1934: ecx_cln_debug_pub.Add('===========================================',1);
1935: END IF;
1957: IF (x_return_status <> 'S') THEN
1958: FND_MESSAGE.SET_NAME('CLN','CLN_CH_REQD_CRITERIA_FAIL');
1959: x_msg_data := FND_MESSAGE.GET;
1960: l_msg_data:='Failed to verify the required criteria for updating/creating collaboration';
1961: RAISE FND_API.G_EXC_ERROR;
1962: END IF;
1963:
1964: IF (l_update_reqd <> TRUE) THEN
1965: IF (l_Debug_Level <= 1) THEN
2065:
2066: IF ( x_return_status <> 'S') THEN
2067: l_msg_data := 'Error in FIND_COLLABORATION_ID - ' || x_msg_data;
2068: -- x_msg_data is set to appropriate value by FIND_COLLABORATION_ID
2069: RAISE FND_API.G_EXC_ERROR;
2070: END IF;
2071:
2072: END IF;
2073:
2073:
2074: IF l_coll_id IS NULL THEN
2075: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLLABORATION_NOT_FOUND');
2076: x_msg_data := FND_MESSAGE.GET;
2077: RAISE FND_API.G_EXC_ERROR;
2078: END IF;
2079:
2080: -- If Application ID or Collaboration Type is null (this may be the case when the
2081: -- document type is CONFIRM_BOD ), we need to get these values from the collaboration
2131:
2132: IF ( x_return_status <> 'S') THEN
2133: l_msg_data := 'Error in DEFAULT_XMLGTXN_MAPPING';
2134: -- x_msg_data is set to appropriate value by DEFAULT_XMLGTXN_MAPPING
2135: RAISE FND_API.G_EXC_ERROR;
2136: END IF;
2137: END IF;
2138:
2139: IF (l_Debug_Level <= 1) THEN
2146: FND_MESSAGE.SET_NAME('CLN','CLN_CH_REQD_PARAMS_MISSING');
2147: FND_MESSAGE.SET_TOKEN('ACTION','update');
2148: x_msg_data := FND_MESSAGE.GET;
2149: l_msg_data := 'Failed to update Collaboration as required parameters Collaboration Status / Document Direction not found';
2150: RAISE FND_API.G_EXC_ERROR;
2151: END IF;
2152:
2153: -- Validation for few parameters by passing parameters to VALIDATE_PARAMS API
2154: VALIDATE_PARAMS(
2161: ecx_cln_debug_pub.Add('Validation of parameters failed',1);
2162: END IF;
2163:
2164: -- x_msg_data is set to appropriate value by VALIDATE_PARAMS
2165: RAISE FND_API.G_EXC_ERROR;
2166: END IF;
2167:
2168:
2169: IF (l_Debug_Level <= 1) THEN
2247: ELSE
2248: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLLABORATION_NOT_FOUND');
2249: x_msg_data := FND_MESSAGE.GET;
2250: l_msg_data := 'Unable to find the collaboration in Collaboration History';
2251: RAISE FND_API.G_EXC_ERROR;
2252: END IF;
2253:
2254:
2255: -- Collaboration Detail ID is generated from a sequence.
2303: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ADD_DTLS_FAILED');
2304: FND_MESSAGE.SET_TOKEN('TABLE','CLN_COLL_HIST_DTL');
2305: x_msg_data := FND_MESSAGE.GET;
2306: l_msg_data := 'Failed to add Collaboration Details in CLN_COLL_HIST_DTL TABLE';
2307: RAISE FND_API.G_EXC_ERROR;
2308: END IF;
2309:
2310:
2311: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLLABORATION_UPDATED');
2320:
2321:
2322: EXCEPTION
2323:
2324: WHEN FND_API.G_EXC_ERROR THEN
2325: --ROLLBACK TO UPDATE_COLLABORATION_PUB;
2326: x_return_status := FND_API.G_RET_STS_ERROR ;
2327: IF (l_Debug_Level <= 4) THEN
2328: IF (l_Debug_Level <= 4) THEN
2322: EXCEPTION
2323:
2324: WHEN FND_API.G_EXC_ERROR THEN
2325: --ROLLBACK TO UPDATE_COLLABORATION_PUB;
2326: x_return_status := FND_API.G_RET_STS_ERROR ;
2327: IF (l_Debug_Level <= 4) THEN
2328: IF (l_Debug_Level <= 4) THEN
2329: ecx_cln_debug_pub.Add(l_msg_data,4);
2330: ecx_cln_debug_pub.Add('------ Exiting UPDATE_COLLABORATION API ------- ',2);
2332:
2333: END IF;
2334:
2335:
2336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2337: --ROLLBACK TO UPDATE_COLLABORATION_PUB;
2338: l_error_code :=SQLCODE;
2339: l_error_msg :=SQLERRM;
2340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2337: --ROLLBACK TO UPDATE_COLLABORATION_PUB;
2338: l_error_code :=SQLCODE;
2339: l_error_msg :=SQLERRM;
2340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2341: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
2342: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2343: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2344: x_msg_data :=FND_MESSAGE.GET;
2353: WHEN OTHERS THEN
2354: --ROLLBACK TO UPDATE_COLLABORATION_PUB;
2355: l_error_code :=SQLCODE;
2356: l_error_msg :=SQLERRM;
2357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2358: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
2359: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2360: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2361: x_msg_data :=FND_MESSAGE.GET;
2420: END IF;
2421:
2422:
2423: -- Initialize API return status to success
2424: x_return_status := FND_API.G_RET_STS_SUCCESS;
2425: l_msg_data := 'Collaboration status successfully found ';
2426:
2427: -- get the paramaters passed
2428: IF (l_Debug_Level <= 1) THEN
2485:
2486:
2487: EXCEPTION
2488:
2489: WHEN FND_API.G_EXC_ERROR THEN
2490: l_error_code :=SQLCODE;
2491: l_error_msg :=SQLERRM;
2492: x_return_status := FND_API.G_RET_STS_ERROR ;
2493: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLL_STATUS_NOT_FOUND');
2488:
2489: WHEN FND_API.G_EXC_ERROR THEN
2490: l_error_code :=SQLCODE;
2491: l_error_msg :=SQLERRM;
2492: x_return_status := FND_API.G_RET_STS_ERROR ;
2493: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLL_STATUS_NOT_FOUND');
2494: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2495: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2496: x_msg_data := FND_MESSAGE.GET;
2524: END IF;
2525:
2526: l_error_code :=SQLCODE;
2527: l_error_msg :=SQLERRM;
2528: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
2529: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLL_STATUS_NOT_FOUND');
2530: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2531: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2532: x_msg_data := FND_MESSAGE.GET;
2544:
2545: WHEN OTHERS THEN
2546: l_error_code :=SQLCODE;
2547: l_error_msg :=SQLERRM;
2548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2549: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLL_STATUS_NOT_FOUND');
2550: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2551: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2552: x_msg_data := FND_MESSAGE.GET;
2659:
2660:
2661:
2662: -- Initialize API return status to success
2663: x_return_status := FND_API.G_RET_STS_SUCCESS;
2664: l_msg_data := 'Collaboration details successfully retrieved ';
2665:
2666: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLL_DETAILS_RETRIEVED');
2667: x_msg_data := FND_MESSAGE.GET;
2755:
2756:
2757: EXCEPTION
2758:
2759: WHEN FND_API.G_EXC_ERROR THEN
2760: l_error_code :=SQLCODE;
2761: l_error_msg :=SQLERRM;
2762: x_return_status := FND_API.G_RET_STS_ERROR ;
2763: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLL_DETAILS_NOT_FOUND');
2758:
2759: WHEN FND_API.G_EXC_ERROR THEN
2760: l_error_code :=SQLCODE;
2761: l_error_msg :=SQLERRM;
2762: x_return_status := FND_API.G_RET_STS_ERROR ;
2763: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLL_DETAILS_NOT_FOUND');
2764: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2765: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2766: x_msg_data := FND_MESSAGE.GET;
2771: END IF;
2772:
2773:
2774:
2775: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2776: l_error_code :=SQLCODE;
2777: l_error_msg :=SQLERRM;
2778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2779: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLL_DETAILS_NOT_FOUND');
2774:
2775: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2776: l_error_code :=SQLCODE;
2777: l_error_msg :=SQLERRM;
2778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2779: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLL_DETAILS_NOT_FOUND');
2780: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2781: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2782: x_msg_data := FND_MESSAGE.GET;
2790:
2791: WHEN NO_DATA_FOUND THEN
2792: l_error_code :=SQLCODE;
2793: l_error_msg :=SQLERRM;
2794: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
2795: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLL_DETAILS_NOT_FOUND');
2796: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2797: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2798: x_msg_data := FND_MESSAGE.GET;
2806:
2807: WHEN OTHERS THEN
2808: l_error_code :=SQLCODE;
2809: l_error_msg :=SQLERRM;
2810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2811: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLL_DETAILS_NOT_FOUND');
2812: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2813: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2814: x_msg_data := FND_MESSAGE.GET;
2887:
2888:
2889:
2890: -- Initialize API return status to success
2891: x_return_status := FND_API.G_RET_STS_SUCCESS;
2892:
2893: l_msg_data := 'Detail Messages for Collaboration successfully added ';
2894: l_coll_dtl_id := p_dtl_coll_id;
2895: l_dtl_msg := p_dtl_msg;
2986: END IF;
2987:
2988:
2989: IF (x_return_status <> 'S') THEN
2990: RAISE FND_API.G_EXC_ERROR;
2991: END IF;
2992: ELSE
2993: SELECT collaboration_dtl_id
2994: INTO l_coll_dtl_id
3001: FND_MESSAGE.SET_TOKEN('PARAM','Collaboration Detail Id');
3002: FND_MESSAGE.SET_TOKEN('VALUE',p_dtl_coll_id);
3003: x_msg_data := FND_MESSAGE.GET;
3004: l_msg_data :='Collaboration not found for the particular Collaboration Detail Id :'||p_dtl_coll_id;
3005: RAISE FND_API.G_EXC_ERROR;
3006: END;
3007:
3008: IF (l_Debug_Level <= 1) THEN
3009: ecx_cln_debug_pub.Add('Before SQL Query : Adding Collaboration Detail Messages',1);
3031: ELSE
3032: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ADD_MSGS_FAILED');
3033: x_msg_data :=FND_MESSAGE.GET;
3034: l_msg_data :='Failed to add Message Details';
3035: RAISE FND_API.G_EXC_ERROR;
3036: END IF;
3037:
3038: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLL_MSGS_ADDED');
3039: x_msg_data := FND_MESSAGE.GET;
3047:
3048:
3049: EXCEPTION
3050:
3051: WHEN FND_API.G_EXC_ERROR THEN
3052: x_return_status :=FND_API.G_RET_STS_ERROR ;
3053: IF (l_Debug_Level <= 4) THEN
3054: ecx_cln_debug_pub.Add(l_msg_data,4);
3055: ecx_cln_debug_pub.Add('------ Exiting ADD_COLLABORATION_MESSAGES API ------',2);
3048:
3049: EXCEPTION
3050:
3051: WHEN FND_API.G_EXC_ERROR THEN
3052: x_return_status :=FND_API.G_RET_STS_ERROR ;
3053: IF (l_Debug_Level <= 4) THEN
3054: ecx_cln_debug_pub.Add(l_msg_data,4);
3055: ecx_cln_debug_pub.Add('------ Exiting ADD_COLLABORATION_MESSAGES API ------',2);
3056: END IF;
3059:
3060: WHEN NO_DATA_FOUND THEN
3061: l_error_code :=SQLCODE;
3062: l_error_msg :=SQLERRM;
3063: x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR ;
3064: l_msg_data :='Collaboration not found for the particular Collaboration Detail Id :'||l_error_code||' : '||l_error_msg;
3065: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLL_DETAILID_NOT_FOUND');
3066: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
3067: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
3135: END IF;
3136:
3137:
3138: -- Initialize API return status to success
3139: x_return_status := FND_API.G_RET_STS_SUCCESS;
3140:
3141:
3142: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ROSETTANET_STD');
3143: x_msg_data := FND_MESSAGE.GET;
3170: END IF;
3171:
3172: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLLABORATION_NOT_REQD');
3173: x_msg_data := FND_MESSAGE.GET;
3174: x_return_status := FND_API.G_RET_STS_SUCCESS;
3175: x_update_reqd := FALSE;
3176: IF (l_Debug_Level <= 1) THEN
3177: ecx_cln_debug_pub.Add('Collaboration need not be created/updated',1);
3178: END IF;
3208: l_msg_data := 'Invalid Trading Partner';
3209: FND_MESSAGE.SET_NAME('CLN','CLN_CH_INVALID_PARAM');
3210: FND_MESSAGE.SET_TOKEN('PARAM','Trading Partner');
3211: x_msg_data := FND_MESSAGE.GET;
3212: RAISE FND_API.G_EXC_ERROR;
3213: END;
3214:
3215: -- if hub value is also entered along with the protocol or
3216: -- only hub value is there , then also we an get protocol value
3230: WHEN NO_DATA_FOUND THEN
3231: l_msg_data := 'Invalid user id for Hub';
3232: FND_MESSAGE.SET_NAME('CLN','CLN_CH_INVALID_USERID_HUB');
3233: x_msg_data := FND_MESSAGE.GET;
3234: RAISE FND_API.G_EXC_ERROR;
3235: END;
3236: END IF;
3237: END IF;
3238:
3246: x_msg_data := FND_MESSAGE.GET;
3247: ecx_cln_debug_pub.Add('Protocol type is not IAS',1);
3248: ecx_cln_debug_pub.Add('Collaboration need not be created/updated',1);
3249: x_update_reqd :=FALSE;
3250: x_return_status := FND_API.G_RET_STS_SUCCESS;
3251: Return;
3252: END IF;
3253: IF (l_Debug_Level <= 1) THEN
3254: ecx_cln_debug_pub.Add('Collaboration can be updated',1);
3288:
3289:
3290: EXCEPTION
3291:
3292: WHEN FND_API.G_EXC_ERROR THEN
3293: x_return_status :=FND_API.G_RET_STS_ERROR ;
3294: IF (l_Debug_Level <= 4) THEN
3295: ecx_cln_debug_pub.Add(l_msg_data,4);
3296: ecx_cln_debug_pub.Add('------ Exiting IS_UPDATE_REQUIRED ------- ',2);
3289:
3290: EXCEPTION
3291:
3292: WHEN FND_API.G_EXC_ERROR THEN
3293: x_return_status :=FND_API.G_RET_STS_ERROR ;
3294: IF (l_Debug_Level <= 4) THEN
3295: ecx_cln_debug_pub.Add(l_msg_data,4);
3296: ecx_cln_debug_pub.Add('------ Exiting IS_UPDATE_REQUIRED ------- ',2);
3297: END IF;
3300:
3301: WHEN OTHERS THEN
3302: l_error_code :=SQLCODE;
3303: l_error_msg :=SQLERRM;
3304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3305: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
3306: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
3307: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
3308: x_msg_data :=FND_MESSAGE.GET;
3371: END IF;
3372:
3373:
3374: -- Initialize API return status to success
3375: x_return_status := FND_API.G_RET_STS_SUCCESS;
3376: l_msg_data := 'Collaboration detail id successfully found'||x_dtl_coll_id;
3377:
3378: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLL_DETAILID_FOUND');
3379: x_msg_data := FND_MESSAGE.GET;
3506: WHEN TOO_MANY_ROWS THEN
3507: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNIQUE_COLLABORATION_NF');
3508: x_msg_data := FND_MESSAGE.GET;
3509: l_msg_data := 'Unique Collaboration Not Found';
3510: RAISE FND_API.G_EXC_ERROR;
3511:
3512: WHEN NO_DATA_FOUND THEN
3513: IF p_unique1 IS NOT NULL OR
3514: p_unique2 IS NOT NULL OR
3536: END IF;
3537:
3538: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLLABORATION_NOT_FOUND');
3539: x_msg_data := FND_MESSAGE.GET;
3540: l_msg_data := 'Unable to find the collaboration in Collaboration History - Detail Table'; RAISE FND_API.G_EXC_ERROR;
3541: WHEN TOO_MANY_ROWS THEN
3542: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNIQUE_COLLABORATION_NF');
3543: x_msg_data := FND_MESSAGE.GET;
3544: l_msg_data := 'Unique Collaboration Not Found';
3541: WHEN TOO_MANY_ROWS THEN
3542: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNIQUE_COLLABORATION_NF');
3543: x_msg_data := FND_MESSAGE.GET;
3544: l_msg_data := 'Unique Collaboration Not Found';
3545: RAISE FND_API.G_EXC_ERROR;
3546: END;
3547: ELSE
3548: IF (l_Debug_Level <= 1) THEN
3549: cln_debug_pub.Add('Unique IDs from 1 to 5 are NULL',1);
3588:
3589: WHEN NO_DATA_FOUND THEN
3590: l_error_code :=SQLCODE;
3591: l_error_msg :=SQLERRM;
3592: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
3593: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLL_DETAILID_NOT_FOUND');
3594: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
3595: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
3596: x_msg_data := FND_MESSAGE.GET;
3605:
3606: WHEN OTHERS THEN
3607: l_error_code :=SQLCODE;
3608: l_error_msg :=SQLERRM;
3609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3610: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLL_DETAILID_NOT_FOUND');
3611: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
3612: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
3613: x_msg_data := FND_MESSAGE.GET;
3692: END IF;
3693:
3694:
3695: -- Initialize API return status to success
3696: x_return_status := FND_API.G_RET_STS_SUCCESS;
3697:
3698: -- get the paramaters passed
3699: IF (l_Debug_Level <= 1) THEN
3700: ecx_cln_debug_pub.Add('==========Parameters Received=============',1);
4007: p_tr_partner_site := NVL(p_tr_partner_site,l_txn_partner_site);
4008: p_collaboration_standard := NVL(p_collaboration_standard,l_xmlg_msg_standard);
4009: END IF;
4010: ELSE
4011: x_return_status := FND_API.G_RET_STS_SUCCESS;
4012: FND_MESSAGE.SET_NAME('CLN','CLN_CH_API_CALL_NOT_REQD');
4013: x_msg_data := FND_MESSAGE.GET;
4014: IF (l_Debug_Level <= 1) THEN
4015: ecx_cln_debug_pub.Add('API - GET_TRADING_PARTNER_DETAILS need not be called as all input parameters are having non-null values ',1);
4056:
4057: WHEN OTHERS THEN
4058: l_error_code :=SQLCODE;
4059: l_error_msg :=SQLERRM;
4060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- sending back success for backward compatibility
4061: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
4062: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
4063: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
4064: x_msg_data :=FND_MESSAGE.GET;
4112: END IF;
4113:
4114:
4115: -- Initialize API return status to success
4116: x_return_status := FND_API.G_RET_STS_SUCCESS;
4117:
4118: -- get the paramaters passed
4119: IF (l_Debug_Level <= 1) THEN
4120: ecx_cln_debug_pub.Add('==========Parameters Received=============',1);
4141:
4142: FND_MESSAGE.SET_NAME('CLN','CLN_CH_REQD_KEY_MISSING');
4143: FND_MESSAGE.SET_TOKEN('API','DEFAULT_XMLGTXN_MAPPING');
4144: x_msg_data := FND_MESSAGE.GET;
4145: x_return_status := FND_API.G_RET_STS_SUCCESS;
4146: RETURN;
4147: END IF;
4148:
4149:
4176: END IF;
4177:
4178: FND_MESSAGE.SET_NAME('CLN','CLN_CH_XMLGTXN_MAPPING_NF');
4179: x_msg_data := FND_MESSAGE.GET;
4180: x_return_status := FND_API.G_RET_STS_SUCCESS;
4181: RETURN;
4182: END;
4183: END IF;
4184:
4208:
4209:
4210: EXCEPTION
4211:
4212: WHEN FND_API.G_EXC_ERROR THEN
4213: x_return_status := FND_API.G_RET_STS_SUCCESS ;-- sending back success for backward compatibility
4214: IF (l_Debug_Level <= 4) THEN
4215: ecx_cln_debug_pub.Add(l_msg_data,4);
4216: ecx_cln_debug_pub.Add('------ ERROR--------');
4209:
4210: EXCEPTION
4211:
4212: WHEN FND_API.G_EXC_ERROR THEN
4213: x_return_status := FND_API.G_RET_STS_SUCCESS ;-- sending back success for backward compatibility
4214: IF (l_Debug_Level <= 4) THEN
4215: ecx_cln_debug_pub.Add(l_msg_data,4);
4216: ecx_cln_debug_pub.Add('------ ERROR--------');
4217: ecx_cln_debug_pub.Add('------ Exiting DEFAULT_XMLGTXN_MAPPING ------- ',2);
4221:
4222: WHEN OTHERS THEN
4223: l_error_code :=SQLCODE;
4224: l_error_msg :=SQLERRM;
4225: x_return_status := FND_API.G_RET_STS_SUCCESS ; -- sending back success for backward compatibility
4226: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
4227: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
4228: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
4229: x_msg_data :=FND_MESSAGE.GET;
4279: END IF;
4280:
4281:
4282: -- Initialize API return status to success
4283: x_return_status := FND_API.G_RET_STS_SUCCESS;
4284:
4285: FND_MESSAGE.SET_NAME('CLN','CLN_COLL_STATUS_FOUND');
4286:
4287: IF (l_Debug_Level <= 1) THEN
4390: EXCEPTION
4391: WHEN OTHERS THEN
4392: l_error_code := SQLCODE;
4393: l_error_msg := SQLERRM;
4394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4395: x_msg_data := l_error_code||' : '||l_error_msg;
4396: IF (l_Debug_Level <= 6) THEN
4397: ecx_cln_debug_pub.Add(x_msg_data,6);
4398: ecx_cln_debug_pub.Add('-------- Exiting DEFAULT_COLLABORATION_STATUS API WITH ERROR----- ',2);
4457: END IF;
4458:
4459:
4460: -- Initialize API return status to success
4461: x_return_status := FND_API.G_RET_STS_SUCCESS;
4462: l_msg_data := 'Collaboration ID successfully found ';
4463:
4464:
4465: -- get the paramaters passed
4509: WHEN TOO_MANY_ROWS THEN
4510: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNIQUE_COLLABORATION_NF');
4511: x_msg_data := FND_MESSAGE.GET;
4512: l_msg_data := 'Unique Collaboration Not Found';
4513: RAISE FND_API.G_EXC_ERROR;
4514: WHEN NO_DATA_FOUND THEN
4515: IF (l_Debug_Level <= 1) THEN
4516: cln_debug_pub.Add('Unable to find the collaboration in Collaboration History - Header Table',1);
4517: END IF;
4546: WHEN TOO_MANY_ROWS THEN
4547: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNIQUE_COLLABORATION_NF');
4548: x_msg_data := FND_MESSAGE.GET;
4549: l_msg_data := 'Unique Collaboration Not Found';
4550: RAISE FND_API.G_EXC_ERROR;
4551:
4552: END;
4553: ELSE
4554: IF (l_Debug_Level <= 1) THEN
4589: WHEN TOO_MANY_ROWS THEN
4590: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNIQUE_COLLABORATION_NF');
4591: x_msg_data := FND_MESSAGE.GET;
4592: l_msg_data := 'Unique Collaboration Not Found';
4593: RAISE FND_API.G_EXC_ERROR;
4594: END;
4595:
4596: IF x_coll_id IS NOT NULL THEN
4597: IF (l_Debug_Level <= 2) THEN
4626: WHEN TOO_MANY_ROWS THEN
4627: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNIQUE_COLLABORATION_NF');
4628: x_msg_data := FND_MESSAGE.GET;
4629: l_msg_data := 'Unique Collaboration Not Found';
4630: RAISE FND_API.G_EXC_ERROR;
4631: END;
4632:
4633:
4634: IF x_coll_id IS NOT NULL THEN
4700: WHEN TOO_MANY_ROWS THEN
4701: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNIQUE_COLLABORATION_NF');
4702: x_msg_data := FND_MESSAGE.GET;
4703: l_msg_data := 'Unique Collaboration Not Found';
4704: RAISE FND_API.G_EXC_ERROR;
4705: END;
4706: END IF;
4707: END IF;
4708:
4718:
4719:
4720: EXCEPTION
4721:
4722: WHEN FND_API.G_EXC_ERROR THEN
4723: x_return_status := FND_API.G_RET_STS_ERROR ;
4724: IF (l_Debug_Level <= 4) THEN
4725: ecx_cln_debug_pub.Add(l_msg_data,4);
4726: END IF;
4719:
4720: EXCEPTION
4721:
4722: WHEN FND_API.G_EXC_ERROR THEN
4723: x_return_status := FND_API.G_RET_STS_ERROR ;
4724: IF (l_Debug_Level <= 4) THEN
4725: ecx_cln_debug_pub.Add(l_msg_data,4);
4726: END IF;
4727:
4734:
4735: WHEN OTHERS THEN
4736: l_error_code :=SQLCODE;
4737: l_error_msg :=SQLERRM;
4738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4739: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
4740: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
4741: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
4742: x_msg_data :=FND_MESSAGE.GET;
4879: END IF;
4880:
4881:
4882: -- Initialize API return status to success
4883: x_return_status := FND_API.G_RET_STS_SUCCESS;
4884: l_msg_data := 'Collaboration successfully created/updated ';
4885:
4886:
4887:
4999:
5000: IF ( x_return_status <> 'S') THEN
5001: l_msg_data := 'Error in GET_TRADING_PARTNER_DETAILS ';
5002: -- x_msg_data is set to appropriate value by GET_TRADING_PARTNER_DETAILS
5003: RAISE FND_API.G_EXC_ERROR;
5004: END IF;
5005: IF (l_Debug_Level <= 1) THEN
5006: ecx_cln_debug_pub.Add('===========================================',1);
5007: END IF;
5055:
5056: IF ( x_return_status <> 'S') THEN
5057: l_msg_data := 'Error in FIND_COLLABORATION_ID';
5058: -- x_msg_data is set to appropriate value by FIND_COLLABORATION_ID
5059: RAISE FND_API.G_EXC_ERROR;
5060: END IF;
5061: IF (l_Debug_Level <= 1) THEN
5062: ecx_cln_debug_pub.Add('Collaboration ID Found as '||l_coll_id,1);
5063: END IF;
5137:
5138: IF ( x_return_status <> 'S') THEN
5139: l_msg_data := 'Error in CREATE_COLLABORATION';
5140: -- x_msg_data is set to appropriate value by CREATE_COLLABORATION
5141: RAISE FND_API.G_EXC_ERROR;
5142: END IF;
5143: l_coll_id := null; -- so that update collaboration is not called immediately after create collaboration.
5144: END IF;
5145:
5237:
5238: IF ( x_return_status <> 'S') THEN
5239: l_msg_data := 'Error in UPDATE_COLLABORATION';
5240: -- x_msg_data is set to appropriate value by UPDATE_COLLABORATION
5241: RAISE FND_API.G_EXC_ERROR;
5242: END IF;
5243:
5244: END IF;
5245:
5254:
5255:
5256: EXCEPTION
5257:
5258: WHEN FND_API.G_EXC_ERROR THEN
5259: --ROLLBACK TO UPDATE_COLLABORATION_PUB;
5260: x_return_status := FND_API.G_RET_STS_ERROR ;
5261: IF (l_Debug_Level <= 4) THEN
5262: ecx_cln_debug_pub.Add(l_msg_data,4);
5256: EXCEPTION
5257:
5258: WHEN FND_API.G_EXC_ERROR THEN
5259: --ROLLBACK TO UPDATE_COLLABORATION_PUB;
5260: x_return_status := FND_API.G_RET_STS_ERROR ;
5261: IF (l_Debug_Level <= 4) THEN
5262: ecx_cln_debug_pub.Add(l_msg_data,4);
5263: ecx_cln_debug_pub.Add('------ Exiting ADD_COLLABORATION API ------- ',2);
5264: END IF;
5263: ecx_cln_debug_pub.Add('------ Exiting ADD_COLLABORATION API ------- ',2);
5264: END IF;
5265:
5266:
5267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5268: --ROLLBACK TO UPDATE_COLLABORATION_PUB;
5269: l_error_code :=SQLCODE;
5270: l_error_msg :=SQLERRM;
5271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5268: --ROLLBACK TO UPDATE_COLLABORATION_PUB;
5269: l_error_code :=SQLCODE;
5270: l_error_msg :=SQLERRM;
5271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5272: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
5273: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
5274: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
5275: x_msg_data :=FND_MESSAGE.GET;
5284: WHEN OTHERS THEN
5285: --ROLLBACK TO UPDATE_COLLABORATION_PUB;
5286: l_error_code :=SQLCODE;
5287: l_error_msg :=SQLERRM;
5288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5289: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
5290: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
5291: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
5292: x_msg_data :=FND_MESSAGE.GET;