[Home] [Help]
PACKAGE BODY: APPS.OZF_RESALE_LOGS_PKG
Source
1 PACKAGE BODY OZF_RESALE_LOGS_PKG as
2 /* $Header: ozftrlgb.pls 120.1.12000000.2 2007/05/28 10:27:22 ateotia ship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- OZF_RESALE_LOGS_PKG
7 -- Purpose
8 --
9 -- History
10 -- Name date Comment
11 -- Anuj Teotia 28/05/2007 bug # 5997978 fixed
12 --
13 -- NOTE
14 --
15 -- End of Comments
16 -- ===============================================================
17
18
19 G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_RESALE_LOGS_PKG';
20 G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozftrlgb.pls';
21
22
23 ----------------------------------------------------------
24 ---- MEDIA ----
25 ----------------------------------------------------------
26
27 -- ========================================================
28 --
29 -- NAME
30 -- createInsertBody
31 --
32 -- PURPOSE
33 --
34 -- NOTES
35 --
36 -- HISTORY
37 -- ========================================================
38 PROCEDURE Insert_Row(
39 px_resale_log_id IN OUT NOCOPY NUMBER,
40 p_resale_id NUMBER,
41 p_resale_id_type VARCHAR,
42 p_error_code VARCHAR2,
43 p_error_message VARCHAR2,
44 p_column_name VARCHAR2,
45 p_column_value VARCHAR2,
46 px_org_id IN OUT NOCOPY NUMBER)
47
48 IS
49 x_rowid VARCHAR2(30);
50 l_batch_org_id NUMBER; -- bug # 5997978 fixed
51
52 BEGIN
53
54 -- Start: bug # 5997978 fixed
55 /* IF (px_org_id IS NULL OR px_org_id = FND_API.G_MISS_NUM) THEN
56 SELECT NVL(SUBSTRB(USERENV('CLIENT_INFO'),1,10),-99)
57 INTO px_org_id
58 FROM DUAL;
59 END IF; */
60 IF (px_org_id IS NULL) THEN
61 OPEN OZF_RESALE_COMMON_PVT.g_resale_batch_org_id_csr(p_resale_id);
62 FETCH OZF_RESALE_COMMON_PVT.g_resale_batch_org_id_csr INTO l_batch_org_id;
63 CLOSE OZF_RESALE_COMMON_PVT.g_resale_batch_org_id_csr;
64 px_org_id := MO_GLOBAL.get_valid_org(l_batch_org_id);
65 IF (l_batch_org_id IS NULL OR px_org_id IS NULL) THEN
66 OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_ORG_ID_NOTFOUND');
67 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68 END IF;
69 END IF;
70 -- End: bug # 5997978 fixed
71
72 INSERT INTO OZF_RESALE_LOGS_ALL(
73 resale_log_id,
74 resale_id,
75 resale_id_type,
76 error_code,
77 error_message,
78 column_name,
79 column_value,
80 org_id
81 ) VALUES (
82 px_resale_log_id,
83 p_resale_id,
84 p_resale_id_type,
85 p_error_code,
86 p_error_message,
87 p_column_name,
88 p_column_value,
89 px_org_id);
90 END Insert_Row;
91
92
93 ----------------------------------------------------------
94 ---- MEDIA ----
95 ----------------------------------------------------------
96
97 -- ========================================================
98 --
99 -- NAME
100 -- createUpdateBody
101 --
102 -- PURPOSE
103 --
104 -- NOTES
105 --
106 -- HISTORY
107 --
108 -- ========================================================
109 PROCEDURE Update_Row(
110 p_resale_log_id NUMBER,
111 p_resale_id NUMBER,
112 p_resale_id_type VARCHAR,
113 p_error_code VARCHAR2,
114 p_error_message VARCHAR2,
115 p_column_name VARCHAR2,
116 p_column_value VARCHAR2,
117 p_org_id NUMBER)
118
119 IS
120 BEGIN
121 Update OZF_RESALE_LOGS_ALL
122 SET
123 resale_log_id = p_resale_log_id,
124 resale_id = p_resale_id,
125 resale_id_type = p_resale_id_type,
126 error_code = p_error_code,
127 error_message = p_error_message,
128 column_name = p_column_name,
129 column_value = p_column_value,
130 org_id = p_org_id
131 WHERE RESALE_LOG_ID = p_RESALE_LOG_ID;
132
133 IF (SQL%NOTFOUND) THEN
134 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135 END IF;
136 END Update_Row;
137
138
139 ----------------------------------------------------------
140 ---- MEDIA ----
141 ----------------------------------------------------------
142
143 -- ========================================================
144 --
145 -- NAME
146 -- createDeleteBody
147 --
148 -- PURPOSE
149 --
150 -- NOTES
151 --
152 -- HISTORY
153 --
154 -- ========================================================
155 PROCEDURE Delete_Row(
156 p_RESALE_LOG_ID NUMBER)
157 IS
158 BEGIN
159 DELETE FROM OZF_RESALE_LOGS_ALL
160 WHERE RESALE_LOG_ID = p_RESALE_LOG_ID;
161 If (SQL%NOTFOUND) then
162 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
163 End If;
164 END Delete_Row ;
165
166
167
168 ----------------------------------------------------------
169 ---- MEDIA ----
170 ----------------------------------------------------------
171
172 -- ========================================================
173 --
174 -- NAME
175 -- createLockBody
176 --
177 -- PURPOSE
178 --
179 -- NOTES
180 --
181 -- HISTORY
182 --
183 -- ========================================================
184 PROCEDURE Lock_Row(
185 p_resale_log_id NUMBER,
186 p_resale_id NUMBER,
187 p_resale_id_type VARCHAR,
188 p_error_code VARCHAR2,
189 p_error_message VARCHAR2,
190 p_column_name VARCHAR2,
191 p_column_value VARCHAR2,
192 p_org_id NUMBER)
193
194 IS
195 CURSOR C IS
196 SELECT *
197 FROM OZF_RESALE_LOGS_ALL
198 WHERE RESALE_LOG_ID = p_RESALE_LOG_ID
199 FOR UPDATE of RESALE_LOG_ID NOWAIT;
200 Recinfo C%ROWTYPE;
201 BEGIN
202 OPEN c;
203 FETCH c INTO Recinfo;
204 If (c%NOTFOUND) then
205 CLOSE c;
206 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
207 APP_EXCEPTION.RAISE_EXCEPTION;
208 END IF;
209 CLOSE C;
210 IF (
211 ( Recinfo.resale_log_id = p_resale_log_id)
212 AND ( ( Recinfo.resale_id = p_resale_id)
213 OR ( ( Recinfo.resale_id IS NULL )
214 AND ( p_resale_id IS NULL )))
215 AND ( ( Recinfo.resale_id_type = p_resale_id_type)
216 OR ( ( Recinfo.resale_id_type IS NULL )
217 AND ( p_resale_id_type IS NULL )))
218 AND ( ( Recinfo.error_code = p_error_code)
219 OR ( ( Recinfo.error_code IS NULL )
220 AND ( p_error_code IS NULL )))
221 AND ( ( Recinfo.error_message = p_error_message)
222 OR ( ( Recinfo.error_message IS NULL )
223 AND ( p_error_message IS NULL )))
224 AND ( ( Recinfo.column_name = p_column_name)
225 OR ( ( Recinfo.column_name IS NULL )
226 AND ( p_column_name IS NULL )))
227 AND ( ( Recinfo.column_value = p_column_value)
228 OR ( ( Recinfo.column_value IS NULL )
229 AND ( p_column_value IS NULL )))
230 AND ( ( Recinfo.org_id = p_org_id)
231 OR ( ( Recinfo.org_id IS NULL )
232 AND ( p_org_id IS NULL )))
233 ) THEN
234 RETURN;
235 ELSE
236 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
237 APP_EXCEPTION.RAISE_EXCEPTION;
238 END IF;
239 END Lock_Row;
240
241 END OZF_RESALE_LOGS_PKG;