The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_ptr_prgm_update_rec ptr_prgm_rec_type;
SELECT 'Y'
FROM dual
WHERE
EXISTS
(SELECT 1
FROM qp_list_attributes_v attr,pv_partner_program_b prg
WHERE prg.program_id = p_program_id
AND attr.PRODUCT_ATTR_VALUE = to_char(prg.inventory_item_id)
AND attr.PRODUCT_ATTRIBUTE_CONTEXT = 'ITEM'
AND attr.PRODUCT_ATTRIBUTE ='PRICING_ATTRIBUTE1'
AND NVL(attr.qpl_start_date_active,sysdate) <= sysdate
AND NVL(attr.qpl_END_DATE_ACTIVE,sysdate) >= sysdate
);
SELECT 'Y'
FROM dual
WHERE
EXISTS
(SELECT 1
FROM pv_partner_program_b
WHERE program_id = p_program_id
AND INVENTORY_ITEM_ID is not null
AND INVENTORY_ITEM_ORG_ID is not null
);
select membership_period_unit,membership_valid_period
FROM pv_partner_program_b
WHERE program_id=p_program_id;
select 'X'
from mtl_uom_conversions conv, mtl_units_of_measure uom
where nvl(conv.disable_date,sysdate+1) > sysdate
and conv.inventory_item_id = 0
and conv.unit_of_measure = uom.unit_of_measure
and nvl(uom.disable_date, sysdate+1) > sysdate
and conv.uom_code = l_uom_code;
l_price_list_line_tbl(1).last_updated_by := l_ptr_prgm_rec.last_updated_by; --l_ptr_prgm_rec.created_by;
l_pricing_attr_tbl(1).operation := QP_GLOBALS.G_OPR_CREATE;--QP_GLOBALS.G_OPR_UPDATE;
if (p_operation = QP_GLOBALS.G_OPR_UPDATE) THEN
l_price_list_line_tbl(1).list_line_id := p_list_header_id; --p_list_header_id; -- need to change the var name
l_price_list_line_tbl(1).operation := QP_GLOBALS.G_OPR_UPDATE;
l_pricing_attr_tbl(1).operation := QP_GLOBALS.G_OPR_UPDATE;
PVX_UTILITY_PVT.debug_message('IN UPDATE BLOCK : l_return_status : ' || l_return_status);
PVX_UTILITY_PVT.debug_message('IN UPDATE BLOCK : l_msg_count : ' || l_msg_count);
PVX_UTILITY_PVT.debug_message('IN UPDATE BLOCK : l_msg_data : ' || l_msg_data);
select 'X' from dual where exists
(select approver_id from ams_approvers appr,ams_approval_details apdt
where nvl(appr.start_date_active,sysdate)<=sysdate
and nvl(appr.end_date_active,sysdate)>=sysdate
and appr.ams_approval_detail_id =apdt.approval_detail_id
and apdt.approval_object_type=p_prgm_type_id
and apdt.approval_object='PRGT'
and apdt.approval_type='CONCEPT'
and nvl(apdt.active_flag,'Y') = 'Y'
and nvl(appr.active_flag,'Y')='Y'
);
select 'X' from dual where exists
(select approver_id from ams_approvers appr,ams_approval_details apdt
where nvl(appr.end_date_active,sysdate)>=edate
and appr.ams_approval_detail_id =apdt.approval_detail_id
and apdt.approval_object_type=p_prgm_id
and apdt.approval_object='PRGM'
and nvl(apdt.active_flag,'Y') = 'Y'
and nvl(appr.active_flag,'Y')='Y'
);
select 'X' from dual where exists (
select program_id from pv_partner_program_b
where program_parent_id=p_prgm_id
and enabled_flag='Y');
select program_start_date,program_end_date from pv_partner_program_b where program_id=p_parent_prgm_id;
select PROGRAM_STATUS_CODE from pv_partner_program_b where program_id=p_parent_prgm_id;
select PROGRAM_STATUS_CODE from pv_partner_program_b where program_id=p_parent_prgm_id;
select 'X' from dual where exists(
select PROGRAM_STATUS_CODE from pv_partner_program_b where program_parent_id=p_prgm_id
and PROGRAM_STATUS_CODE not in('CANCEL','CLOSED','ARCHIVE') and enabled_flag='Y' );
SELECT system_status_code
FROM ams_user_statuses_b
WHERE user_status_id = p_prgm_user_status_id
AND system_status_type = 'PV_PROGRAM_STATUS'
AND enabled_flag = 'Y';
SELECT PV_PARTNER_PROGRAM_B_S.NEXTVAL
FROM dual;
SELECT 'X'
FROM PV_PARTNER_PROGRAM_B
WHERE PROGRAM_ID = l_id;
SELECT RESOURCE_ID
FROM jtf_rs_resource_extns
WHERE USER_ID=p_user_id;
l_rules_rec.last_update_date := SYSDATE;
l_rules_rec.last_updated_by := FND_GLOBAL.USER_ID;
l_rules_rec.last_update_login := FND_GLOBAL.CONC_LOGIN_ID;
l_ptr_prgm_rec.last_update_date := SYSDATE;
l_ptr_prgm_rec.last_updated_by := FND_GLOBAL.USER_ID;
l_ptr_prgm_rec.last_update_login := FND_GLOBAL.CONC_LOGIN_ID;
l_access_rec.delete_flag := 'N' ;
PV_PARTNER_PROGRAM_PKG.Insert_Row(
px_program_id => l_ptr_prgm_rec.program_id
,p_PROGRAM_TYPE_ID => l_ptr_prgm_rec.PROGRAM_TYPE_ID
,p_custom_setup_id => l_ptr_prgm_rec.custom_setup_id
,p_program_level_code => l_ptr_prgm_rec.program_level_code
,p_program_parent_id => l_ptr_prgm_rec.program_parent_id
,p_program_owner_resource_id => l_ptr_prgm_rec.program_owner_resource_id
,p_program_start_date => l_ptr_prgm_rec.program_start_date
,p_program_end_date => l_ptr_prgm_rec.program_end_date
,p_allow_enrl_until_date => l_ptr_prgm_rec.allow_enrl_until_date
,p_citem_version_id => l_ptr_prgm_rec.citem_version_id
,p_membership_valid_period => l_ptr_prgm_rec.membership_valid_period
,p_membership_period_unit => l_ptr_prgm_rec.membership_period_unit
,p_process_rule_id => l_ptr_prgm_rec.process_rule_id
,p_prereq_process_rule_Id => l_ptr_prgm_rec.prereq_process_rule_Id
,p_program_status_code => l_ptr_prgm_rec.program_status_code
,p_submit_child_nodes => l_ptr_prgm_rec.submit_child_nodes
,p_inventory_item_id => l_ptr_prgm_rec.inventory_item_id
,p_inventory_item_org_id => l_ptr_prgm_rec.inventory_item_org_id
,p_bus_user_resp_id => l_ptr_prgm_rec.bus_user_resp_id
,p_admin_resp_id => l_ptr_prgm_rec.admin_resp_id
,p_no_fee_flag => l_ptr_prgm_rec.no_fee_flag
,p_vad_invite_allow_flag => l_ptr_prgm_rec.vad_invite_allow_flag
,p_global_mmbr_reqd_flag => l_ptr_prgm_rec.global_mmbr_reqd_flag
,p_waive_subsidiary_fee_flag => l_ptr_prgm_rec.waive_subsidiary_fee_flag
,p_qsnr_ttl_all_page_dsp_flag => l_ptr_prgm_rec.qsnr_ttl_all_page_dsp_flag
,p_qsnr_hdr_all_page_dsp_flag => l_ptr_prgm_rec.qsnr_hdr_all_page_dsp_flag
,p_qsnr_ftr_all_page_dsp_flag => l_ptr_prgm_rec.qsnr_ftr_all_page_dsp_flag
,p_allow_enrl_wout_chklst_flag => l_ptr_prgm_rec.allow_enrl_wout_chklst_flag
,p_user_status_id => l_ptr_prgm_rec.user_status_id
,p_enabled_flag => l_ptr_prgm_rec.enabled_flag
,p_attribute_category => l_ptr_prgm_rec.attribute_category
,p_attribute1 => l_ptr_prgm_rec.attribute1
,p_attribute2 => l_ptr_prgm_rec.attribute2
,p_attribute3 => l_ptr_prgm_rec.attribute3
,p_attribute4 => l_ptr_prgm_rec.attribute4
,p_attribute5 => l_ptr_prgm_rec.attribute5
,p_attribute6 => l_ptr_prgm_rec.attribute6
,p_attribute7 => l_ptr_prgm_rec.attribute7
,p_attribute8 => l_ptr_prgm_rec.attribute8
,p_attribute9 => l_ptr_prgm_rec.attribute9
,p_attribute10 => l_ptr_prgm_rec.attribute10
,p_attribute11 => l_ptr_prgm_rec.attribute11
,p_attribute12 => l_ptr_prgm_rec.attribute12
,p_attribute13 => l_ptr_prgm_rec.attribute13
,p_attribute14 => l_ptr_prgm_rec.attribute14
,p_attribute15 => l_ptr_prgm_rec.attribute15
,p_last_update_date => l_ptr_prgm_rec.last_update_date
,p_last_updated_by => l_ptr_prgm_rec.last_updated_by
,p_creation_date => l_ptr_prgm_rec.creation_date
,p_created_by => l_ptr_prgm_rec.created_by
,p_last_update_login => l_ptr_prgm_rec.last_update_login
,p_object_version_number => l_object_version_number
,p_program_name => l_ptr_prgm_rec.program_name
,p_program_description => l_ptr_prgm_rec.program_description
,p_source_lang => l_ptr_prgm_rec.source_lang
,p_qsnr_title => l_ptr_prgm_rec.qsnr_title
,p_qsnr_header => l_ptr_prgm_rec.qsnr_header
,p_qsnr_footer => l_ptr_prgm_rec.qsnr_footer
);
PVX_UTILITY_PVT.debug_message(' Calling Update_Partner_Program');
Update_Partner_Program(
p_api_version_number => 1.0
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
-- since we are updating the just created record, so we need not to validate it, so we are doing the validation level as NULL
,p_validation_level => FND_API.G_VALID_LEVEL_NONE
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_ptr_prgm_rec => l_ptr_prgm_rec
);
PROCEDURE Update_Partner_Program(
p_api_version_number IN NUMBER
,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,p_ptr_prgm_rec IN ptr_prgm_rec_type
)
IS
CURSOR c_get_partner_program(cv_program_id NUMBER) IS
SELECT *
FROM PV_PARTNER_PROGRAM_B
WHERE PROGRAM_ID = cv_program_ID;
SELECT program_id,object_version_number
FROM pv_partner_program_b
where program_id not in ( cv_program_id)
and enabled_flag='Y'
start with program_id = cv_program_id
CONNECT BY PRIOR program_id = program_parent_id;
SELECT user_status_id
FROM AMS_USER_STATUSES_B
where SYSTEM_STATUS_TYPE='PV_PROGRAM_STATUS'
and SYSTEM_STATUS_CODE=cv_status_code;
l_api_name CONSTANT VARCHAR2(30) := 'Update_Partner_Program';
l_tar_ptr_prgm_update_rec PV_PARTNER_PROGRAM_PVT.ptr_prgm_rec_type := p_ptr_prgm_rec;
PVX_UTILITY_PVT.debug_message(' in Update_Partner_Program');
SAVEPOINT UPDATE_Partner_Program_PVT;
PVX_Utility_PVT.debug_message('Private API: '||l_full_name||' - Open Cursor to Select');
FND_MESSAGE.set_token('MODE','Update');
,p_validation_mode => JTF_PLSQL_API.g_update
,p_ptr_prgm_rec => p_ptr_prgm_rec
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
AMS_Access_PVT.update_object_owner
( p_api_version => 1.0
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,p_validation_level => p_validation_level
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
,p_object_type => 'PRGM'
,p_object_id => l_tar_ptr_prgm_rec.program_id
,p_resource_id => l_tar_ptr_prgm_rec.program_owner_resource_id
,p_old_resource_id => l_ref_ptr_prgm_rec.program_owner_resource_id
);
PVX_Utility_PVT.debug_message('Private API: '||l_full_name||' - Calling update table handler');
PV_PARTNER_PROGRAM_PKG.Update_Row(
p_program_id => l_tar_ptr_prgm_rec.program_id
,p_PROGRAM_TYPE_ID => l_tar_ptr_prgm_rec.PROGRAM_TYPE_ID
,p_custom_setup_id => l_tar_ptr_prgm_rec.custom_setup_id
,p_program_level_code => l_tar_ptr_prgm_rec.program_level_code
,p_program_parent_id => l_tar_ptr_prgm_rec.program_parent_id
,p_program_owner_resource_id => l_tar_ptr_prgm_rec.program_owner_resource_id
,p_program_start_date => l_tar_ptr_prgm_rec.program_start_date
,p_program_end_date => l_tar_ptr_prgm_rec.program_end_date
,p_allow_enrl_until_date => l_tar_ptr_prgm_rec.allow_enrl_until_date
,p_citem_version_id => l_tar_ptr_prgm_rec.citem_version_id
,p_membership_valid_period => l_tar_ptr_prgm_rec.membership_valid_period
,p_membership_period_unit => l_tar_ptr_prgm_rec.membership_period_unit
,p_process_rule_id => l_tar_ptr_prgm_rec.process_rule_id
,p_prereq_process_rule_Id => l_tar_ptr_prgm_rec.prereq_process_rule_Id
,p_program_status_code => l_tar_ptr_prgm_rec.program_status_code
,p_submit_child_nodes => l_tar_ptr_prgm_rec.submit_child_nodes
,p_inventory_item_id => l_tar_ptr_prgm_rec.inventory_item_id
,p_inventory_item_org_id => l_tar_ptr_prgm_rec.inventory_item_org_id
,p_bus_user_resp_id => l_tar_ptr_prgm_rec.bus_user_resp_id
,p_admin_resp_id => l_tar_ptr_prgm_rec.admin_resp_id
,p_no_fee_flag => l_tar_ptr_prgm_rec.no_fee_flag
,p_vad_invite_allow_flag => l_tar_ptr_prgm_rec.vad_invite_allow_flag
,p_global_mmbr_reqd_flag => l_tar_ptr_prgm_rec.global_mmbr_reqd_flag
,p_waive_subsidiary_fee_flag => l_tar_ptr_prgm_rec.waive_subsidiary_fee_flag
,p_qsnr_ttl_all_page_dsp_flag => l_tar_ptr_prgm_rec.qsnr_ttl_all_page_dsp_flag
,p_qsnr_hdr_all_page_dsp_flag => l_tar_ptr_prgm_rec.qsnr_hdr_all_page_dsp_flag
,p_qsnr_ftr_all_page_dsp_flag => l_tar_ptr_prgm_rec.qsnr_ftr_all_page_dsp_flag
,p_allow_enrl_wout_chklst_flag => l_tar_ptr_prgm_rec.allow_enrl_wout_chklst_flag
,p_user_status_id => l_tar_ptr_prgm_rec.user_status_id
,p_enabled_flag => l_tar_ptr_prgm_rec.enabled_flag
,p_attribute_category => l_tar_ptr_prgm_rec.attribute_category
,p_attribute1 => l_tar_ptr_prgm_rec.attribute1
,p_attribute2 => l_tar_ptr_prgm_rec.attribute2
,p_attribute3 => l_tar_ptr_prgm_rec.attribute3
,p_attribute4 => l_tar_ptr_prgm_rec.attribute4
,p_attribute5 => l_tar_ptr_prgm_rec.attribute5
,p_attribute6 => l_tar_ptr_prgm_rec.attribute6
,p_attribute7 => l_tar_ptr_prgm_rec.attribute7
,p_attribute8 => l_tar_ptr_prgm_rec.attribute8
,p_attribute9 => l_tar_ptr_prgm_rec.attribute9
,p_attribute10 => l_tar_ptr_prgm_rec.attribute10
,p_attribute11 => l_tar_ptr_prgm_rec.attribute11
,p_attribute12 => l_tar_ptr_prgm_rec.attribute12
,p_attribute13 => l_tar_ptr_prgm_rec.attribute13
,p_attribute14 => l_tar_ptr_prgm_rec.attribute14
,p_attribute15 => l_tar_ptr_prgm_rec.attribute15
,p_last_update_date => SYSDATE
,p_last_updated_by => FND_GLOBAL.USER_ID
,p_last_update_login => FND_GLOBAL.CONC_LOGIN_ID
,p_object_version_number => l_tar_ptr_prgm_rec.object_version_number
,p_program_name => l_tar_ptr_prgm_rec.program_name
,p_program_description => l_tar_ptr_prgm_rec.program_description
,p_qsnr_title => l_tar_ptr_prgm_rec.qsnr_title
,p_qsnr_header => l_tar_ptr_prgm_rec.qsnr_header
,p_qsnr_footer => l_tar_ptr_prgm_rec.qsnr_footer
);
update pv_partner_program_b set submit_child_nodes='Y',object_version_number=c_rec.object_version_number+1 where program_id=c_rec.program_id;
ROLLBACK TO UPDATE_Partner_Program_PVT;
ROLLBACK TO UPDATE_Partner_Program_PVT;
ROLLBACK TO UPDATE_Partner_Program_PVT;
END Update_Partner_Program;
PROCEDURE Delete_Partner_Program(
p_api_version_number IN NUMBER
,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,p_program_id IN NUMBER
,p_object_version_number IN NUMBER
)
IS
CURSOR c_get_partner_program_rec(cv_program_id NUMBER) IS
SELECT *
FROM PV_PARTNER_PROGRAM_B
WHERE PROGRAM_ID = cv_program_id;
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Partner_Program';
SAVEPOINT DELETE_Partner_Program_PVT;
FND_MESSAGE.set_token('MODE','Update');
PVX_Utility_PVT.debug_message('Private API: '||l_full_name||' - Calling update for soft delete');
PV_PARTNER_PROGRAM_PKG.Delete_Row(
p_program_id => l_tar_ptr_prgm_rec.program_id
,p_object_version_number => l_tar_ptr_prgm_rec.object_version_number
);
ROLLBACK TO DELETE_Partner_Program_PVT;
ROLLBACK TO DELETE_Partner_Program_PVT;
ROLLBACK TO DELETE_Partner_Program_PVT;
End Delete_Partner_Program;
SELECT PROGRAM_ID
FROM PV_PARTNER_PROGRAM_B
WHERE PROGRAM_ID = px_program_id
AND object_version_number = p_object_version
FOR UPDATE NOWAIT;
IF p_ptr_prgm_rec.last_update_login = FND_API.g_miss_num
OR p_ptr_prgm_rec.last_update_login IS NULL THEN
FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_LOGIN');
IF p_ptr_prgm_rec.last_update_date = FND_API.g_miss_date
OR p_ptr_prgm_rec.last_update_date IS NULL THEN
FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_DATE');
IF p_ptr_prgm_rec.last_updated_by = FND_API.g_miss_num
OR p_ptr_prgm_rec.last_updated_by IS NULL THEN
FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
FND_MESSAGE.set_token('COLUMN','LAST_UPDATED_BY');
SELECT 1 FROM DUAL WHERE EXISTS (SELECT 1
FROM JTF_RS_RESOURCE_EXTNS
WHERE RESOURCE_ID = p_ptr_prgm_rec.program_owner_resource_id
AND NVL(end_date_active,SYSDATE) >= SYSDATE AND NVL(start_date_active, SYSDATE) <= SYSDATE);
SELECT 1 FROM DUAL WHERE EXISTS (SELECT 1
FROM pv_process_rules_vl pvprv
WHERE PROCESS_RULE_ID = p_ptr_prgm_rec.process_rule_id
AND NVL(start_date,SYSDATE) <= SYSDATE and NVL(end_date,SYSDATE) >= SYSDATE AND PROCESS_TYPE = l_process_type);
SELECT 1 FROM DUAL WHERE EXISTS (SELECT 1
FROM pv_process_rules_vl pvprv
WHERE PROCESS_RULE_ID = p_ptr_prgm_rec.prereq_process_rule_id
AND NVL(start_date,SYSDATE) <= SYSDATE and NVL(end_date,SYSDATE) >= SYSDATE AND PROCESS_TYPE = l_process_type);
SELECT *
FROM PV_PARTNER_PROGRAM_VL
WHERE PROGRAM_ID = p_ptr_prgm_rec.program_id;
IF p_ptr_prgm_rec.last_update_date IS NULL THEN
x_complete_rec.last_update_date := l_ptr_prgm_rec.last_update_date;
IF p_ptr_prgm_rec.last_updated_by IS NULL THEN
x_complete_rec.last_updated_by := l_ptr_prgm_rec.last_updated_by;
IF p_ptr_prgm_rec.last_update_login IS NULL THEN
x_complete_rec.last_update_login := l_ptr_prgm_rec.last_update_login;
,p_validation_mode IN VARCHAR2 := Jtf_Plsql_Api.G_UPDATE
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Validate_Partner_Program';
,p_validation_mode IN VARCHAR2 := Jtf_Plsql_Api.G_UPDATE
)
IS
BEGIN
-- Initialize message list if p_init_msg_list is set to TRUE.
IF FND_API.to_Boolean( p_init_msg_list )
THEN
FND_MSG_PUB.initialize;
SELECT program_id, object_version_number
FROM pv_partner_program_b
WHERE program_level_code = 'MEMBERSHIP'
AND NVL(program_end_date,sysdate+1) <= sysdate
AND program_status_code NOT IN ('CLOSED', 'ARCHIVE');
SELECT program_id, object_version_number
FROM pv_partner_program_b
WHERE program_level_code = 'PROGRAM'
AND NVL(program_end_date,sysdate+1) <= sysdate
AND program_status_code NOT IN ('CLOSED', 'ARCHIVE');
SELECT user_status_id
FROM ams_user_statuses_b
WHERE system_status_type like 'PV_PROGRAM_STATUS'
AND system_status_code = 'CLOSED'
AND enabled_flag = 'Y';
Update_Partner_Program(
p_api_version_number => 1.0
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,p_validation_level => FND_API.G_VALID_LEVEL_FULL
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_ptr_prgm_rec => l_ptr_prgm_rec
);
Update_Partner_Program(
p_api_version_number => 1.0
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,p_validation_level => FND_API.G_VALID_LEVEL_FULL
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_ptr_prgm_rec => l_ptr_prgm_rec
);
SELECT program_name
FROM pv_partner_program_vl
WHERE program_id = p_program_id;
SELECT *
FROM pv_partner_program_vl
WHERE program_id = cv_program_id;
SELECT user_status_id
FROM ams_user_statuses_vl
WHERE system_status_type = 'PV_PROGRAM_STATUS'
AND system_status_code = 'NEW'
AND enabled_flag = 'Y';
SELECT res.resource_id resource_id
FROM jtf_rs_resource_extns res
WHERE res.category IN ('EMPLOYEE', 'PARTY')
AND res.user_id = fnd_global.user_id;
SELECT process_rule_id id, 'ProcessRule' rule, object_version_number
FROM pv_partner_program_b
WHERE program_id = cv_program_id
UNION
SELECT prereq_process_rule_id id, 'PrereqProcessRule' rule, object_version_number
FROM pv_partner_program_b
WHERE program_id = cv_program_id;
SELECT *
FROM PV_PROCESS_RULES_VL
WHERE PROCESS_RULE_ID = cv_process_rule_id;
SELECT program_name
FROM PV_PARTNER_PROGRAM_VL
WHERE PROGRAM_ID = cv_program_id;
SELECT object_version_number
FROM pv_partner_program_b
WHERE program_id = cv_program_id;
SELECT *
FROM PV_PG_ENRL_CHANGE_RULES
WHERE change_to_program_id = cv_program_id
and CHANGE_DIRECTION_CODE = 'PREREQUISITE';
PV_PROCESS_RULE_PVT.Delete_process_rule(
p_api_version_number => 2.0
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,p_validation_level => p_validation_level
,p_identity_resource_id => p_identity_resource_id
,p_process_rule_rec => l_fake_process_rule_rec
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
PV_Partner_Program_PVT.Update_Partner_Program(
p_api_version_number => 1.0
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,p_validation_level => p_validation_level
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
,p_ptr_prgm_rec => l_tar_ptr_prgm_rec
);
SELECT *
FROM pv_program_benefits
WHERE program_id = cv_program_id;
l_tar_prgm_benefits_rec.delete_flag := l_src_prgm_benefits_rec.delete_flag;
PVX_UTILITY_PVT.debug_message('l_tar_prgm_benefits_rec.delete_flag = ' || l_tar_prgm_benefits_rec.delete_flag);
SELECT inventory_item_id
FROM pv_partner_program_vl
WHERE program_id = cv_program_id;
SELECT *
FROM pv_program_contracts
WHERE program_id = cv_program_id;
SELECT program_name,program_description,object_version_number
FROM PV_PARTNER_PROGRAM_vl
WHERE PROGRAM_ID = p_id;
SELECT RESOURCE_ID
FROM jtf_rs_resource_extns
WHERE USER_ID=p_user_id;
PVX_UTILITY_PVT.debug_message(' in Update_Partner_Program');
SAVEPOINT UPDATE_Partner_Program_PVT;
l_rules_rec.last_update_date := SYSDATE;
l_rules_rec.last_updated_by := FND_GLOBAL.USER_ID;
l_rules_rec.last_update_login := FND_GLOBAL.CONC_LOGIN_ID;
Update_Partner_Program(
p_api_version_number => 1.0
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,p_validation_level => FND_API.G_VALID_LEVEL_NONE
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_ptr_prgm_rec => l_ptr_prgm_rec
);
,p_update_program_table IN VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,x_inventory_item_id OUT NOCOPY NUMBER
,x_inventory_item_org_id OUT NOCOPY NUMBER
)
IS
l_api_version_number CONSTANT NUMBER := 1.0;
SELECT *
FROM pv_partner_program_vl
WHERE program_id = p_program_id;
IF p_update_program_table = 'Y' THEN
l_ptr_prgm_rec.inventory_item_id := l_Item_rec.inventory_item_id;
Update_Partner_Program(
p_api_version_number => 1.0
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,p_validation_level => FND_API.G_VALID_LEVEL_FULL
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_ptr_prgm_rec => l_ptr_prgm_rec
);
END IF; -- End of IF p_update_program_table = 'Y'