[Home] [Help]
63:
64: -- Debug Message
65: IF (AMS_DEBUG_HIGH_ON) THEN
66:
67: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
68: END IF;
69:
70:
71: -- Initialize API return status to SUCCESS
92: -- ==============================================================
93:
94: IF FND_GLOBAL.User_Id IS NULL
95: THEN
96: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
97: RAISE FND_API.G_EXC_ERROR;
98: END IF;
99:
100: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
100: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
101: THEN
102: -- Debug message
103: IF (AMS_DEBUG_HIGH_ON) THEN
104: AMS_UTILITY_PVT.debug_message('Private API: Calling Validate_Ps_Posting');
105: END IF;
106:
107: -- Invoke validation procedures
108: Validate_ps_posting(
120: END IF;
121:
122: -- Debug Message
123: IF (AMS_DEBUG_HIGH_ON) THEN
124: AMS_UTILITY_PVT.debug_message('Private API: Calling create table handler');
125: END IF;
126:
127: BEGIN
128: select 'X' into l_tempchar
195:
196: -- Debug Message
197: IF (AMS_DEBUG_HIGH_ON) THEN
198:
199: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
200: END IF;
201:
202: -- Standard call to get message count and if count is 1, get message info.
203: FND_MSG_PUB.Count_And_Get
205: p_data => x_msg_data
206: );
207: EXCEPTION
208:
209: WHEN AMS_Utility_PVT.resource_locked THEN
210: x_return_status := FND_API.g_ret_sts_error;
211: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
212:
213: WHEN FND_API.G_EXC_ERROR THEN
207: EXCEPTION
208:
209: WHEN AMS_Utility_PVT.resource_locked THEN
210: x_return_status := FND_API.g_ret_sts_error;
211: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
212:
213: WHEN FND_API.G_EXC_ERROR THEN
214: ROLLBACK TO CREATE_Ps_Posting_PVT;
215: x_return_status := FND_API.G_RET_STS_ERROR;
288: END IF;
289:
290: -- Debug Message
291: IF (AMS_DEBUG_HIGH_ON) THEN
292: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
293: END IF;
294:
295:
296: -- Initialize API return status to SUCCESS
297: x_return_status := FND_API.G_RET_STS_SUCCESS;
298:
299: -- Debug Message
300: IF (AMS_DEBUG_HIGH_ON) THEN
301: AMS_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
302: END IF;
303:
304: OPEN c_object_version(p_ps_posting_rec.posting_id);
305:
305:
306: FETCH c_object_version INTO l_object_version;
307:
308: If ( c_object_version%NOTFOUND) THEN
309: AMS_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
310: p_token_name => 'INFO',
311: p_token_value => 'Ps_Posting') ;
312: RAISE FND_API.G_EXC_ERROR;
313: END IF;
312: RAISE FND_API.G_EXC_ERROR;
313: END IF;
314: -- Debug Message
315: IF (AMS_DEBUG_HIGH_ON) THEN
316: AMS_UTILITY_PVT.debug_message('Private API: - Close Cursor');
317: END IF;
318: CLOSE c_object_version;
319:
320:
319:
320:
321: IF (p_ps_posting_rec.object_version_number is NULL or
322: p_ps_posting_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
323: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
324: p_token_name => 'COLUMN',
325: p_token_value => 'object_version_number') ;
326: raise FND_API.G_EXC_ERROR;
327: END IF;
327: END IF;
328:
329: -- Check Whether record has been changed by someone else
330: IF (p_ps_posting_rec.object_version_number <> l_object_version) THEN
331: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
332: p_token_name => 'INFO',
333: p_token_value => 'Ps_Posting') ;
334: raise FND_API.G_EXC_ERROR;
335: END IF;
336:
337: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
338: -- Debug message
339: IF (AMS_DEBUG_HIGH_ON) THEN
340: AMS_UTILITY_PVT.debug_message('Private API: Validate_Ps_Posting');
341: END IF;
342:
343: -- Invoke validation procedures
344: Validate_ps_posting(
356: END IF;
357:
358: -- Debug Message
359: IF (AMS_DEBUG_HIGH_ON) THEN
360: AMS_UTILITY_PVT.debug_message('Private API: Updating B and TL Tables');
361: END IF;
362:
363: Update AMS_IBA_PS_POSTINGS_B
364: SET
399: RAISE FND_API.g_exc_error;
400: END IF;
401:
402: IF (AMS_DEBUG_HIGH_ON) THEN
403: AMS_UTILITY_PVT.debug_message('Private API: Updated B');
404: END IF;
405:
406: BEGIN
407: select 'X' into l_tempchar
443: RAISE FND_API.g_exc_error;
444: END IF;
445:
446: IF (AMS_DEBUG_HIGH_ON) THEN
447: AMS_UTILITY_PVT.debug_message('Private API: Updated TL');
448: END IF;
449:
450: -- Standard check for p_commit
451: IF FND_API.to_Boolean( p_commit )
454: END IF;
455:
456: -- Debug Message
457: IF (AMS_DEBUG_HIGH_ON) THEN
458: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
459: END IF;
460:
461: -- Standard call to get message count and if count is 1, get message info.
462: FND_MSG_PUB.Count_And_Get
464: p_data => x_msg_data);
465:
466: EXCEPTION
467:
468: WHEN AMS_Utility_PVT.resource_locked THEN
469: x_return_status := FND_API.g_ret_sts_error;
470: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
471:
472: WHEN FND_API.G_EXC_ERROR THEN
466: EXCEPTION
467:
468: WHEN AMS_Utility_PVT.resource_locked THEN
469: x_return_status := FND_API.g_ret_sts_error;
470: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
471:
472: WHEN FND_API.G_EXC_ERROR THEN
473: ROLLBACK TO UPDATE_Ps_Posting_PVT;
474: x_return_status := FND_API.G_RET_STS_ERROR;
561:
562: -- Debug Message
563: IF (AMS_DEBUG_HIGH_ON) THEN
564:
565: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
566: END IF;
567:
568: -- Initialize API return status to SUCCESS
569: x_return_status := FND_API.G_RET_STS_SUCCESS;
647:
648: -- Debug Message
649: IF (AMS_DEBUG_HIGH_ON) THEN
650:
651: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
652: END IF;
653:
654: -- Standard call to get message count and if count is 1, get message info.
655: FND_MSG_PUB.Count_And_Get
657: p_data => x_msg_data
658: );
659: EXCEPTION
660:
661: WHEN AMS_Utility_PVT.resource_locked THEN
662: x_return_status := FND_API.g_ret_sts_error;
663: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
664:
665: WHEN FND_API.G_EXC_ERROR THEN
659: EXCEPTION
660:
661: WHEN AMS_Utility_PVT.resource_locked THEN
662: x_return_status := FND_API.g_ret_sts_error;
663: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
664:
665: WHEN FND_API.G_EXC_ERROR THEN
666: ROLLBACK TO DELETE_Ps_Posting_PVT;
667: x_return_status := FND_API.G_RET_STS_ERROR;
729:
730: -- Debug Message
731: IF (AMS_DEBUG_HIGH_ON) THEN
732:
733: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
734: END IF;
735:
736: -- Initialize message list if p_init_msg_list is set to TRUE.
737: IF FND_API.to_Boolean( p_init_msg_list )
755:
756: ------------------------ lock -------------------------
757:
758: IF (AMS_DEBUG_HIGH_ON) THEN
759: AMS_Utility_PVT.debug_message(l_full_name||': start');
760: END IF;
761: OPEN c_Ps_Posting;
762:
763: FETCH c_Ps_Posting INTO l_POSTING_ID;
779: p_count => x_msg_count,
780: p_data => x_msg_data);
781: IF (AMS_DEBUG_HIGH_ON) THEN
782:
783: AMS_Utility_PVT.debug_message(l_full_name ||': end');
784: END IF;
785: EXCEPTION
786:
787: WHEN AMS_Utility_PVT.resource_locked THEN
783: AMS_Utility_PVT.debug_message(l_full_name ||': end');
784: END IF;
785: EXCEPTION
786:
787: WHEN AMS_Utility_PVT.resource_locked THEN
788: x_return_status := FND_API.g_ret_sts_error;
789: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
790:
791: WHEN FND_API.G_EXC_ERROR THEN
785: EXCEPTION
786:
787: WHEN AMS_Utility_PVT.resource_locked THEN
788: x_return_status := FND_API.g_ret_sts_error;
789: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
790:
791: WHEN FND_API.G_EXC_ERROR THEN
792: ROLLBACK TO LOCK_Ps_Posting_PVT;
793: x_return_status := FND_API.G_RET_STS_ERROR;
928: IF (AMS_DEBUG_HIGH_ON) THEN
929:
930:
931:
932: AMS_Utility_PVT.debug_message('In '||L_API_NAME);
933:
934: END IF;
935:
936: -- Standard call to check for call compatibility.
964: END IF;
965: END IF;
966:
967: IF (AMS_DEBUG_HIGH_ON) THEN
968: AMS_Utility_PVT.debug_message(L_API_NAME || ': validation done');
969: END IF;
970:
971: -------------------- finish --------------------------
972: FND_MSG_PUB.count_and_get
977: );
978:
979: EXCEPTION
980:
981: WHEN AMS_Utility_PVT.resource_locked THEN
982: x_return_status := FND_API.g_ret_sts_error;
983: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
984:
985: WHEN FND_API.G_EXC_ERROR THEN
979: EXCEPTION
980:
981: WHEN AMS_Utility_PVT.resource_locked THEN
982: x_return_status := FND_API.g_ret_sts_error;
983: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
984:
985: WHEN FND_API.G_EXC_ERROR THEN
986: ROLLBACK TO VALIDATE_Ps_Posting_;
987: x_return_status := FND_API.G_RET_STS_ERROR;
1043:
1044: -- Debug Message
1045: IF (AMS_DEBUG_HIGH_ON) THEN
1046:
1047: AMS_UTILITY_PVT.debug_message('Private API: Validate_ps_Posting_rec');
1048: END IF;
1049: -- Standard call to get message count and if count is 1, get message info.
1050: FND_MSG_PUB.Count_And_Get
1051: (p_count => x_msg_count,
1073: BEGIN
1074: -- initialize
1075: IF (AMS_DEBUG_HIGH_ON) THEN
1076:
1077: AMS_Utility_PVT.debug_message(l_full_name || ': start');
1078: END IF;
1079:
1080: x_return_status := FND_API.g_ret_sts_success;
1081:
1081:
1082: -- check required items
1083: IF (AMS_DEBUG_HIGH_ON) THEN
1084:
1085: AMS_Utility_PVT.debug_message(l_full_name || ': check required items');
1086: END IF;
1087: check_ps_posting_req_items
1088: (
1089: p_validation_mode => p_validation_mode,
1097:
1098: -- check foreign key items
1099: IF (AMS_DEBUG_HIGH_ON) THEN
1100:
1101: AMS_Utility_PVT.debug_message(l_full_name || ': check fk items');
1102: END IF;
1103: check_ps_posting_fk_items
1104: (
1105: p_ps_posting_rec => p_ps_posting_rec,
1109: IF (AMS_DEBUG_HIGH_ON) THEN
1110:
1111:
1112:
1113: AMS_Utility_PVT.debug_message(l_full_name || ': done with checking items');
1114:
1115: END IF;
1116:
1117: IF x_return_status <> FND_API.g_ret_sts_success THEN