PACKAGE: APPS.QP_ATM_UPGRADE

Source

1 PACKAGE QP_ATM_UPGRADE AS
2 /* $Header: QPATMUPS.pls 120.0 2005/06/02 01:20:51 appldev noship $ */
3 
4 
5 TYPE seg_type IS RECORD (
6   segment_id       number,
7   segment_code     varchar2(30));
8 --
9 g_seg_row                seg_type;
10 --
11 TYPE req_ssc_type IS RECORD (
12   request_type_code         varchar2(30),
13   source_system_code        varchar2(30));
14 --
15 g_req_ssc_rec            req_ssc_type;
16 --
17 CURSOR all_seg_cur is
18  SELECT b.prc_context_code,
19         a.*
20  FROM   qp_segments_b a,
21         qp_prc_contexts_b b
22         WHERE b.prc_context_id = a.prc_context_id
23         AND a.segment_id = 1;
24 --
25 g_all_seg_rec            all_seg_cur%rowtype;
26 --
27 CURSOR attribute_sourcing_cur (p_prc_context_code in varchar2,
28                                p_segment_mapping_column in varchar2,
29                                p_application_short_name in varchar2) is
30   SELECT d.*, b.enabled_flag
31   FROM  oe_def_attr_condns b,
32         ak_object_attributes a,
33         oe_def_condn_elems c,
34         oe_def_condn_elems c1,
35         oe_def_attr_def_rules d
36   WHERE substr(c.value_string,1,30) = p_prc_context_code and
37         b.attribute_code = p_segment_mapping_column and
38         substr(c1.value_string,1,30) = p_application_short_name and
39         b.attr_def_condition_id = d.attr_def_condition_id and
40         b.database_object_name = a.database_object_name and
41         b.database_object_name = d.database_object_name and
42         b.attribute_code = a.attribute_code and
43         b.attribute_code = d.attribute_code and
44         c.condition_id = b.condition_id and
45         c1.condition_id = b.condition_id and
46         c.attribute_code like '%CONTEXT%' and
47         c1.attribute_code = 'SRC_SYSTEM_CODE' and
48         a.attribute_application_id = 661;
49 --
50 g_sourcing_rec           attribute_sourcing_cur%rowtype;
51 --
52 g_pte_rec                qp_lookups%rowtype;
53 g_context_b_rec          fnd_descr_flex_contexts%rowtype;
54 g_segment_b_rec          fnd_descr_flex_column_usages%rowtype;
55 g_context_tl_rec         fnd_descr_flex_contexts_tl%rowtype;
56 g_segment_tl_rec         fnd_descr_flex_col_usage_tl%rowtype;
57 --
58 g_context_seqno          number;
59 g_segment_seqno          number;
60 g_ssc_seqno              number;
61 g_psg_seqno              number;
62 g_source_seqno           number;
63 g_pte_num                number := 0;
64 --
65 Procedure Upgrade_atm;
66 --
67 END QP_ATM_UPGRADE;