102: sequence_order_error EXCEPTION;
103: get_sequence_error EXCEPTION;
104: assign_different_error EXCEPTION;
105: BEGIN
106: GL_MESSAGE.func_ent(api_name || '.' || fn_name);
107:
108: l_user_id := FND_GLOBAL.user_id;
109: l_login_id := FND_GLOBAL.login_id;
110:
132: IF (NOT lock_op_succeeded) THEN
133: RAISE user_lock_error;
134: END IF;
135:
136: GL_MESSAGE.write_log('SHRD0209', 1, 'USERLOCK', lock_name);
137:
138: -- Check existing record in GL_MGT_SEG_UPGRADE_H
139: SELECT decode(min(chart_of_accounts_id), null, 'N', 'Y'),
140: min(mgt_seg_column_name),
198:
199: IF (request_id = 0) THEN
200: RAISE request_error;
201: ELSE
202: GL_MESSAGE.write_log('SHRD0121', 1, 'REQ_ID', to_char(request_id));
203: END IF;
204:
205: COMMIT;
206:
206:
207: -- Release user name lock GL_MGT_SEG_
208: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
209:
210: GL_MESSAGE.func_succ(api_name || '.' || fn_name);
211:
212: EXCEPTION
213: WHEN sequence_order_error THEN
214: GL_MESSAGE.write_log('MGTS0001', 0);
210: GL_MESSAGE.func_succ(api_name || '.' || fn_name);
211:
212: EXCEPTION
213: WHEN sequence_order_error THEN
214: GL_MESSAGE.write_log('MGTS0001', 0);
215: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
216: X_Retcode := '2';
217: WHEN get_sequence_error THEN
218: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
211:
212: EXCEPTION
213: WHEN sequence_order_error THEN
214: GL_MESSAGE.write_log('MGTS0001', 0);
215: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
216: X_Retcode := '2';
217: WHEN get_sequence_error THEN
218: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
219: GL_MESSAGE.write_log('SHRD0050', 2, 'ROUTINE', fn_name,
215: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
216: X_Retcode := '2';
217: WHEN get_sequence_error THEN
218: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
219: GL_MESSAGE.write_log('SHRD0050', 2, 'ROUTINE', fn_name,
220: 'SEQUENCE', 'GL_JE_BATCHES_S');
221: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
222: X_Retcode := '2';
223: WHEN user_lock_error THEN
217: WHEN get_sequence_error THEN
218: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
219: GL_MESSAGE.write_log('SHRD0050', 2, 'ROUTINE', fn_name,
220: 'SEQUENCE', 'GL_JE_BATCHES_S');
221: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
222: X_Retcode := '2';
223: WHEN user_lock_error THEN
224: GL_MESSAGE.write_log('MGTS0005', 1, 'USERLOCK', lock_name);
225: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
220: 'SEQUENCE', 'GL_JE_BATCHES_S');
221: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
222: X_Retcode := '2';
223: WHEN user_lock_error THEN
224: GL_MESSAGE.write_log('MGTS0005', 1, 'USERLOCK', lock_name);
225: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
226: X_Retcode := '2';
227: WHEN assign_complete_error THEN
228: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
221: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
222: X_Retcode := '2';
223: WHEN user_lock_error THEN
224: GL_MESSAGE.write_log('MGTS0005', 1, 'USERLOCK', lock_name);
225: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
226: X_Retcode := '2';
227: WHEN assign_complete_error THEN
228: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
229: GL_MESSAGE.write_log('MGTS0002');
225: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
226: X_Retcode := '2';
227: WHEN assign_complete_error THEN
228: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
229: GL_MESSAGE.write_log('MGTS0002');
230: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
231: X_Retcode := '1';
232: WHEN assign_different_error THEN
233: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
226: X_Retcode := '2';
227: WHEN assign_complete_error THEN
228: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
229: GL_MESSAGE.write_log('MGTS0002');
230: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
231: X_Retcode := '1';
232: WHEN assign_different_error THEN
233: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
234: GL_MESSAGE.write_log('MGTS0003');
230: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
231: X_Retcode := '1';
232: WHEN assign_different_error THEN
233: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
234: GL_MESSAGE.write_log('MGTS0003');
235: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
236: X_Retcode := '2';
237: WHEN request_error THEN
238: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
231: X_Retcode := '1';
232: WHEN assign_different_error THEN
233: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
234: GL_MESSAGE.write_log('MGTS0003');
235: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
236: X_Retcode := '2';
237: WHEN request_error THEN
238: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
239: GL_MESSAGE.write_log('SHRD0055', 1, 'ROUTINE', fn_name);
235: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
236: X_Retcode := '2';
237: WHEN request_error THEN
238: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
239: GL_MESSAGE.write_log('SHRD0055', 1, 'ROUTINE', fn_name);
240: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
241: X_Retcode := '2';
242: WHEN others THEN
243: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
236: X_Retcode := '2';
237: WHEN request_error THEN
238: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
239: GL_MESSAGE.write_log('SHRD0055', 1, 'ROUTINE', fn_name);
240: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
241: X_Retcode := '2';
242: WHEN others THEN
243: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
244: FND_FILE.put_line(FND_FILE.LOG, SQLERRM);
241: X_Retcode := '2';
242: WHEN others THEN
243: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
244: FND_FILE.put_line(FND_FILE.LOG, SQLERRM);
245: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
246: X_Retcode := '2';
247: END Setup_Upgrade;
248:
249:
265:
266: l_user_id NUMBER;
267: l_login_id NUMBER;
268: BEGIN
269: GL_MESSAGE.func_ent(api_name || '.' || fn_name);
270:
271: l_user_id := FND_GLOBAL.user_id;
272: l_login_id := FND_GLOBAL.login_id;
273:
380:
381: -- Commit
382: COMMIT;
383:
384: GL_MESSAGE.write_log('MGTS0006', 1,
385: 'BATCHID', to_char(l_max_proc_batch_id));
386:
387: -- Batch processing the journals between max_processed_ and max_ batch id:
388: LOOP
489: WHERE chart_of_accounts_id = X_Chart_Of_Accounts_Id;
490:
491: COMMIT;
492:
493: GL_MESSAGE.write_log('MGTS0007', 2,
494: 'LOWID', low_batch_id, 'HIGHID', high_batch_id);
495:
496: EXIT WHEN (l_max_proc_batch_id = l_max_batch_id);
497: END LOOP;
495:
496: EXIT WHEN (l_max_proc_batch_id = l_max_batch_id);
497: END LOOP;
498:
499: GL_MESSAGE.func_succ(api_name || '.' || fn_name);
500:
501: EXCEPTION
502: WHEN assign_complete_error THEN
503: GL_MESSAGE.write_log('MGTS0002');
499: GL_MESSAGE.func_succ(api_name || '.' || fn_name);
500:
501: EXCEPTION
502: WHEN assign_complete_error THEN
503: GL_MESSAGE.write_log('MGTS0002');
504: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
505: X_Retcode := '1';
506: WHEN others THEN
507: FND_FILE.put_line(FND_FILE.LOG, SQLERRM);
500:
501: EXCEPTION
502: WHEN assign_complete_error THEN
503: GL_MESSAGE.write_log('MGTS0002');
504: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
505: X_Retcode := '1';
506: WHEN others THEN
507: FND_FILE.put_line(FND_FILE.LOG, SQLERRM);
508: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
504: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
505: X_Retcode := '1';
506: WHEN others THEN
507: FND_FILE.put_line(FND_FILE.LOG, SQLERRM);
508: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
509: X_Retcode := '2';
510: END Process_Incremental_Data;
511:
512:
536: request_id NUMBER;
537:
538: max_processed_error EXCEPTION;
539: BEGIN
540: GL_MESSAGE.func_ent(api_name || '.' || fn_name);
541:
542: l_user_id := FND_GLOBAL.user_id;
543: l_login_id := FND_GLOBAL.login_id;
544:
564: IF (NOT lock_op_succeeded) THEN
565: RAISE user_lock_error;
566: END IF;
567:
568: GL_MESSAGE.write_log('SHRD0209', 1, 'USERLOCK', lock_name);
569:
570: -- Process batches in GL_MGT_SEG_UPGRADE
571: INSERT INTO GL_JE_SEGMENT_VALUES
572: (je_header_id, segment_type_code, segment_value, creation_date,
643: 'SEGMENT28', cc.segment28,
644: 'SEGMENT29', cc.segment29,
645: 'SEGMENT30', cc.segment30);
646:
647: GL_MESSAGE.write_log('MGTS0008', 1, 'BATCHID', l_max_proc_batch_id);
648:
649: -- Process batches beyond max_processed_batch_id
650: INSERT INTO GL_JE_SEGMENT_VALUES
651: (je_header_id, segment_type_code, segment_value, creation_date,
723: 'SEGMENT28', cc.segment28,
724: 'SEGMENT29', cc.segment29,
725: 'SEGMENT30', cc.segment30);
726:
727: GL_MESSAGE.write_log('MGTS0009', 1, 'BATCHID', l_max_proc_batch_id);
728:
729: -- Get COA structure code and management segment name
730: SELECT st.id_flex_structure_code, sg.segment_name
731: INTO struct_code, seg_name
773:
774: IF (request_id = 0) THEN
775: RAISE request_error;
776: ELSE
777: GL_MESSAGE.write_log('SHRD0121', 1, 'REQ_ID', to_char(request_id));
778: END IF;
779:
780: -- Release user name lock GL_MGT_SEG_
781: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
783: -- Clean up tracking data in GL_MGT_SEG_UPGRADE
784: DELETE FROM GL_MGT_SEG_UPGRADE
785: WHERE chart_of_accounts_id = X_Chart_Of_Accounts_Id;
786:
787: GL_MESSAGE.func_succ(api_name || '.' || fn_name);
788: EXCEPTION
789: WHEN max_processed_error THEN
790: GL_MESSAGE.write_log('MGTS0004');
791: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
786:
787: GL_MESSAGE.func_succ(api_name || '.' || fn_name);
788: EXCEPTION
789: WHEN max_processed_error THEN
790: GL_MESSAGE.write_log('MGTS0004');
791: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
792: X_Retcode := '2';
793: WHEN assign_complete_error THEN
794: GL_MESSAGE.write_log('MGTS0002');
787: GL_MESSAGE.func_succ(api_name || '.' || fn_name);
788: EXCEPTION
789: WHEN max_processed_error THEN
790: GL_MESSAGE.write_log('MGTS0004');
791: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
792: X_Retcode := '2';
793: WHEN assign_complete_error THEN
794: GL_MESSAGE.write_log('MGTS0002');
795: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
790: GL_MESSAGE.write_log('MGTS0004');
791: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
792: X_Retcode := '2';
793: WHEN assign_complete_error THEN
794: GL_MESSAGE.write_log('MGTS0002');
795: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
796: X_Retcode := '1';
797: WHEN user_lock_error THEN
798: GL_MESSAGE.write_log('MGTS0005', 1, 'USERLOCK', lock_name);
791: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
792: X_Retcode := '2';
793: WHEN assign_complete_error THEN
794: GL_MESSAGE.write_log('MGTS0002');
795: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
796: X_Retcode := '1';
797: WHEN user_lock_error THEN
798: GL_MESSAGE.write_log('MGTS0005', 1, 'USERLOCK', lock_name);
799: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
794: GL_MESSAGE.write_log('MGTS0002');
795: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
796: X_Retcode := '1';
797: WHEN user_lock_error THEN
798: GL_MESSAGE.write_log('MGTS0005', 1, 'USERLOCK', lock_name);
799: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
800: X_Retcode := '2';
801: WHEN request_error THEN
802: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
795: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
796: X_Retcode := '1';
797: WHEN user_lock_error THEN
798: GL_MESSAGE.write_log('MGTS0005', 1, 'USERLOCK', lock_name);
799: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
800: X_Retcode := '2';
801: WHEN request_error THEN
802: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
803: GL_MESSAGE.write_log('SHRD0055', 1, 'ROUTINE', fn_name);
799: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
800: X_Retcode := '2';
801: WHEN request_error THEN
802: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
803: GL_MESSAGE.write_log('SHRD0055', 1, 'ROUTINE', fn_name);
804: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
805: X_Retcode := '2';
806: WHEN others THEN
807: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
800: X_Retcode := '2';
801: WHEN request_error THEN
802: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
803: GL_MESSAGE.write_log('SHRD0055', 1, 'ROUTINE', fn_name);
804: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
805: X_Retcode := '2';
806: WHEN others THEN
807: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
808: FND_FILE.put_line(FND_FILE.LOG, SQLERRM);
805: X_Retcode := '2';
806: WHEN others THEN
807: lock_op_succeeded := release_lock(X_Chart_Of_Accounts_Id);
808: FND_FILE.put_line(FND_FILE.LOG, SQLERRM);
809: GL_MESSAGE.func_fail(api_name || '.' || fn_name);
810: X_Retcode := '2';
811: END Assign_Management_Segment;
812:
813: