PACKAGE BODY: APPS.CSD_SOO_PVT_W

Source

1 package body csd_soo_pvt_w as
2   /* $Header: csdwsoob.pls 120.0.12020000.3 2013/05/08 20:24:36 vicli noship $ */
3   procedure rosetta_table_copy_in_p8(t out nocopy csd_soo_pvt.so_orchestration_key_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_p8;
21   procedure rosetta_table_copy_out_p8(t csd_soo_pvt.so_orchestration_key_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_p8;
43 
44   procedure refresh(p_api_version  NUMBER
45     , p_commit  VARCHAR2
46     , p_init_msg_list  VARCHAR2
47     , p_validation_level  NUMBER
48     , x_return_status out nocopy  VARCHAR2
49     , x_msg_count out nocopy  NUMBER
50     , x_msg_data out nocopy  VARCHAR2
51     , p_so_orchestration_key_tbl JTF_NUMBER_TABLE
52     , p_repair_line_id  NUMBER
53     , p_document_type  VARCHAR2
54     , p_operating_unit_id  NUMBER
55     , p_inventory_org_id  NUMBER
56     , p_repair_owner_id  NUMBER
57     , p_ro_status_id  NUMBER
58     , p_repair_type_id  NUMBER
59     , p_ro_priority_code  VARCHAR2
60     , p_ro_age  NUMBER
61     , p_ro_due_date_age  NUMBER
62   )
63 
64   as
65     ddp_so_orchestration_key_tbl csd_soo_pvt.so_orchestration_key_tbl_type;
66     ddindx binary_integer; indx binary_integer;
67   begin
68 
69     -- copy data to the local IN or IN-OUT args, if any
70 
71 
72 
73 
74 
75 
76 
77     csd_soo_pvt_w.rosetta_table_copy_in_p8(ddp_so_orchestration_key_tbl, p_so_orchestration_key_tbl);
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89     -- here's the delegated call to the old PL/SQL routine
90     csd_soo_pvt.refresh(p_api_version,
91       p_commit,
92       p_init_msg_list,
93       p_validation_level,
94       x_return_status,
95       x_msg_count,
96       x_msg_data,
97       ddp_so_orchestration_key_tbl,
98       p_repair_line_id,
99       p_document_type,
100       p_operating_unit_id,
101       p_inventory_org_id,
102       p_repair_owner_id,
103       p_ro_status_id,
104       p_repair_type_id,
105       p_ro_priority_code,
106       p_ro_age,
107       p_ro_due_date_age);
108 
109     -- copy data back from the local variables to OUT or IN-OUT args, if any
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127   end;
128 
129 end csd_soo_pvt_w;