69: --
70: -- End of Comments
71: -- ==============================================================================
72:
73: PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
74: PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
75: PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
76:
77: PROCEDURE Create_Ge_Ptnr_Resps(
70: -- End of Comments
71: -- ==============================================================================
72:
73: PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
74: PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
75: PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
76:
77: PROCEDURE Create_Ge_Ptnr_Resps(
78: p_api_version_number IN NUMBER,
71: -- ==============================================================================
72:
73: PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
74: PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
75: PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
76:
77: PROCEDURE Create_Ge_Ptnr_Resps(
78: p_api_version_number IN NUMBER,
79: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
120:
121: -- Initialize message list if p_init_msg_list is set to TRUE.
122: IF FND_API.to_Boolean( p_init_msg_list )
123: THEN
124: FND_MSG_PUB.initialize;
125: END IF;
126:
127:
128:
236: END IF;
237:
238:
239: -- Standard call to get message count and if count is 1, get message info.
240: FND_MSG_PUB.Count_And_Get
241: (p_count => x_msg_count,
242: p_data => x_msg_data
243: );
244: EXCEPTION
250: WHEN FND_API.G_EXC_ERROR THEN
251: ROLLBACK TO CREATE_Ge_Ptnr_Resps_PVT;
252: x_return_status := FND_API.G_RET_STS_ERROR;
253: -- Standard call to get message count and if count=1, get the message
254: FND_MSG_PUB.Count_And_Get (
255: p_encoded => FND_API.G_FALSE,
256: p_count => x_msg_count,
257: p_data => x_msg_data
258: );
260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
261: ROLLBACK TO CREATE_Ge_Ptnr_Resps_PVT;
262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
263: -- Standard call to get message count and if count=1, get the message
264: FND_MSG_PUB.Count_And_Get (
265: p_encoded => FND_API.G_FALSE,
266: p_count => x_msg_count,
267: p_data => x_msg_data
268: );
269:
270: WHEN OTHERS THEN
271: ROLLBACK TO CREATE_Ge_Ptnr_Resps_PVT;
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
274: THEN
275: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
276: END IF;
277: -- Standard call to get message count and if count=1, get the message
271: ROLLBACK TO CREATE_Ge_Ptnr_Resps_PVT;
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
274: THEN
275: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
276: END IF;
277: -- Standard call to get message count and if count=1, get the message
278: FND_MSG_PUB.Count_And_Get (
279: p_encoded => FND_API.G_FALSE,
274: THEN
275: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
276: END IF;
277: -- Standard call to get message count and if count=1, get the message
278: FND_MSG_PUB.Count_And_Get (
279: p_encoded => FND_API.G_FALSE,
280: p_count => x_msg_count,
281: p_data => x_msg_data
282: );
364:
365: -- Initialize message list if p_init_msg_list is set to TRUE.
366: IF FND_API.to_Boolean( p_init_msg_list )
367: THEN
368: FND_MSG_PUB.initialize;
369: END IF;
370:
371:
372:
492: END IF;
493:
494:
495: -- Standard call to get message count and if count is 1, get message info.
496: FND_MSG_PUB.Count_And_Get
497: (p_count => x_msg_count,
498: p_data => x_msg_data
499: );
500: EXCEPTION
506: WHEN FND_API.G_EXC_ERROR THEN
507: ROLLBACK TO UPDATE_Ge_Ptnr_Resps_PVT;
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: -- Standard call to get message count and if count=1, get the message
510: FND_MSG_PUB.Count_And_Get (
511: p_encoded => FND_API.G_FALSE,
512: p_count => x_msg_count,
513: p_data => x_msg_data
514: );
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517: ROLLBACK TO UPDATE_Ge_Ptnr_Resps_PVT;
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
519: -- Standard call to get message count and if count=1, get the message
520: FND_MSG_PUB.Count_And_Get (
521: p_encoded => FND_API.G_FALSE,
522: p_count => x_msg_count,
523: p_data => x_msg_data
524: );
525:
526: WHEN OTHERS THEN
527: ROLLBACK TO UPDATE_Ge_Ptnr_Resps_PVT;
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
530: THEN
531: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
532: END IF;
533: -- Standard call to get message count and if count=1, get the message
527: ROLLBACK TO UPDATE_Ge_Ptnr_Resps_PVT;
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
530: THEN
531: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
532: END IF;
533: -- Standard call to get message count and if count=1, get the message
534: FND_MSG_PUB.Count_And_Get (
535: p_encoded => FND_API.G_FALSE,
530: THEN
531: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
532: END IF;
533: -- Standard call to get message count and if count=1, get the message
534: FND_MSG_PUB.Count_And_Get (
535: p_encoded => FND_API.G_FALSE,
536: p_count => x_msg_count,
537: p_data => x_msg_data
538: );
606:
607: -- Initialize message list if p_init_msg_list is set to TRUE.
608: IF FND_API.to_Boolean( p_init_msg_list )
609: THEN
610: FND_MSG_PUB.initialize;
611: END IF;
612:
613:
614:
654: END IF;
655:
656:
657: -- Standard call to get message count and if count is 1, get message info.
658: FND_MSG_PUB.Count_And_Get
659: (p_count => x_msg_count,
660: p_data => x_msg_data
661: );
662: EXCEPTION
668: WHEN FND_API.G_EXC_ERROR THEN
669: ROLLBACK TO DELETE_Ge_Ptnr_Resps_PVT;
670: x_return_status := FND_API.G_RET_STS_ERROR;
671: -- Standard call to get message count and if count=1, get the message
672: FND_MSG_PUB.Count_And_Get (
673: p_encoded => FND_API.G_FALSE,
674: p_count => x_msg_count,
675: p_data => x_msg_data
676: );
678: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
679: ROLLBACK TO DELETE_Ge_Ptnr_Resps_PVT;
680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
681: -- Standard call to get message count and if count=1, get the message
682: FND_MSG_PUB.Count_And_Get (
683: p_encoded => FND_API.G_FALSE,
684: p_count => x_msg_count,
685: p_data => x_msg_data
686: );
687:
688: WHEN OTHERS THEN
689: ROLLBACK TO DELETE_Ge_Ptnr_Resps_PVT;
690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
691: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
692: THEN
693: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
694: END IF;
695: -- Standard call to get message count and if count=1, get the message
689: ROLLBACK TO DELETE_Ge_Ptnr_Resps_PVT;
690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
691: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
692: THEN
693: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
694: END IF;
695: -- Standard call to get message count and if count=1, get the message
696: FND_MSG_PUB.Count_And_Get (
697: p_encoded => FND_API.G_FALSE,
692: THEN
693: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
694: END IF;
695: -- Standard call to get message count and if count=1, get the message
696: FND_MSG_PUB.Count_And_Get (
697: p_encoded => FND_API.G_FALSE,
698: p_count => x_msg_count,
699: p_data => x_msg_data
700: );
765:
766: -- Initialize message list if p_init_msg_list is set to TRUE.
767: IF FND_API.to_Boolean( p_init_msg_list )
768: THEN
769: FND_MSG_PUB.initialize;
770: END IF;
771:
772:
773:
790: Pv_Ge_Ptnr_Resps_Pkg.Lock_Row(l_ptnr_resp_id,p_object_version);
791:
792:
793: -------------------- finish --------------------------
794: FND_MSG_PUB.count_and_get(
795: p_encoded => FND_API.g_false,
796: p_count => x_msg_count,
797: p_data => x_msg_data);
798: IF (PV_DEBUG_HIGH_ON) THEN
808: WHEN FND_API.G_EXC_ERROR THEN
809: ROLLBACK TO LOCK_Ge_Ptnr_Resps_PVT;
810: x_return_status := FND_API.G_RET_STS_ERROR;
811: -- Standard call to get message count and if count=1, get the message
812: FND_MSG_PUB.Count_And_Get (
813: p_encoded => FND_API.G_FALSE,
814: p_count => x_msg_count,
815: p_data => x_msg_data
816: );
818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
819: ROLLBACK TO LOCK_Ge_Ptnr_Resps_PVT;
820: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
821: -- Standard call to get message count and if count=1, get the message
822: FND_MSG_PUB.Count_And_Get (
823: p_encoded => FND_API.G_FALSE,
824: p_count => x_msg_count,
825: p_data => x_msg_data
826: );
827:
828: WHEN OTHERS THEN
829: ROLLBACK TO LOCK_Ge_Ptnr_Resps_PVT;
830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
831: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
832: THEN
833: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
834: END IF;
835: -- Standard call to get message count and if count=1, get the message
829: ROLLBACK TO LOCK_Ge_Ptnr_Resps_PVT;
830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
831: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
832: THEN
833: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
834: END IF;
835: -- Standard call to get message count and if count=1, get the message
836: FND_MSG_PUB.Count_And_Get (
837: p_encoded => FND_API.G_FALSE,
832: THEN
833: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
834: END IF;
835: -- Standard call to get message count and if count=1, get the message
836: FND_MSG_PUB.Count_And_Get (
837: p_encoded => FND_API.G_FALSE,
838: p_count => x_msg_count,
839: p_data => x_msg_data
840: );
990: p_ge_ptnr_resps_rec.source_resp_map_rule_id, -- Value of fk to be validated against the parent object's pk column
991: PVX_utility_PVT.g_number, -- datatype of fk
992: null
993: ) = FND_API.g_false THEN
994: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
995: FND_MESSAGE.set_name('PV', 'PV_NOT_VALID_RESP_MAP_RULE_ID');
996: FND_MSG_PUB.add;
997: END IF;
998: END IF;
992: null
993: ) = FND_API.g_false THEN
994: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
995: FND_MESSAGE.set_name('PV', 'PV_NOT_VALID_RESP_MAP_RULE_ID');
996: FND_MSG_PUB.add;
997: END IF;
998: END IF;
999: ELSIF (p_ge_ptnr_resps_rec.resp_type_code = 'STORES') THEN
1000: IF PVX_Utility_PVT.check_fk_exists(
1003: p_ge_ptnr_resps_rec.source_resp_map_rule_id, -- Value of fk to be validated against the parent object's pk column
1004: PVX_utility_PVT.g_number, -- datatype of fk
1005: null
1006: ) = FND_API.g_false THEN
1007: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1008: FND_MESSAGE.set_name('PV', 'PV_NOT_VALID_RESP_MAP_RULE_ID');
1009: FND_MSG_PUB.add;
1010: END IF;
1011: END IF;
1005: null
1006: ) = FND_API.g_false THEN
1007: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1008: FND_MESSAGE.set_name('PV', 'PV_NOT_VALID_RESP_MAP_RULE_ID');
1009: FND_MSG_PUB.add;
1010: END IF;
1011: END IF;
1012: END IF;
1013:
1214:
1215: -- Initialize message list if p_init_msg_list is set to TRUE.
1216: IF FND_API.to_Boolean( p_init_msg_list )
1217: THEN
1218: FND_MSG_PUB.initialize;
1219: END IF;
1220:
1221:
1222: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1279: END IF;
1280:
1281:
1282: -- Standard call to get message count and if count is 1, get message info.
1283: FND_MSG_PUB.Count_And_Get
1284: (p_count => x_msg_count,
1285: p_data => x_msg_data
1286: );
1287: EXCEPTION
1293: WHEN FND_API.G_EXC_ERROR THEN
1294: ROLLBACK TO VALIDATE_Ge_Ptnr_Resps_;
1295: x_return_status := FND_API.G_RET_STS_ERROR;
1296: -- Standard call to get message count and if count=1, get the message
1297: FND_MSG_PUB.Count_And_Get (
1298: p_encoded => FND_API.G_FALSE,
1299: p_count => x_msg_count,
1300: p_data => x_msg_data
1301: );
1303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1304: ROLLBACK TO VALIDATE_Ge_Ptnr_Resps_;
1305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1306: -- Standard call to get message count and if count=1, get the message
1307: FND_MSG_PUB.Count_And_Get (
1308: p_encoded => FND_API.G_FALSE,
1309: p_count => x_msg_count,
1310: p_data => x_msg_data
1311: );
1312:
1313: WHEN OTHERS THEN
1314: ROLLBACK TO VALIDATE_Ge_Ptnr_Resps_;
1315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1316: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1317: THEN
1318: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1319: END IF;
1320: -- Standard call to get message count and if count=1, get the message
1314: ROLLBACK TO VALIDATE_Ge_Ptnr_Resps_;
1315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1316: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1317: THEN
1318: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1319: END IF;
1320: -- Standard call to get message count and if count=1, get the message
1321: FND_MSG_PUB.Count_And_Get (
1322: p_encoded => FND_API.G_FALSE,
1317: THEN
1318: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1319: END IF;
1320: -- Standard call to get message count and if count=1, get the message
1321: FND_MSG_PUB.Count_And_Get (
1322: p_encoded => FND_API.G_FALSE,
1323: p_count => x_msg_count,
1324: p_data => x_msg_data
1325: );
1338: BEGIN
1339: -- Initialize message list if p_init_msg_list is set to TRUE.
1340: IF FND_API.to_Boolean( p_init_msg_list )
1341: THEN
1342: FND_MSG_PUB.initialize;
1343: END IF;
1344:
1345:
1346:
1357:
1358: PVX_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
1359: END IF;
1360: -- Standard call to get message count and if count is 1, get message info.
1361: FND_MSG_PUB.Count_And_Get
1362: (p_count => x_msg_count,
1363: p_data => x_msg_data
1364: );
1365: END Validate_ge_ptnr_resps_Rec;