13: errbuf OUT NOCOPY VARCHAR2,
14: retcode OUT NOCOPY NUMBER,
15: p_file_name IN VARCHAR2,
16: p_effective_date IN VARCHAR2,
17: p_business_group_id IN per_business_groups.business_group_id%TYPE
18: )
19: IS
20: c_read_file CONSTANT VARCHAR2 (1) := 'r';
21: c_max_linesize CONSTANT NUMBER := 4000;
21: c_max_linesize CONSTANT NUMBER := 4000;
22: c_data_exchange_dir CONSTANT VARCHAR2(30) := 'PER_DATA_EXCHANGE_DIR';
23:
24: l_proc CONSTANT VARCHAR2(72) := g_package||'.upload' ;
25: l_legislation_code per_business_groups.legislation_code%TYPE;
26: l_bg_name per_business_groups.name%TYPE;
27:
28: l_file_type UTL_FILE.file_type;
29: l_filename VARCHAR2 (240);
22: c_data_exchange_dir CONSTANT VARCHAR2(30) := 'PER_DATA_EXCHANGE_DIR';
23:
24: l_proc CONSTANT VARCHAR2(72) := g_package||'.upload' ;
25: l_legislation_code per_business_groups.legislation_code%TYPE;
26: l_bg_name per_business_groups.name%TYPE;
27:
28: l_file_type UTL_FILE.file_type;
29: l_filename VARCHAR2 (240);
30: l_location VARCHAR2 (4000);
34:
35: e_fatal_error EXCEPTION;
36:
37:
38: CURSOR csr_leg (v_bg_id per_business_groups.business_group_id%TYPE)
39: IS
40: SELECT legislation_code, name
41: FROM per_business_groups
42: WHERE business_group_id = v_bg_id;
37:
38: CURSOR csr_leg (v_bg_id per_business_groups.business_group_id%TYPE)
39: IS
40: SELECT legislation_code, name
41: FROM per_business_groups
42: WHERE business_group_id = v_bg_id;
43:
44:
45: BEGIN