[Home] [Help]
PACKAGE BODY: APPS.AMS_PRETTY_URL_PKG
Source
1 PACKAGE BODY AMS_PRETTY_URL_PKG as
2 /* $Header: amstpurb.pls 120.0 2005/07/01 03:54:48 appldev noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- AMS_PRETTY_URL_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- End of Comments
14 -- ===============================================================
15
16
17 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_PRETTY_URL_PKG';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'amstpurb.pls';
19
20
21 ----------------------------------------------------------
22 ---- MEDIA ----
23 ----------------------------------------------------------
24
25 -- ========================================================
26 --
27 -- NAME
28 -- createInsertBody
29 --
30 -- PURPOSE
31 --
32 -- NOTES
33 --
34 -- HISTORY
35 --
36 -- ========================================================
37 PROCEDURE Insert_Row(
38 px_pretty_url_id 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 px_object_version_number IN OUT NOCOPY NUMBER,
45 p_landing_page_url VARCHAR2)
46
47 IS
48 x_rowid VARCHAR2(30);
49
50
51 BEGIN
52
53
54 px_object_version_number := 1;
55
56
57 INSERT INTO AMS_PRETTY_URL(
58 pretty_url_id,
59 creation_date,
60 created_by,
61 last_update_date,
62 last_updated_by,
63 last_update_login,
64 object_version_number,
65 landing_page_url
66 ) VALUES (
67 DECODE( px_pretty_url_id, FND_API.g_miss_num, NULL, px_pretty_url_id),
68 DECODE( p_creation_date, FND_API.g_miss_date, NULL, p_creation_date),
69 DECODE( p_created_by, FND_API.g_miss_num, NULL, p_created_by),
70 DECODE( p_last_update_date, FND_API.g_miss_date, NULL, p_last_update_date),
71 DECODE( p_last_updated_by, FND_API.g_miss_num, NULL, p_last_updated_by),
72 DECODE( p_last_update_login, FND_API.g_miss_num, NULL, p_last_update_login),
73 DECODE( px_object_version_number, FND_API.g_miss_num, NULL, px_object_version_number),
74 DECODE( p_landing_page_url, FND_API.g_miss_char, NULL, p_landing_page_url));
75 END Insert_Row;
76
77
78 ----------------------------------------------------------
79 ---- MEDIA ----
80 ----------------------------------------------------------
81
82 -- ========================================================
83 --
84 -- NAME
85 -- createUpdateBody
86 --
87 -- PURPOSE
88 --
89 -- NOTES
90 --
91 -- HISTORY
92 --
93 -- ========================================================
94 PROCEDURE Update_Row(
95 p_pretty_url_id NUMBER,
96 p_creation_date DATE,
97 p_created_by NUMBER,
98 p_last_update_date DATE,
99 p_last_updated_by NUMBER,
100 p_last_update_login NUMBER,
101 p_object_version_number NUMBER,
102 p_landing_page_url VARCHAR2)
103
104 IS
105 BEGIN
106 Update AMS_PRETTY_URL
107 SET
108 pretty_url_id = DECODE( p_pretty_url_id, FND_API.g_miss_num, pretty_url_id, p_pretty_url_id),
109 creation_date = DECODE( p_creation_date, FND_API.g_miss_date, creation_date, p_creation_date),
110 created_by = DECODE( p_created_by, FND_API.g_miss_num, created_by, p_created_by),
111 last_update_date = DECODE( p_last_update_date, FND_API.g_miss_date, last_update_date, p_last_update_date),
112 last_updated_by = DECODE( p_last_updated_by, FND_API.g_miss_num, last_updated_by, p_last_updated_by),
113 last_update_login = DECODE( p_last_update_login, FND_API.g_miss_num, last_update_login, p_last_update_login),
114 object_version_number = DECODE( p_object_version_number, FND_API.g_miss_num, object_version_number, p_object_version_number),
115 landing_page_url = DECODE( p_landing_page_url, FND_API.g_miss_char, landing_page_url, p_landing_page_url)
116 WHERE PRETTY_URL_ID = p_PRETTY_URL_ID
117 AND object_version_number = p_object_version_number;
118
119 IF (SQL%NOTFOUND) THEN
120 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121 END IF;
122 END Update_Row;
123
124
125 ----------------------------------------------------------
126 ---- MEDIA ----
127 ----------------------------------------------------------
128
129 -- ========================================================
130 --
131 -- NAME
132 -- createDeleteBody
133 --
134 -- PURPOSE
135 --
136 -- NOTES
137 --
138 -- HISTORY
139 --
140 -- ========================================================
141 PROCEDURE Delete_Row(
142 p_PRETTY_URL_ID NUMBER)
143 IS
144 BEGIN
145 DELETE FROM AMS_PRETTY_URL
146 WHERE PRETTY_URL_ID = p_PRETTY_URL_ID;
147 If (SQL%NOTFOUND) then
148 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
149 End If;
150 END Delete_Row ;
151
152
153
154 ----------------------------------------------------------
155 ---- MEDIA ----
156 ----------------------------------------------------------
157
158 -- ========================================================
159 --
160 -- NAME
161 -- createLockBody
162 --
163 -- PURPOSE
164 --
165 -- NOTES
166 --
167 -- HISTORY
168 --
169 -- ========================================================
170 PROCEDURE Lock_Row(
171 p_pretty_url_id NUMBER,
172 p_creation_date DATE,
173 p_created_by NUMBER,
174 p_last_update_date DATE,
175 p_last_updated_by NUMBER,
176 p_last_update_login NUMBER,
177 p_object_version_number NUMBER,
178 p_landing_page_url VARCHAR2)
179
180 IS
181 CURSOR C IS
182 SELECT *
183 FROM AMS_PRETTY_URL
184 WHERE PRETTY_URL_ID = p_PRETTY_URL_ID
185 FOR UPDATE of PRETTY_URL_ID NOWAIT;
186 Recinfo C%ROWTYPE;
187 BEGIN
188 OPEN c;
189 FETCH c INTO Recinfo;
190 If (c%NOTFOUND) then
191 CLOSE c;
192 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
193 APP_EXCEPTION.RAISE_EXCEPTION;
194 END IF;
195 CLOSE C;
196 IF (
197 ( Recinfo.pretty_url_id = p_pretty_url_id)
198 AND ( ( Recinfo.creation_date = p_creation_date)
199 OR ( ( Recinfo.creation_date IS NULL )
200 AND ( p_creation_date IS NULL )))
201 AND ( ( Recinfo.created_by = p_created_by)
202 OR ( ( Recinfo.created_by IS NULL )
203 AND ( p_created_by IS NULL )))
204 AND ( ( Recinfo.last_update_date = p_last_update_date)
205 OR ( ( Recinfo.last_update_date IS NULL )
206 AND ( p_last_update_date IS NULL )))
207 AND ( ( Recinfo.last_updated_by = p_last_updated_by)
208 OR ( ( Recinfo.last_updated_by IS NULL )
209 AND ( p_last_updated_by IS NULL )))
210 AND ( ( Recinfo.last_update_login = p_last_update_login)
211 OR ( ( Recinfo.last_update_login IS NULL )
212 AND ( p_last_update_login IS NULL )))
213 AND ( ( Recinfo.object_version_number = p_object_version_number)
214 OR ( ( Recinfo.object_version_number IS NULL )
215 AND ( p_object_version_number IS NULL )))
216 AND ( ( Recinfo.landing_page_url = p_landing_page_url)
217 OR ( ( Recinfo.landing_page_url IS NULL )
218 AND ( p_landing_page_url IS NULL )))
219 ) THEN
220 RETURN;
221 ELSE
222 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
223 APP_EXCEPTION.RAISE_EXCEPTION;
224 END IF;
225 END Lock_Row;
226
227 END AMS_PRETTY_URL_PKG;