PACKAGE BODY: APPS.FND_UPDATE_USER_PREF_PUB_W

Source

1 package body fnd_update_user_pref_pub_w as
2   /* $Header: fndpirrb.pls 120.1 2005/07/02 03:35:17 appldev noship $ */
3   procedure rosetta_table_copy_in_p1(t out nocopy fnd_update_user_pref_pub.preference_tbl, a0 JTF_VARCHAR2_TABLE_100
4     , a1 JTF_VARCHAR2_TABLE_100
5     , a2 JTF_VARCHAR2_TABLE_100
6     ) as
7     ddindx binary_integer; indx binary_integer;
8   begin
9   if a0 is not null and a0.count > 0 then
10       if a0.count > 0 then
11         indx := a0.first;
12         ddindx := 1;
13         while true loop
14           t(ddindx).purpose_code := a0(indx);
15           t(ddindx).purpose_default_code := a1(indx);
16           t(ddindx).user_option := a2(indx);
17           ddindx := ddindx+1;
18           if a0.last =indx
19             then exit;
20           end if;
21           indx := a0.next(indx);
22         end loop;
23       end if;
24    end if;
25   end rosetta_table_copy_in_p1;
26   procedure rosetta_table_copy_out_p1(t fnd_update_user_pref_pub.preference_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_100
27     , a1 out nocopy JTF_VARCHAR2_TABLE_100
28     , a2 out nocopy JTF_VARCHAR2_TABLE_100
29     ) as
30     ddindx binary_integer; indx binary_integer;
31   begin
32   if t is null or t.count = 0 then
33     a0 := JTF_VARCHAR2_TABLE_100();
34     a1 := JTF_VARCHAR2_TABLE_100();
35     a2 := JTF_VARCHAR2_TABLE_100();
36   else
37       a0 := JTF_VARCHAR2_TABLE_100();
38       a1 := JTF_VARCHAR2_TABLE_100();
39       a2 := JTF_VARCHAR2_TABLE_100();
40       if t.count > 0 then
41         a0.extend(t.count);
42         a1.extend(t.count);
43         a2.extend(t.count);
44         ddindx := t.first;
45         indx := 1;
46         while true loop
47           a0(indx) := t(ddindx).purpose_code;
48           a1(indx) := t(ddindx).purpose_default_code;
49           a2(indx) := t(ddindx).user_option;
50           indx := indx+1;
51           if t.last =ddindx
52             then exit;
53           end if;
54           ddindx := t.next(ddindx);
55         end loop;
56       end if;
57    end if;
58   end rosetta_table_copy_out_p1;
59 
60   procedure set_purpose_option(p_api_version  NUMBER
61     , p_init_msg_list  VARCHAR2
62     , p_commit  VARCHAR2
63     , p_user_id  NUMBER
64     , p_party_id  NUMBER
65     , p5_a0 JTF_VARCHAR2_TABLE_100
66     , p5_a1 JTF_VARCHAR2_TABLE_100
67     , p5_a2 JTF_VARCHAR2_TABLE_100
68     , x_return_status out nocopy  VARCHAR2
69     , x_msg_count out nocopy  NUMBER
70     , x_msg_data out nocopy  VARCHAR2
71   )
72 
73   as
74     ddp_option fnd_update_user_pref_pub.preference_tbl;
75     ddindx binary_integer; indx binary_integer;
76   begin
77 
78     -- copy data to the local IN or IN-OUT args, if any
79 
80 
81 
82 
83 
84     fnd_update_user_pref_pub_w.rosetta_table_copy_in_p1(ddp_option, p5_a0
85       , p5_a1
86       , p5_a2
87       );
88 
89 
90 
91 
92     -- here's the delegated call to the old PL/SQL routine
93     fnd_update_user_pref_pub.set_purpose_option(p_api_version,
94       p_init_msg_list,
95       p_commit,
96       p_user_id,
97       p_party_id,
98       ddp_option,
99       x_return_status,
100       x_msg_count,
101       x_msg_data);
102 
103     -- copy data back from the local variables to OUT or IN-OUT args, if any
104 
105 
106 
107 
108 
109 
110 
111 
112   end;
113 
114 end fnd_update_user_pref_pub_w;