[Home] [Help]
25: inter_run_id NUMBER;
26: sob_id VARCHAR2(30);
27: req_id NUMBER;
28:
29: -- Cursor to get info from the gl_interface_control table concerning
30: -- this run.
31: CURSOR interface_table_c IS
32: SELECT nvl(glic.interface_table_name, 'GL_INTERFACE'),
33: glic.interface_run_id
30: -- this run.
31: CURSOR interface_table_c IS
32: SELECT nvl(glic.interface_table_name, 'GL_INTERFACE'),
33: glic.interface_run_id
34: FROM gl_interface_control glic,
35: gl_je_sources src
36: WHERE glic.group_id = p_group_id
37: AND glic.je_source_name = src.je_source_name
38: AND src.user_je_source_name = p_source
69: interface_table := 'GL_INTERFACE';
70: inter_run_id := null;
71:
72: -- Insert a row for this IDT and Journal Import run into the
73: -- gl_interface_control table.
74: INSERT INTO gl_interface_control(je_source_name, status, group_id, set_of_books_id)
75: SELECT src.je_source_name, 'S', p_group_id, sob_id
76: FROM gl_je_sources src
77: WHERE src.user_je_source_name = p_source;
70: inter_run_id := null;
71:
72: -- Insert a row for this IDT and Journal Import run into the
73: -- gl_interface_control table.
74: INSERT INTO gl_interface_control(je_source_name, status, group_id, set_of_books_id)
75: SELECT src.je_source_name, 'S', p_group_id, sob_id
76: FROM gl_je_sources src
77: WHERE src.user_je_source_name = p_source;
78: ELSE
92: p_filter_column_value1 => p_group_id,
93: p_filter_column_name2 => 'USER_JE_SOURCE_NAME',
94: p_filter_column_value2 => p_source);
95:
96: -- If this failed, then update gl_interface_control so that the errored
97: -- rows will show up in the JI Correction form.
98: IF return_status <> FND_API.G_RET_STS_SUCCESS THEN
99: UPDATE gl_interface_control glic
100: SET glic.status = 'I'
95:
96: -- If this failed, then update gl_interface_control so that the errored
97: -- rows will show up in the JI Correction form.
98: IF return_status <> FND_API.G_RET_STS_SUCCESS THEN
99: UPDATE gl_interface_control glic
100: SET glic.status = 'I'
101: WHERE rowid = (SELECT min(rowid)
102: FROM gl_interface_control glic2
103: WHERE glic2.je_source_name = glic.je_source_name
98: IF return_status <> FND_API.G_RET_STS_SUCCESS THEN
99: UPDATE gl_interface_control glic
100: SET glic.status = 'I'
101: WHERE rowid = (SELECT min(rowid)
102: FROM gl_interface_control glic2
103: WHERE glic2.je_source_name = glic.je_source_name
104: AND glic2.group_id = glic.group_id)
105: AND glic.je_source_name =
106: (SELECT src.je_source_name
113: -- If the automatic JI option is on, then run journal import.
114: IF p_auto_ji = 'Y' THEN
115:
116: -- If no interface run id has been specified, get one and insert it
117: -- into gl_interface_control.
118: IF inter_run_id IS NULL THEN
119: SELECT gl_journal_import_s.nextval
120: INTO inter_run_id
121: FROM dual;
119: SELECT gl_journal_import_s.nextval
120: INTO inter_run_id
121: FROM dual;
122:
123: UPDATE gl_interface_control glic
124: SET glic.interface_run_id = inter_run_id
125: WHERE rowid = (SELECT min(rowid)
126: FROM gl_interface_control glic2
127: WHERE glic2.je_source_name = glic.je_source_name
122:
123: UPDATE gl_interface_control glic
124: SET glic.interface_run_id = inter_run_id
125: WHERE rowid = (SELECT min(rowid)
126: FROM gl_interface_control glic2
127: WHERE glic2.je_source_name = glic.je_source_name
128: AND glic2.group_id = glic.group_id)
129: AND glic.je_source_name =
130: (SELECT src.je_source_name