DBA Data[Home] [Help]

APPS.GMA_MIGRATION dependencies on GMA_MIGRATION

Line 1: PACKAGE BODY gma_migration AS

1: PACKAGE BODY gma_migration AS
2: /*$Header: GMAMIGB.pls 120.8 2006/11/21 19:46:20 txdaniel noship $*/
3: FUNCTION gma_migration_start
4: ( p_app_short_name IN VARCHAR2,
5: p_mig_name IN VARCHAR2

Line 3: FUNCTION gma_migration_start

1: PACKAGE BODY gma_migration AS
2: /*$Header: GMAMIGB.pls 120.8 2006/11/21 19:46:20 txdaniel noship $*/
3: FUNCTION gma_migration_start
4: ( p_app_short_name IN VARCHAR2,
5: p_mig_name IN VARCHAR2
6: )
7: RETURN NUMBER IS

Line 13: v_message_token VARCHAR2(80) := 'GMA_MIGRATION_DB_ERROR';

9:
10: v_mig_date DATE:= SYSDATE;
11: l_pos NUMBER := 0;
12: v_run_id NUMBER;
13: v_message_token VARCHAR2(80) := 'GMA_MIGRATION_DB_ERROR';
14: raise_gma_insert_message EXCEPTION;
15: BEGIN
16:
17: IF p_mig_name IS NULL OR p_app_short_name IS NULL THEN

Line 18: v_message_token := 'GMA_MIGRATION_FAILED';

14: raise_gma_insert_message EXCEPTION;
15: BEGIN
16:
17: IF p_mig_name IS NULL OR p_app_short_name IS NULL THEN
18: v_message_token := 'GMA_MIGRATION_FAILED';
19: RAISE raise_gma_insert_message;
20: ELSE
21: l_pos := 1;
22: SELECT gma_mig_run_id_s.nextval INTO v_run_id

Line 27: v_message_token := 'GMA_MIGRATION_FAILED';

23: FROM dual;
24: END IF;
25:
26: IF v_run_id IS NULL THEN
27: v_message_token := 'GMA_MIGRATION_FAILED';
28: RAISE raise_gma_insert_message;
29: ELSE
30: l_pos := 2;
31: INSERT INTO gma_migration_control

Line 31: INSERT INTO gma_migration_control

27: v_message_token := 'GMA_MIGRATION_FAILED';
28: RAISE raise_gma_insert_message;
29: ELSE
30: l_pos := 2;
31: INSERT INTO gma_migration_control
32: (application_short_name,
33: run_id,
34: mig_name,
35: mig_start_date

Line 53: p_table_name => 'gma_migration_log',

49: EXCEPTION
50: WHEN raise_gma_insert_message THEN
51: gma_insert_message(
52: p_run_id => v_run_id,
53: p_table_name => 'gma_migration_log',
54: p_DB_ERROR => SQLERRM,
55: p_param1 => NULL,
56: p_param2 => NULL,
57: p_param3 => NULL,

Line 70: p_table_name => 'gma_migration_log',

66: RAISE;
67: WHEN OTHERS THEN
68: gma_insert_message(
69: p_run_id => v_run_id,
70: p_table_name => 'gma_migration_log',
71: p_DB_ERROR => SQLERRM,
72: p_param1 => 'an error occurred while updating gma_migration_log',
73: p_param2 => NULL,
74: p_param3 => NULL,

Line 72: p_param1 => 'an error occurred while updating gma_migration_log',

68: gma_insert_message(
69: p_run_id => v_run_id,
70: p_table_name => 'gma_migration_log',
71: p_DB_ERROR => SQLERRM,
72: p_param1 => 'an error occurred while updating gma_migration_log',
73: p_param2 => NULL,
74: p_param3 => NULL,
75: p_param4 => NULL,
76: p_param5 => NULL,

Line 85: END gma_migration_start;

81: p_base_message => ''
82: );
83: RAISE;
84: COMMIT;
85: END gma_migration_start;
86:
87: PROCEDURE gma_insert_message(
88: p_run_id IN NUMBER,
89: p_table_name IN VARCHAR2,

Line 103: GMA_COMMON_LOGGING.Gma_Migration_CentraL_Log(

99: p_position IN NUMBER,
100: p_base_message IN VARCHAR2
101: ) IS
102: BEGIN
103: GMA_COMMON_LOGGING.Gma_Migration_CentraL_Log(
104: P_Run_Id => p_run_id,
105: P_log_level => 5,
106: P_App_short_name => 'GMA',
107: P_Message_Token => p_message_token,

Line 119: PROCEDURE gma_migration_end(l_run_id IN NUMBER)

115: P_Db_Error => p_db_error);
116:
117: END gma_insert_message;
118:
119: PROCEDURE gma_migration_end(l_run_id IN NUMBER)
120: IS
121: pragma AUTONOMOUS_TRANSACTION;
122:
123: v_mig_end_date DATE:= SYSDATE;

Line 126: v_message_token VARCHAR2(80) := 'GMA_MIGRATION_DB_ERROR';

122:
123: v_mig_end_date DATE:= SYSDATE;
124: l_pos NUMBER := 0;
125: p_mig_name VARCHAR2(80) := NULL;
126: v_message_token VARCHAR2(80) := 'GMA_MIGRATION_DB_ERROR';
127: raise_gma_insert_message EXCEPTION;
128: BEGIN
129:
130: IF l_run_id IS NULL THEN

Line 131: v_message_token := 'GMA_MIGRATION_FAIL';

127: raise_gma_insert_message EXCEPTION;
128: BEGIN
129:
130: IF l_run_id IS NULL THEN
131: v_message_token := 'GMA_MIGRATION_FAIL';
132: RAISE raise_gma_insert_message;
133:
134: ELSE
135: p_mig_name := get_mig_name(l_run_id);

Line 140: v_message_token := 'GMA_MIGRATION_FAIL';

136: l_pos := 1;
137:
138: IF p_mig_name IS NULL THEN
139: p_mig_name := '';
140: v_message_token := 'GMA_MIGRATION_FAIL';
141: RAISE raise_gma_insert_message;
142: END IF;
143:
144: UPDATE gma_migration_control

Line 144: UPDATE gma_migration_control

140: v_message_token := 'GMA_MIGRATION_FAIL';
141: RAISE raise_gma_insert_message;
142: END IF;
143:
144: UPDATE gma_migration_control
145: SET mig_end_date = v_mig_end_date
146: WHERE run_id = l_run_id;
147: END IF;
148: l_pos := 2;

Line 155: p_table_name => 'gma_migration_log',

151: EXCEPTION
152: WHEN raise_gma_insert_message THEN
153: gma_insert_message(
154: p_run_id => l_run_id,
155: p_table_name => 'gma_migration_log',
156: p_DB_ERROR => SQLERRM,
157: p_param1 => 'an error occurred while updating gma_migration_log',
158: p_param2 => NULL,
159: p_param3 => NULL,

Line 157: p_param1 => 'an error occurred while updating gma_migration_log',

153: gma_insert_message(
154: p_run_id => l_run_id,
155: p_table_name => 'gma_migration_log',
156: p_DB_ERROR => SQLERRM,
157: p_param1 => 'an error occurred while updating gma_migration_log',
158: p_param2 => NULL,
159: p_param3 => NULL,
160: p_param4 => NULL,
161: p_param5 => NULL,

Line 172: p_table_name => 'gma_migration_log',

168: RAISE;
169: WHEN OTHERS THEN
170: gma_insert_message(
171: p_run_id => l_run_id,
172: p_table_name => 'gma_migration_log',
173: p_DB_ERROR => SQLERRM,
174: p_param1 => NULL,
175: p_param2 => NULL,
176: p_param3 => NULL,

Line 187: END gma_migration_end;

183: p_base_message => ''
184: );
185: RAISE;
186: COMMIT;
187: END gma_migration_end;
188:
189: FUNCTION get_mig_run_id(p_mig_name IN VARCHAR2) RETURN NUMBER IS
190: v_run_id NUMBER;
191:

Line 193: SELECT run_id from gma_migration_control WHERE mig_name = p_mig_name

189: FUNCTION get_mig_run_id(p_mig_name IN VARCHAR2) RETURN NUMBER IS
190: v_run_id NUMBER;
191:
192: CURSOR c_get_mig_run_id IS
193: SELECT run_id from gma_migration_control WHERE mig_name = p_mig_name
194: AND mig_end_date is NULL
195: ORDER BY run_id desc;
196:
197: BEGIN

Line 211: v_mig_name gma_migration_control.mig_name%TYPE;

207:
208: END get_mig_run_id;
209:
210: FUNCTION get_mig_name(p_run_id IN NUMBER) RETURN VARCHAR2 IS
211: v_mig_name gma_migration_control.mig_name%TYPE;
212:
213: CURSOR c_get_mig_name IS
214: SELECT mig_name from gma_migration_control WHERE run_id = p_run_id
215: ORDER BY run_id desc;

Line 214: SELECT mig_name from gma_migration_control WHERE run_id = p_run_id

210: FUNCTION get_mig_name(p_run_id IN NUMBER) RETURN VARCHAR2 IS
211: v_mig_name gma_migration_control.mig_name%TYPE;
212:
213: CURSOR c_get_mig_name IS
214: SELECT mig_name from gma_migration_control WHERE run_id = p_run_id
215: ORDER BY run_id desc;
216:
217: BEGIN
218: OPEN c_get_mig_name;

Line 230: p_table_name => 'gma_migration_log',

226: RETURN NULL;
227: WHEN OTHERS THEN
228: gma_insert_message(
229: p_run_id => p_run_id,
230: p_table_name => 'gma_migration_log',
231: p_DB_ERROR => SQLERRM,
232: p_param1 => NULL,
233: p_param2 => NULL,
234: p_param3 => NULL,

Line 237: p_message_token => 'GMA_MIGRATION_DB_ERROR',

233: p_param2 => NULL,
234: p_param3 => NULL,
235: p_param4 => NULL,
236: p_param5 => NULL,
237: p_message_token => 'GMA_MIGRATION_DB_ERROR',
238: p_message_type => 'D',
239: p_line_no => NULL,
240: p_position => NULL,
241: p_base_message => ''

Line 263: FROM gma_migration_log

259:
260: CURSOR c1
261: IS
262: SELECT *
263: FROM gma_migration_log
264: WHERE message_token = p_name AND
265: rowid = p_rowid;
266: l_rec c1%rowtype;
267: MISSING_DATA EXCEPTION;

Line 285: ELSIF (p_name IN ('GMA_MIGRATION_TABLE_SUCCESS', 'GMA_MIGRATION_TABLE_SUCCESS_RW')) THEN

281: FND_MESSAGE.set_name(NVL(l_rec.msg_app_short_name, 'GMA'), p_name);
282:
283: IF (l_rec.param1 IS not NULL) THEN
284: FND_MESSAGE.set_token(NVL(l_rec.token1, 'PARAM1'),l_rec.param1);
285: ELSIF (p_name IN ('GMA_MIGRATION_TABLE_SUCCESS', 'GMA_MIGRATION_TABLE_SUCCESS_RW')) THEN
286: FND_MESSAGE.set_token('TABLE_NAME', l_rec.table_name);
287: END IF;
288:
289: IF (l_rec.param2 IS not NULL) THEN

Line 323: v_mig_name gma_migration_control.mig_name%TYPE;

319: PROCEDURE run IS
320: l_pos NUMBER := 0;
321: v_run_id NUMBER;
322: new_run_id NUMBER;
323: v_mig_name gma_migration_control.mig_name%TYPE;
324: v_mig_name2 VARCHAR2(80) := NULL;
325:
326: BEGIN
327: l_pos := 1;

Line 329: v_run_id := gma_migration_start(p_app_short_name => 'GMA', p_mig_name => v_mig_name);

325:
326: BEGIN
327: l_pos := 1;
328: v_mig_name := 'gma_mig_test';
329: v_run_id := gma_migration_start(p_app_short_name => 'GMA', p_mig_name => v_mig_name);
330:
331: l_pos := 2;
332:
333: new_run_id := get_mig_run_id(p_mig_name => v_mig_name);

Line 339: gma_migration_end(l_run_id => v_run_id);

335: v_mig_name2 := get_mig_name(v_run_id);
336:
337: l_pos := 3;
338:
339: gma_migration_end(l_run_id => v_run_id);
340:
341: l_pos := 4;
342:
343: EXCEPTION

Line 347: p_table_name => 'gma_migration_log',

343: EXCEPTION
344: WHEN OTHERS THEN
345: gma_insert_message(
346: p_run_id => v_run_id,
347: p_table_name => 'gma_migration_log',
348: p_DB_ERROR => SQLERRM,
349: p_param1 => NULL,
350: p_param2 => NULL,
351: p_param3 => NULL,

Line 354: p_message_token => 'GMA_MIGRATION_DB_ERROR',

350: p_param2 => NULL,
351: p_param3 => NULL,
352: p_param4 => NULL,
353: p_param5 => NULL,
354: p_message_token => 'GMA_MIGRATION_DB_ERROR',
355: p_message_type => 'D',
356: p_line_no => NULL,
357: p_position => l_pos,
358: p_base_message => ''