1: PACKAGE BODY pqp_gb_tp_pension_extracts AS
2: -- /* $Header: pqpgbtp4.pkb 120.1.12010000.3 2009/05/29 07:07:08 nchinnam ship $ */
3: --
4: --
5: --
60: ,p_trace_on IN VARCHAR2
61: )
62: IS
63: -- l_trace_options VARCHAR2(200);
64: l_extract_attributes pqp_gb_tp_pension_extracts.csr_pqp_extract_attributes%ROWTYPE;
65: l_business_group_id per_all_assignments_f.business_group_id%TYPE;
66:
67: BEGIN
68:
83:
84: -- Set the trace flag, but only the first time around
85: IF g_trace IS NULL THEN
86:
87: OPEN pqp_gb_tp_pension_extracts.csr_pqp_extract_attributes;
88: FETCH pqp_gb_tp_pension_extracts.csr_pqp_extract_attributes INTO l_extract_attributes;
89: CLOSE pqp_gb_tp_pension_extracts.csr_pqp_extract_attributes;
90:
91: l_business_group_id := fnd_global.per_business_group_id;
84: -- Set the trace flag, but only the first time around
85: IF g_trace IS NULL THEN
86:
87: OPEN pqp_gb_tp_pension_extracts.csr_pqp_extract_attributes;
88: FETCH pqp_gb_tp_pension_extracts.csr_pqp_extract_attributes INTO l_extract_attributes;
89: CLOSE pqp_gb_tp_pension_extracts.csr_pqp_extract_attributes;
90:
91: l_business_group_id := fnd_global.per_business_group_id;
92:
85: IF g_trace IS NULL THEN
86:
87: OPEN pqp_gb_tp_pension_extracts.csr_pqp_extract_attributes;
88: FETCH pqp_gb_tp_pension_extracts.csr_pqp_extract_attributes INTO l_extract_attributes;
89: CLOSE pqp_gb_tp_pension_extracts.csr_pqp_extract_attributes;
90:
91: l_business_group_id := fnd_global.per_business_group_id;
92:
93: BEGIN
200: --
201: --
202: -- FUNCTION get_establishment_details
203: -- (l_location_id IN NUMBER
204: -- ) RETURN pqp_gb_tp_pension_extracts.csr_estb_details%ROWTYPE
205: -- IS
206: --
207: -- l_estb_details csr_estb_details%ROWTYPE;
208: -- l_proc_name VARCHAR2(61):= 'get_establishment_details';
2104: BEGIN
2105:
2106: debug_enter(l_proc_name);
2107:
2108: debug(pqp_gb_tp_pension_extracts.g_header_system_element);
2109:
2110: debug_exit(l_proc_name);
2111: RETURN pqp_gb_tp_pension_extracts.g_header_system_element;
2112:
2107:
2108: debug(pqp_gb_tp_pension_extracts.g_header_system_element);
2109:
2110: debug_exit(l_proc_name);
2111: RETURN pqp_gb_tp_pension_extracts.g_header_system_element;
2112:
2113: END get_header_system_element;
2114: --
2115: --
2124: BEGIN
2125:
2126: debug_enter(l_proc_name);
2127:
2128: debug(pqp_gb_tp_pension_extracts.g_lea_number);
2129:
2130: debug_exit(l_proc_name);
2131:
2132: RETURN pqp_gb_tp_pension_extracts.g_lea_number;
2128: debug(pqp_gb_tp_pension_extracts.g_lea_number);
2129:
2130: debug_exit(l_proc_name);
2131:
2132: RETURN pqp_gb_tp_pension_extracts.g_lea_number;
2133:
2134: EXCEPTION
2135: WHEN OTHERS THEN
2136: debug_exit(l_proc_name);
2194: debug('l_assignment_id :'||
2195: fnd_number.number_to_canonical(l_assignment_id));
2196:
2197: IF NVL(l_assignment_id,-1) = -1 THEN
2198: l_estb_number := pqp_gb_tp_pension_extracts.g_estb_number;
2199:
2200: ELSIF pqp_gb_t1_pension_extracts.g_override_ft_asg_id IS NOT NULL THEN
2201: -- Bugfix 3803760:FTSUPPLY
2202: -- If override ft asg is set, always use that for estb number
2233: BEGIN
2234:
2235: debug_enter(l_proc_name);
2236:
2237: debug(pqp_gb_tp_pension_extracts.g_originators_title);
2238:
2239: debug_exit(l_proc_name);
2240:
2241: RETURN pqp_gb_tp_pension_extracts.g_originators_title;
2237: debug(pqp_gb_tp_pension_extracts.g_originators_title);
2238:
2239: debug_exit(l_proc_name);
2240:
2241: RETURN pqp_gb_tp_pension_extracts.g_originators_title;
2242:
2243: EXCEPTION
2244: WHEN OTHERS THEN
2245: debug_exit(l_proc_name);
4282: --
4283: END get_allow_code_rt_ele_info;
4284: --
4285:
4286: END pqp_gb_tp_pension_extracts;