[Home] [Help]
1: PACKAGE BODY PVX_PRTNR_PRFLS_PVT AS
2: /* $Header: pvxvppfb.pls 115.19 2003/08/07 05:20:43 rdsharma ship $ */
3:
4:
5: g_pkg_name CONSTANT VARCHAR2(30):='PVX_PRTNR_PRFLS_PVT';
1: PACKAGE BODY PVX_PRTNR_PRFLS_PVT AS
2: /* $Header: pvxvppfb.pls 115.19 2003/08/07 05:20:43 rdsharma ship $ */
3:
4:
5: g_pkg_name CONSTANT VARCHAR2(30):='PVX_PRTNR_PRFLS_PVT';
6:
7: ---------------------------------------------------------------------
8: -- PROCEDURE
9: -- Create_Prtnr_Prfls
765: END IF;
766: RAISE FND_API.g_exc_error;
767: END IF;
768:
769: -- Call the PVX_PRTNR_PRFLS_PVT.Update_Prtnr_Prfls recursively
770: -- if partner_id also happens to be a related_partner_id for some records
771:
772: -- Open the cursor cur_related_record
773: OPEN cur_related_record(l_prtnr_prfls_rec.partner_id);
783: ||TO_CHAR(currec_related_record.partner_id)
784: ||' and the profile_id = '||TO_CHAR(currec_related_record.partner_profile_id));
785: */
786: -- Initialize the record with G_MISS values
787: PVX_PRTNR_PRFLS_PVT.Init_Prtnr_Prfls_Rec(rel_prtnr_prfls_rec);
788: --dbms_output.put_line('Initialized Record');
789:
790: -- Set the record for the related partner_id
791: rel_prtnr_prfls_rec.partner_profile_id := currec_related_record.partner_profile_id;
798: --dbms_output.put_line('rel_prtnr_prfls_rec.lead_share_appr_flag = '||rel_prtnr_prfls_rec.lead_share_appr_flag);
799: --dbms_output.put_line('rel_prtnr_prfls_rec.sales_partner_flag = '||rel_prtnr_prfls_rec.sales_partner_flag);
800:
801: --dbms_output.put_line('Before updating the related_partner_id record');
802: PVX_PRTNR_PRFLS_PVT.Update_Prtnr_Prfls(
803: p_api_version => p_api_version
804: ,p_init_msg_list => p_init_msg_list
805: ,p_commit => p_commit
806: ,p_validation_level => p_validation_level
1592:
1593: END Complete_Prtnr_Prfls_Rec;
1594:
1595:
1596: END PVX_PRTNR_PRFLS_PVT;