DBA Data[Home] [Help]

PACKAGE BODY: APPS.OZF_MO_PRESET_TIERS_PKG

Source


1 PACKAGE BODY OZF_MO_PRESET_TIERS_PKG AS
2 /* $Header: ozftmoptb.pls 120.1 2005/08/24 02:59:38 rssharma noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 --          OZF_MO_PRESET_TIERS_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 --  ========================================================
22 --
23 --  NAME
24 --  Insert_Row
25 --
26 --  PURPOSE
27 --
28 --  NOTES
29 --
30 --  HISTORY
31 --
32 --  ========================================================
33 PROCEDURE Insert_Row(
34           px_market_preset_tier_id IN OUT NOCOPY NUMBER
35           , p_offer_market_option_id NUMBER
36           , p_pbh_offer_discount_id NUMBER
37           , p_dis_offer_discount_id NUMBER
38           , px_object_version_number IN OUT NOCOPY NUMBER
39           , p_creation_date    DATE
40           , p_created_by    NUMBER
41           , p_last_update_date    DATE
42           , p_last_updated_by    NUMBER
43           , p_last_update_login    NUMBER
44           )
45           IS
46           BEGIN
47           px_object_version_number := nvl(px_object_version_number,1);
48           INSERT INTO ozf_market_preset_tiers
49           (
50             market_preset_tier_id
51             , offer_market_option_id
52             , pbh_offer_discount_id
53             , dis_offer_discount_id
54             , object_version_number
55             , last_update_date
56             , last_updated_by
57             , creation_date
58             , created_by
59             , last_update_login
60           )
61           VALUES
62           (
63             DECODE(px_market_preset_tier_id, FND_API.G_MISS_NUM, null, px_market_preset_tier_id)
64             , DECODE(p_offer_market_option_id , FND_API.G_MISS_NUM, null, p_offer_market_option_id)
65             , DECODE(p_pbh_offer_discount_id , FND_API.G_MISS_NUM, null, p_pbh_offer_discount_id)
66             , DECODE(p_dis_offer_discount_id , FND_API.G_MISS_NUM, null, p_dis_offer_discount_id)
67             , DECODE(px_object_version_number, FND_API.G_MISS_NUM, null, px_object_version_number)
68             , DECODE( p_creation_date, FND_API.G_MISS_DATE, SYSDATE, p_creation_date)
69             , DECODE( p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_created_by)
70             , DECODE( p_last_update_date, FND_API.G_MISS_DATE, SYSDATE, p_last_update_date)
71             , DECODE( p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_last_updated_by)
72             , DECODE( p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.CONC_LOGIN_ID, p_last_update_login)
73           );
74           END Insert_Row;
75 
76 --  ========================================================
77 --
78 --  NAME
79 --  Update_Row
80 --
81 --  PURPOSE
82 --
83 --  NOTES
84 --
85 --  HISTORY
86 --
87 --  ========================================================
88 PROCEDURE Update_Row(
89           p_market_preset_tier_id IN OUT NOCOPY NUMBER
90           , p_offer_market_option_id NUMBER
91           , p_pbh_offer_discount_id NUMBER
92           , p_dis_offer_discount_id NUMBER
93           , p_object_version_number IN OUT NOCOPY NUMBER
94           , p_last_update_date    DATE
95           , p_last_updated_by    NUMBER
96           , p_last_update_login    NUMBER
97           )
98           IS
99           BEGIN
100           UPDATE ozf_market_preset_tiers
101           set market_preset_tier_id = DECODE(p_market_preset_tier_id, null, market_preset_tier_id, FND_API.G_MISS_NUM, null, p_market_preset_tier_id)
102           , offer_market_option_id = DECODE(p_offer_market_option_id , null, offer_market_option_id, FND_API.G_MISS_NUM, null, p_offer_market_option_id)
103           , pbh_offer_discount_id = DECODE(p_pbh_offer_discount_id, null, pbh_offer_discount_id, FND_API.G_MISS_NUM, null, p_pbh_offer_discount_id)
104           , dis_offer_discount_id =DECODE(p_dis_offer_discount_id, null, dis_offer_discount_id, FND_API.G_MISS_NUM, null, p_dis_offer_discount_id)
105           , object_version_number = nvl(p_object_version_number,0) + 1
106           , last_update_date = DECODE( p_last_update_date, to_date(NULL), last_update_date, FND_API.G_MISS_DATE, to_date(null), p_last_update_date)
107           , last_updated_by = DECODE( p_last_updated_by, null, last_updated_by, FND_API.G_MISS_NUM, null, p_last_updated_by)
108           , last_update_login = DECODE( p_last_update_login, null, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login)
109           WHERE market_preset_tier_id = p_market_preset_tier_id
110           AND object_version_number = p_object_version_number;
111 
112    IF (SQL%NOTFOUND) THEN
113       RAISE  FND_API.G_EXC_UNEXPECTED_ERROR;
114    END IF;
115 
116           END Update_Row;
117 
118 
119 --  ========================================================
120 --
121 --  NAME
122 --  Delete_Row
123 --
124 --  PURPOSE
125 --
126 --  NOTES
127 --
128 --  HISTORY
129 --
130 --  ========================================================
131 PROCEDURE Delete_Row(
132     p_market_preset_tier_id  NUMBER,
133     p_object_version_number  NUMBER)
134     IS
135     BEGIN
136     DELETE FROM ozf_market_preset_tiers
137     WHERE market_preset_tier_id = p_market_preset_tier_id
138     AND object_version_number = p_object_version_number;
139 
140    IF (SQL%NOTFOUND) THEN
141       RAISE  FND_API.G_EXC_UNEXPECTED_ERROR;
142    END IF;
143 
144     END Delete_Row;
145 
146 
147 
148 
149 --  ========================================================
150 --
151 --  NAME
152 --  Lock_Row
153 --
154 --  PURPOSE
155 --
156 --  NOTES
157 --
158 --  HISTORY
159 --
160 --  ========================================================
161 PROCEDURE Lock_Row(
162     p_market_preset_tier_id  NUMBER,
163     p_object_version_number  NUMBER)
164     IS
165     CURSOR C IS
166     SELECT * FROM ozf_market_preset_tiers
167     WHERE market_preset_tier_id = p_market_preset_tier_id
168     AND object_version_Number = p_object_version_number
169     FOR UPDATE OF market_preset_tier_id NOWAIT;
170     Recinfo c%ROWTYPE;
171     BEGIN
172     OPEN C;
173     FETCH C INTO Recinfo;
174     IF (c%NOTFOUND) THEN
175     CLOSE C;
176     Ozf_utility_pvt.Error_message('AMS_API_RECORD_NOT_FOUND');
177       RAISE FND_API.g_exc_error;
178     END IF;
179     CLOSE C;
180     END Lock_Row;
181 
182 
183 
184 
185 END OZF_MO_PRESET_TIERS_PKG;