3:
4:
5: -- Global package name
6: g_package CONSTANT VARCHAR2 (33) := 'per_dk_postalcode_upload';
7: g_bg_id per_business_groups.business_group_id%TYPE;
8: l_view_application_id FND_LOOKUP_TYPES.view_application_id%type;
9: l_security_group_id PER_BUSINESS_GROUPS.business_group_id%type;
10:
11: -- File Handling variables
5: -- Global package name
6: g_package CONSTANT VARCHAR2 (33) := 'per_dk_postalcode_upload';
7: g_bg_id per_business_groups.business_group_id%TYPE;
8: l_view_application_id FND_LOOKUP_TYPES.view_application_id%type;
9: l_security_group_id PER_BUSINESS_GROUPS.business_group_id%type;
10:
11: -- File Handling variables
12: l_file_type UTL_FILE.file_type;
13: l_location VARCHAR2 (4000);
42: PROCEDURE upload(
43: errbuf OUT NOCOPY VARCHAR2,
44: retcode OUT NOCOPY NUMBER,
45: p_file_name IN VARCHAR2,
46: p_business_group_id IN per_business_groups.business_group_id%TYPE)
47:
48: is
49:
50: l_proc CONSTANT VARCHAR2 (72) := g_package||'.upload' ;
239: l_line := rtrim(p_line);
240:
241: hr_utility.set_location ( ' bg id '||g_bg_id, 20);
242: begin
243: select SECURITY_GROUP_ID into l_security_group_id from per_business_groups where business_group_id = g_bg_id;
244: exception
245: when others then
246: l_security_group_id := 0;
247: end;