[Home] [Help]
PACKAGE BODY: APPS.OZF_VOL_OFFR_PKG
Source
1 PACKAGE BODY OZF_Vol_Offr_PKG as
2 /* $Header: ozftvob.pls 120.0 2005/06/01 03:00:19 appldev noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- OZF_Vol_Offr_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- This Api is generated with Latest version of
14 -- Rosetta, where g_miss indicates NULL and
15 -- NULL indicates missing value. Rosetta Version 1.55
16 -- End of Comments
17 -- ===============================================================
18
19
20 G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_Vol_Offr_PKG';
21 --G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozftam.b.pls';
22
23
24
25
26 -- ========================================================
27 --
28 -- NAME
29 -- Insert_Row
30 --
31 -- PURPOSE
32 --
33 -- NOTES
34 --
35 -- HISTORY
36 --
37 -- ========================================================
38 PROCEDURE Insert_Row(
39 px_volume_offer_tiers_id IN OUT NOCOPY NUMBER,
40 p_qp_list_header_id NUMBER,
41 p_discount_type_code VARCHAR2,
42 p_discount NUMBER,
43 p_break_type_code VARCHAR2,
44 p_tier_value_from NUMBER,
45 p_tier_value_to NUMBER,
46 p_volume_type VARCHAR2,
47 p_active VARCHAR2,
48 p_uom_code VARCHAR2,
49 px_object_version_number IN OUT NOCOPY NUMBER)
50 IS
51 x_rowid VARCHAR2(30);
52 BEGIN
53 px_object_version_number := nvl(px_object_version_number, 1);
54
55
56 INSERT INTO ozf_volume_offer_tiers(
57 volume_offer_tiers_id,
58 qp_list_header_id,
59 discount_type_code,
60 discount,
61 break_type_code,
62 tier_value_from,
63 tier_value_to,
64 volume_type,
65 active,
66 uom_code,
67 object_version_number
68 ) VALUES (
69 px_volume_offer_tiers_id,
70 p_qp_list_header_id,
71 p_discount_type_code,
72 p_discount,
73 p_break_type_code,
74 p_tier_value_from,
75 p_tier_value_to,
76 p_volume_type,
77 p_active,
78 p_uom_code,
79 DECODE( px_object_version_number, FND_API.G_MISS_NUM, 1, px_object_version_number));
80
81 END Insert_Row;
82
83
84
85
86 -- ========================================================
87 --
88 -- NAME
89 -- Update_Row
90 --
91 -- PURPOSE
92 --
93 -- NOTES
94 --
95 -- HISTORY
96 --
97 -- ========================================================
98 PROCEDURE Update_Row(
99 p_volume_offer_tiers_id NUMBER,
100 p_qp_list_header_id NUMBER,
101 p_discount_type_code VARCHAR2,
102 p_discount NUMBER,
103 p_break_type_code VARCHAR2,
104 p_tier_value_from NUMBER,
105 p_tier_value_to NUMBER,
106 p_volume_type VARCHAR2,
107 p_active VARCHAR2,
108 p_uom_code VARCHAR2,
109 px_object_version_number IN OUT NOCOPY NUMBER
110 )
111 IS
112 BEGIN
113 OZF_UTILITY_PVT.debug_message('before inserting');
114 OZF_UTILITY_PVT.debug_message('id: ' || p_volume_offer_tiers_id);
115 OZF_UTILITY_PVT.debug_message('ver: ' || px_object_version_number);
116
117 Update ozf_volume_offer_tiers
118 SET
119 volume_offer_tiers_id = DECODE( p_volume_offer_tiers_id, null, volume_offer_tiers_id, FND_API.G_MISS_NUM, null, p_volume_offer_tiers_id),
120 qp_list_header_id = DECODE( p_qp_list_header_id, null, qp_list_header_id, FND_API.G_MISS_NUM, null, p_qp_list_header_id),
121 discount_type_code = DECODE( p_discount_type_code, null, discount_type_code, FND_API.g_miss_char, null, p_discount_type_code),
122 discount = DECODE( p_discount, null, discount, FND_API.G_MISS_NUM, null, p_discount),
123 break_type_code = DECODE( p_break_type_code, null, break_type_code, FND_API.g_miss_char, null, p_break_type_code),
124 tier_value_from = DECODE( p_tier_value_from, null, tier_value_from, FND_API.G_MISS_NUM, null, p_tier_value_from),
125 tier_value_to = DECODE( p_tier_value_to, null, tier_value_to, FND_API.G_MISS_NUM, null, p_tier_value_to),
126 volume_type = DECODE( p_volume_type, null, volume_type, FND_API.g_miss_char, null, p_volume_type),
127 active = DECODE( p_active, null, active, FND_API.g_miss_char, null, p_active),
128 uom_code = DECODE( p_uom_code, null, uom_code, FND_API.g_miss_char, null, p_uom_code),
129 object_version_number = object_version_number + 1
130 WHERE volume_offer_tiers_id = p_volume_offer_tiers_id
131 AND object_version_number = px_object_version_number;
132
133 IF (SQL%NOTFOUND) THEN
134 OZF_UTILITY_PVT.debug_message('no data found');
135 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
136 END IF;
137 OZF_UTILITY_PVT.debug_message('after inserting');
138
139 px_object_version_number := nvl(px_object_version_number,0) + 1;
140 OZF_UTILITY_PVT.debug_message('table handler end');
141 END Update_Row;
142
143
144
145
146 -- ========================================================
147 --
148 -- NAME
149 -- Delete_Row
150 --
151 -- PURPOSE
152 --
153 -- NOTES
154 --
155 -- HISTORY
156 --
157 -- ========================================================
158 PROCEDURE Delete_Row(
159 p_volume_offer_tiers_id NUMBER,
160 p_object_version_number NUMBER)
161 IS
162 BEGIN
163 DELETE FROM ozf_volume_offer_tiers
164 WHERE volume_offer_tiers_id = p_volume_offer_tiers_id
165 AND object_version_number = p_object_version_number;
166 If (SQL%NOTFOUND) then
167 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
168 End If;
169 END Delete_Row ;
170
171
172
173
174
175 -- ========================================================
176 --
177 -- NAME
178 -- Lock_Row
179 --
180 -- PURPOSE
181 --
182 -- NOTES
183 --
184 -- HISTORY
185 --
186 -- ========================================================
187 PROCEDURE Lock_Row(
188 p_volume_offer_tiers_id NUMBER,
189 p_object_version_number NUMBER)
190 IS
191 CURSOR C IS
192 SELECT *
193 FROM ozf_volume_offer_tiers
194 WHERE volume_offer_tiers_id = p_volume_offer_tiers_id
195 AND object_version_number = p_object_version_number
196 FOR UPDATE OF volume_offer_tiers_id NOWAIT;
197 Recinfo C%ROWTYPE;
198 BEGIN
199
200 OPEN c;
201 FETCH c INTO Recinfo;
202 IF (c%NOTFOUND) THEN
203 CLOSE c;
204 OZF_Utility_PVT.error_message ('OZF_API_RECORD_NOT_FOUND');
205 RAISE FND_API.g_exc_error;
206 END IF;
207 CLOSE c;
208 END Lock_Row;
209
210
211
212 END OZF_Vol_Offr_PKG;