[Home] [Help]
PACKAGE BODY: APPS.CSP_EXCESS_PARTS_PVT_W
Source
1 package body csp_excess_parts_pvt_w as
2 /* $Header: cspvpexwb.pls 120.1 2011/04/09 18:13:39 htank noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure populate_excess_list(p0_a0 in out nocopy NUMBER
17 , p0_a1 in out nocopy NUMBER
18 , p0_a2 in out nocopy NUMBER
19 , p0_a3 in out nocopy NUMBER
20 , p0_a4 in out nocopy VARCHAR2
21 , p0_a5 in out nocopy NUMBER
22 , p0_a6 in out nocopy DATE
23 , p0_a7 in out nocopy NUMBER
24 , p0_a8 in out nocopy DATE
25 , p0_a9 in out nocopy NUMBER
26 , p0_a10 in out nocopy VARCHAR2
27 , p0_a11 in out nocopy NUMBER
28 , p0_a12 in out nocopy NUMBER
29 , p0_a13 in out nocopy NUMBER
30 , p0_a14 in out nocopy VARCHAR2
31 , p0_a15 in out nocopy VARCHAR2
32 , p0_a16 in out nocopy VARCHAR2
33 , p0_a17 in out nocopy VARCHAR2
34 , p0_a18 in out nocopy VARCHAR2
35 , p0_a19 in out nocopy VARCHAR2
36 , p0_a20 in out nocopy VARCHAR2
37 , p0_a21 in out nocopy VARCHAR2
38 , p0_a22 in out nocopy VARCHAR2
39 , p0_a23 in out nocopy VARCHAR2
40 , p0_a24 in out nocopy VARCHAR2
41 , p0_a25 in out nocopy VARCHAR2
42 , p0_a26 in out nocopy VARCHAR2
43 , p0_a27 in out nocopy VARCHAR2
44 , p0_a28 in out nocopy VARCHAR2
45 , p0_a29 in out nocopy VARCHAR2
46 , p0_a30 in out nocopy VARCHAR2
47 , p0_a31 in out nocopy NUMBER
48 , p0_a32 in out nocopy VARCHAR2
49 , p0_a33 in out nocopy NUMBER
50 , p0_a34 in out nocopy VARCHAR2
51 , p_is_insert_record VARCHAR2
52 )
53
54 as
55 ddp_excess_part csp_excess_lists_pkg.excess_record_type;
56 ddindx binary_integer; indx binary_integer;
57 begin
58
59 -- copy data to the local IN or IN-OUT args, if any
60 ddp_excess_part.excess_line_id := p0_a0;
61 ddp_excess_part.organization_id := p0_a1;
62 ddp_excess_part.inventory_item_id := p0_a2;
63 ddp_excess_part.excess_quantity := p0_a3;
64 ddp_excess_part.condition_code := p0_a4;
65 ddp_excess_part.created_by := p0_a5;
66 ddp_excess_part.creation_date := rosetta_g_miss_date_in_map(p0_a6);
67 ddp_excess_part.last_updated_by := p0_a7;
68 ddp_excess_part.last_update_date := rosetta_g_miss_date_in_map(p0_a8);
69 ddp_excess_part.last_update_login := p0_a9;
70 ddp_excess_part.subinventory_code := p0_a10;
71 ddp_excess_part.returned_quantity := p0_a11;
72 ddp_excess_part.current_return_qty := p0_a12;
73 ddp_excess_part.requisition_line_id := p0_a13;
74 ddp_excess_part.excess_status := p0_a14;
75 ddp_excess_part.attribute_category := p0_a15;
76 ddp_excess_part.attribute1 := p0_a16;
77 ddp_excess_part.attribute2 := p0_a17;
78 ddp_excess_part.attribute3 := p0_a18;
79 ddp_excess_part.attribute4 := p0_a19;
80 ddp_excess_part.attribute5 := p0_a20;
81 ddp_excess_part.attribute6 := p0_a21;
82 ddp_excess_part.attribute7 := p0_a22;
83 ddp_excess_part.attribute8 := p0_a23;
84 ddp_excess_part.attribute9 := p0_a24;
85 ddp_excess_part.attribute10 := p0_a25;
86 ddp_excess_part.attribute11 := p0_a26;
87 ddp_excess_part.attribute12 := p0_a27;
88 ddp_excess_part.attribute13 := p0_a28;
89 ddp_excess_part.attribute14 := p0_a29;
90 ddp_excess_part.attribute15 := p0_a30;
91 ddp_excess_part.security_group_id := p0_a31;
92 ddp_excess_part.reason_code := p0_a32;
93 ddp_excess_part.return_organization_id := p0_a33;
94 ddp_excess_part.return_subinventory_name := p0_a34;
95
96
97 -- here's the delegated call to the old PL/SQL routine
98 csp_excess_parts_pvt.populate_excess_list(ddp_excess_part,
99 p_is_insert_record);
100
101 -- copy data back from the local variables to OUT or IN-OUT args, if any
102 p0_a0 := ddp_excess_part.excess_line_id;
103 p0_a1 := ddp_excess_part.organization_id;
104 p0_a2 := ddp_excess_part.inventory_item_id;
105 p0_a3 := ddp_excess_part.excess_quantity;
106 p0_a4 := ddp_excess_part.condition_code;
107 p0_a5 := ddp_excess_part.created_by;
108 p0_a6 := ddp_excess_part.creation_date;
109 p0_a7 := ddp_excess_part.last_updated_by;
110 p0_a8 := ddp_excess_part.last_update_date;
111 p0_a9 := ddp_excess_part.last_update_login;
112 p0_a10 := ddp_excess_part.subinventory_code;
113 p0_a11 := ddp_excess_part.returned_quantity;
114 p0_a12 := ddp_excess_part.current_return_qty;
115 p0_a13 := ddp_excess_part.requisition_line_id;
116 p0_a14 := ddp_excess_part.excess_status;
117 p0_a15 := ddp_excess_part.attribute_category;
118 p0_a16 := ddp_excess_part.attribute1;
119 p0_a17 := ddp_excess_part.attribute2;
120 p0_a18 := ddp_excess_part.attribute3;
121 p0_a19 := ddp_excess_part.attribute4;
122 p0_a20 := ddp_excess_part.attribute5;
123 p0_a21 := ddp_excess_part.attribute6;
124 p0_a22 := ddp_excess_part.attribute7;
125 p0_a23 := ddp_excess_part.attribute8;
126 p0_a24 := ddp_excess_part.attribute9;
127 p0_a25 := ddp_excess_part.attribute10;
128 p0_a26 := ddp_excess_part.attribute11;
129 p0_a27 := ddp_excess_part.attribute12;
130 p0_a28 := ddp_excess_part.attribute13;
131 p0_a29 := ddp_excess_part.attribute14;
132 p0_a30 := ddp_excess_part.attribute15;
133 p0_a31 := ddp_excess_part.security_group_id;
134 p0_a32 := ddp_excess_part.reason_code;
135 p0_a33 := ddp_excess_part.return_organization_id;
136 p0_a34 := ddp_excess_part.return_subinventory_name;
137
138 end;
139
140 end csp_excess_parts_pvt_w;