83: l_funding_exchange_rate pa_projects_all.funding_exchange_rate%TYPE;
84:
85: l_event_number pa_events.event_num%type;
86: l_encoded varchar2(1):='F';
87: l_return_status varchar2(1):= FND_API.G_RET_STS_SUCCESS;
88: BEGIN
89: -- Initialize the Error Stack
90: pa_debug.set_err_stack('PA_EVENT_PUB.CREATE_EVENT');
91:
96: ,x_log_level => 5);
97: END IF;
98:
99: p_msg_count := 0;
100: p_return_status := FND_API.G_RET_STS_SUCCESS;
101:
102: --Log Message
103: IF l_debug_mode = 'Y' THEN
104: pa_debug.write_log (x_module => 'pa.plsql.PA_EVENT_PUB.CREATE_EVENT.begin'
118: ,x_msg_count =>p_msg_count
119: ,x_msg_data =>p_msg_data );
120:
121:
122: If p_return_status <> FND_API.G_RET_STS_SUCCESS
123: Then
124:
125: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
126: THEN
121:
122: If p_return_status <> FND_API.G_RET_STS_SUCCESS
123: Then
124:
125: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
126: THEN
127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128:
129: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
123: Then
124:
125: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
126: THEN
127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128:
129: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
130: THEN
131: RAISE FND_API.G_EXC_ERROR;
125: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
126: THEN
127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128:
129: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
130: THEN
131: RAISE FND_API.G_EXC_ERROR;
132: END IF;
133: End If;
127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128:
129: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
130: THEN
131: RAISE FND_API.G_EXC_ERROR;
132: END IF;
133: End If;
134: tot_in_rec := p_event_in_tbl.first;
135: while tot_in_rec is not null loop -- loop begins
234: ,p_organization_name => p_event_in_rec.p_organization_name
235: ,p_calling_place => 'CREATE_EVENT'
236: ,x_return_status => p_return_status );
237:
238: If p_return_status <> FND_API.G_RET_STS_SUCCESS
239: Then
240: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
241: THEN
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
236: ,x_return_status => p_return_status );
237:
238: If p_return_status <> FND_API.G_RET_STS_SUCCESS
239: Then
240: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
241: THEN
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243:
244: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
238: If p_return_status <> FND_API.G_RET_STS_SUCCESS
239: Then
240: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
241: THEN
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243:
244: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
245: THEN
246: RAISE FND_API.G_EXC_ERROR;
240: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
241: THEN
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243:
244: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
245: THEN
246: RAISE FND_API.G_EXC_ERROR;
247: END IF;
248: End If;
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243:
244: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
245: THEN
246: RAISE FND_API.G_EXC_ERROR;
247: END IF;
248: End If;
249:
250: --Log Message
271: ,p_attribute3 => ''
272: ,p_attribute4 => ''
273: ,p_attribute5 => '');
274: END IF;
275: p_return_status := FND_API.G_RET_STS_ERROR;
276: --If project_id is invalid then terminate further validation by raising error.
277: RAISE FND_API.G_EXC_ERROR;
278: End If;
279:
273: ,p_attribute5 => '');
274: END IF;
275: p_return_status := FND_API.G_RET_STS_ERROR;
276: --If project_id is invalid then terminate further validation by raising error.
277: RAISE FND_API.G_EXC_ERROR;
278: End If;
279:
280: --Log Message
281: IF l_debug_mode = 'Y' THEN
312: x_return_status => p_return_status,
313: x_msg_count => p_msg_count,
314: x_msg_data => p_msg_data);
315:
316: If p_return_status <> FND_API.G_RET_STS_SUCCESS
317: Then
318: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
319: THEN
320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
314: x_msg_data => p_msg_data);
315:
316: If p_return_status <> FND_API.G_RET_STS_SUCCESS
317: Then
318: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
319: THEN
320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321:
322: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
316: If p_return_status <> FND_API.G_RET_STS_SUCCESS
317: Then
318: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
319: THEN
320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321:
322: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
323: THEN
324: RAISE FND_API.G_EXC_ERROR;
318: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
319: THEN
320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321:
322: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
323: THEN
324: RAISE FND_API.G_EXC_ERROR;
325: END IF;
326: End If;
320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321:
322: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
323: THEN
324: RAISE FND_API.G_EXC_ERROR;
325: END IF;
326: End If;
327:
328: --Log Message
356: ,x_inv_org_id =>p_inv_org_id
357: ,x_agreement_id =>p_agreement_id -- Federal Uptake
358: ) = 'N'
359: Then
360: p_return_status := FND_API.G_RET_STS_ERROR;
361: RAISE FND_API.G_EXC_ERROR;
362: End If;
363:
364: --Log Message
357: ,x_agreement_id =>p_agreement_id -- Federal Uptake
358: ) = 'N'
359: Then
360: p_return_status := FND_API.G_RET_STS_ERROR;
361: RAISE FND_API.G_EXC_ERROR;
362: End If;
363:
364: --Log Message
365: IF l_debug_mode = 'Y' THEN
402: ,p_attribute3 => ''
403: ,p_attribute4 => ''
404: ,p_attribute5 => '');
405: END IF;
406: p_return_status := FND_API.G_RET_STS_ERROR;
407: RAISE FND_API.G_EXC_ERROR;
408: END IF;
409: Else
410: p_event_in_rec.P_desc_flex_name :=NULL;
403: ,p_attribute4 => ''
404: ,p_attribute5 => '');
405: END IF;
406: p_return_status := FND_API.G_RET_STS_ERROR;
407: RAISE FND_API.G_EXC_ERROR;
408: END IF;
409: Else
410: p_event_in_rec.P_desc_flex_name :=NULL;
411: p_event_in_rec.P_attribute_category :=NULL;
958: ,X_Record_Version_Number => 1
959: ,X_Agreement_Id =>p_agreement_id); -- Fedral Uptake
960:
961: --If commit is set to true then commit to database.
962: IF FND_API.to_boolean( p_commit )
963: THEN
964: COMMIT;
965: END IF;
966:
964: COMMIT;
965: END IF;
966:
967: EXCEPTION
968: WHEN FND_API.G_EXC_ERROR
969: THEN
970: ROLLBACK TO create_event;
971: l_return_status := FND_API.G_RET_STS_ERROR;
972:
967: EXCEPTION
968: WHEN FND_API.G_EXC_ERROR
969: THEN
970: ROLLBACK TO create_event;
971: l_return_status := FND_API.G_RET_STS_ERROR;
972:
973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
974: THEN
975: ROLLBACK TO create_event;
969: THEN
970: ROLLBACK TO create_event;
971: l_return_status := FND_API.G_RET_STS_ERROR;
972:
973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
974: THEN
975: ROLLBACK TO create_event;
976: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
977:
972:
973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
974: THEN
975: ROLLBACK TO create_event;
976: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
977:
978: WHEN pa_event_pvt.pub_excp
979: THEN
980: ROLLBACK TO create_event;
977:
978: WHEN pa_event_pvt.pub_excp
979: THEN
980: ROLLBACK TO create_event;
981: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
982: PA_EVENT_PUB.PACKAGE_NAME
983: :='(Event Reference='||p_event_in_rec.p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
984: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||'CREATE_EVENT';
985:
994:
995: WHEN OTHERS
996: THEN
997: ROLLBACK TO create_event;
998: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
999: PA_EVENT_PUB.PACKAGE_NAME
1000: :='(Event Reference='||p_event_in_rec.p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
1001: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'CREATE_EVENT';
1002:
1033: ,p_data => p_msg_data );
1034:
1035:
1036: EXCEPTION
1037: WHEN FND_API.G_EXC_ERROR
1038: THEN
1039: p_return_status := FND_API.G_RET_STS_ERROR;
1040: FND_MSG_PUB.Count_And_Get
1041: ( p_encoded => l_encoded
1035:
1036: EXCEPTION
1037: WHEN FND_API.G_EXC_ERROR
1038: THEN
1039: p_return_status := FND_API.G_RET_STS_ERROR;
1040: FND_MSG_PUB.Count_And_Get
1041: ( p_encoded => l_encoded
1042: ,p_count => p_msg_count
1043: ,p_data => p_msg_data );
1041: ( p_encoded => l_encoded
1042: ,p_count => p_msg_count
1043: ,p_data => p_msg_data );
1044:
1045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1046: THEN
1047: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1048: FND_MSG_PUB.Count_And_Get
1049: ( p_encoded => l_encoded
1043: ,p_data => p_msg_data );
1044:
1045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1046: THEN
1047: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1048: FND_MSG_PUB.Count_And_Get
1049: ( p_encoded => l_encoded
1050: ,p_count => p_msg_count
1051: ,p_data => p_msg_data );
1051: ,p_data => p_msg_data );
1052:
1053: WHEN pa_event_pvt.pub_excp
1054: THEN
1055: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1056: PA_EVENT_PUB.PACKAGE_NAME
1057: :='(event_reference='||p_event_in_rec.p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
1058: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||'CREATE_EVENT';
1059:
1072: ,p_data => p_msg_data );
1073:
1074: WHEN OTHERS
1075: THEN
1076: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1077: PA_EVENT_PUB.PACKAGE_NAME
1078: :='(event_reference='||p_event_in_rec.p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
1079: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'CREATE_EVENT';
1080:
1191: l_inventory_item_id pa_events.inventory_item_id%type;
1192: l_organization_id pa_events.organization_id%type;
1193: l_funding_rate_date_code pa_projects_all.funding_rate_date_code%TYPE;
1194: l_encoded varchar2(1):='F';
1195: l_return_status varchar2(1):= FND_API.G_RET_STS_SUCCESS;
1196: l_record_version_number pa_events.record_version_number%TYPE;
1197:
1198: /* Added for bug 7110782 */
1199: l_event_processed varchar2(1) := 'N';
1219: ,x_log_level => 5);
1220: END IF;
1221:
1222: p_msg_count := 0;
1223: p_return_status := FND_API.G_RET_STS_SUCCESS;
1224:
1225: --Log Message
1226: IF l_debug_mode = 'Y' THEN
1227: pa_debug.write_log (x_module => 'pa.plsql.PA_EVENT_PUB.UPDATE_EVENT.begin'
1240: ,x_msg_count =>p_msg_count
1241: ,x_msg_data =>p_msg_data );
1242:
1243:
1244: If p_return_status <> FND_API.G_RET_STS_SUCCESS
1245: Then
1246: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1247: THEN
1248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1242:
1243:
1244: If p_return_status <> FND_API.G_RET_STS_SUCCESS
1245: Then
1246: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1247: THEN
1248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1249:
1250: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
1244: If p_return_status <> FND_API.G_RET_STS_SUCCESS
1245: Then
1246: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1247: THEN
1248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1249:
1250: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
1251: THEN
1252: RAISE FND_API.G_EXC_ERROR;
1246: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1247: THEN
1248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1249:
1250: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
1251: THEN
1252: RAISE FND_API.G_EXC_ERROR;
1253: END IF;
1254: End If;
1248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1249:
1250: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
1251: THEN
1252: RAISE FND_API.G_EXC_ERROR;
1253: END IF;
1254: End If;
1255:
1256: tot_in_rec := p_event_in_tbl.first;
1337: ,p_organization_name => p_event_in_rec.p_organization_name
1338: ,p_calling_place => 'UPDATE_EVENT'
1339: ,x_return_status => p_return_status );
1340:
1341: If p_return_status <> FND_API.G_RET_STS_SUCCESS
1342: Then
1343: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1344: THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1339: ,x_return_status => p_return_status );
1340:
1341: If p_return_status <> FND_API.G_RET_STS_SUCCESS
1342: Then
1343: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1344: THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346:
1347: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
1341: If p_return_status <> FND_API.G_RET_STS_SUCCESS
1342: Then
1343: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1344: THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346:
1347: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
1348: THEN
1349: RAISE FND_API.G_EXC_ERROR;
1343: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1344: THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346:
1347: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
1348: THEN
1349: RAISE FND_API.G_EXC_ERROR;
1350: END IF;
1351: End If;
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346:
1347: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
1348: THEN
1349: RAISE FND_API.G_EXC_ERROR;
1350: END IF;
1351: End If;
1352: End of comment for 3118781*/
1353: --Log Message
1364: ,P_pm_event_reference =>p_event_in_rec.P_pm_event_reference
1365: ,P_event_id =>p_event_in_rec.P_event_id)
1366: ='N'
1367: Then
1368: p_return_status := FND_API.G_RET_STS_ERROR;
1369: RAISE FND_API.G_EXC_ERROR;
1370: End If;
1371:
1372: --Deriving the project_id using the event_reference and product_code
1365: ,P_event_id =>p_event_in_rec.P_event_id)
1366: ='N'
1367: Then
1368: p_return_status := FND_API.G_RET_STS_ERROR;
1369: RAISE FND_API.G_EXC_ERROR;
1370: End If;
1371:
1372: --Deriving the project_id using the event_reference and product_code
1373: Select project_id, record_version_number
1397: ,p_attribute3 => ''
1398: ,p_attribute4 => ''
1399: ,p_attribute5 => '');
1400: END IF;
1401: p_return_status := FND_API.G_RET_STS_ERROR;
1402: RAISE FND_API.G_EXC_ERROR;
1403: End If;
1404:
1405: --Log Message
1398: ,p_attribute4 => ''
1399: ,p_attribute5 => '');
1400: END IF;
1401: p_return_status := FND_API.G_RET_STS_ERROR;
1402: RAISE FND_API.G_EXC_ERROR;
1403: End If;
1404:
1405: --Log Message
1406: IF l_debug_mode = 'Y' THEN
1524: ,x_inv_org_id =>p_inv_org_id
1525: ,x_agreement_id =>P_agreement_id -- Federal Uptake
1526: ) = 'N'
1527: Then
1528: p_return_status := FND_API.G_RET_STS_ERROR;
1529: RAISE FND_API.G_EXC_ERROR;
1530:
1531: End If;
1532:
1525: ,x_agreement_id =>P_agreement_id -- Federal Uptake
1526: ) = 'N'
1527: Then
1528: p_return_status := FND_API.G_RET_STS_ERROR;
1529: RAISE FND_API.G_EXC_ERROR;
1530:
1531: End If;
1532:
1533: --Log Message
1570: ,p_attribute3 => ''
1571: ,p_attribute4 => ''
1572: ,p_attribute5 => '');
1573: END IF;
1574: p_return_status := FND_API.G_RET_STS_ERROR;
1575: RAISE FND_API.G_EXC_ERROR;
1576: END IF;
1577: --Defaulting attribute categories.
1578: Select decode(p_event_in_rec.P_attribute_category
1571: ,p_attribute4 => ''
1572: ,p_attribute5 => '');
1573: END IF;
1574: p_return_status := FND_API.G_RET_STS_ERROR;
1575: RAISE FND_API.G_EXC_ERROR;
1576: END IF;
1577: --Defaulting attribute categories.
1578: Select decode(p_event_in_rec.P_attribute_category
1579: ,NULL,attribute_category
2204: ,p_attribute3 => ''
2205: ,p_attribute4 => ''
2206: ,p_attribute5 => '');
2207: END IF;
2208: p_return_status := FND_API.G_RET_STS_ERROR;
2209: RAISE FND_API.G_EXC_ERROR;
2210: End If;
2211:
2212: /* Code added for Bug 7110782 - starts */
2205: ,p_attribute4 => ''
2206: ,p_attribute5 => '');
2207: END IF;
2208: p_return_status := FND_API.G_RET_STS_ERROR;
2209: RAISE FND_API.G_EXC_ERROR;
2210: End If;
2211:
2212: /* Code added for Bug 7110782 - starts */
2213:
2809:
2810: END IF; /* Added for Bug 7110782 */
2811:
2812: --If commit is set to true then commit to database.
2813: IF FND_API.to_boolean( p_commit )
2814: THEN
2815: COMMIT;
2816: END IF;
2817:
2815: COMMIT;
2816: END IF;
2817:
2818: EXCEPTION
2819: WHEN FND_API.G_EXC_ERROR
2820: THEN
2821: ROLLBACK TO Update_event;
2822: l_return_status := FND_API.G_RET_STS_ERROR;
2823:
2818: EXCEPTION
2819: WHEN FND_API.G_EXC_ERROR
2820: THEN
2821: ROLLBACK TO Update_event;
2822: l_return_status := FND_API.G_RET_STS_ERROR;
2823:
2824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2825: THEN
2826: ROLLBACK TO Update_event;
2820: THEN
2821: ROLLBACK TO Update_event;
2822: l_return_status := FND_API.G_RET_STS_ERROR;
2823:
2824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2825: THEN
2826: ROLLBACK TO Update_event;
2827: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2828:
2823:
2824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2825: THEN
2826: ROLLBACK TO Update_event;
2827: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2828:
2829: WHEN pa_event_pvt.pub_excp
2830: THEN
2831: ROLLBACK TO Update_event;
2828:
2829: WHEN pa_event_pvt.pub_excp
2830: THEN
2831: ROLLBACK TO Update_event;
2832: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2833: PA_EVENT_PUB.PACKAGE_NAME
2834: :='(event_reference='||p_event_in_rec.p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
2835: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||'UPDATE_EVENT';
2836:
2844: END IF;
2845:
2846: WHEN OTHERS
2847: THEN
2848: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2849: ROLLBACK TO Update_event;
2850: PA_EVENT_PUB.PACKAGE_NAME
2851: :='(event_reference='||p_event_in_rec.p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
2852: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'UPDATE_EVENT';
2883: ,p_count => p_msg_count
2884: ,p_data => p_msg_data );
2885:
2886: EXCEPTION
2887: WHEN FND_API.G_EXC_ERROR
2888: THEN
2889: p_return_status := FND_API.G_RET_STS_ERROR;
2890: FND_MSG_PUB.Count_And_Get
2891: ( p_encoded => l_encoded
2885:
2886: EXCEPTION
2887: WHEN FND_API.G_EXC_ERROR
2888: THEN
2889: p_return_status := FND_API.G_RET_STS_ERROR;
2890: FND_MSG_PUB.Count_And_Get
2891: ( p_encoded => l_encoded
2892: ,p_count => p_msg_count
2893: ,p_data => p_msg_data );
2891: ( p_encoded => l_encoded
2892: ,p_count => p_msg_count
2893: ,p_data => p_msg_data );
2894:
2895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2896: THEN
2897: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2898: FND_MSG_PUB.Count_And_Get
2899: ( p_encoded => l_encoded
2893: ,p_data => p_msg_data );
2894:
2895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2896: THEN
2897: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2898: FND_MSG_PUB.Count_And_Get
2899: ( p_encoded => l_encoded
2900: ,p_count => p_msg_count
2901: ,p_data => p_msg_data );
2901: ,p_data => p_msg_data );
2902:
2903: WHEN pa_event_pvt.pub_excp
2904: THEN
2905: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2906: PA_EVENT_PUB.PACKAGE_NAME
2907: :='(event_reference='||p_event_in_rec.p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
2908: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||'UPDATE_EVENT';
2909:
2921: ,p_data => p_msg_data );
2922:
2923: WHEN OTHERS
2924: THEN
2925: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2926:
2927: PA_EVENT_PUB.PACKAGE_NAME
2928: :='(event_reference='||p_event_in_rec.p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
2929: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'UPDATE_EVENT';
2993:
2994: --Seting Savepoint
2995: Savepoint delete_event;
2996: p_msg_count := 0;
2997: p_return_status := FND_API.G_RET_STS_SUCCESS;
2998: --Log Message
2999: IF l_debug_mode = 'Y' THEN
3000: pa_debug.write_log (x_module => 'pa.plsql.PA_EVENT_PUB.DELETE_EVENT.begin'
3001: ,x_msg => 'Calling mandatory input parameters-1'
3012: ,x_return_status =>p_return_status
3013: ,x_msg_count =>p_msg_count
3014: ,x_msg_data =>p_msg_data );
3015:
3016: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3017: Then
3018: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3019: THEN
3020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3014: ,x_msg_data =>p_msg_data );
3015:
3016: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3017: Then
3018: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3019: THEN
3020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3021:
3022: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3016: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3017: Then
3018: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3019: THEN
3020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3021:
3022: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3023: THEN
3024: RAISE FND_API.G_EXC_ERROR;
3018: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3019: THEN
3020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3021:
3022: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3023: THEN
3024: RAISE FND_API.G_EXC_ERROR;
3025: END IF;
3026: End If;
3020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3021:
3022: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3023: THEN
3024: RAISE FND_API.G_EXC_ERROR;
3025: END IF;
3026: End If;
3027:
3028: --Log Message
3042: ,p_organization_name => NULL
3043: ,p_calling_place => 'DELETE_EVENT'
3044: ,x_return_status => p_return_status );
3045:
3046: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3047: Then
3048: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3049: THEN
3050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3044: ,x_return_status => p_return_status );
3045:
3046: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3047: Then
3048: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3049: THEN
3050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3051:
3052: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3046: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3047: Then
3048: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3049: THEN
3050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3051:
3052: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3053: THEN
3054: RAISE FND_API.G_EXC_ERROR;
3048: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3049: THEN
3050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3051:
3052: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3053: THEN
3054: RAISE FND_API.G_EXC_ERROR;
3055: END IF;
3056: End If;
3050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3051:
3052: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3053: THEN
3054: RAISE FND_API.G_EXC_ERROR;
3055: END IF;
3056: End If;
3057: End of comment for 3118781 */
3058: --Log Message
3070: ,P_pm_event_reference =>l_pm_event_reference
3071: ,P_event_id =>l_event_id_out)
3072: ='N'
3073: Then
3074: p_return_status := FND_API.G_RET_STS_ERROR;
3075: RAISE FND_API.G_EXC_ERROR;
3076: End If;
3077:
3078: --Log Message
3071: ,P_event_id =>l_event_id_out)
3072: ='N'
3073: Then
3074: p_return_status := FND_API.G_RET_STS_ERROR;
3075: RAISE FND_API.G_EXC_ERROR;
3076: End If;
3077:
3078: --Log Message
3079: IF l_debug_mode = 'Y' THEN
3100: ,p_attribute3 => ''
3101: ,p_attribute4 => ''
3102: ,p_attribute5 => '');
3103: END IF;
3104: p_return_status := FND_API.G_RET_STS_ERROR;
3105: RAISE FND_API.G_EXC_ERROR;
3106:
3107: End If;
3108:
3101: ,p_attribute4 => ''
3102: ,p_attribute5 => '');
3103: END IF;
3104: p_return_status := FND_API.G_RET_STS_ERROR;
3105: RAISE FND_API.G_EXC_ERROR;
3106:
3107: End If;
3108:
3109:
3128:
3129: PA_EVENTS_PKG.Delete_Row(X_Rowid => P_rowid);
3130:
3131: --If commit is set to true then commit to database.
3132: IF FND_API.to_boolean( p_commit )
3133: THEN
3134: COMMIT;
3135: END IF;
3136:
3144: pa_debug.reset_err_stack; -- Reset error stack
3145:
3146:
3147: EXCEPTION
3148: WHEN FND_API.G_EXC_ERROR
3149: THEN
3150: ROLLBACK to delete_event;
3151: p_return_status := FND_API.G_RET_STS_ERROR;
3152: FND_MSG_PUB.Count_And_Get
3147: EXCEPTION
3148: WHEN FND_API.G_EXC_ERROR
3149: THEN
3150: ROLLBACK to delete_event;
3151: p_return_status := FND_API.G_RET_STS_ERROR;
3152: FND_MSG_PUB.Count_And_Get
3153: ( p_encoded => l_encoded
3154: , p_count => p_msg_count
3155: , p_data => p_msg_data );
3153: ( p_encoded => l_encoded
3154: , p_count => p_msg_count
3155: , p_data => p_msg_data );
3156:
3157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3158: THEN
3159: ROLLBACK to delete_event;
3160: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3161: FND_MSG_PUB.Count_And_Get
3156:
3157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3158: THEN
3159: ROLLBACK to delete_event;
3160: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3161: FND_MSG_PUB.Count_And_Get
3162: ( p_encoded => l_encoded
3163: , p_count => p_msg_count
3164: , p_data => p_msg_data );
3165:
3166: WHEN pa_event_pvt.pub_excp
3167: THEN
3168: ROLLBACK to delete_event;
3169: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3170:
3171: PA_EVENT_PUB.PACKAGE_NAME
3172: :='(event_reference='||p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
3173: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||'DELETE_EVENT';
3188:
3189: WHEN OTHERS
3190: THEN
3191: ROLLBACK to delete_event;
3192: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3193:
3194: PA_EVENT_PUB.PACKAGE_NAME
3195: :='(event_reference='||p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
3196: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'DELETE_EVENT';
3345: ,x_log_level => 5);
3346: End If;
3347:
3348: -- Standard call to check for api compatibility.
3349: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3350: p_api_version_number ,
3351: p_api_name ,
3352: G_PKG_NAME )
3353: THEN
3350: p_api_version_number ,
3351: p_api_name ,
3352: G_PKG_NAME )
3353: THEN
3354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3355: END IF;
3356:
3357: --Log Message
3358: IF l_debug_mode = 'Y' THEN
3421: G_event_tbl_count := G_event_tbl_count+1;
3422:
3423: pa_debug.reset_err_stack; -- Reset error stack
3424: EXCEPTION
3425: WHEN FND_API.G_EXC_ERROR
3426: THEN
3427: p_return_status := FND_API.G_RET_STS_ERROR;
3428: FND_MSG_PUB.Count_And_Get
3429: ( p_count => p_msg_count ,
3423: pa_debug.reset_err_stack; -- Reset error stack
3424: EXCEPTION
3425: WHEN FND_API.G_EXC_ERROR
3426: THEN
3427: p_return_status := FND_API.G_RET_STS_ERROR;
3428: FND_MSG_PUB.Count_And_Get
3429: ( p_count => p_msg_count ,
3430: p_data => p_msg_data );
3431:
3428: FND_MSG_PUB.Count_And_Get
3429: ( p_count => p_msg_count ,
3430: p_data => p_msg_data );
3431:
3432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3433: THEN
3434: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3435: FND_MSG_PUB.Count_And_Get
3436: ( p_count => p_msg_count
3430: p_data => p_msg_data );
3431:
3432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3433: THEN
3434: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3435: FND_MSG_PUB.Count_And_Get
3436: ( p_count => p_msg_count
3437: , p_data => p_msg_data );
3438:
3437: , p_data => p_msg_data );
3438:
3439: WHEN OTHERS
3440: THEN
3441: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3442:
3443: PA_EVENT_PUB.PACKAGE_NAME
3444: :='(event_reference='||G_event_in_tbl(G_event_tbl_count).P_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
3445: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'LOAD_EVENT';
3504: ,x_log_level => 5);
3505: End If;
3506:
3507: -- Standard call to check for api compatibility.
3508: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3509: p_api_version_number ,
3510: p_api_name ,
3511: G_PKG_NAME )
3512: THEN
3509: p_api_version_number ,
3510: p_api_name ,
3511: G_PKG_NAME )
3512: THEN
3513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3514: END IF;
3515:
3516: --Log Message
3517: IF l_debug_mode = 'Y' THEN
3532: ,P_event_in_tbl =>G_event_in_tbl
3533: ,P_event_out_tbl =>G_event_out_tbl);
3534:
3535:
3536: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3537: Then
3538: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3539: THEN
3540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3534:
3535:
3536: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3537: Then
3538: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3539: THEN
3540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3541:
3542: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3536: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3537: Then
3538: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3539: THEN
3540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3541:
3542: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3543: THEN
3544: RAISE FND_API.G_EXC_ERROR;
3538: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3539: THEN
3540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3541:
3542: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3543: THEN
3544: RAISE FND_API.G_EXC_ERROR;
3545: END IF;
3546: End If;
3540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3541:
3542: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3543: THEN
3544: RAISE FND_API.G_EXC_ERROR;
3545: END IF;
3546: End If;
3547:
3548: -- If single event is processed then return the event_id
3557: pa_debug.reset_err_stack; -- Reset error stack
3558:
3559:
3560: EXCEPTION
3561: WHEN FND_API.G_EXC_ERROR
3562: THEN
3563: p_event_id_out := NULL; -- NOCOPY
3564: p_return_status := FND_API.G_RET_STS_ERROR;
3565: FND_MSG_PUB.Count_And_Get
3560: EXCEPTION
3561: WHEN FND_API.G_EXC_ERROR
3562: THEN
3563: p_event_id_out := NULL; -- NOCOPY
3564: p_return_status := FND_API.G_RET_STS_ERROR;
3565: FND_MSG_PUB.Count_And_Get
3566: ( p_encoded => l_encoded
3567: ,p_count => p_msg_count
3568: ,p_data => p_msg_data );
3566: ( p_encoded => l_encoded
3567: ,p_count => p_msg_count
3568: ,p_data => p_msg_data );
3569:
3570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3571: THEN
3572: p_event_id_out := NULL; -- NOCOPY
3573: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3574: FND_MSG_PUB.Count_And_Get
3569:
3570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3571: THEN
3572: p_event_id_out := NULL; -- NOCOPY
3573: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3574: FND_MSG_PUB.Count_And_Get
3575: ( p_encoded => l_encoded
3576: ,p_count => p_msg_count
3577: ,p_data => p_msg_data );
3578:
3579: WHEN OTHERS
3580: THEN
3581: p_event_id_out := NULL; -- NOCOPY
3582: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3583:
3584: PA_EVENT_PUB.PACKAGE_NAME
3585: :=PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
3586: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'EXECUTE_CREATE_EVENT';
3649: ,x_log_level => 5);
3650: End If;
3651:
3652: -- Standard call to check for api compatibility.
3653: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3654: p_api_version_number ,
3655: p_api_name ,
3656: G_PKG_NAME )
3657: THEN
3654: p_api_version_number ,
3655: p_api_name ,
3656: G_PKG_NAME )
3657: THEN
3658: p_return_status:=FND_API.G_RET_STS_ERROR;
3659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3660: END IF;
3661:
3662: --Log Message
3655: p_api_name ,
3656: G_PKG_NAME )
3657: THEN
3658: p_return_status:=FND_API.G_RET_STS_ERROR;
3659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3660: END IF;
3661:
3662: --Log Message
3663: IF l_debug_mode = 'Y' THEN
3678: ,P_pm_product_code =>p_pm_product_code
3679: ,P_event_in_tbl =>G_event_in_tbl
3680: ,P_event_out_tbl =>G_event_out_tbl);
3681:
3682: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3683: Then
3684: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3685: THEN
3686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3680: ,P_event_out_tbl =>G_event_out_tbl);
3681:
3682: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3683: Then
3684: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3685: THEN
3686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3687:
3688: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3682: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3683: Then
3684: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3685: THEN
3686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3687:
3688: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3689: THEN
3690: RAISE FND_API.G_EXC_ERROR;
3684: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3685: THEN
3686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3687:
3688: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3689: THEN
3690: RAISE FND_API.G_EXC_ERROR;
3691: END IF;
3692: End If;
3686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3687:
3688: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3689: THEN
3690: RAISE FND_API.G_EXC_ERROR;
3691: END IF;
3692: End If;
3693:
3694: pa_debug.reset_err_stack; -- Reset error stack
3694: pa_debug.reset_err_stack; -- Reset error stack
3695:
3696:
3697: EXCEPTION
3698: WHEN FND_API.G_EXC_ERROR
3699: THEN
3700: p_return_status := FND_API.G_RET_STS_ERROR;
3701: FND_MSG_PUB.Count_And_Get
3702: ( p_encoded => l_encoded
3696:
3697: EXCEPTION
3698: WHEN FND_API.G_EXC_ERROR
3699: THEN
3700: p_return_status := FND_API.G_RET_STS_ERROR;
3701: FND_MSG_PUB.Count_And_Get
3702: ( p_encoded => l_encoded
3703: ,p_count => p_msg_count
3704: ,p_data => p_msg_data );
3702: ( p_encoded => l_encoded
3703: ,p_count => p_msg_count
3704: ,p_data => p_msg_data );
3705:
3706: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3707: THEN
3708: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3709: FND_MSG_PUB.Count_And_Get
3710: ( p_encoded => l_encoded
3704: ,p_data => p_msg_data );
3705:
3706: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3707: THEN
3708: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3709: FND_MSG_PUB.Count_And_Get
3710: ( p_encoded => l_encoded
3711: ,p_count => p_msg_count
3712: ,p_data => p_msg_data );
3712: ,p_data => p_msg_data );
3713:
3714: WHEN OTHERS
3715: THEN
3716: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3717:
3718: PA_EVENT_PUB.PACKAGE_NAME
3719: :=PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
3720: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'EXECUTE_UPDATE_EVENT';
3814:
3815: --Set savepoint
3816: Savepoint fetch_event;
3817: p_msg_count := 0;
3818: p_return_status := FND_API.G_RET_STS_SUCCESS;
3819:
3820: --Log Message
3821: IF l_debug_mode = 'Y' THEN
3822: pa_debug.write_log (x_module => 'pa.plsql.PA_EVENT_PUB.FETCH_EVENT.begin'
3824: ,x_log_level => 5);
3825: End If;
3826:
3827: -- Standard call to check for api compatibility.
3828: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3829: p_api_version_number ,
3830: p_api_name ,
3831: G_PKG_NAME )
3832: THEN
3829: p_api_version_number ,
3830: p_api_name ,
3831: G_PKG_NAME )
3832: THEN
3833: p_return_status:=FND_API.G_RET_STS_ERROR;
3834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3835: END IF;
3836: -- CHECK WHETHER MANDATORY INCOMING PARAMETER PRODUCT CODE EXIST
3837:
3830: p_api_name ,
3831: G_PKG_NAME )
3832: THEN
3833: p_return_status:=FND_API.G_RET_STS_ERROR;
3834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3835: END IF;
3836: -- CHECK WHETHER MANDATORY INCOMING PARAMETER PRODUCT CODE EXIST
3837:
3838: IF (p_pm_product_code IS NULL)
3850: ,p_attribute3 => ''
3851: ,p_attribute4 => ''
3852: ,p_attribute5 => '');
3853: END IF;
3854: p_return_status := FND_API.G_RET_STS_ERROR;
3855: RAISE FND_API.G_EXC_ERROR;
3856: END IF;
3857:
3858: --Log Message
3851: ,p_attribute4 => ''
3852: ,p_attribute5 => '');
3853: END IF;
3854: p_return_status := FND_API.G_RET_STS_ERROR;
3855: RAISE FND_API.G_EXC_ERROR;
3856: END IF;
3857:
3858: --Log Message
3859: IF l_debug_mode = 'Y' THEN
3883: FND_MESSAGE.SET_TOKEN('ATTR_NAME','p_pm_event_reference');
3884: FND_MESSAGE.SET_TOKEN('ATTR_VALUE', p_pm_event_reference);
3885: FND_MSG_PUB.ADD;
3886: End If;
3887: p_return_status := FND_API.G_RET_STS_ERROR;
3888: RAISE FND_API.G_EXC_ERROR;
3889: END IF;
3890:
3891: FND_MSG_PUB.Count_And_Get
3884: FND_MESSAGE.SET_TOKEN('ATTR_VALUE', p_pm_event_reference);
3885: FND_MSG_PUB.ADD;
3886: End If;
3887: p_return_status := FND_API.G_RET_STS_ERROR;
3888: RAISE FND_API.G_EXC_ERROR;
3889: END IF;
3890:
3891: FND_MSG_PUB.Count_And_Get
3892: ( p_encoded => l_encoded
3903:
3904: pa_debug.reset_err_stack; -- Reset error stack
3905:
3906: EXCEPTION
3907: WHEN FND_API.G_EXC_ERROR
3908: THEN
3909: ROLLBACK to fetch_event;
3910: p_event_id_out := NULL; -- NOCOPY
3911: p_return_status := FND_API.G_RET_STS_ERROR;
3907: WHEN FND_API.G_EXC_ERROR
3908: THEN
3909: ROLLBACK to fetch_event;
3910: p_event_id_out := NULL; -- NOCOPY
3911: p_return_status := FND_API.G_RET_STS_ERROR;
3912: FND_MSG_PUB.Count_And_Get
3913: ( p_encoded => l_encoded
3914: , p_count => p_msg_count
3915: , p_data => p_msg_data );
3913: ( p_encoded => l_encoded
3914: , p_count => p_msg_count
3915: , p_data => p_msg_data );
3916:
3917: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3918: THEN
3919: ROLLBACK to fetch_event;
3920: p_event_id_out := NULL; -- NOCOPY
3921: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3917: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3918: THEN
3919: ROLLBACK to fetch_event;
3920: p_event_id_out := NULL; -- NOCOPY
3921: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3922: FND_MSG_PUB.Count_And_Get
3923: ( p_encoded => l_encoded
3924: , p_count => p_msg_count
3925: , p_data => p_msg_data );
3927: WHEN OTHERS
3928: THEN
3929: ROLLBACK to fetch_event;
3930: p_event_id_out := NULL; -- NOCOPY
3931: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3932:
3933: PA_EVENT_PUB.PACKAGE_NAME
3934: :='(event_reference='||p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
3935: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'FETCH_EVENT';
3995:
3996: --Set savepoint
3997: Savepoint check_delete_event_ok;
3998: p_msg_count := 0;
3999: p_return_status := FND_API.G_RET_STS_SUCCESS;
4000:
4001: --Log Message
4002: IF l_debug_mode = 'Y' THEN
4003: pa_debug.write_log (x_module => 'pa.plsql.PA_EVENT_PUB.CHECK_DELETE_EVENT_OK.begin'
4015: ,x_return_status =>p_return_status
4016: ,x_msg_count =>p_msg_count
4017: ,x_msg_data =>p_msg_data );
4018:
4019: If p_return_status <> FND_API.G_RET_STS_SUCCESS
4020: Then
4021: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4022: THEN
4023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4017: ,x_msg_data =>p_msg_data );
4018:
4019: If p_return_status <> FND_API.G_RET_STS_SUCCESS
4020: Then
4021: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4022: THEN
4023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4024:
4025: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
4019: If p_return_status <> FND_API.G_RET_STS_SUCCESS
4020: Then
4021: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4022: THEN
4023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4024:
4025: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
4026: THEN
4027: RAISE FND_API.G_EXC_ERROR;
4021: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4022: THEN
4023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4024:
4025: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
4026: THEN
4027: RAISE FND_API.G_EXC_ERROR;
4028: END IF;
4029: End If;
4023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4024:
4025: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
4026: THEN
4027: RAISE FND_API.G_EXC_ERROR;
4028: END IF;
4029: End If;
4030:
4031: --Log Message
4042: ,P_pm_event_reference =>l_pm_event_reference
4043: ,P_event_id =>l_event_id)
4044: ='N'
4045: Then
4046: p_return_status := FND_API.G_RET_STS_ERROR;
4047: RAISE FND_API.G_EXC_ERROR;
4048: End If;
4049:
4050: --Log Message
4043: ,P_event_id =>l_event_id)
4044: ='N'
4045: Then
4046: p_return_status := FND_API.G_RET_STS_ERROR;
4047: RAISE FND_API.G_EXC_ERROR;
4048: End If;
4049:
4050: --Log Message
4051: IF l_debug_mode = 'Y' THEN
4070: ,p_attribute2 => ''
4071: ,p_attribute3 => ''
4072: ,p_attribute4 => ''
4073: ,p_attribute5 => '');
4074: p_return_status := FND_API.G_RET_STS_ERROR;
4075: RAISE FND_API.G_EXC_ERROR;
4076: END IF;
4077:
4078: FND_MSG_PUB.Count_And_Get
4071: ,p_attribute3 => ''
4072: ,p_attribute4 => ''
4073: ,p_attribute5 => '');
4074: p_return_status := FND_API.G_RET_STS_ERROR;
4075: RAISE FND_API.G_EXC_ERROR;
4076: END IF;
4077:
4078: FND_MSG_PUB.Count_And_Get
4079: ( p_encoded => l_encoded
4083: pa_debug.reset_err_stack; -- Reset error stack
4084:
4085:
4086: EXCEPTION
4087: WHEN FND_API.G_EXC_ERROR
4088: THEN
4089: ROLLBACK to check_delete_event_ok;
4090: p_return_status := FND_API.G_RET_STS_ERROR;
4091: FND_MSG_PUB.Count_And_Get
4086: EXCEPTION
4087: WHEN FND_API.G_EXC_ERROR
4088: THEN
4089: ROLLBACK to check_delete_event_ok;
4090: p_return_status := FND_API.G_RET_STS_ERROR;
4091: FND_MSG_PUB.Count_And_Get
4092: ( p_encoded => l_encoded
4093: , p_count => p_msg_count
4094: , p_data => p_msg_data );
4092: ( p_encoded => l_encoded
4093: , p_count => p_msg_count
4094: , p_data => p_msg_data );
4095:
4096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4097: THEN
4098: ROLLBACK to check_delete_event_ok;
4099: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4100: FND_MSG_PUB.Count_And_Get
4095:
4096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4097: THEN
4098: ROLLBACK to check_delete_event_ok;
4099: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4100: FND_MSG_PUB.Count_And_Get
4101: ( p_encoded => l_encoded
4102: , p_count => p_msg_count
4103: , p_data => p_msg_data );
4104:
4105: WHEN OTHERS
4106: THEN
4107: ROLLBACK to check_delete_event_ok;
4108: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4109:
4110: PA_EVENT_PUB.PACKAGE_NAME
4111: :='(event_reference='||p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
4112: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'CHECK_DELETE_EVENT_OK';