[Home] [Help]
35: -- copy --
36: -- --
37: -- DESCRIPTION --
38: -- Use this procedure to copy journal entry from one --
39: -- sets of books and put them in gl_interface table to be imported --
40: -- for another sets of books. --
41: -- --
42: -- PURPOSE: --
43: -- Oracle Applications Rel 11.5 --
294: RAISE DIFF_CALENDAR;
295: END IF;
296:
297: -------------------------------------------------------------
298: --Get Group Id's for GL_INTERFACE and GL_INTERFACE_CONTROL --
299: -------------------------------------------------------------
300:
301: Get_Import_Group_Id(Summary_group_id,Detail_group_id);
302:
356:
357: ---------------------------------------------------------------------------
358: -- Bug 2757223 --
359: -- Irrespective of whether records exist in gl_import_references --
360: -- we need to insert into gl_interface if the import journal reference --
361: -- for manual source is set. Moved the End Loop from after insert to --
362: -- Before insert insert into gl_interface --
363: ---------------------------------------------------------------------------
364:
358: -- Bug 2757223 --
359: -- Irrespective of whether records exist in gl_import_references --
360: -- we need to insert into gl_interface if the import journal reference --
361: -- for manual source is set. Moved the End Loop from after insert to --
362: -- Before insert insert into gl_interface --
363: ---------------------------------------------------------------------------
364:
365: FOR rec_ref IN c_ref(rec_header.je_header_id, rec_line.je_line_num) LOOP
366:
394:
395: END LOOP;
396: x_number := x_number +1;
397: ---------------------------------------------------------
398: -- Insert row into gl_interface --
399: ---------------------------------------------------------
400: x_statement := 'INS_GLIF';
401:
402: /*Bug 3934813 - if we have two journals with the firsts 50 positions same in reference1 and first 25 positions same in reference4 fields, these two
406:
407: Suggestion from GL team is to transfer the first 40 characters of the batch name into reference1, and follow them with the je_batch_id.
408: Then, transfer the first 15 characters of the journal name into reference4, and follow them with the je_header_id */
409:
410: INSERT INTO gl_interface(
411: STATUS,
412: SET_OF_BOOKS_ID,
413: ACCOUNTING_DATE,
414: CURRENCY_CODE,
561: ELSE
562:
563: x_number := x_number +1;
564: ---------------------------------------------------------
565: -- Insert row into gl_interface --
566: ---------------------------------------------------------
567: x_statement := 'INS_GLIF';
568: INSERT INTO gl_interface(
569: STATUS,
564: ---------------------------------------------------------
565: -- Insert row into gl_interface --
566: ---------------------------------------------------------
567: x_statement := 'INS_GLIF';
568: INSERT INTO gl_interface(
569: STATUS,
570: SET_OF_BOOKS_ID,
571: ACCOUNTING_DATE,
572: CURRENCY_CODE,
941: INTO x_interface_run_id
942: FROM sys.DUAL;
943: FOR i IN 1..p_counter LOOP
944:
945: INSERT INTO gl_interface_control( je_source_name,
946: status,
947: interface_run_id,
948: group_id,
949: set_of_books_id,
1000: -------------------------------------
1001: -- Get Summary Journals Group Id. --
1002: -------------------------------------
1003:
1004: SELECT gl_interface_control_s.nextval
1005: INTO p_summary
1006: FROM sys.dual;
1007:
1008: -------------------------------------
1008: -------------------------------------
1009: -- Get Detail Journals Group Id. --
1010: -------------------------------------
1011:
1012: SELECT gl_interface_control_s.nextval
1013: INTO p_detail
1014: FROM sys.dual;
1015:
1016: END get_import_group_id;