1: PACKAGE BODY ZX_TRL_PUB_PKG AS
2: /* $Header: zxrwlnrepsrvpubb.pls 120.44.12020000.5 2013/02/19 15:43:22 ssohal ship $ */
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
30: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
31:
32: IF (g_level_procedure >= g_current_runtime_level ) THEN
33: FND_LOG.STRING(g_level_procedure,
34: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.BEGIN',
35: 'ZX_TRL_PUB_PKG: Manage_TaxLines (+)');
36: END IF;
37:
38: -- Initialize API return status to success
31:
32: IF (g_level_procedure >= g_current_runtime_level ) THEN
33: FND_LOG.STRING(g_level_procedure,
34: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.BEGIN',
35: 'ZX_TRL_PUB_PKG: Manage_TaxLines (+)');
36: END IF;
37:
38: -- Initialize API return status to success
39: x_return_status := FND_API.G_RET_STS_SUCCESS;
98:
99: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
100: IF (g_level_error >= g_current_runtime_level ) THEN
101: FND_LOG.STRING(g_level_error,
102: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
103: 'Incorrect return_status after calling ' ||
104: 'ZX_TRL_MANAGE_TAX_PKG.Delete_Detail_Lines()');
105: FND_LOG.STRING(g_level_error,
106: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
102: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
103: 'Incorrect return_status after calling ' ||
104: 'ZX_TRL_MANAGE_TAX_PKG.Delete_Detail_Lines()');
105: FND_LOG.STRING(g_level_error,
106: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
107: 'RETURN_STATUS = ' || x_return_status);
108: FND_LOG.STRING(g_level_error,
109: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
110: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
105: FND_LOG.STRING(g_level_error,
106: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
107: 'RETURN_STATUS = ' || x_return_status);
108: FND_LOG.STRING(g_level_error,
109: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
110: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
111: END IF;
112: RETURN;
113: END IF;
106: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
107: 'RETURN_STATUS = ' || x_return_status);
108: FND_LOG.STRING(g_level_error,
109: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
110: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
111: END IF;
112: RETURN;
113: END IF;
114:
121:
122: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
123: IF (g_level_error >= g_current_runtime_level ) THEN
124: FND_LOG.STRING(g_level_error,
125: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
126: 'Incorrect return_status after calling ' ||
127: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines()');
128: FND_LOG.STRING(g_level_error,
129: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
125: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
126: 'Incorrect return_status after calling ' ||
127: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines()');
128: FND_LOG.STRING(g_level_error,
129: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
130: 'RETURN_STATUS = ' || x_return_status);
131: FND_LOG.STRING(g_level_error,
132: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
133: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
128: FND_LOG.STRING(g_level_error,
129: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
130: 'RETURN_STATUS = ' || x_return_status);
131: FND_LOG.STRING(g_level_error,
132: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
133: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
134: END IF;
135: RETURN;
136: END IF;
129: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
130: 'RETURN_STATUS = ' || x_return_status);
131: FND_LOG.STRING(g_level_error,
132: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
133: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
134: END IF;
135: RETURN;
136: END IF;
137:
148:
149: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
150: IF (g_level_error >= g_current_runtime_level ) THEN
151: FND_LOG.STRING(g_level_error,
152: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
153: 'Incorrect return_status after calling ' ||
154: 'ZX_TRL_MANAGE_TAX_PKG.update_exist_summary_line_id()');
155: FND_LOG.STRING(g_level_error,
156: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
152: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
153: 'Incorrect return_status after calling ' ||
154: 'ZX_TRL_MANAGE_TAX_PKG.update_exist_summary_line_id()');
155: FND_LOG.STRING(g_level_error,
156: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
157: 'RETURN_STATUS = ' || x_return_status);
158: FND_LOG.STRING(g_level_error,
159: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
160: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
155: FND_LOG.STRING(g_level_error,
156: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
157: 'RETURN_STATUS = ' || x_return_status);
158: FND_LOG.STRING(g_level_error,
159: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
160: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
161: END IF;
162: RETURN;
163: END IF;
156: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
157: 'RETURN_STATUS = ' || x_return_status);
158: FND_LOG.STRING(g_level_error,
159: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
160: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
161: END IF;
162: RETURN;
163: END IF;
164: END IF;
169:
170: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
171: IF (g_level_error >= g_current_runtime_level ) THEN
172: FND_LOG.STRING(g_level_error,
173: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
174: 'Incorrect return_status after calling ' ||
175: 'ZX_TRL_MANAGE_TAX_PKG.Delete_Summary_Lines()');
176: FND_LOG.STRING(g_level_error,
177: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
173: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
174: 'Incorrect return_status after calling ' ||
175: 'ZX_TRL_MANAGE_TAX_PKG.Delete_Summary_Lines()');
176: FND_LOG.STRING(g_level_error,
177: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
178: 'RETURN_STATUS = ' || x_return_status);
179: FND_LOG.STRING(g_level_error,
180: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
181: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
176: FND_LOG.STRING(g_level_error,
177: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
178: 'RETURN_STATUS = ' || x_return_status);
179: FND_LOG.STRING(g_level_error,
180: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
181: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
182: END IF;
183: RETURN;
184: END IF;
177: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
178: 'RETURN_STATUS = ' || x_return_status);
179: FND_LOG.STRING(g_level_error,
180: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
181: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
182: END IF;
183: RETURN;
184: END IF;
185:
198:
199: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
200: IF (g_level_error >= g_current_runtime_level ) THEN
201: FND_LOG.STRING(g_level_error,
202: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
203: 'Incorrect return_status after calling ' ||
204: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_crt_evnt()');
205: FND_LOG.STRING(g_level_error,
206: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
202: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
203: 'Incorrect return_status after calling ' ||
204: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_crt_evnt()');
205: FND_LOG.STRING(g_level_error,
206: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
207: 'RETURN_STATUS = ' || x_return_status);
208: FND_LOG.STRING(g_level_error,
209: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
210: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
205: FND_LOG.STRING(g_level_error,
206: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
207: 'RETURN_STATUS = ' || x_return_status);
208: FND_LOG.STRING(g_level_error,
209: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
210: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
211: END IF;
212: RETURN;
213: END IF;
206: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
207: 'RETURN_STATUS = ' || x_return_status);
208: FND_LOG.STRING(g_level_error,
209: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
210: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
211: END IF;
212: RETURN;
213: END IF;
214:
219:
220: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
221: IF (g_level_error >= g_current_runtime_level ) THEN
222: FND_LOG.STRING(g_level_error,
223: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
224: 'Incorrect return_status after calling ' ||
225: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines()');
226: FND_LOG.STRING(g_level_error,
227: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
223: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
224: 'Incorrect return_status after calling ' ||
225: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines()');
226: FND_LOG.STRING(g_level_error,
227: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
228: 'RETURN_STATUS = ' || x_return_status);
229: FND_LOG.STRING(g_level_error,
230: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
231: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
226: FND_LOG.STRING(g_level_error,
227: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
228: 'RETURN_STATUS = ' || x_return_status);
229: FND_LOG.STRING(g_level_error,
230: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
231: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
232: END IF;
233: RETURN;
234: END IF;
227: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
228: 'RETURN_STATUS = ' || x_return_status);
229: FND_LOG.STRING(g_level_error,
230: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
231: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
232: END IF;
233: RETURN;
234: END IF;
235:
242:
243: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
244: IF (g_level_error >= g_current_runtime_level ) THEN
245: FND_LOG.STRING(g_level_error,
246: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
247: 'Incorrect return_status after calling ' ||
248: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines()');
249: FND_LOG.STRING(g_level_error,
250: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
246: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
247: 'Incorrect return_status after calling ' ||
248: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines()');
249: FND_LOG.STRING(g_level_error,
250: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
251: 'RETURN_STATUS = ' || x_return_status);
252: FND_LOG.STRING(g_level_error,
253: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
254: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
249: FND_LOG.STRING(g_level_error,
250: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
251: 'RETURN_STATUS = ' || x_return_status);
252: FND_LOG.STRING(g_level_error,
253: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
254: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
255: END IF;
256: RETURN;
257: END IF;
250: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
251: 'RETURN_STATUS = ' || x_return_status);
252: FND_LOG.STRING(g_level_error,
253: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
254: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
255: END IF;
256: RETURN;
257: END IF;
258:
262:
263: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
264: IF (g_level_error >= g_current_runtime_level ) THEN
265: FND_LOG.STRING(g_level_error,
266: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
267: 'Incorrect return_status after calling ' ||
268: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_crt_evnt()');
269: FND_LOG.STRING(g_level_error,
270: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
266: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
267: 'Incorrect return_status after calling ' ||
268: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_crt_evnt()');
269: FND_LOG.STRING(g_level_error,
270: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
271: 'RETURN_STATUS = ' || x_return_status);
272: FND_LOG.STRING(g_level_error,
273: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
274: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
269: FND_LOG.STRING(g_level_error,
270: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
271: 'RETURN_STATUS = ' || x_return_status);
272: FND_LOG.STRING(g_level_error,
273: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
274: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
275: END IF;
276: RETURN;
277: END IF;
270: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
271: 'RETURN_STATUS = ' || x_return_status);
272: FND_LOG.STRING(g_level_error,
273: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
274: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
275: END IF;
276: RETURN;
277: END IF;
278:
287:
288: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
289: IF (g_level_error >= g_current_runtime_level ) THEN
290: FND_LOG.STRING(g_level_error,
291: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
292: 'Incorrect return_status after calling ' ||
293: 'ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions()');
294: FND_LOG.STRING(g_level_error,
295: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
291: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
292: 'Incorrect return_status after calling ' ||
293: 'ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions()');
294: FND_LOG.STRING(g_level_error,
295: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
296: 'RETURN_STATUS = ' || x_return_status);
297: FND_LOG.STRING(g_level_error,
298: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
299: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
294: FND_LOG.STRING(g_level_error,
295: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
296: 'RETURN_STATUS = ' || x_return_status);
297: FND_LOG.STRING(g_level_error,
298: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
299: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
300: END IF;
301: RETURN;
302: END IF;
295: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
296: 'RETURN_STATUS = ' || x_return_status);
297: FND_LOG.STRING(g_level_error,
298: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
299: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
300: END IF;
301: RETURN;
302: END IF;
303:
315:
316: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
317: IF (g_level_error >= g_current_runtime_level ) THEN
318: FND_LOG.STRING(g_level_error,
319: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
320: 'Incorrect return_status after calling ' ||
321: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_crt_evnt()');
322: FND_LOG.STRING(g_level_error,
323: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
319: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
320: 'Incorrect return_status after calling ' ||
321: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_crt_evnt()');
322: FND_LOG.STRING(g_level_error,
323: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
324: 'RETURN_STATUS = ' || x_return_status);
325: FND_LOG.STRING(g_level_error,
326: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
327: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
322: FND_LOG.STRING(g_level_error,
323: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
324: 'RETURN_STATUS = ' || x_return_status);
325: FND_LOG.STRING(g_level_error,
326: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
327: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
328: END IF;
329: RETURN;
330: END IF;
323: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
324: 'RETURN_STATUS = ' || x_return_status);
325: FND_LOG.STRING(g_level_error,
326: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
327: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
328: END IF;
329: RETURN;
330: END IF;
331:
338:
339: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
340: IF (g_level_error >= g_current_runtime_level ) THEN
341: FND_LOG.STRING(g_level_error,
342: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
343: 'Incorrect return_status after calling ' ||
344: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines()');
345: FND_LOG.STRING(g_level_error,
346: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
342: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
343: 'Incorrect return_status after calling ' ||
344: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines()');
345: FND_LOG.STRING(g_level_error,
346: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
347: 'RETURN_STATUS = ' || x_return_status);
348: FND_LOG.STRING(g_level_error,
349: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
350: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
345: FND_LOG.STRING(g_level_error,
346: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
347: 'RETURN_STATUS = ' || x_return_status);
348: FND_LOG.STRING(g_level_error,
349: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
350: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
351: END IF;
352: RETURN;
353: END IF;
346: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
347: 'RETURN_STATUS = ' || x_return_status);
348: FND_LOG.STRING(g_level_error,
349: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
350: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
351: END IF;
352: RETURN;
353: END IF;
354:
371:
372: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
373: IF (g_level_error >= g_current_runtime_level ) THEN
374: FND_LOG.STRING(g_level_error,
375: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
376: 'Incorrect return_status after calling ' ||
377: 'ZX_TRL_MANAGE_TAX_PKG.Delete_Detail_Lines()');
378: FND_LOG.STRING(g_level_error,
379: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
375: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
376: 'Incorrect return_status after calling ' ||
377: 'ZX_TRL_MANAGE_TAX_PKG.Delete_Detail_Lines()');
378: FND_LOG.STRING(g_level_error,
379: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
380: 'RETURN_STATUS = ' || x_return_status);
381: FND_LOG.STRING(g_level_error,
382: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
383: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
378: FND_LOG.STRING(g_level_error,
379: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
380: 'RETURN_STATUS = ' || x_return_status);
381: FND_LOG.STRING(g_level_error,
382: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
383: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
384: END IF;
385: RETURN;
386: END IF;
379: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
380: 'RETURN_STATUS = ' || x_return_status);
381: FND_LOG.STRING(g_level_error,
382: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
383: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
384: END IF;
385: RETURN;
386: END IF;
387:
394:
395: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
396: IF (g_level_error >= g_current_runtime_level ) THEN
397: FND_LOG.STRING(g_level_error,
398: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
399: 'Incorrect return_status after calling ' ||
400: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines()');
401: FND_LOG.STRING(g_level_error,
402: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
398: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
399: 'Incorrect return_status after calling ' ||
400: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines()');
401: FND_LOG.STRING(g_level_error,
402: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
403: 'RETURN_STATUS = ' || x_return_status);
404: FND_LOG.STRING(g_level_error,
405: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
406: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
401: FND_LOG.STRING(g_level_error,
402: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
403: 'RETURN_STATUS = ' || x_return_status);
404: FND_LOG.STRING(g_level_error,
405: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
406: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
407: END IF;
408: RETURN;
409: END IF;
402: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
403: 'RETURN_STATUS = ' || x_return_status);
404: FND_LOG.STRING(g_level_error,
405: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
406: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
407: END IF;
408: RETURN;
409: END IF;
410:
421:
422: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
423: IF (g_level_error >= g_current_runtime_level ) THEN
424: FND_LOG.STRING(g_level_error,
425: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
426: 'Incorrect return_status after calling ' ||
427: 'ZX_TRL_MANAGE_TAX_PKG.update_exist_summary_line_id()');
428: FND_LOG.STRING(g_level_error,
429: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
425: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
426: 'Incorrect return_status after calling ' ||
427: 'ZX_TRL_MANAGE_TAX_PKG.update_exist_summary_line_id()');
428: FND_LOG.STRING(g_level_error,
429: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
430: 'RETURN_STATUS = ' || x_return_status);
431: FND_LOG.STRING(g_level_error,
432: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
433: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
428: FND_LOG.STRING(g_level_error,
429: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
430: 'RETURN_STATUS = ' || x_return_status);
431: FND_LOG.STRING(g_level_error,
432: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
433: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
434: END IF;
435: RETURN;
436: END IF;
429: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
430: 'RETURN_STATUS = ' || x_return_status);
431: FND_LOG.STRING(g_level_error,
432: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
433: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
434: END IF;
435: RETURN;
436: END IF;
437: END IF;
442:
443: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
444: IF (g_level_error >= g_current_runtime_level ) THEN
445: FND_LOG.STRING(g_level_error,
446: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
447: 'Incorrect return_status after calling ' ||
448: 'ZX_TRL_MANAGE_TAX_PKG.Delete_Summary_Lines()');
449: FND_LOG.STRING(g_level_error,
450: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
446: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
447: 'Incorrect return_status after calling ' ||
448: 'ZX_TRL_MANAGE_TAX_PKG.Delete_Summary_Lines()');
449: FND_LOG.STRING(g_level_error,
450: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
451: 'RETURN_STATUS = ' || x_return_status);
452: FND_LOG.STRING(g_level_error,
453: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
454: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
449: FND_LOG.STRING(g_level_error,
450: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
451: 'RETURN_STATUS = ' || x_return_status);
452: FND_LOG.STRING(g_level_error,
453: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
454: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
455: END IF;
456: RETURN;
457: END IF;
450: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
451: 'RETURN_STATUS = ' || x_return_status);
452: FND_LOG.STRING(g_level_error,
453: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
454: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
455: END IF;
456: RETURN;
457: END IF;
458:
473:
474: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
475: IF (g_level_error >= g_current_runtime_level ) THEN
476: FND_LOG.STRING(g_level_error,
477: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
478: 'Incorrect return_status after calling ' ||
479: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_crt_evnt()');
480: FND_LOG.STRING(g_level_error,
481: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
477: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
478: 'Incorrect return_status after calling ' ||
479: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_crt_evnt()');
480: FND_LOG.STRING(g_level_error,
481: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
482: 'RETURN_STATUS = ' || x_return_status);
483: FND_LOG.STRING(g_level_error,
484: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
485: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
480: FND_LOG.STRING(g_level_error,
481: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
482: 'RETURN_STATUS = ' || x_return_status);
483: FND_LOG.STRING(g_level_error,
484: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
485: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
486: END IF;
487: RETURN;
488: END IF;
481: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
482: 'RETURN_STATUS = ' || x_return_status);
483: FND_LOG.STRING(g_level_error,
484: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
485: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
486: END IF;
487: RETURN;
488: END IF;
489:
494:
495: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
496: IF (g_level_error >= g_current_runtime_level ) THEN
497: FND_LOG.STRING(g_level_error,
498: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
499: 'Incorrect return_status after calling ' ||
500: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines()');
501: FND_LOG.STRING(g_level_error,
502: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
498: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
499: 'Incorrect return_status after calling ' ||
500: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines()');
501: FND_LOG.STRING(g_level_error,
502: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
503: 'RETURN_STATUS = ' || x_return_status);
504: FND_LOG.STRING(g_level_error,
505: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
506: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
501: FND_LOG.STRING(g_level_error,
502: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
503: 'RETURN_STATUS = ' || x_return_status);
504: FND_LOG.STRING(g_level_error,
505: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
506: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
507: END IF;
508: RETURN;
509: END IF;
502: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
503: 'RETURN_STATUS = ' || x_return_status);
504: FND_LOG.STRING(g_level_error,
505: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
506: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
507: END IF;
508: RETURN;
509: END IF;
510:
520:
521: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
522: IF (g_level_error >= g_current_runtime_level ) THEN
523: FND_LOG.STRING(g_level_error,
524: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
525: 'Incorrect return_status after calling ' ||
526: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines()');
527: FND_LOG.STRING(g_level_error,
528: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
524: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
525: 'Incorrect return_status after calling ' ||
526: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines()');
527: FND_LOG.STRING(g_level_error,
528: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
529: 'RETURN_STATUS = ' || x_return_status);
530: FND_LOG.STRING(g_level_error,
531: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
532: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
527: FND_LOG.STRING(g_level_error,
528: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
529: 'RETURN_STATUS = ' || x_return_status);
530: FND_LOG.STRING(g_level_error,
531: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
532: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
533: END IF;
534: RETURN;
535: END IF;
528: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
529: 'RETURN_STATUS = ' || x_return_status);
530: FND_LOG.STRING(g_level_error,
531: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
532: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
533: END IF;
534: RETURN;
535: END IF;
536:
540:
541: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
542: IF (g_level_error >= g_current_runtime_level ) THEN
543: FND_LOG.STRING(g_level_error,
544: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
545: 'Incorrect return_status after calling ' ||
546: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_crt_evnt()');
547: FND_LOG.STRING(g_level_error,
548: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
544: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
545: 'Incorrect return_status after calling ' ||
546: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_crt_evnt()');
547: FND_LOG.STRING(g_level_error,
548: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
549: 'RETURN_STATUS = ' || x_return_status);
550: FND_LOG.STRING(g_level_error,
551: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
552: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
547: FND_LOG.STRING(g_level_error,
548: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
549: 'RETURN_STATUS = ' || x_return_status);
550: FND_LOG.STRING(g_level_error,
551: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
552: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
553: END IF;
554: RETURN;
555: END IF;
548: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
549: 'RETURN_STATUS = ' || x_return_status);
550: FND_LOG.STRING(g_level_error,
551: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
552: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
553: END IF;
554: RETURN;
555: END IF;
556:
566:
567: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
568: IF (g_level_error >= g_current_runtime_level ) THEN
569: FND_LOG.STRING(g_level_error,
570: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
571: 'Incorrect return_status after calling ' ||
572: 'ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions()');
573: FND_LOG.STRING(g_level_error,
574: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
570: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
571: 'Incorrect return_status after calling ' ||
572: 'ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions()');
573: FND_LOG.STRING(g_level_error,
574: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
575: 'RETURN_STATUS = ' || x_return_status);
576: FND_LOG.STRING(g_level_error,
577: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
578: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
573: FND_LOG.STRING(g_level_error,
574: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
575: 'RETURN_STATUS = ' || x_return_status);
576: FND_LOG.STRING(g_level_error,
577: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
578: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
579: END IF;
580: RETURN;
581: END IF;
574: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
575: 'RETURN_STATUS = ' || x_return_status);
576: FND_LOG.STRING(g_level_error,
577: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
578: 'ZX_TRL_PUB_PKG.Manage_TaxLines(-)');
579: END IF;
580: RETURN;
581: END IF;
582:
584:
585: IF (g_level_procedure >= g_current_runtime_level ) THEN
586:
587: FND_LOG.STRING(g_level_procedure,
588: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
589: 'ZX_TRL_PUB_PKG: Manage_TaxLines (-)'||x_return_status);
590: END IF;
591:
592: EXCEPTION
585: IF (g_level_procedure >= g_current_runtime_level ) THEN
586:
587: FND_LOG.STRING(g_level_procedure,
588: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines.END',
589: 'ZX_TRL_PUB_PKG: Manage_TaxLines (-)'||x_return_status);
590: END IF;
591:
592: EXCEPTION
593: WHEN OTHERS THEN
595: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
596:
597: IF (g_level_unexpected >= g_current_runtime_level ) THEN
598: FND_LOG.STRING(g_level_unexpected,
599: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxLines',
600: l_error_buffer);
601: END IF;
602:
603: END Manage_TaxLines;
624: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
625:
626: IF (g_level_procedure >= g_current_runtime_level ) THEN
627: FND_LOG.STRING(g_level_procedure,
628: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Document_Level_Changes.BEGIN',
629: 'ZX_TRL_PUB_PKG: Document_Level_Changes (+)');
630: END IF;
631:
632: -- Initialize API return status to success
625:
626: IF (g_level_procedure >= g_current_runtime_level ) THEN
627: FND_LOG.STRING(g_level_procedure,
628: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Document_Level_Changes.BEGIN',
629: 'ZX_TRL_PUB_PKG: Document_Level_Changes (+)');
630: END IF;
631:
632: -- Initialize API return status to success
633: x_return_status := FND_API.G_RET_STS_SUCCESS;
669: END IF;
670:
671: IF (g_level_procedure >= g_current_runtime_level ) THEN
672: FND_LOG.STRING(g_level_procedure,
673: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Document_Level_Changes.END',
674: 'ZX_TRL_PUB_PKG: Document_Level_Changes (-)'||x_return_status);
675: END IF;
676:
677: EXCEPTION
670:
671: IF (g_level_procedure >= g_current_runtime_level ) THEN
672: FND_LOG.STRING(g_level_procedure,
673: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Document_Level_Changes.END',
674: 'ZX_TRL_PUB_PKG: Document_Level_Changes (-)'||x_return_status);
675: END IF;
676:
677: EXCEPTION
678: WHEN FND_API.G_EXC_ERROR THEN
678: WHEN FND_API.G_EXC_ERROR THEN
679: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
680: IF (g_level_unexpected >= g_current_runtime_level ) THEN
681: FND_LOG.STRING(g_level_unexpected,
682: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Document_Level_Changes',
683: 'Return Status = ' || x_return_status);
684: END IF;
685:
686: WHEN OTHERS THEN
688: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
689:
690: IF (g_level_unexpected >= g_current_runtime_level ) THEN
691: FND_LOG.STRING(g_level_unexpected,
692: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Document_Level_Changes',
693: l_error_buffer);
694: END IF;
695:
696: END Document_Level_Changes;
710: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
711:
712: IF (g_level_procedure >= g_current_runtime_level ) THEN
713: FND_LOG.STRING(g_level_procedure,
714: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Synchronize_TaxLines.BEGIN',
715: 'ZX_TRL_PUB_PKG: Synchronize_TaxLines (+)');
716: END IF;
717:
718: -- Initialize API return status to success
711:
712: IF (g_level_procedure >= g_current_runtime_level ) THEN
713: FND_LOG.STRING(g_level_procedure,
714: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Synchronize_TaxLines.BEGIN',
715: 'ZX_TRL_PUB_PKG: Synchronize_TaxLines (+)');
716: END IF;
717:
718: -- Initialize API return status to success
719: x_return_status := FND_API.G_RET_STS_SUCCESS;
732: END IF;
733:
734: IF (g_level_procedure >= g_current_runtime_level ) THEN
735: FND_LOG.STRING(g_level_procedure,
736: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Synchronize_TaxLines.END',
737: 'ZX_TRL_PUB_PKG: Synchronize_TaxLines (-)'||x_return_status);
738: END IF;
739:
740: EXCEPTION
733:
734: IF (g_level_procedure >= g_current_runtime_level ) THEN
735: FND_LOG.STRING(g_level_procedure,
736: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Synchronize_TaxLines.END',
737: 'ZX_TRL_PUB_PKG: Synchronize_TaxLines (-)'||x_return_status);
738: END IF;
739:
740: EXCEPTION
741: WHEN FND_API.G_EXC_ERROR THEN
741: WHEN FND_API.G_EXC_ERROR THEN
742: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
743: IF (g_level_unexpected >= g_current_runtime_level ) THEN
744: FND_LOG.STRING(g_level_unexpected,
745: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Synchronize_TaxLines',
746: 'Return Status = ' || x_return_status);
747: END IF;
748:
749: WHEN OTHERS THEN
751: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
752:
753: IF (g_level_unexpected >= g_current_runtime_level ) THEN
754: FND_LOG.STRING(g_level_unexpected,
755: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Synchronize_TaxLines',
756: l_error_buffer);
757: END IF;
758:
759: END Synchronize_TaxLines;
773: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
774:
775: IF (g_level_procedure >= g_current_runtime_level ) THEN
776: FND_LOG.STRING(g_level_procedure,
777: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Mark_Tax_Lines_Delete.BEGIN',
778: 'ZX_TRL_PUB_PKG: Mark_Tax_Lines_Delete (+)');
779: END IF;
780:
781: -- Initialize API return status to success
774:
775: IF (g_level_procedure >= g_current_runtime_level ) THEN
776: FND_LOG.STRING(g_level_procedure,
777: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Mark_Tax_Lines_Delete.BEGIN',
778: 'ZX_TRL_PUB_PKG: Mark_Tax_Lines_Delete (+)');
779: END IF;
780:
781: -- Initialize API return status to success
782: x_return_status := FND_API.G_RET_STS_SUCCESS;
793: END IF;
794:
795: IF (g_level_procedure >= g_current_runtime_level ) THEN
796: FND_LOG.STRING(g_level_procedure,
797: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Mark_Tax_Lines_Delete.END',
798: 'ZX_TRL_PUB_PKG.Mark_Tax_Lines_Delete (-)'||x_return_status);
799: END IF;
800:
801: EXCEPTION
794:
795: IF (g_level_procedure >= g_current_runtime_level ) THEN
796: FND_LOG.STRING(g_level_procedure,
797: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Mark_Tax_Lines_Delete.END',
798: 'ZX_TRL_PUB_PKG.Mark_Tax_Lines_Delete (-)'||x_return_status);
799: END IF;
800:
801: EXCEPTION
802: WHEN FND_API.G_EXC_ERROR THEN
802: WHEN FND_API.G_EXC_ERROR THEN
803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
804: IF (g_level_unexpected >= g_current_runtime_level ) THEN
805: FND_LOG.STRING(g_level_unexpected,
806: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Mark_Tax_Lines_Delete',
807: 'Return Status = ' || x_return_status);
808: END IF;
809:
810: WHEN OTHERS THEN
812: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
813:
814: IF (g_level_unexpected >= g_current_runtime_level ) THEN
815: FND_LOG.STRING(g_level_unexpected,
816: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Mark_Tax_Lines_Delete',
817: l_error_buffer);
818: END IF;
819:
820: END Mark_Tax_Lines_Delete;
838: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
839:
840: IF (g_level_procedure >= g_current_runtime_level ) THEN
841: FND_LOG.STRING(g_level_procedure,
842: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxDistributions.BEGIN',
843: 'ZX_TRL_PUB_PKG: Manage_TaxDistributions (+)');
844: END IF;
845:
846: -- Initialize API return status to success
839:
840: IF (g_level_procedure >= g_current_runtime_level ) THEN
841: FND_LOG.STRING(g_level_procedure,
842: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxDistributions.BEGIN',
843: 'ZX_TRL_PUB_PKG: Manage_TaxDistributions (+)');
844: END IF;
845:
846: -- Initialize API return status to success
847: x_return_status := FND_API.G_RET_STS_SUCCESS;
921: -- Added preventive check to find deleted frozen tax dists --
922: -- Start --
923: IF (l_return_status= FND_API.G_RET_STS_SUCCESS) THEN
924: IF p_event_class_rec.application_id = 200 THEN
925: ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists
926: (x_return_status => l_return_status,
927: p_event_class_rec => p_event_class_rec);
928:
929: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
940: END IF;
941:
942: IF (g_level_procedure >= g_current_runtime_level ) THEN
943: FND_LOG.STRING(g_level_procedure,
944: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxDistributions.END',
945: 'ZX_TRL_PUB_PKG: Manage_TaxDistributions (-)'||x_return_status);
946: END IF;
947:
948: EXCEPTION
941:
942: IF (g_level_procedure >= g_current_runtime_level ) THEN
943: FND_LOG.STRING(g_level_procedure,
944: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxDistributions.END',
945: 'ZX_TRL_PUB_PKG: Manage_TaxDistributions (-)'||x_return_status);
946: END IF;
947:
948: EXCEPTION
949: WHEN FND_API.G_EXC_ERROR THEN
949: WHEN FND_API.G_EXC_ERROR THEN
950: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
951: IF (g_level_unexpected >= g_current_runtime_level ) THEN
952: FND_LOG.STRING(g_level_unexpected,
953: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxDistributions',
954: 'Unexpected Error. Return_Status = '||x_return_status);
955: FND_LOG.STRING(g_level_unexpected,
956: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxDistributions.END',
957: 'ZX_TRL_PUB_PKG: Manage_TaxDistributions (-)');
952: FND_LOG.STRING(g_level_unexpected,
953: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxDistributions',
954: 'Unexpected Error. Return_Status = '||x_return_status);
955: FND_LOG.STRING(g_level_unexpected,
956: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxDistributions.END',
957: 'ZX_TRL_PUB_PKG: Manage_TaxDistributions (-)');
958: END IF;
959:
960: WHEN OTHERS THEN
953: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxDistributions',
954: 'Unexpected Error. Return_Status = '||x_return_status);
955: FND_LOG.STRING(g_level_unexpected,
956: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxDistributions.END',
957: 'ZX_TRL_PUB_PKG: Manage_TaxDistributions (-)');
958: END IF;
959:
960: WHEN OTHERS THEN
961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
962: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
963:
964: IF (g_level_unexpected >= g_current_runtime_level ) THEN
965: FND_LOG.STRING(g_level_unexpected,
966: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Manage_TaxDistributions',
967: l_error_buffer);
968: END IF;
969: END Manage_TaxDistributions;
970:
984: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
985:
986: IF (g_level_procedure >= g_current_runtime_level ) THEN
987: FND_LOG.STRING(g_level_procedure,
988: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Freeze_TaxDistributions.BEGIN',
989: 'ZX_TRL_PUB_PKG: Freeze_TaxDistributions (+)');
990: END IF;
991:
992: ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag
985:
986: IF (g_level_procedure >= g_current_runtime_level ) THEN
987: FND_LOG.STRING(g_level_procedure,
988: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Freeze_TaxDistributions.BEGIN',
989: 'ZX_TRL_PUB_PKG: Freeze_TaxDistributions (+)');
990: END IF;
991:
992: ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag
993: (x_return_status => x_return_status,
995:
996:
997: IF (g_level_procedure >= g_current_runtime_level ) THEN
998: FND_LOG.STRING(g_level_procedure,
999: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Freeze_TaxDistributions.END',
1000: 'ZX_TRL_PUB_PKG: Freeze_TaxDistributions (-)'||x_return_status);
1001: END IF;
1002:
1003: EXCEPTION
996:
997: IF (g_level_procedure >= g_current_runtime_level ) THEN
998: FND_LOG.STRING(g_level_procedure,
999: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Freeze_TaxDistributions.END',
1000: 'ZX_TRL_PUB_PKG: Freeze_TaxDistributions (-)'||x_return_status);
1001: END IF;
1002:
1003: EXCEPTION
1004: WHEN FND_API.G_EXC_ERROR THEN
1004: WHEN FND_API.G_EXC_ERROR THEN
1005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1006: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1007: FND_LOG.STRING(g_level_unexpected,
1008: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Freeze_TaxDistributions',
1009: 'Return Status = ' || x_return_status);
1010: END IF;
1011:
1012: WHEN OTHERS THEN
1014: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1015:
1016: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1017: FND_LOG.STRING(g_level_unexpected,
1018: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Freeze_TaxDistributions',
1019: l_error_buffer);
1020: END IF;
1021: END Freeze_TaxDistributions;
1022:
1035: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1036:
1037: IF (g_level_procedure >= g_current_runtime_level ) THEN
1038: FND_LOG.STRING(g_level_procedure,
1039: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_Taxlines.BEGIN',
1040: 'ZX_TRL_PUB_PKG: Update_Taxlines (+)');
1041: END IF;
1042:
1043: ZX_TRL_MANAGE_TAX_PKG.Update_Item_Dist_Changed_Flag
1036:
1037: IF (g_level_procedure >= g_current_runtime_level ) THEN
1038: FND_LOG.STRING(g_level_procedure,
1039: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_Taxlines.BEGIN',
1040: 'ZX_TRL_PUB_PKG: Update_Taxlines (+)');
1041: END IF;
1042:
1043: ZX_TRL_MANAGE_TAX_PKG.Update_Item_Dist_Changed_Flag
1044: (x_return_status => x_return_status,
1045: p_event_class_rec => p_event_class_rec);
1046:
1047: IF (g_level_procedure >= g_current_runtime_level ) THEN
1048: FND_LOG.STRING(g_level_procedure,
1049: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_Taxlines.END',
1050: 'ZX_TRL_PUB_PKG: Update_Taxlines (-)'||x_return_status);
1051: END IF;
1052:
1053: EXCEPTION
1046:
1047: IF (g_level_procedure >= g_current_runtime_level ) THEN
1048: FND_LOG.STRING(g_level_procedure,
1049: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_Taxlines.END',
1050: 'ZX_TRL_PUB_PKG: Update_Taxlines (-)'||x_return_status);
1051: END IF;
1052:
1053: EXCEPTION
1054: WHEN FND_API.G_EXC_ERROR THEN
1054: WHEN FND_API.G_EXC_ERROR THEN
1055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1056: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1057: FND_LOG.STRING(g_level_unexpected,
1058: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_Taxlines',
1059: 'Return Status = ' || x_return_status);
1060: END IF;
1061:
1062: WHEN OTHERS THEN
1064: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1065:
1066: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1067: FND_LOG.STRING(g_level_unexpected,
1068: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_Taxlines',
1069: l_error_buffer);
1070: END IF;
1071: END Update_Taxlines;
1072:
1080: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1081:
1082: IF (g_level_procedure >= g_current_runtime_level ) THEN
1083: FND_LOG.STRING(g_level_procedure,
1084: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Discard_Tax_Only_Lines.BEGIN',
1085: 'ZX_TRL_PUB_PKG: Discard_Tax_Only_Lines (+)');
1086: END IF;
1087:
1088: ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines (x_return_status, p_event_class_rec);
1081:
1082: IF (g_level_procedure >= g_current_runtime_level ) THEN
1083: FND_LOG.STRING(g_level_procedure,
1084: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Discard_Tax_Only_Lines.BEGIN',
1085: 'ZX_TRL_PUB_PKG: Discard_Tax_Only_Lines (+)');
1086: END IF;
1087:
1088: ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines (x_return_status, p_event_class_rec);
1089:
1088: ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines (x_return_status, p_event_class_rec);
1089:
1090: IF (g_level_procedure >= g_current_runtime_level ) THEN
1091: FND_LOG.STRING(g_level_procedure,
1092: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Discard_Tax_Only_Lines.END',
1093: 'ZX_TRL_PUB_PKG: Discard_Tax_Only_Lines (-)'||x_return_status);
1094: END IF;
1095:
1096: EXCEPTION
1089:
1090: IF (g_level_procedure >= g_current_runtime_level ) THEN
1091: FND_LOG.STRING(g_level_procedure,
1092: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Discard_Tax_Only_Lines.END',
1093: 'ZX_TRL_PUB_PKG: Discard_Tax_Only_Lines (-)'||x_return_status);
1094: END IF;
1095:
1096: EXCEPTION
1097: WHEN FND_API.G_EXC_ERROR THEN
1097: WHEN FND_API.G_EXC_ERROR THEN
1098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1099: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1100: FND_LOG.STRING(g_level_unexpected,
1101: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Discard_Tax_Only_Lines',
1102: 'Return Status = ' || x_return_status);
1103: END IF;
1104:
1105: WHEN OTHERS THEN
1107: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1108:
1109: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1110: FND_LOG.STRING(g_level_unexpected,
1111: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Discard_Tax_Only_Lines',
1112: l_error_buffer);
1113: END IF;
1114:
1115: END Discard_Tax_Only_Lines;
1124: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1125:
1126: IF (g_level_procedure >= g_current_runtime_level ) THEN
1127: FND_LOG.STRING(g_level_procedure,
1128: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_GL_Date.BEGIN',
1129: 'ZX_TRL_PUB_PKG: Update_GL_Date (+)');
1130: END IF;
1131:
1132: ZX_TRL_MANAGE_TAX_PKG.Update_GL_Date (p_gl_date, x_return_status);
1125:
1126: IF (g_level_procedure >= g_current_runtime_level ) THEN
1127: FND_LOG.STRING(g_level_procedure,
1128: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_GL_Date.BEGIN',
1129: 'ZX_TRL_PUB_PKG: Update_GL_Date (+)');
1130: END IF;
1131:
1132: ZX_TRL_MANAGE_TAX_PKG.Update_GL_Date (p_gl_date, x_return_status);
1133:
1133:
1134:
1135: IF (g_level_procedure >= g_current_runtime_level ) THEN
1136: FND_LOG.STRING(g_level_procedure,
1137: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_GL_Date.END',
1138: 'ZX_TRL_PUB_PKG: Update_GL_Date (-)'||x_return_status);
1139: END IF;
1140:
1141: EXCEPTION
1134:
1135: IF (g_level_procedure >= g_current_runtime_level ) THEN
1136: FND_LOG.STRING(g_level_procedure,
1137: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_GL_Date.END',
1138: 'ZX_TRL_PUB_PKG: Update_GL_Date (-)'||x_return_status);
1139: END IF;
1140:
1141: EXCEPTION
1142: WHEN FND_API.G_EXC_ERROR THEN
1142: WHEN FND_API.G_EXC_ERROR THEN
1143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1144: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1145: FND_LOG.STRING(g_level_unexpected,
1146: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_GL_Date',
1147: 'Return Status = ' || x_return_status);
1148: END IF;
1149:
1150: WHEN OTHERS THEN
1152: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1153:
1154: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1155: FND_LOG.STRING(g_level_unexpected,
1156: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_GL_Date',
1157: l_error_buffer);
1158: END IF;
1159:
1160: END Update_GL_Date;
1169: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1170:
1171: IF (g_level_procedure >= g_current_runtime_level ) THEN
1172: FND_LOG.STRING(g_level_procedure,
1173: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_Exchange_Rate.BEGIN',
1174: 'ZX_TRL_PUB_PKG: Update_Exchange_Rate (+)');
1175: END IF;
1176:
1177: ZX_TRL_MANAGE_TAX_PKG.Update_Exchange_Rate (p_event_class_rec,
1170:
1171: IF (g_level_procedure >= g_current_runtime_level ) THEN
1172: FND_LOG.STRING(g_level_procedure,
1173: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_Exchange_Rate.BEGIN',
1174: 'ZX_TRL_PUB_PKG: Update_Exchange_Rate (+)');
1175: END IF;
1176:
1177: ZX_TRL_MANAGE_TAX_PKG.Update_Exchange_Rate (p_event_class_rec,
1178: x_return_status);
1179:
1180:
1181: IF (g_level_procedure >= g_current_runtime_level ) THEN
1182: FND_LOG.STRING(g_level_procedure,
1183: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_Exchange_Rate.END',
1184: 'ZX_TRL_PUB_PKG: Update_Exchange_Rate (-)'||x_return_status);
1185: END IF;
1186:
1187: EXCEPTION
1180:
1181: IF (g_level_procedure >= g_current_runtime_level ) THEN
1182: FND_LOG.STRING(g_level_procedure,
1183: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_Exchange_Rate.END',
1184: 'ZX_TRL_PUB_PKG: Update_Exchange_Rate (-)'||x_return_status);
1185: END IF;
1186:
1187: EXCEPTION
1188: WHEN FND_API.G_EXC_ERROR THEN
1188: WHEN FND_API.G_EXC_ERROR THEN
1189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1190: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1191: FND_LOG.STRING(g_level_unexpected,
1192: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_Exchange_Rate',
1193: 'Return Status = ' || x_return_status);
1194: END IF;
1195:
1196: WHEN OTHERS THEN
1198: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1199:
1200: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1201: FND_LOG.STRING(g_level_unexpected,
1202: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Update_Exchange_Rate',
1203: l_error_buffer);
1204: END IF;
1205:
1206: END Update_Exchange_Rate;
1242: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1243:
1244: IF (g_level_procedure >= g_current_runtime_level ) THEN
1245: FND_LOG.STRING(g_level_procedure,
1246: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_lines_and_dists.BEGIN',
1247: 'ZX_TRL_PUB_PKG: delete_tax_lines_and_dists (+)');
1248: END IF;
1249: x_return_status := FND_API.G_RET_STS_SUCCESS;
1250:
1243:
1244: IF (g_level_procedure >= g_current_runtime_level ) THEN
1245: FND_LOG.STRING(g_level_procedure,
1246: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_lines_and_dists.BEGIN',
1247: 'ZX_TRL_PUB_PKG: delete_tax_lines_and_dists (+)');
1248: END IF;
1249: x_return_status := FND_API.G_RET_STS_SUCCESS;
1250:
1251: -- delete the distributions
1295: );
1296: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1297: IF (g_level_error >= g_current_runtime_level ) THEN
1298: FND_LOG.STRING(g_level_error,
1299: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_lines_and_dists',
1300: 'MRC Lines: Incorrect return_status after calling ' ||
1301: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_from_zx_liness()');
1302: FND_LOG.STRING(g_level_error,
1303: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_lines_and_dists',
1299: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_lines_and_dists',
1300: 'MRC Lines: Incorrect return_status after calling ' ||
1301: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_from_zx_liness()');
1302: FND_LOG.STRING(g_level_error,
1303: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_lines_and_dists',
1304: 'RETURN_STATUS = ' || x_return_status);
1305: FND_LOG.STRING(g_level_error,
1306: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_lines_and_dists.END',
1307: 'ZX_TRL_PUB_PKG.delete_tax_lines_and_dists(-)');
1302: FND_LOG.STRING(g_level_error,
1303: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_lines_and_dists',
1304: 'RETURN_STATUS = ' || x_return_status);
1305: FND_LOG.STRING(g_level_error,
1306: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_lines_and_dists.END',
1307: 'ZX_TRL_PUB_PKG.delete_tax_lines_and_dists(-)');
1308: END IF;
1309: RETURN;
1310: END IF;
1303: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_lines_and_dists',
1304: 'RETURN_STATUS = ' || x_return_status);
1305: FND_LOG.STRING(g_level_error,
1306: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_lines_and_dists.END',
1307: 'ZX_TRL_PUB_PKG.delete_tax_lines_and_dists(-)');
1308: END IF;
1309: RETURN;
1310: END IF;
1311:
1312: END IF;
1313:
1314: IF (g_level_procedure >= g_current_runtime_level ) THEN
1315: FND_LOG.STRING(g_level_procedure,
1316: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_lines_and_dists.END',
1317: 'ZX_TRL_PUB_PKG: delete_tax_lines_and_dists (-)'||x_return_status);
1318: END IF;
1319:
1320: EXCEPTION
1313:
1314: IF (g_level_procedure >= g_current_runtime_level ) THEN
1315: FND_LOG.STRING(g_level_procedure,
1316: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_lines_and_dists.END',
1317: 'ZX_TRL_PUB_PKG: delete_tax_lines_and_dists (-)'||x_return_status);
1318: END IF;
1319:
1320: EXCEPTION
1321: WHEN FND_API.G_EXC_ERROR THEN
1321: WHEN FND_API.G_EXC_ERROR THEN
1322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1323: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1324: FND_LOG.STRING(g_level_unexpected,
1325: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_lines_and_dists',
1326: 'Return Status = ' || x_return_status);
1327: END IF;
1328:
1329: WHEN OTHERS THEN
1331: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1332:
1333: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1334: FND_LOG.STRING(g_level_unexpected,
1335: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_lines_and_dists',
1336: l_error_buffer);
1337: END IF;
1338:
1339: END delete_tax_lines_and_dists;
1364: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1365:
1366: IF (g_level_procedure >= g_current_runtime_level ) THEN
1367: FND_LOG.STRING(g_level_procedure,
1368: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_dists.BEGIN',
1369: 'ZX_TRL_PUB_PKG: delete_tax_dists (+)');
1370: END IF;
1371: x_return_status := FND_API.G_RET_STS_SUCCESS;
1372:
1365:
1366: IF (g_level_procedure >= g_current_runtime_level ) THEN
1367: FND_LOG.STRING(g_level_procedure,
1368: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_dists.BEGIN',
1369: 'ZX_TRL_PUB_PKG: delete_tax_dists (+)');
1370: END IF;
1371: x_return_status := FND_API.G_RET_STS_SUCCESS;
1372:
1373: DELETE FROM zx_rec_nrec_dist
1396: END IF;
1397:
1398: IF (g_level_procedure >= g_current_runtime_level ) THEN
1399: FND_LOG.STRING(g_level_procedure,
1400: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_dists.END',
1401: 'ZX_TRL_PUB_PKG: delete_tax_dists (-)'||x_return_status);
1402: END IF;
1403:
1404: EXCEPTION
1397:
1398: IF (g_level_procedure >= g_current_runtime_level ) THEN
1399: FND_LOG.STRING(g_level_procedure,
1400: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_dists.END',
1401: 'ZX_TRL_PUB_PKG: delete_tax_dists (-)'||x_return_status);
1402: END IF;
1403:
1404: EXCEPTION
1405: WHEN FND_API.G_EXC_ERROR THEN
1405: WHEN FND_API.G_EXC_ERROR THEN
1406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1407: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1408: FND_LOG.STRING(g_level_unexpected,
1409: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_dists',
1410: 'Return Status = ' || x_return_status);
1411: END IF;
1412:
1413: WHEN OTHERS THEN
1415: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1416:
1417: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1418: FND_LOG.STRING(g_level_unexpected,
1419: 'ZX.PLSQL.ZX_TRL_PUB_PKG.delete_tax_dists',
1420: l_error_buffer);
1421: END IF;
1422:
1423: END delete_tax_dists;
1497: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1498:
1499: IF (g_level_procedure >= g_current_runtime_level ) THEN
1500: FND_LOG.STRING(g_level_procedure,
1501: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists.BEGIN',
1502: 'ZX_TRL_PUB_PKG: Check_Frozen_Tax_Dists (+)');
1503: END IF;
1504:
1505: -- Initialize API return status to success
1498:
1499: IF (g_level_procedure >= g_current_runtime_level ) THEN
1500: FND_LOG.STRING(g_level_procedure,
1501: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists.BEGIN',
1502: 'ZX_TRL_PUB_PKG: Check_Frozen_Tax_Dists (+)');
1503: END IF;
1504:
1505: -- Initialize API return status to success
1506: x_return_status := FND_API.G_RET_STS_SUCCESS;
1517:
1518: -- Preventive check to find deleted frozen tax dists --
1519: IF (g_level_procedure >= g_current_runtime_level ) THEN
1520: FND_LOG.STRING(g_level_procedure,
1521: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists',
1522: 'Start : Frozen Tax Distributions deleted Validation : '||TO_CHAR(SYSDATE,'DD-MM-YYYY HH24:MI:SS'));
1523: END IF;
1524:
1525: l_prev_trx_id := -99;
1541: 'Unable to complete Tax Processing.';
1542:
1543: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1544: FND_LOG.STRING(g_level_unexpected,
1545: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists',
1546: 'ERROR: '||l_error_buffer);
1547: FND_LOG.STRING(g_level_unexpected,
1548: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists',
1549: 'Following frozen tax distributions deleted from ZX_REC_NREC_DIST:');
1544: FND_LOG.STRING(g_level_unexpected,
1545: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists',
1546: 'ERROR: '||l_error_buffer);
1547: FND_LOG.STRING(g_level_unexpected,
1548: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists',
1549: 'Following frozen tax distributions deleted from ZX_REC_NREC_DIST:');
1550: END IF;
1551:
1552: FOR i IN NVL(l_trx_id_tbl.FIRST,0)..NVL(l_trx_id_tbl.LAST,-99) LOOP
1560: l_prev_trx_id := l_trx_id_tbl(i);
1561:
1562: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1563: FND_LOG.STRING(g_level_unexpected,
1564: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists',
1565: TO_CHAR(i)||'. Trx_Id: '||TO_CHAR(l_trx_id_tbl(i))||
1566: ', Rec_Nrec_Tax_Dist_Id: '||TO_CHAR(l_tax_dist_id_tbl(i))||
1567: ', Summary_Tax_Line_Id: '||TO_CHAR(l_summary_tax_line_id_tbl(i)));
1568: END IF;
1589: 'Unable to complete Tax Processing.';
1590:
1591: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1592: FND_LOG.STRING(g_level_unexpected,
1593: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists',
1594: 'ERROR: '||l_error_buffer);
1595: FND_LOG.STRING(g_level_unexpected,
1596: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists',
1597: 'Following self-assessed frozen tax distributions deleted from ZX_REC_NREC_DIST:');
1592: FND_LOG.STRING(g_level_unexpected,
1593: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists',
1594: 'ERROR: '||l_error_buffer);
1595: FND_LOG.STRING(g_level_unexpected,
1596: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists',
1597: 'Following self-assessed frozen tax distributions deleted from ZX_REC_NREC_DIST:');
1598: END IF;
1599:
1600: FOR i IN NVL(l_trx_id_tbl.FIRST,0)..NVL(l_trx_id_tbl.LAST,-99) LOOP
1608: l_prev_trx_id := l_trx_id_tbl(i);
1609:
1610: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1611: FND_LOG.STRING(g_level_unexpected,
1612: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists',
1613: TO_CHAR(i)||'. Trx_Id: '||TO_CHAR(l_trx_id_tbl(i))||
1614: ', Rec_Nrec_Tax_Dist_Id: '||TO_CHAR(l_tax_dist_id_tbl(i))||
1615: ', Summary_Tax_Line_Id: '||TO_CHAR(l_summary_tax_line_id_tbl(i)));
1616: END IF;
1619: END IF;
1620:
1621: IF (g_level_procedure >= g_current_runtime_level ) THEN
1622: FND_LOG.STRING(g_level_procedure,
1623: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists',
1624: 'End : Frozen Tax Distributions deleted Validation : '||TO_CHAR(SYSDATE,'DD-MM-YYYY HH24:MI:SS'));
1625: END IF;
1626:
1627: IF (g_level_procedure >= g_current_runtime_level ) THEN
1625: END IF;
1626:
1627: IF (g_level_procedure >= g_current_runtime_level ) THEN
1628: FND_LOG.STRING(g_level_procedure,
1629: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists.END',
1630: 'ZX_TRL_PUB_PKG: Check_Frozen_Tax_Dists(-)'||x_return_status);
1631: END IF;
1632:
1633: EXCEPTION
1626:
1627: IF (g_level_procedure >= g_current_runtime_level ) THEN
1628: FND_LOG.STRING(g_level_procedure,
1629: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists.END',
1630: 'ZX_TRL_PUB_PKG: Check_Frozen_Tax_Dists(-)'||x_return_status);
1631: END IF;
1632:
1633: EXCEPTION
1634: WHEN OTHERS THEN
1636: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1637:
1638: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1639: FND_LOG.STRING(g_level_unexpected,
1640: 'ZX.PLSQL.ZX_TRL_PUB_PKG.Check_Frozen_Tax_Dists',
1641: l_error_buffer);
1642: END IF;
1643: END Check_Frozen_Tax_Dists;
1644:
1645: -- Package constructor
1646: --
1647: -------------------------------------------------------------------------------
1648:
1649: END ZX_TRL_PUB_PKG;