APPS.AK_REGIONS2_PKG dependencies on AK_REGIONS

Line 1: package body AK_REGIONS2_PKG as

1: package body AK_REGIONS2_PKG as
2: /* $Header: AKDRGN2B.pls 120.1 2005/07/02 04:57:55 appldev ship $ */
3:
4: PROCEDURE copy_records
5: ( p_o_code in varchar2,

Line 11: r_rec ak_regions%rowtype;

7: p_n_code in varchar2,
8: p_n_id in number) IS
9:
10: -- Various REGION record type
11: r_rec ak_regions%rowtype;
12:
13: -- REGION cursors
14: cursor r_csr (p_csr_code IN VARCHAR2, p_csr_id IN NUMBER) is
15: select *

Line 16: from ak_regions

12:
13: -- REGION cursors
14: cursor r_csr (p_csr_code IN VARCHAR2, p_csr_id IN NUMBER) is
15: select *
16: from ak_regions
17: where region_code = p_csr_code
18: and region_application_id = p_csr_id;
19: cursor rt_csr (p_csr_code IN VARCHAR2, p_csr_id IN NUMBER) is
20: select *

Line 21: from ak_regions_tl

17: where region_code = p_csr_code
18: and region_application_id = p_csr_id;
19: cursor rt_csr (p_csr_code IN VARCHAR2, p_csr_id IN NUMBER) is
20: select *
21: from ak_regions_tl
22: where region_code = p_csr_code
23: and region_application_id = p_csr_id;
24: cursor ri_csr (p_csr_code IN VARCHAR2, p_csr_id IN NUMBER) is
25: select *

Line 47: -- ak_regions is a parent table. If you can't find a record, exit with an error message.

43: open r_csr( p_o_code, p_o_id);
44: FETCH r_csr INTO r_rec;
45: b_success := r_csr%found;
46: close r_csr;
47: -- ak_regions is a parent table. If you can't find a record, exit with an error message.
48: if (not b_success) then
49: fnd_message.set_name('AK', 'AK_NEW_REGION_ALREADY_EXISTS');
50: app_exception.raise_exception;
51: end if;

Line 56: insert into ak_regions (

52: -- Put new code and id into record and insert into appropriate table
53: r_rec.region_code := p_n_code;
54: r_rec.region_application_id := p_n_id;
55:
56: insert into ak_regions (
57: REGION_APPLICATION_ID,
58: REGION_CODE,
59: DATABASE_OBJECT_NAME,
60: REGION_STYLE,

Line 170: insert into AK_REGIONS_TL (

166: FOR rt_rec IN rt_csr( p_o_code, p_o_id) LOOP
167: -- Put new code and id into record and insert into appropriate table
168: rt_rec.region_code := p_n_code;
169: rt_rec.region_application_id := p_n_id;
170: insert into AK_REGIONS_TL (
171: REGION_APPLICATION_ID,
172: REGION_CODE,
173: LANGUAGE,
174: NAME,

Line 472: end AK_REGIONS2_PKG;

468: commit;
469: END copy_records;
470:
471:
472: end AK_REGIONS2_PKG;