[Home] [Help]
PACKAGE BODY: APPS.QP_PERF_CTRL_PVT
Source
1 package body qp_perf_ctrl_pvt as
2 /* $Header: QPXPRFCB.pls 120.0.12010000.1 2008/10/31 05:24:46 ssangane noship $ */
3
4 procedure exec_prog(
5 err_buff out nocopy varchar2,
6 retcode out nocopy number,
7 p_list_header_id_low in number,
8 p_list_header_id_high in number,
9 p_update_type in varchar2
10 ) is
11 l_list_header_id_low number;
12 l_list_header_id_high number;
13 l_perf varchar2(30);
14 begin
15
16 l_perf := nvl(FND_PROFILE.VALUE(g_perf), g_off);
17 if (l_perf = g_on) then
18
19 if (p_update_type = g_update_factor) then
20
21 --insert into qp_tests values('Y', 1, 2, sysdate);
22
23 qp_denormalized_pricing_attrs.update_search_ind(
24 err_buff,
25 retcode,
26 p_list_header_id_low,
27 p_list_header_id_high,
28 g_update_factor
29 );
30
31 end if;
32
33 end if;
34
35 end exec_prog;
36
37 end qp_perf_ctrl_pvt;