[Home] [Help]
105: -- Make sure the batch exists and get the actual_flag for use later on.
106: BEGIN
107: SELECT actual_flag
108: INTO act_flag
109: FROM gl_je_batches
110: WHERE je_batch_id = jeb_id;
111: EXCEPTION
112: WHEN NO_DATA_FOUND THEN
113: GL_MESSAGE.Write_Log(msg_name =>'JECP0000',
117: Raise GLUJECPB_FATAL_ERR;
118: END;
119:
120: -- Get the new je_batch_id
121: SELECT gl_je_batches_s.nextval
122: INTO new_jeb_id
123: FROM dual;
124:
125: IF (SQL%ROWCOUNT <> 1) THEN
176: v3 => approval_flag);
177: END IF;
178:
179: -- Insert new batch here
180: INSERT INTO gl_je_batches
181: (je_batch_id,
182: chart_of_accounts_id, period_set_name, accounted_period_type,
183: name, status, status_verified, budgetary_control_status,
184: actual_flag, average_journal_flag,
200: attribute6, attribute7, attribute8, attribute9, attribute10, context,
201: ussgl_transaction_code, to_number(x_org_id),
202: decode(approval_flag, 'Y', 'R', 'Z'),
203: sysdate, usr_id, sysdate, usr_id, log_id
204: FROM gl_je_batches
205: WHERE je_batch_id = jeb_id;
206:
207: IF (SQL%ROWCOUNT <> 1) THEN
208: Raise GLUJECPB_FATAL_ERR;
213: token_num => 2 ,
214: t1 =>'NUM',
215: v1 =>to_char(temp),
216: t2 =>'TABLE',
217: v2 =>'GL_JE_BATCHES');
218:
219: DECLARE
220:
221: CURSOR select_journals IS
495: SELECT jeh2.je_header_id, jel.je_line_num, jel.ledger_id,
496: rec.jgzz_recon_ref,
497: sysdate, usr_id, sysdate,
498: usr_id, log_id
499: FROM gl_je_batches jeb, gl_je_headers jeh1, gl_je_headers jeh2,
500: gl_ledgers lgr, gl_je_lines jel,
501: gl_code_combinations cc, gl_je_lines_recon rec
502: WHERE jeb.je_batch_id = jeb_id
503: AND jeb.average_journal_flag = 'N'
536: WHERE jel.je_header_id = jeh.je_header_id)
537: WHERE jeh.je_batch_id = new_jeb_id;
538:
539: -- Fix the batch running totals
540: UPDATE gl_je_batches jeb
541: SET (running_total_dr, running_total_cr,
542: running_total_accounted_dr, running_total_accounted_cr)
543: = (SELECT sum(running_total_dr),
544: sum(running_total_cr),