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
214: ,p_organization_name => p_event_in_rec.p_organization_name
215: ,p_calling_place => 'CREATE_EVENT'
216: ,x_return_status => p_return_status );
217:
218: If p_return_status <> FND_API.G_RET_STS_SUCCESS
219: Then
220: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
221: THEN
222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
216: ,x_return_status => p_return_status );
217:
218: If p_return_status <> FND_API.G_RET_STS_SUCCESS
219: Then
220: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
221: THEN
222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
223:
224: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
218: If p_return_status <> FND_API.G_RET_STS_SUCCESS
219: Then
220: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
221: THEN
222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
223:
224: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
225: THEN
226: RAISE FND_API.G_EXC_ERROR;
220: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
221: THEN
222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
223:
224: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
225: THEN
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
228: End If;
222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
223:
224: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
225: THEN
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
228: End If;
229:
230: --Log Message
251: ,p_attribute3 => ''
252: ,p_attribute4 => ''
253: ,p_attribute5 => '');
254: END IF;
255: p_return_status := FND_API.G_RET_STS_ERROR;
256: --If project_id is invalid then terminate further validation by raising error.
257: RAISE FND_API.G_EXC_ERROR;
258: End If;
259:
253: ,p_attribute5 => '');
254: END IF;
255: p_return_status := FND_API.G_RET_STS_ERROR;
256: --If project_id is invalid then terminate further validation by raising error.
257: RAISE FND_API.G_EXC_ERROR;
258: End If;
259:
260: --Log Message
261: IF l_debug_mode = 'Y' THEN
292: x_return_status => p_return_status,
293: x_msg_count => p_msg_count,
294: x_msg_data => p_msg_data);
295:
296: If p_return_status <> FND_API.G_RET_STS_SUCCESS
297: Then
298: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
299: THEN
300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
294: x_msg_data => p_msg_data);
295:
296: If p_return_status <> FND_API.G_RET_STS_SUCCESS
297: Then
298: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
299: THEN
300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
301:
302: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
296: If p_return_status <> FND_API.G_RET_STS_SUCCESS
297: Then
298: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
299: THEN
300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
301:
302: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
303: THEN
304: RAISE FND_API.G_EXC_ERROR;
298: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
299: THEN
300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
301:
302: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
303: THEN
304: RAISE FND_API.G_EXC_ERROR;
305: END IF;
306: End If;
300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
301:
302: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
303: THEN
304: RAISE FND_API.G_EXC_ERROR;
305: END IF;
306: End If;
307:
308: --Log Message
336: ,x_inv_org_id =>p_inv_org_id
337: ,x_agreement_id =>p_agreement_id -- Federal Uptake
338: ) = 'N'
339: Then
340: p_return_status := FND_API.G_RET_STS_ERROR;
341: RAISE FND_API.G_EXC_ERROR;
342: End If;
343:
344: --Log Message
337: ,x_agreement_id =>p_agreement_id -- Federal Uptake
338: ) = 'N'
339: Then
340: p_return_status := FND_API.G_RET_STS_ERROR;
341: RAISE FND_API.G_EXC_ERROR;
342: End If;
343:
344: --Log Message
345: IF l_debug_mode = 'Y' THEN
382: ,p_attribute3 => ''
383: ,p_attribute4 => ''
384: ,p_attribute5 => '');
385: END IF;
386: p_return_status := FND_API.G_RET_STS_ERROR;
387: RAISE FND_API.G_EXC_ERROR;
388: END IF;
389: Else
390: p_event_in_rec.P_desc_flex_name :=NULL;
383: ,p_attribute4 => ''
384: ,p_attribute5 => '');
385: END IF;
386: p_return_status := FND_API.G_RET_STS_ERROR;
387: RAISE FND_API.G_EXC_ERROR;
388: END IF;
389: Else
390: p_event_in_rec.P_desc_flex_name :=NULL;
391: p_event_in_rec.P_attribute_category :=NULL;
932: ,X_Record_Version_Number => 1
933: ,X_Agreement_Id =>p_agreement_id); -- Fedral Uptake
934:
935: --If commit is set to true then commit to database.
936: IF FND_API.to_boolean( p_commit )
937: THEN
938: COMMIT;
939: END IF;
940:
938: COMMIT;
939: END IF;
940:
941: EXCEPTION
942: WHEN FND_API.G_EXC_ERROR
943: THEN
944: ROLLBACK TO create_event;
945: l_return_status := FND_API.G_RET_STS_ERROR;
946:
941: EXCEPTION
942: WHEN FND_API.G_EXC_ERROR
943: THEN
944: ROLLBACK TO create_event;
945: l_return_status := FND_API.G_RET_STS_ERROR;
946:
947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
948: THEN
949: ROLLBACK TO create_event;
943: THEN
944: ROLLBACK TO create_event;
945: l_return_status := FND_API.G_RET_STS_ERROR;
946:
947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
948: THEN
949: ROLLBACK TO create_event;
950: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
951:
946:
947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
948: THEN
949: ROLLBACK TO create_event;
950: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
951:
952: WHEN pa_event_pvt.pub_excp
953: THEN
954: ROLLBACK TO create_event;
951:
952: WHEN pa_event_pvt.pub_excp
953: THEN
954: ROLLBACK TO create_event;
955: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
956: PA_EVENT_PUB.PACKAGE_NAME
957: :='(Event Reference='||p_event_in_rec.p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
958: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||'CREATE_EVENT';
959:
968:
969: WHEN OTHERS
970: THEN
971: ROLLBACK TO create_event;
972: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
973: PA_EVENT_PUB.PACKAGE_NAME
974: :='(Event Reference='||p_event_in_rec.p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
975: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'CREATE_EVENT';
976:
1006: ,p_data => p_msg_data );
1007:
1008:
1009: EXCEPTION
1010: WHEN FND_API.G_EXC_ERROR
1011: THEN
1012: p_return_status := FND_API.G_RET_STS_ERROR;
1013: FND_MSG_PUB.Count_And_Get
1014: ( p_encoded => l_encoded
1008:
1009: EXCEPTION
1010: WHEN FND_API.G_EXC_ERROR
1011: THEN
1012: p_return_status := FND_API.G_RET_STS_ERROR;
1013: FND_MSG_PUB.Count_And_Get
1014: ( p_encoded => l_encoded
1015: ,p_count => p_msg_count
1016: ,p_data => p_msg_data );
1014: ( p_encoded => l_encoded
1015: ,p_count => p_msg_count
1016: ,p_data => p_msg_data );
1017:
1018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1019: THEN
1020: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1021: FND_MSG_PUB.Count_And_Get
1022: ( p_encoded => l_encoded
1016: ,p_data => p_msg_data );
1017:
1018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1019: THEN
1020: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1021: FND_MSG_PUB.Count_And_Get
1022: ( p_encoded => l_encoded
1023: ,p_count => p_msg_count
1024: ,p_data => p_msg_data );
1024: ,p_data => p_msg_data );
1025:
1026: WHEN pa_event_pvt.pub_excp
1027: THEN
1028: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1029: PA_EVENT_PUB.PACKAGE_NAME
1030: :='(event_reference='||p_event_in_rec.p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
1031: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||'CREATE_EVENT';
1032:
1045: ,p_data => p_msg_data );
1046:
1047: WHEN OTHERS
1048: THEN
1049: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1050: PA_EVENT_PUB.PACKAGE_NAME
1051: :='(event_reference='||p_event_in_rec.p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
1052: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'CREATE_EVENT';
1053:
1164: l_inventory_item_id pa_events.inventory_item_id%type;
1165: l_organization_id pa_events.organization_id%type;
1166: l_funding_rate_date_code pa_projects_all.funding_rate_date_code%TYPE;
1167: l_encoded varchar2(1):='F';
1168: l_return_status varchar2(1):= FND_API.G_RET_STS_SUCCESS;
1169: l_record_version_number pa_events.record_version_number%TYPE;
1170:
1171: /* Added for bug 7110782 */
1172: l_event_processed varchar2(1) := 'N';
1192: ,x_log_level => 5);
1193: END IF;
1194:
1195: p_msg_count := 0;
1196: p_return_status := FND_API.G_RET_STS_SUCCESS;
1197:
1198: --Log Message
1199: IF l_debug_mode = 'Y' THEN
1200: pa_debug.write_log (x_module => 'pa.plsql.PA_EVENT_PUB.UPDATE_EVENT.begin'
1213: ,x_msg_count =>p_msg_count
1214: ,x_msg_data =>p_msg_data );
1215:
1216:
1217: If p_return_status <> FND_API.G_RET_STS_SUCCESS
1218: Then
1219: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1220: THEN
1221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1215:
1216:
1217: If p_return_status <> FND_API.G_RET_STS_SUCCESS
1218: Then
1219: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1220: THEN
1221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1222:
1223: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
1217: If p_return_status <> FND_API.G_RET_STS_SUCCESS
1218: Then
1219: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1220: THEN
1221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1222:
1223: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
1224: THEN
1225: RAISE FND_API.G_EXC_ERROR;
1219: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1220: THEN
1221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1222:
1223: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
1224: THEN
1225: RAISE FND_API.G_EXC_ERROR;
1226: END IF;
1227: End If;
1221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1222:
1223: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
1224: THEN
1225: RAISE FND_API.G_EXC_ERROR;
1226: END IF;
1227: End If;
1228:
1229: tot_in_rec := p_event_in_tbl.first;
1310: ,p_organization_name => p_event_in_rec.p_organization_name
1311: ,p_calling_place => 'UPDATE_EVENT'
1312: ,x_return_status => p_return_status );
1313:
1314: If p_return_status <> FND_API.G_RET_STS_SUCCESS
1315: Then
1316: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1317: THEN
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1312: ,x_return_status => p_return_status );
1313:
1314: If p_return_status <> FND_API.G_RET_STS_SUCCESS
1315: Then
1316: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1317: THEN
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319:
1320: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
1314: If p_return_status <> FND_API.G_RET_STS_SUCCESS
1315: Then
1316: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1317: THEN
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319:
1320: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
1321: THEN
1322: RAISE FND_API.G_EXC_ERROR;
1316: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1317: THEN
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319:
1320: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
1321: THEN
1322: RAISE FND_API.G_EXC_ERROR;
1323: END IF;
1324: End If;
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319:
1320: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
1321: THEN
1322: RAISE FND_API.G_EXC_ERROR;
1323: END IF;
1324: End If;
1325: End of comment for 3118781*/
1326: --Log Message
1337: ,P_pm_event_reference =>p_event_in_rec.P_pm_event_reference
1338: ,P_event_id =>p_event_in_rec.P_event_id)
1339: ='N'
1340: Then
1341: p_return_status := FND_API.G_RET_STS_ERROR;
1342: RAISE FND_API.G_EXC_ERROR;
1343: End If;
1344:
1345: --Deriving the project_id using the event_reference and product_code
1338: ,P_event_id =>p_event_in_rec.P_event_id)
1339: ='N'
1340: Then
1341: p_return_status := FND_API.G_RET_STS_ERROR;
1342: RAISE FND_API.G_EXC_ERROR;
1343: End If;
1344:
1345: --Deriving the project_id using the event_reference and product_code
1346: Select project_id, record_version_number
1370: ,p_attribute3 => ''
1371: ,p_attribute4 => ''
1372: ,p_attribute5 => '');
1373: END IF;
1374: p_return_status := FND_API.G_RET_STS_ERROR;
1375: RAISE FND_API.G_EXC_ERROR;
1376: End If;
1377:
1378: --Log Message
1371: ,p_attribute4 => ''
1372: ,p_attribute5 => '');
1373: END IF;
1374: p_return_status := FND_API.G_RET_STS_ERROR;
1375: RAISE FND_API.G_EXC_ERROR;
1376: End If;
1377:
1378: --Log Message
1379: IF l_debug_mode = 'Y' THEN
1497: ,x_inv_org_id =>p_inv_org_id
1498: ,x_agreement_id =>P_agreement_id -- Federal Uptake
1499: ) = 'N'
1500: Then
1501: p_return_status := FND_API.G_RET_STS_ERROR;
1502: RAISE FND_API.G_EXC_ERROR;
1503:
1504: End If;
1505:
1498: ,x_agreement_id =>P_agreement_id -- Federal Uptake
1499: ) = 'N'
1500: Then
1501: p_return_status := FND_API.G_RET_STS_ERROR;
1502: RAISE FND_API.G_EXC_ERROR;
1503:
1504: End If;
1505:
1506: --Log Message
1543: ,p_attribute3 => ''
1544: ,p_attribute4 => ''
1545: ,p_attribute5 => '');
1546: END IF;
1547: p_return_status := FND_API.G_RET_STS_ERROR;
1548: RAISE FND_API.G_EXC_ERROR;
1549: END IF;
1550: --Defaulting attribute categories.
1551: Select decode(p_event_in_rec.P_attribute_category
1544: ,p_attribute4 => ''
1545: ,p_attribute5 => '');
1546: END IF;
1547: p_return_status := FND_API.G_RET_STS_ERROR;
1548: RAISE FND_API.G_EXC_ERROR;
1549: END IF;
1550: --Defaulting attribute categories.
1551: Select decode(p_event_in_rec.P_attribute_category
1552: ,NULL,attribute_category
2177: ,p_attribute3 => ''
2178: ,p_attribute4 => ''
2179: ,p_attribute5 => '');
2180: END IF;
2181: p_return_status := FND_API.G_RET_STS_ERROR;
2182: RAISE FND_API.G_EXC_ERROR;
2183: End If;
2184:
2185: /* Code added for Bug 7110782 - starts */
2178: ,p_attribute4 => ''
2179: ,p_attribute5 => '');
2180: END IF;
2181: p_return_status := FND_API.G_RET_STS_ERROR;
2182: RAISE FND_API.G_EXC_ERROR;
2183: End If;
2184:
2185: /* Code added for Bug 7110782 - starts */
2186:
2768:
2769: END IF; /* Added for Bug 7110782 */
2770:
2771: --If commit is set to true then commit to database.
2772: IF FND_API.to_boolean( p_commit )
2773: THEN
2774: COMMIT;
2775: END IF;
2776:
2774: COMMIT;
2775: END IF;
2776:
2777: EXCEPTION
2778: WHEN FND_API.G_EXC_ERROR
2779: THEN
2780: ROLLBACK TO Update_event;
2781: l_return_status := FND_API.G_RET_STS_ERROR;
2782:
2777: EXCEPTION
2778: WHEN FND_API.G_EXC_ERROR
2779: THEN
2780: ROLLBACK TO Update_event;
2781: l_return_status := FND_API.G_RET_STS_ERROR;
2782:
2783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2784: THEN
2785: ROLLBACK TO Update_event;
2779: THEN
2780: ROLLBACK TO Update_event;
2781: l_return_status := FND_API.G_RET_STS_ERROR;
2782:
2783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2784: THEN
2785: ROLLBACK TO Update_event;
2786: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2787:
2782:
2783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2784: THEN
2785: ROLLBACK TO Update_event;
2786: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2787:
2788: WHEN pa_event_pvt.pub_excp
2789: THEN
2790: ROLLBACK TO Update_event;
2787:
2788: WHEN pa_event_pvt.pub_excp
2789: THEN
2790: ROLLBACK TO Update_event;
2791: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2792: PA_EVENT_PUB.PACKAGE_NAME
2793: :='(event_reference='||p_event_in_rec.p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
2794: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||'UPDATE_EVENT';
2795:
2803: END IF;
2804:
2805: WHEN OTHERS
2806: THEN
2807: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2808: ROLLBACK TO Update_event;
2809: PA_EVENT_PUB.PACKAGE_NAME
2810: :='(event_reference='||p_event_in_rec.p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
2811: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'UPDATE_EVENT';
2841: ,p_count => p_msg_count
2842: ,p_data => p_msg_data );
2843:
2844: EXCEPTION
2845: WHEN FND_API.G_EXC_ERROR
2846: THEN
2847: p_return_status := FND_API.G_RET_STS_ERROR;
2848: FND_MSG_PUB.Count_And_Get
2849: ( p_encoded => l_encoded
2843:
2844: EXCEPTION
2845: WHEN FND_API.G_EXC_ERROR
2846: THEN
2847: p_return_status := FND_API.G_RET_STS_ERROR;
2848: FND_MSG_PUB.Count_And_Get
2849: ( p_encoded => l_encoded
2850: ,p_count => p_msg_count
2851: ,p_data => p_msg_data );
2849: ( p_encoded => l_encoded
2850: ,p_count => p_msg_count
2851: ,p_data => p_msg_data );
2852:
2853: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2854: THEN
2855: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2856: FND_MSG_PUB.Count_And_Get
2857: ( p_encoded => l_encoded
2851: ,p_data => p_msg_data );
2852:
2853: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2854: THEN
2855: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2856: FND_MSG_PUB.Count_And_Get
2857: ( p_encoded => l_encoded
2858: ,p_count => p_msg_count
2859: ,p_data => p_msg_data );
2859: ,p_data => p_msg_data );
2860:
2861: WHEN pa_event_pvt.pub_excp
2862: THEN
2863: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2864: PA_EVENT_PUB.PACKAGE_NAME
2865: :='(event_reference='||p_event_in_rec.p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
2866: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||'UPDATE_EVENT';
2867:
2879: ,p_data => p_msg_data );
2880:
2881: WHEN OTHERS
2882: THEN
2883: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2884:
2885: PA_EVENT_PUB.PACKAGE_NAME
2886: :='(event_reference='||p_event_in_rec.p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
2887: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'UPDATE_EVENT';
2951:
2952: --Seting Savepoint
2953: Savepoint delete_event;
2954: p_msg_count := 0;
2955: p_return_status := FND_API.G_RET_STS_SUCCESS;
2956: --Log Message
2957: IF l_debug_mode = 'Y' THEN
2958: pa_debug.write_log (x_module => 'pa.plsql.PA_EVENT_PUB.DELETE_EVENT.begin'
2959: ,x_msg => 'Calling mandatory input parameters-1'
2970: ,x_return_status =>p_return_status
2971: ,x_msg_count =>p_msg_count
2972: ,x_msg_data =>p_msg_data );
2973:
2974: If p_return_status <> FND_API.G_RET_STS_SUCCESS
2975: Then
2976: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2977: THEN
2978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2972: ,x_msg_data =>p_msg_data );
2973:
2974: If p_return_status <> FND_API.G_RET_STS_SUCCESS
2975: Then
2976: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2977: THEN
2978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2979:
2980: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
2974: If p_return_status <> FND_API.G_RET_STS_SUCCESS
2975: Then
2976: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2977: THEN
2978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2979:
2980: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
2981: THEN
2982: RAISE FND_API.G_EXC_ERROR;
2976: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2977: THEN
2978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2979:
2980: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
2981: THEN
2982: RAISE FND_API.G_EXC_ERROR;
2983: END IF;
2984: End If;
2978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2979:
2980: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
2981: THEN
2982: RAISE FND_API.G_EXC_ERROR;
2983: END IF;
2984: End If;
2985:
2986: --Log Message
3000: ,p_organization_name => NULL
3001: ,p_calling_place => 'DELETE_EVENT'
3002: ,x_return_status => p_return_status );
3003:
3004: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3005: Then
3006: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3007: THEN
3008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3002: ,x_return_status => p_return_status );
3003:
3004: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3005: Then
3006: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3007: THEN
3008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3009:
3010: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3004: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3005: Then
3006: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3007: THEN
3008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3009:
3010: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3011: THEN
3012: RAISE FND_API.G_EXC_ERROR;
3006: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3007: THEN
3008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3009:
3010: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3011: THEN
3012: RAISE FND_API.G_EXC_ERROR;
3013: END IF;
3014: End If;
3008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3009:
3010: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3011: THEN
3012: RAISE FND_API.G_EXC_ERROR;
3013: END IF;
3014: End If;
3015: End of comment for 3118781 */
3016: --Log Message
3028: ,P_pm_event_reference =>l_pm_event_reference
3029: ,P_event_id =>l_event_id_out)
3030: ='N'
3031: Then
3032: p_return_status := FND_API.G_RET_STS_ERROR;
3033: RAISE FND_API.G_EXC_ERROR;
3034: End If;
3035:
3036: --Log Message
3029: ,P_event_id =>l_event_id_out)
3030: ='N'
3031: Then
3032: p_return_status := FND_API.G_RET_STS_ERROR;
3033: RAISE FND_API.G_EXC_ERROR;
3034: End If;
3035:
3036: --Log Message
3037: IF l_debug_mode = 'Y' THEN
3058: ,p_attribute3 => ''
3059: ,p_attribute4 => ''
3060: ,p_attribute5 => '');
3061: END IF;
3062: p_return_status := FND_API.G_RET_STS_ERROR;
3063: RAISE FND_API.G_EXC_ERROR;
3064:
3065: End If;
3066:
3059: ,p_attribute4 => ''
3060: ,p_attribute5 => '');
3061: END IF;
3062: p_return_status := FND_API.G_RET_STS_ERROR;
3063: RAISE FND_API.G_EXC_ERROR;
3064:
3065: End If;
3066:
3067:
3086:
3087: PA_EVENTS_PKG.Delete_Row(X_Rowid => P_rowid);
3088:
3089: --If commit is set to true then commit to database.
3090: IF FND_API.to_boolean( p_commit )
3091: THEN
3092: COMMIT;
3093: END IF;
3094:
3102: pa_debug.reset_err_stack; -- Reset error stack
3103:
3104:
3105: EXCEPTION
3106: WHEN FND_API.G_EXC_ERROR
3107: THEN
3108: ROLLBACK to delete_event;
3109: p_return_status := FND_API.G_RET_STS_ERROR;
3110: FND_MSG_PUB.Count_And_Get
3105: EXCEPTION
3106: WHEN FND_API.G_EXC_ERROR
3107: THEN
3108: ROLLBACK to delete_event;
3109: p_return_status := FND_API.G_RET_STS_ERROR;
3110: FND_MSG_PUB.Count_And_Get
3111: ( p_encoded => l_encoded
3112: , p_count => p_msg_count
3113: , p_data => p_msg_data );
3111: ( p_encoded => l_encoded
3112: , p_count => p_msg_count
3113: , p_data => p_msg_data );
3114:
3115: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3116: THEN
3117: ROLLBACK to delete_event;
3118: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3119: FND_MSG_PUB.Count_And_Get
3114:
3115: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3116: THEN
3117: ROLLBACK to delete_event;
3118: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3119: FND_MSG_PUB.Count_And_Get
3120: ( p_encoded => l_encoded
3121: , p_count => p_msg_count
3122: , p_data => p_msg_data );
3123:
3124: WHEN pa_event_pvt.pub_excp
3125: THEN
3126: ROLLBACK to delete_event;
3127: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3128:
3129: PA_EVENT_PUB.PACKAGE_NAME
3130: :='(event_reference='||p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
3131: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||'DELETE_EVENT';
3146:
3147: WHEN OTHERS
3148: THEN
3149: ROLLBACK to delete_event;
3150: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3151:
3152: PA_EVENT_PUB.PACKAGE_NAME
3153: :='(event_reference='||p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
3154: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'DELETE_EVENT';
3303: ,x_log_level => 5);
3304: End If;
3305:
3306: -- Standard call to check for api compatibility.
3307: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3308: p_api_version_number ,
3309: p_api_name ,
3310: G_PKG_NAME )
3311: THEN
3308: p_api_version_number ,
3309: p_api_name ,
3310: G_PKG_NAME )
3311: THEN
3312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3313: END IF;
3314:
3315: --Log Message
3316: IF l_debug_mode = 'Y' THEN
3379: G_event_tbl_count := G_event_tbl_count+1;
3380:
3381: pa_debug.reset_err_stack; -- Reset error stack
3382: EXCEPTION
3383: WHEN FND_API.G_EXC_ERROR
3384: THEN
3385: p_return_status := FND_API.G_RET_STS_ERROR;
3386: FND_MSG_PUB.Count_And_Get
3387: ( p_count => p_msg_count ,
3381: pa_debug.reset_err_stack; -- Reset error stack
3382: EXCEPTION
3383: WHEN FND_API.G_EXC_ERROR
3384: THEN
3385: p_return_status := FND_API.G_RET_STS_ERROR;
3386: FND_MSG_PUB.Count_And_Get
3387: ( p_count => p_msg_count ,
3388: p_data => p_msg_data );
3389:
3386: FND_MSG_PUB.Count_And_Get
3387: ( p_count => p_msg_count ,
3388: p_data => p_msg_data );
3389:
3390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3391: THEN
3392: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3393: FND_MSG_PUB.Count_And_Get
3394: ( p_count => p_msg_count
3388: p_data => p_msg_data );
3389:
3390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3391: THEN
3392: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3393: FND_MSG_PUB.Count_And_Get
3394: ( p_count => p_msg_count
3395: , p_data => p_msg_data );
3396:
3395: , p_data => p_msg_data );
3396:
3397: WHEN OTHERS
3398: THEN
3399: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3400:
3401: PA_EVENT_PUB.PACKAGE_NAME
3402: :='(event_reference='||G_event_in_tbl(G_event_tbl_count).P_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
3403: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'LOAD_EVENT';
3462: ,x_log_level => 5);
3463: End If;
3464:
3465: -- Standard call to check for api compatibility.
3466: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3467: p_api_version_number ,
3468: p_api_name ,
3469: G_PKG_NAME )
3470: THEN
3467: p_api_version_number ,
3468: p_api_name ,
3469: G_PKG_NAME )
3470: THEN
3471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3472: END IF;
3473:
3474: --Log Message
3475: IF l_debug_mode = 'Y' THEN
3490: ,P_event_in_tbl =>G_event_in_tbl
3491: ,P_event_out_tbl =>G_event_out_tbl);
3492:
3493:
3494: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3495: Then
3496: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3497: THEN
3498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3492:
3493:
3494: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3495: Then
3496: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3497: THEN
3498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3499:
3500: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3494: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3495: Then
3496: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3497: THEN
3498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3499:
3500: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3501: THEN
3502: RAISE FND_API.G_EXC_ERROR;
3496: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3497: THEN
3498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3499:
3500: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3501: THEN
3502: RAISE FND_API.G_EXC_ERROR;
3503: END IF;
3504: End If;
3498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3499:
3500: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3501: THEN
3502: RAISE FND_API.G_EXC_ERROR;
3503: END IF;
3504: End If;
3505:
3506: -- If single event is processed then return the event_id
3515: pa_debug.reset_err_stack; -- Reset error stack
3516:
3517:
3518: EXCEPTION
3519: WHEN FND_API.G_EXC_ERROR
3520: THEN
3521: p_event_id_out := NULL; -- NOCOPY
3522: p_return_status := FND_API.G_RET_STS_ERROR;
3523: FND_MSG_PUB.Count_And_Get
3518: EXCEPTION
3519: WHEN FND_API.G_EXC_ERROR
3520: THEN
3521: p_event_id_out := NULL; -- NOCOPY
3522: p_return_status := FND_API.G_RET_STS_ERROR;
3523: FND_MSG_PUB.Count_And_Get
3524: ( p_encoded => l_encoded
3525: ,p_count => p_msg_count
3526: ,p_data => p_msg_data );
3524: ( p_encoded => l_encoded
3525: ,p_count => p_msg_count
3526: ,p_data => p_msg_data );
3527:
3528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3529: THEN
3530: p_event_id_out := NULL; -- NOCOPY
3531: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3532: FND_MSG_PUB.Count_And_Get
3527:
3528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3529: THEN
3530: p_event_id_out := NULL; -- NOCOPY
3531: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3532: FND_MSG_PUB.Count_And_Get
3533: ( p_encoded => l_encoded
3534: ,p_count => p_msg_count
3535: ,p_data => p_msg_data );
3536:
3537: WHEN OTHERS
3538: THEN
3539: p_event_id_out := NULL; -- NOCOPY
3540: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3541:
3542: PA_EVENT_PUB.PACKAGE_NAME
3543: :=PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
3544: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'EXECUTE_CREATE_EVENT';
3607: ,x_log_level => 5);
3608: End If;
3609:
3610: -- Standard call to check for api compatibility.
3611: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3612: p_api_version_number ,
3613: p_api_name ,
3614: G_PKG_NAME )
3615: THEN
3612: p_api_version_number ,
3613: p_api_name ,
3614: G_PKG_NAME )
3615: THEN
3616: p_return_status:=FND_API.G_RET_STS_ERROR;
3617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3618: END IF;
3619:
3620: --Log Message
3613: p_api_name ,
3614: G_PKG_NAME )
3615: THEN
3616: p_return_status:=FND_API.G_RET_STS_ERROR;
3617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3618: END IF;
3619:
3620: --Log Message
3621: IF l_debug_mode = 'Y' THEN
3636: ,P_pm_product_code =>p_pm_product_code
3637: ,P_event_in_tbl =>G_event_in_tbl
3638: ,P_event_out_tbl =>G_event_out_tbl);
3639:
3640: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3641: Then
3642: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3643: THEN
3644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3638: ,P_event_out_tbl =>G_event_out_tbl);
3639:
3640: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3641: Then
3642: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3643: THEN
3644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3645:
3646: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3640: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3641: Then
3642: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3643: THEN
3644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3645:
3646: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3647: THEN
3648: RAISE FND_API.G_EXC_ERROR;
3642: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3643: THEN
3644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3645:
3646: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3647: THEN
3648: RAISE FND_API.G_EXC_ERROR;
3649: END IF;
3650: End If;
3644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3645:
3646: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3647: THEN
3648: RAISE FND_API.G_EXC_ERROR;
3649: END IF;
3650: End If;
3651:
3652: pa_debug.reset_err_stack; -- Reset error stack
3652: pa_debug.reset_err_stack; -- Reset error stack
3653:
3654:
3655: EXCEPTION
3656: WHEN FND_API.G_EXC_ERROR
3657: THEN
3658: p_return_status := FND_API.G_RET_STS_ERROR;
3659: FND_MSG_PUB.Count_And_Get
3660: ( p_encoded => l_encoded
3654:
3655: EXCEPTION
3656: WHEN FND_API.G_EXC_ERROR
3657: THEN
3658: p_return_status := FND_API.G_RET_STS_ERROR;
3659: FND_MSG_PUB.Count_And_Get
3660: ( p_encoded => l_encoded
3661: ,p_count => p_msg_count
3662: ,p_data => p_msg_data );
3660: ( p_encoded => l_encoded
3661: ,p_count => p_msg_count
3662: ,p_data => p_msg_data );
3663:
3664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3665: THEN
3666: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3667: FND_MSG_PUB.Count_And_Get
3668: ( p_encoded => l_encoded
3662: ,p_data => p_msg_data );
3663:
3664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3665: THEN
3666: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3667: FND_MSG_PUB.Count_And_Get
3668: ( p_encoded => l_encoded
3669: ,p_count => p_msg_count
3670: ,p_data => p_msg_data );
3670: ,p_data => p_msg_data );
3671:
3672: WHEN OTHERS
3673: THEN
3674: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3675:
3676: PA_EVENT_PUB.PACKAGE_NAME
3677: :=PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
3678: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'EXECUTE_UPDATE_EVENT';
3772:
3773: --Set savepoint
3774: Savepoint fetch_event;
3775: p_msg_count := 0;
3776: p_return_status := FND_API.G_RET_STS_SUCCESS;
3777:
3778: --Log Message
3779: IF l_debug_mode = 'Y' THEN
3780: pa_debug.write_log (x_module => 'pa.plsql.PA_EVENT_PUB.FETCH_EVENT.begin'
3782: ,x_log_level => 5);
3783: End If;
3784:
3785: -- Standard call to check for api compatibility.
3786: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3787: p_api_version_number ,
3788: p_api_name ,
3789: G_PKG_NAME )
3790: THEN
3787: p_api_version_number ,
3788: p_api_name ,
3789: G_PKG_NAME )
3790: THEN
3791: p_return_status:=FND_API.G_RET_STS_ERROR;
3792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3793: END IF;
3794: -- CHECK WHETHER MANDATORY INCOMING PARAMETER PRODUCT CODE EXIST
3795:
3788: p_api_name ,
3789: G_PKG_NAME )
3790: THEN
3791: p_return_status:=FND_API.G_RET_STS_ERROR;
3792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3793: END IF;
3794: -- CHECK WHETHER MANDATORY INCOMING PARAMETER PRODUCT CODE EXIST
3795:
3796: IF (p_pm_product_code IS NULL)
3808: ,p_attribute3 => ''
3809: ,p_attribute4 => ''
3810: ,p_attribute5 => '');
3811: END IF;
3812: p_return_status := FND_API.G_RET_STS_ERROR;
3813: RAISE FND_API.G_EXC_ERROR;
3814: END IF;
3815:
3816: --Log Message
3809: ,p_attribute4 => ''
3810: ,p_attribute5 => '');
3811: END IF;
3812: p_return_status := FND_API.G_RET_STS_ERROR;
3813: RAISE FND_API.G_EXC_ERROR;
3814: END IF;
3815:
3816: --Log Message
3817: IF l_debug_mode = 'Y' THEN
3841: FND_MESSAGE.SET_TOKEN('ATTR_NAME','p_pm_event_reference');
3842: FND_MESSAGE.SET_TOKEN('ATTR_VALUE', p_pm_event_reference);
3843: FND_MSG_PUB.ADD;
3844: End If;
3845: p_return_status := FND_API.G_RET_STS_ERROR;
3846: RAISE FND_API.G_EXC_ERROR;
3847: END IF;
3848:
3849: FND_MSG_PUB.Count_And_Get
3842: FND_MESSAGE.SET_TOKEN('ATTR_VALUE', p_pm_event_reference);
3843: FND_MSG_PUB.ADD;
3844: End If;
3845: p_return_status := FND_API.G_RET_STS_ERROR;
3846: RAISE FND_API.G_EXC_ERROR;
3847: END IF;
3848:
3849: FND_MSG_PUB.Count_And_Get
3850: ( p_encoded => l_encoded
3861:
3862: pa_debug.reset_err_stack; -- Reset error stack
3863:
3864: EXCEPTION
3865: WHEN FND_API.G_EXC_ERROR
3866: THEN
3867: ROLLBACK to fetch_event;
3868: p_event_id_out := NULL; -- NOCOPY
3869: p_return_status := FND_API.G_RET_STS_ERROR;
3865: WHEN FND_API.G_EXC_ERROR
3866: THEN
3867: ROLLBACK to fetch_event;
3868: p_event_id_out := NULL; -- NOCOPY
3869: p_return_status := FND_API.G_RET_STS_ERROR;
3870: FND_MSG_PUB.Count_And_Get
3871: ( p_encoded => l_encoded
3872: , p_count => p_msg_count
3873: , p_data => p_msg_data );
3871: ( p_encoded => l_encoded
3872: , p_count => p_msg_count
3873: , p_data => p_msg_data );
3874:
3875: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3876: THEN
3877: ROLLBACK to fetch_event;
3878: p_event_id_out := NULL; -- NOCOPY
3879: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3875: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3876: THEN
3877: ROLLBACK to fetch_event;
3878: p_event_id_out := NULL; -- NOCOPY
3879: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3880: FND_MSG_PUB.Count_And_Get
3881: ( p_encoded => l_encoded
3882: , p_count => p_msg_count
3883: , p_data => p_msg_data );
3885: WHEN OTHERS
3886: THEN
3887: ROLLBACK to fetch_event;
3888: p_event_id_out := NULL; -- NOCOPY
3889: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3890:
3891: PA_EVENT_PUB.PACKAGE_NAME
3892: :='(event_reference='||p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
3893: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'FETCH_EVENT';
3953:
3954: --Set savepoint
3955: Savepoint check_delete_event_ok;
3956: p_msg_count := 0;
3957: p_return_status := FND_API.G_RET_STS_SUCCESS;
3958:
3959: --Log Message
3960: IF l_debug_mode = 'Y' THEN
3961: pa_debug.write_log (x_module => 'pa.plsql.PA_EVENT_PUB.CHECK_DELETE_EVENT_OK.begin'
3973: ,x_return_status =>p_return_status
3974: ,x_msg_count =>p_msg_count
3975: ,x_msg_data =>p_msg_data );
3976:
3977: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3978: Then
3979: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3980: THEN
3981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3975: ,x_msg_data =>p_msg_data );
3976:
3977: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3978: Then
3979: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3980: THEN
3981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3982:
3983: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3977: If p_return_status <> FND_API.G_RET_STS_SUCCESS
3978: Then
3979: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3980: THEN
3981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3982:
3983: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3984: THEN
3985: RAISE FND_API.G_EXC_ERROR;
3979: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3980: THEN
3981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3982:
3983: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3984: THEN
3985: RAISE FND_API.G_EXC_ERROR;
3986: END IF;
3987: End If;
3981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3982:
3983: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
3984: THEN
3985: RAISE FND_API.G_EXC_ERROR;
3986: END IF;
3987: End If;
3988:
3989: --Log Message
4000: ,P_pm_event_reference =>l_pm_event_reference
4001: ,P_event_id =>l_event_id)
4002: ='N'
4003: Then
4004: p_return_status := FND_API.G_RET_STS_ERROR;
4005: RAISE FND_API.G_EXC_ERROR;
4006: End If;
4007:
4008: --Log Message
4001: ,P_event_id =>l_event_id)
4002: ='N'
4003: Then
4004: p_return_status := FND_API.G_RET_STS_ERROR;
4005: RAISE FND_API.G_EXC_ERROR;
4006: End If;
4007:
4008: --Log Message
4009: IF l_debug_mode = 'Y' THEN
4028: ,p_attribute2 => ''
4029: ,p_attribute3 => ''
4030: ,p_attribute4 => ''
4031: ,p_attribute5 => '');
4032: p_return_status := FND_API.G_RET_STS_ERROR;
4033: RAISE FND_API.G_EXC_ERROR;
4034: END IF;
4035:
4036: FND_MSG_PUB.Count_And_Get
4029: ,p_attribute3 => ''
4030: ,p_attribute4 => ''
4031: ,p_attribute5 => '');
4032: p_return_status := FND_API.G_RET_STS_ERROR;
4033: RAISE FND_API.G_EXC_ERROR;
4034: END IF;
4035:
4036: FND_MSG_PUB.Count_And_Get
4037: ( p_encoded => l_encoded
4041: pa_debug.reset_err_stack; -- Reset error stack
4042:
4043:
4044: EXCEPTION
4045: WHEN FND_API.G_EXC_ERROR
4046: THEN
4047: ROLLBACK to check_delete_event_ok;
4048: p_return_status := FND_API.G_RET_STS_ERROR;
4049: FND_MSG_PUB.Count_And_Get
4044: EXCEPTION
4045: WHEN FND_API.G_EXC_ERROR
4046: THEN
4047: ROLLBACK to check_delete_event_ok;
4048: p_return_status := FND_API.G_RET_STS_ERROR;
4049: FND_MSG_PUB.Count_And_Get
4050: ( p_encoded => l_encoded
4051: , p_count => p_msg_count
4052: , p_data => p_msg_data );
4050: ( p_encoded => l_encoded
4051: , p_count => p_msg_count
4052: , p_data => p_msg_data );
4053:
4054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4055: THEN
4056: ROLLBACK to check_delete_event_ok;
4057: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4058: FND_MSG_PUB.Count_And_Get
4053:
4054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4055: THEN
4056: ROLLBACK to check_delete_event_ok;
4057: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4058: FND_MSG_PUB.Count_And_Get
4059: ( p_encoded => l_encoded
4060: , p_count => p_msg_count
4061: , p_data => p_msg_data );
4062:
4063: WHEN OTHERS
4064: THEN
4065: ROLLBACK to check_delete_event_ok;
4066: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4067:
4068: PA_EVENT_PUB.PACKAGE_NAME
4069: :='(event_reference='||p_pm_event_reference||')'||PA_EVENT_PUB.PACKAGE_NAME||'PUBLIC';
4070: PA_EVENT_PUB.PROCEDURE_NAME:=PA_EVENT_PUB.PROCEDURE_NAME||substr(sqlerrm,1,80)||'CHECK_DELETE_EVENT_OK';