PACKAGE BODY: APPS.PAY_GB_P46EXP_EDI_BIP

Source

1 package body pay_gb_p46exp_edi_bip as
2 /* $Header: PYGBP46EXP.pkb 120.0.12010000.1 2010/01/22 15:04:09 krreddy noship $ */
3 
4 procedure set_address_lines(p_assignment_action_id IN NUMBER)
5 is
6 
7   Cursor emp_address_line
8   IS
9     Select nvl(upper(substr(addr.action_information5,1,35)),' '),
10            nvl(upper(substr(addr.action_information6,1,35)),' '),
11            nvl(upper(substr(addr.action_information7,1,35)),' '),
12            nvl(upper(addr.action_information8),' ')
13     From pay_action_information addr
14     where  addr.action_context_id = p_assignment_action_id
15     and    addr.action_information_category = 'ADDRESS DETAILS'
16     and    addr.action_context_type = 'AAP';
17 
18 begin
19 
20 	open emp_address_line;
21 	fetch emp_address_line into g_address1, g_address2, g_address3, g_address4;
22 	close emp_address_line;
23 
24   if g_address3 = ' '
25   then
26       g_address3 := g_address4;
27       g_address4 := ' ';
28   end if;
29 
30   if g_address2 = ' '
31   then
32       g_address2 := g_address3;
33       g_address3 := g_address4;
34       g_address4 := ' ';
35   end if;
36 
37   if LENGTH(TRIM(g_address4)) > 0
38   then
39       g_address4 := g_address4;
40   else
41       g_address4 := ' ';
42   end if;
43 
44   if LENGTH(TRIM(g_address3)) > 0
45   then
46       g_address3 := g_address3;
47   else
48       g_address3 := g_address4;
49       g_address4 := ' ';
50   end if;
51 
52   if LENGTH(TRIM(g_address2)) > 0
53   then
54       g_address2 := g_address2;
55   else
56       g_address2 := g_address3;
57       g_address3 := g_address4;
58       g_address4 := ' ';
59   end if;
60 
61 end set_address_lines;
62 
63 function cp_address(p_assignment_action_id IN NUMBER)
64 return varchar2 is
65 
66 l_address VARCHAR2(1000):= ' ';
67 
68 begin
69     set_address_lines(p_assignment_action_id);
70     l_address:= 'add1='||g_address1||' add2='||g_address2||' add3='||g_address3||' add4='||g_address4;
71     return l_address;
72 end;
73 
74 END pay_gb_p46exp_edi_bip;