1: PACKAGE BODY ZX_ON_FLY_TRX_UPGRADE_PKG AS
2: /* $Header: zxmigtrxflypkgb.pls 120.2.12010000.2 2008/12/31 13:35:20 rajessub ship $ */
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9:
2: /* $Header: zxmigtrxflypkgb.pls 120.2.12010000.2 2008/12/31 13:35:20 rajessub ship $ */
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9:
10: -------------------------------------------------------------------------------
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9:
10: -------------------------------------------------------------------------------
11: -- PUBLIC PROCEDURE
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9:
10: -------------------------------------------------------------------------------
11: -- PUBLIC PROCEDURE
12: -- upgrade_trx_on_fly
25: ) IS
26: l_return_status VARCHAR2(100);
27: l_upg_trx_info_rec zx_upg_trx_info_rec_type;
28: BEGIN
29: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
30:
31: IF (g_level_procedure >= g_current_runtime_level ) THEN
32: FND_LOG.STRING(g_level_procedure,
33: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly.BEGIN',
28: BEGIN
29: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
30:
31: IF (g_level_procedure >= g_current_runtime_level ) THEN
32: FND_LOG.STRING(g_level_procedure,
33: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly.BEGIN',
34: 'ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly(+).wrapper');
35: END IF;
36:
46: EXCEPTION
47: WHEN OTHERS THEN
48: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
49: IF (g_level_unexpected >= g_current_runtime_level ) THEN
50: FND_LOG.STRING(g_level_unexpected,
51: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly',
52: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
53: FND_LOG.STRING(g_level_unexpected,
54: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly.END',
49: IF (g_level_unexpected >= g_current_runtime_level ) THEN
50: FND_LOG.STRING(g_level_unexpected,
51: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly',
52: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
53: FND_LOG.STRING(g_level_unexpected,
54: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly.END',
55: 'ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly(-)');
56: END IF;
57:
64: x_return_status OUT NOCOPY VARCHAR2
65: ) AS
66:
67: BEGIN
68: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
69:
70: IF (g_level_procedure >= g_current_runtime_level ) THEN
71: FND_LOG.STRING(g_level_procedure,
72: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly.BEGIN',
67: BEGIN
68: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
69:
70: IF (g_level_procedure >= g_current_runtime_level ) THEN
71: FND_LOG.STRING(g_level_procedure,
72: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly.BEGIN',
73: 'ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly(+)');
74: END IF;
75:
75:
76: x_return_status := FND_API.G_RET_STS_SUCCESS;
77:
78: IF (g_level_statement >= g_current_runtime_level ) THEN
79: FND_LOG.STRING(g_level_statement,
80: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly',
81: 'p_upg_trx_info_rec.application_id: '||
82: p_upg_trx_info_rec.application_id );
83: END IF;
100: );
101:
102: ELSE
103: IF (g_level_statement >= g_current_runtime_level ) THEN
104: FND_LOG.STRING(g_level_statement,
105: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly',
106: 'On the fly upgrade currently not support product: '||
107: p_upg_trx_info_rec.application_id );
108: END IF;
109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
110: END IF;
111:
112: IF (g_level_procedure >= g_current_runtime_level ) THEN
113: FND_LOG.STRING(g_level_procedure,
114: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly',
115: 'x_return_status: '|| x_return_status);
116: FND_LOG.STRING(g_level_procedure,
117: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly.END',
112: IF (g_level_procedure >= g_current_runtime_level ) THEN
113: FND_LOG.STRING(g_level_procedure,
114: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly',
115: 'x_return_status: '|| x_return_status);
116: FND_LOG.STRING(g_level_procedure,
117: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly.END',
118: 'ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly(-)');
119: END IF;
120:
121: EXCEPTION
122: WHEN OTHERS THEN
123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
124: IF (g_level_unexpected >= g_current_runtime_level ) THEN
125: FND_LOG.STRING(g_level_unexpected,
126: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly',
127: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
128: FND_LOG.STRING(g_level_unexpected,
129: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly.END',
124: IF (g_level_unexpected >= g_current_runtime_level ) THEN
125: FND_LOG.STRING(g_level_unexpected,
126: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly',
127: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
128: FND_LOG.STRING(g_level_unexpected,
129: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly.END',
130: 'ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly(-)');
131: END IF;
132:
156: FROM zx_validation_errors_gt;
157:
158: BEGIN
159:
160: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
161:
162: IF (g_level_procedure >= g_current_runtime_level ) THEN
163: FND_LOG.STRING(g_level_procedure,
164: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk.BEGIN',
159:
160: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
161:
162: IF (g_level_procedure >= g_current_runtime_level ) THEN
163: FND_LOG.STRING(g_level_procedure,
164: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk.BEGIN',
165: 'ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk(+)');
166: END IF;
167:
183: );
184:
185: ELSE
186: IF (g_level_statement >= g_current_runtime_level ) THEN
187: FND_LOG.STRING(g_level_statement,
188: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk',
189: 'On the fly upgrade currently not support product: '||
190: t.application_id );
191: END IF;
193: END IF;
194: END LOOP;
195:
196: IF (g_level_procedure >= g_current_runtime_level ) THEN
197: FND_LOG.STRING(g_level_procedure,
198: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk',
199: 'x_return_status: '|| x_return_status);
200: FND_LOG.STRING(g_level_procedure,
201: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk.END',
196: IF (g_level_procedure >= g_current_runtime_level ) THEN
197: FND_LOG.STRING(g_level_procedure,
198: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk',
199: 'x_return_status: '|| x_return_status);
200: FND_LOG.STRING(g_level_procedure,
201: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk.END',
202: 'ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk(-)');
203: END IF;
204:
205: EXCEPTION
206: WHEN OTHERS THEN
207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
208: IF (g_level_unexpected >= g_current_runtime_level ) THEN
209: FND_LOG.STRING(g_level_unexpected,
210: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk',
211: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
212: FND_LOG.STRING(g_level_unexpected,
213: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk.END',
208: IF (g_level_unexpected >= g_current_runtime_level ) THEN
209: FND_LOG.STRING(g_level_unexpected,
210: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk',
211: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
212: FND_LOG.STRING(g_level_unexpected,
213: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk.END',
214: 'ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk(-)');
215: END IF;
216:
241: ) AS
242: l_count NUMBER;
243: BEGIN
244:
245: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
246:
247: IF (g_level_procedure >= g_current_runtime_level ) THEN
248: FND_LOG.STRING(g_level_procedure,
249: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.is_trx_migrated.BEGIN',
244:
245: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
246:
247: IF (g_level_procedure >= g_current_runtime_level ) THEN
248: FND_LOG.STRING(g_level_procedure,
249: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.is_trx_migrated.BEGIN',
250: 'ZX_ON_FLY_TRX_UPGRADE_PKG.is_trx_migrated(+)');
251: END IF;
252: x_return_status := FND_API.G_RET_STS_SUCCESS;
274: x_trx_migrated_b := FALSE;
275: END IF;
276:
277: IF (g_level_procedure >= g_current_runtime_level ) THEN
278: FND_LOG.STRING(g_level_procedure,
279: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.is_trx_migrated.END',
280: 'ZX_ON_FLY_TRX_UPGRADE_PKG.is_trx_migrated(-)');
281: END IF;
282:
283: EXCEPTION
284: WHEN OTHERS THEN
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: IF (g_level_unexpected >= g_current_runtime_level ) THEN
287: FND_LOG.STRING(g_level_unexpected,
288: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.is_trx_migrated',
289: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
290: FND_LOG.STRING(g_level_unexpected,
291: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.is_trx_migrated.END',
286: IF (g_level_unexpected >= g_current_runtime_level ) THEN
287: FND_LOG.STRING(g_level_unexpected,
288: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.is_trx_migrated',
289: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
290: FND_LOG.STRING(g_level_unexpected,
291: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.is_trx_migrated.END',
292: 'ZX_ON_FLY_TRX_UPGRADE_PKG.is_trx_migrated(-)');
293: END IF;
294: END is_trx_migrated;