[Home] [Help]
PACKAGE BODY: APPS.OZF_QP_PRODUCTS_PKG
Source
1 PACKAGE BODY OZF_QP_PRODUCTS_PKG AS
2 /* $Header: ozftoqppb.pls 120.1 2005/08/24 02:59:26 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_product_id IN OUT NOCOPY NUMBER
33 , p_off_discount_product_id NUMBER
34 , p_pricing_attribute_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
46 INSERT INTO ozf_qp_products
47 (
48 qp_product_id
49 , off_discount_product_id
50 , pricing_attribute_id
51 , object_version_number
52 , last_update_date
53 , last_updated_by
54 , creation_date
55 , created_by
56 , last_update_login
57 )
58 values
59 (
60 DECODE(px_qp_product_id , FND_API.G_MISS_NUM, null, px_qp_product_id)
61 , DECODE(p_off_discount_product_id , FND_API.G_MISS_NUM , NULL, p_off_discount_product_id)
62 , DECODE(p_pricing_attribute_id, FND_API.G_MISS_NUM, NULL, p_pricing_attribute_id)
63 , DECODE(px_object_version_number, FND_API.G_MISS_NUM, 1, px_object_version_number)
64 , DECODE(p_last_update_date, FND_API.G_MISS_DATE,sysdate, p_last_update_date)
65 , DECODE(p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.user_id, p_last_updated_by)
66 , DECODE(p_creation_date, FND_API.G_MISS_DATE, sysdate, p_creation_date)
67 , DECODE(p_created_by , FND_API.G_MISS_NUM,FND_GLOBAL.user_id, p_created_by)
68 , DECODE(p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.conc_login_id, p_last_update_login)
69 );
70
71 END Insert_Row;
72
73 -- ========================================================
74 --
75 -- NAME
76 -- Update_Row
77 --
78 -- PURPOSE
79 --
80 -- NOTES
81 --
82 -- HISTORY
83 --
84 -- ========================================================
85 PROCEDURE Update_Row(
86 p_qp_product_id NUMBER
87 , p_off_discount_product_id NUMBER
88 , p_pricing_attribute_id NUMBER
89 , p_object_version_number NUMBER
90 , p_last_update_date DATE
91 , p_last_updated_by NUMBER
92 , p_last_update_login NUMBER
93 )
94 IS
95 BEGIN
96 UPDATE ozf_qp_products
97 SET
98 qp_product_id = DECODE(p_qp_product_id , NULL, qp_product_id, FND_API.G_MISS_NUM, null, p_qp_product_id)
99 , off_discount_product_id = DECODE(p_off_discount_product_id, NULL , off_discount_product_id, FND_API.G_MISS_NUM, NULL, p_off_discount_product_id)
100 , pricing_attribute_id = DECODE(p_pricing_attribute_id, NULL, pricing_attribute_id, FND_API.G_MISS_NUM,NULL, p_pricing_attribute_id)
101 , object_version_number = nvl(p_object_version_number,0)+1
102 , 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)
103 , last_updated_by = DECODE(p_last_updated_by, NULL, last_updated_by, FND_API.G_MISS_NUM,null, p_last_updated_by)
104 , last_update_login = DECODE(p_last_update_login, NULL, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login)
105 WHERE qp_product_id = p_qp_product_id
106 AND object_version_number = p_object_version_number;
107
108 IF (SQL%NOTFOUND) THEN
109 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
110 END IF;
111
112 END Update_Row;
113
114
115 -- ========================================================
116 --
117 -- NAME
118 -- Delete_Row
119 --
120 -- PURPOSE
121 --
122 -- NOTES
123 --
124 -- HISTORY
125 --
126 -- ========================================================
127 PROCEDURE Delete_Row(
128 p_qp_product_id NUMBER
129 , p_object_version_number NUMBER)
130 IS
131 BEGIN
132 DELETE FROM ozf_qp_products
133 WHERE qp_product_id = p_qp_product_id
134 AND object_version_number = p_object_version_number;
135 If (SQL%NOTFOUND) then
136 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
137 End If;
138 END Delete_Row;
139
140
141
142
143 -- ========================================================
144 --
145 -- NAME
146 -- Lock_Row
147 --
148 -- PURPOSE
149 --
150 -- NOTES
151 --
152 -- HISTORY
153 --
154 -- ========================================================
155 PROCEDURE Lock_Row(
156 p_qp_product_id NUMBER
157 , p_object_version_number NUMBER)
158 IS
159 CURSOR C IS
160 SELECT *
161 FROM ozf_qp_products
162 WHERE qp_product_id = p_qp_product_id
163 AND object_version_number = p_object_version_number
164 FOR UPDATE OF qp_product_id NOWAIT;
165 Recinfo C%ROWTYPE;
166 BEGIN
167
168 OPEN c;
169 FETCH c INTO Recinfo;
170 IF (c%NOTFOUND) THEN
171 CLOSE c;
172 AMS_Utility_PVT.error_message ('AMS_API_RECORD_NOT_FOUND');
173 RAISE FND_API.g_exc_error;
174 END IF;
175 CLOSE c;
176 END Lock_Row;
177
178
179
180
181 END OZF_QP_PRODUCTS_PKG;