71: --------------------- initialize -----------------------
72: SAVEPOINT Create_Prtnr_Prfls;
73:
74: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
75: PVX_Utility_PVT.debug_message(l_full_name||': start');
76: END IF;
77:
78: --dbms_output.put_line(l_full_name||': start');
79:
93: x_return_status := FND_API.g_ret_sts_success;
94:
95: ----------------------- validate -----------------------
96: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
97: PVX_Utility_PVT.debug_message(l_full_name ||': validate');
98: END IF;
99:
100: --dbms_output.put_line(l_full_name||': validate');
101: Validate_Prtnr_Prfls(
119: --dbms_output.put_line(l_full_name||': back validate');
120:
121: -------------------------- insert --------------------------
122: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
123: PVX_Utility_PVT.debug_message(l_full_name ||': insert');
124: END IF;
125:
126:
127: IF l_prtnr_prfls_rec.partner_profile_id IS NULL THEN
251: p_data => x_msg_data
252: );
253:
254: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
255: PVX_Utility_PVT.debug_message(l_full_name ||': end');
256: END IF;
257:
258: EXCEPTION
259:
322: --------------------- initialize -----------------------
323: SAVEPOINT Delete_Prtnr_Prfls;
324:
325: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
326: PVX_Utility_PVT.debug_message(l_full_name||': start');
327: END IF;
328:
329: IF FND_API.to_boolean(p_init_msg_list) THEN
330: FND_MSG_PUB.initialize;
342: x_return_status := FND_API.G_RET_STS_SUCCESS;
343:
344: ------------------------ delete ------------------------
345: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
346: PVX_Utility_PVT.debug_message(l_full_name ||': delete');
347: END IF;
348:
349: DELETE FROM PV_PARTNER_PROFILES
350: WHERE partner_profile_id = p_partner_profile_id
370: p_data => x_msg_data
371: );
372:
373: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
374: PVX_Utility_PVT.debug_message(l_full_name ||': end');
375: END IF;
376:
377: EXCEPTION
378:
446: BEGIN
447:
448: -------------------- initialize ------------------------
449: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
450: PVX_Utility_PVT.debug_message(l_full_name||': start');
451: END IF;
452:
453: IF FND_API.to_boolean(p_init_msg_list) THEN
454: FND_MSG_PUB.initialize;
466: x_return_status := FND_API.G_RET_STS_SUCCESS;
467:
468: ------------------------ lock -------------------------
469: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
470: PVX_Utility_PVT.debug_message(l_full_name||': lock');
471: END IF;
472:
473: OPEN c_prtnr_prfls;
474: FETCH c_prtnr_prfls INTO l_partner_profile_id;
490: p_data => x_msg_data
491: );
492:
493: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
494: PVX_Utility_PVT.debug_message(l_full_name ||': end');
495: END IF;
496:
497: EXCEPTION
498:
495: END IF;
496:
497: EXCEPTION
498:
499: WHEN PVX_Utility_PVT.resource_locked THEN
500: x_return_status := FND_API.g_ret_sts_error;
501: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
502: FND_MESSAGE.set_name('PV', 'PV_RESOURCE_LOCKED');
503: FND_MSG_PUB.add;
597: -------------------- initialize -------------------------
598: SAVEPOINT Update_Prtnr_Prfls;
599:
600: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
601: PVX_Utility_PVT.debug_message(l_full_name||': start');
602: END IF;
603:
604: IF FND_API.to_boolean(p_init_msg_list) THEN
605: FND_MSG_PUB.initialize;
619: --dbms_output.put_line('Before Validate');
620:
621: ----------------------- validate ----------------------
622: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
623: PVX_Utility_PVT.debug_message(l_full_name ||': validate');
624: END IF;
625:
626: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
627: Check_Prtnr_Prfls_Items(
662:
663:
664: -------------------------- update --------------------
665: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
666: PVX_Utility_PVT.debug_message(l_full_name ||': update');
667: END IF;
668:
669: --dbms_output.put_line('partner_profile_id = '||TO_CHAR(l_prtnr_prfls_rec.partner_profile_id));
670: --dbms_output.put_line('object_version_number = '||TO_CHAR(l_prtnr_prfls_rec.object_version_number));
843: p_data => x_msg_data
844: );
845:
846: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
847: PVX_Utility_PVT.debug_message(l_full_name ||': end');
848: END IF;
849:
850: EXCEPTION
851:
911: BEGIN
912:
913: ----------------------- initialize --------------------
914: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
915: PVX_Utility_PVT.debug_message(l_full_name||': start');
916: END IF;
917:
918: IF FND_API.to_boolean(p_init_msg_list) THEN
919: FND_MSG_PUB.initialize;
931: x_return_status := FND_API.g_ret_sts_success;
932:
933: ---------------------- validate ------------------------
934: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
935: PVX_Utility_PVT.debug_message(l_full_name||': check items');
936: END IF;
937: --dbms_output.put_line(l_full_name||': start item validate');
938:
939: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
950: END IF;
951: END IF;
952:
953: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
954: PVX_Utility_PVT.debug_message(l_full_name||': check record');
955: END IF;
956:
957: --dbms_output.put_line(l_full_name||': start record validate');
958:
977: p_data => x_msg_data
978: );
979:
980: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
981: PVX_Utility_PVT.debug_message(l_full_name ||': end');
982: END IF;
983:
984: EXCEPTION
985:
1165: -- check if this is unique.
1166: IF p_validation_mode = JTF_PLSQL_API.g_create
1167: AND p_prtnr_prfls_rec.partner_profile_id IS NOT NULL
1168: THEN
1169: IF PVX_Utility_PVT.check_uniqueness(
1170: 'PV_PARTNER_PROFILES',
1171: 'partner_profile_id = ' || p_prtnr_prfls_rec.partner_profile_id
1172: ) = FND_API.g_false
1173: THEN
1203:
1204:
1205: ----------------------- partner_id ------------------------
1206: IF p_prtnr_prfls_rec.partner_id <> FND_API.g_miss_num THEN
1207: IF PVX_Utility_PVT.check_fk_exists(
1208: 'HZ_PARTIES', -- Parent schema object having the primary key
1209: 'PARTY_ID', -- Column name in the parent object that maps to the fk value
1210: p_prtnr_prfls_rec.partner_id, -- Value of fk to be validated against the parent object's pk column
1211: PVX_utility_PVT.g_number -- datatype of fk
1207: IF PVX_Utility_PVT.check_fk_exists(
1208: 'HZ_PARTIES', -- Parent schema object having the primary key
1209: 'PARTY_ID', -- Column name in the parent object that maps to the fk value
1210: p_prtnr_prfls_rec.partner_id, -- Value of fk to be validated against the parent object's pk column
1211: PVX_utility_PVT.g_number -- datatype of fk
1212: ) = FND_API.g_false
1213: THEN
1214: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1215: THEN
1264: ----------------------- lead_share_appr_flag ------------------------
1265: IF p_prtnr_prfls_rec.lead_share_appr_flag <> FND_API.g_miss_char
1266: AND p_prtnr_prfls_rec.lead_share_appr_flag IS NOT NULL
1267: THEN
1268: IF PVX_Utility_PVT.is_Y_or_N(p_prtnr_prfls_rec.lead_share_appr_flag) = FND_API.g_false
1269: THEN
1270: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1271: THEN
1272: FND_MESSAGE.set_name('PV', 'PV_INVALID_FLAG');