[Home] [Help]
PACKAGE BODY: APPS.OZF_QP_DISCOUNTS_PKG
Source
1 PACKAGE BODY OZF_QP_DISCOUNTS_PKG AS
2 /* $Header: ozftoqpdb.pls 120.1 2005/08/24 02:59:28 rssharma noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- OZF_QP_PRODUCTS_PKG
7 -- Purpose
8 --
9 -- History
10 -- NOTE
11 --
12 -- This Api is generated with Latest version of
13 -- Rosetta, where g_miss indicates NULL and
14 -- NULL indicates missing value. Rosetta Version 1.55
15 -- End of Comments
16 -- ===============================================================
17
18
19 -- ========================================================
20 --
21 -- NAME
22 -- Insert_Row
23 --
24 -- PURPOSE
25 --
26 -- NOTES
27 --
28 -- HISTORY
29 --
30 -- ========================================================
31 PROCEDURE Insert_Row(
32 px_qp_discount_id IN OUT NOCOPY NUMBER
33 , p_list_line_id NUMBER
34 , p_offer_discount_line_id NUMBER
35 , px_object_version_number IN OUT NOCOPY NUMBER
36 , p_creation_date DATE
37 , p_created_by NUMBER
38 , p_last_update_date DATE
39 , p_last_updated_by NUMBER
40 , p_last_update_login NUMBER
41 )
42 IS
43 BEGIN
44 px_object_version_number := nvl(px_object_version_number,1);
45 INSERT INTO ozf_qp_discounts
46 (
47 ozf_qp_discount_id
48 , list_line_id
49 , offer_discount_line_id
50 , object_version_number
51 , creation_date
52 , created_by
53 , last_updated_by
54 , last_update_date
55 , last_update_login
56 )
57 VALUES
58 (
59 DECODE(px_qp_discount_id, FND_API.G_MISS_NUM, NULL,px_qp_discount_id)
60 , DECODE(p_list_line_id, FND_API.G_MISS_NUM, NULL, p_list_line_id)
61 , DECODE(p_offer_discount_line_id, FND_API.G_MISS_NUM, NULL, p_offer_discount_line_id)
62 , DECODE(px_object_version_number,FND_API.G_MISS_NUM, 1, px_object_version_number)
63 , DECODE(p_creation_date, FND_API.G_MISS_DATE,sysdate, p_creation_date)
64 , DECODE(p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.user_id,p_created_by)
65 , DECODE(p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.user_id, p_last_updated_by)
66 , DECODE(p_last_update_date, FND_API.G_MISS_DATE, sysdate, p_last_update_date)
67 , DECODE(p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.conc_login_id,p_last_update_login)
68 );
69 END Insert_Row;
70
71 -- ========================================================
72 --
73 -- NAME
74 -- Update_Row
75 --
76 -- PURPOSE
77 --
78 -- NOTES
79 --
80 -- HISTORY
81 --
82 -- ========================================================
83 PROCEDURE Update_Row(
84 p_qp_discount_id NUMBER
85 , p_list_line_id NUMBER
86 , p_offer_discount_line_id NUMBER
87 , p_object_version_number NUMBER
88 , p_last_update_date DATE
89 , p_last_updated_by NUMBER
90 , p_last_update_login NUMBER
91 )
92 IS
93 BEGIN
94 UPDATE ozf_qp_discounts
95 SET
96 ozf_qp_discount_id = DECODE(p_qp_discount_id, NULL, ozf_qp_discount_id, FND_API.G_MISS_NUM, NULL, p_qp_discount_id)
97 , list_line_id = DECODE(p_list_line_id , NULL, list_line_id, FND_API.G_MISS_NUM, NULL, p_list_line_id)
98 , offer_discount_line_id = DECODE(p_offer_discount_line_id, NULL, offer_discount_line_id,FND_API.G_MISS_NUM, null, p_offer_discount_line_id)
99 , object_version_number = nvl(p_object_version_number,0)+1
100 , last_update_date = DECODE(p_last_update_date, to_date(NULL), last_update_date, FND_API.G_MISS_DATE, to_date(NULL), last_update_date)
101 , last_updated_by = DECODE(p_last_updated_by, NULL, last_updated_by, FND_API.G_MISS_NUM,null, p_last_updated_by)
102 , last_update_login = DECODE(p_last_update_login, NULL, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login)
103 WHERE ozf_qp_discount_id = p_qp_discount_id
104 AND object_version_number = p_object_version_number;
105
106 IF SQL%NOTFOUND THEN
107 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
108 END IF;
109
110 END Update_Row;
111
112
113 -- ========================================================
114 --
115 -- NAME
116 -- Delete_Row
117 --
118 -- PURPOSE
119 --
120 -- NOTES
121 --
122 -- HISTORY
123 --
124 -- ========================================================
125 PROCEDURE Delete_Row(
126 p_qp_discount_id NUMBER
127 , p_object_version_number NUMBER)
128 IS
129 BEGIN
130 DELETE FROM ozf_qp_discounts
131 WHERE ozf_qp_discount_id = p_qp_discount_id
132 AND object_version_number = p_object_version_number;
133
134 IF SQL%NOTFOUND THEN
135 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
136 END IF;
137 END Delete_Row;
138
139
140
141
142 -- ========================================================
143 --
144 -- NAME
145 -- Lock_Row
146 --
147 -- PURPOSE
148 --
149 -- NOTES
150 --
151 -- HISTORY
152 --
153 -- ========================================================
154 PROCEDURE Lock_Row(
155 p_qp_discount_id NUMBER
156 , p_object_version_number NUMBER)
157 IS
158 CURSOR c IS
159 SELECT * FROM ozf_qp_discounts
160 WHERE ozf_qp_discount_id = p_qp_discount_id
161 AND object_version_number = p_object_version_number
162 FOR UPDATE OF ozf_qp_discount_id NOWAIT;
163
164 recinfo c%ROWTYPE;
165 BEGIN
166 OPEN c;
167 FETCH c INTO recinfo;
168 IF c%NOTFOUND THEN
169 AMS_Utility_PVT.error_message ('AMS_API_RECORD_NOT_FOUND');
170 RAISE FND_API.g_exc_error;
171 END IF;
172 CLOSE C;
173 END Lock_Row;
174
175
176
177
178 END OZF_QP_DISCOUNTS_PKG;