2: /* $Header: penopost.pkb 120.0 2005/05/31 11:57:13 appldev noship $ */
3:
4: -- Global package name
5: g_package CONSTANT VARCHAR2 (33) := 'per_no_postalcode_upload';
6: g_bg_id per_business_groups.business_group_id%TYPE;
7: l_view_application_id FND_LOOKUP_TYPES.view_application_id%type;
8: l_security_group_id PER_BUSINESS_GROUPS.business_group_id%type;
9:
10:
4: -- Global package name
5: g_package CONSTANT VARCHAR2 (33) := 'per_no_postalcode_upload';
6: g_bg_id per_business_groups.business_group_id%TYPE;
7: l_view_application_id FND_LOOKUP_TYPES.view_application_id%type;
8: l_security_group_id PER_BUSINESS_GROUPS.business_group_id%type;
9:
10:
11: -- File Handling variables
12: l_file_type UTL_FILE.file_type;
40: PROCEDURE upload(
41: errbuf OUT NOCOPY VARCHAR2,
42: retcode OUT NOCOPY NUMBER,
43: p_file_name IN VARCHAR2,
44: p_business_group_id IN per_business_groups.business_group_id%TYPE)
45:
46: is
47:
48: l_proc CONSTANT VARCHAR2 (72) := g_package||'.upload' ;
240: l_line := rtrim(p_line);
241:
242: hr_utility.set_location ( ' bg id '||g_bg_id, 20);
243: begin
244: select SECURITY_GROUP_ID into l_security_group_id from per_business_groups where business_group_id = g_bg_id;
245: exception
246: when others then
247: l_security_group_id := 0;
248: end;