PACKAGE BODY: APPS.EAM_OBJECTINSTANTIATION_PUB_W

Source

1 package body eam_objectinstantiation_pub_w as
2   /* $Header: EAMWOBIB.pls 115.0 2003/09/08 12:51:32 ashetye noship $ */
3   procedure rosetta_table_copy_in_p0(t out nocopy eam_objectinstantiation_pub.association_id_tbl_type, a0 JTF_NUMBER_TABLE) as
4     ddindx binary_integer; indx binary_integer;
5   begin
6   if a0 is not null and a0.count > 0 then
7       if a0.count > 0 then
8         indx := a0.first;
9         ddindx := 1;
10         while true loop
11           t(ddindx) := a0(indx);
12           ddindx := ddindx+1;
13           if a0.last =indx
14             then exit;
15           end if;
16           indx := a0.next(indx);
17         end loop;
18       end if;
19    end if;
20   end rosetta_table_copy_in_p0;
21   procedure rosetta_table_copy_out_p0(t eam_objectinstantiation_pub.association_id_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
22     ddindx binary_integer; indx binary_integer;
23   begin
24   if t is null or t.count = 0 then
25     a0 := JTF_NUMBER_TABLE();
26   else
27       a0 := JTF_NUMBER_TABLE();
28       if t.count > 0 then
29         a0.extend(t.count);
30         ddindx := t.first;
31         indx := 1;
32         while true loop
33           a0(indx) := t(ddindx);
34           indx := indx+1;
35           if t.last =ddindx
36             then exit;
37           end if;
38           ddindx := t.next(ddindx);
39         end loop;
40       end if;
41    end if;
42   end rosetta_table_copy_out_p0;
43 
44 end eam_objectinstantiation_pub_w;