6: x_from_date IN DATE,
7: x_to_date IN DATE,
8: x_request_id IN NUMBER)
9: IS
10: erdl_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
11: rdl_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
12: uer_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
13: ubr_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
14: gain_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
7: x_to_date IN DATE,
8: x_request_id IN NUMBER)
9: IS
10: erdl_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
11: rdl_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
12: uer_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
13: ubr_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
14: gain_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
15: loss_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
8: x_request_id IN NUMBER)
9: IS
10: erdl_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
11: rdl_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
12: uer_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
13: ubr_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
14: gain_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
15: loss_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
16: erdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
9: IS
10: erdl_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
11: rdl_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
12: uer_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
13: ubr_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
14: gain_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
15: loss_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
16: erdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
17: rdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
10: erdl_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
11: rdl_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
12: uer_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
13: ubr_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
14: gain_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
15: loss_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
16: erdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
17: rdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
18: uer_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
11: rdl_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
12: uer_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
13: ubr_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
14: gain_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
15: loss_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
16: erdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
17: rdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
18: uer_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
19: ubr_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
12: uer_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
13: ubr_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
14: gain_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
15: loss_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
16: erdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
17: rdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
18: uer_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
19: ubr_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
20: gain_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
13: ubr_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
14: gain_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
15: loss_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
16: erdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
17: rdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
18: uer_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
19: ubr_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
20: gain_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
21: loss_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
14: gain_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
15: loss_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
16: erdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
17: rdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
18: uer_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
19: ubr_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
20: gain_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
21: loss_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
22: fdbk NUMBER;
15: loss_cur NUMBER:= DBMS_SQL.OPEN_CURSOR;
16: erdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
17: rdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
18: uer_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
19: ubr_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
20: gain_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
21: loss_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
22: fdbk NUMBER;
23: je_statement varchar2(100);
16: erdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
17: rdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
18: uer_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
19: ubr_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
20: gain_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
21: loss_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
22: fdbk NUMBER;
23: je_statement varchar2(100);
24: erdl_stmt varchar2(4000);
17: rdl_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
18: uer_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
19: ubr_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
20: gain_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
21: loss_cur1 NUMBER:= DBMS_SQL.OPEN_CURSOR;
22: fdbk NUMBER;
23: je_statement varchar2(100);
24: erdl_stmt varchar2(4000);
25: rdl_stmt varchar2(4000);
117: AND aeh.accounting_entry_status_code = ''F''
118: AND ael.code_combination_id = cc.code_combination_id
119: AND pdr.event_id IS NOT NULL';
120:
121: DBMS_SQL.PARSE (erdl_cur, erdl_stmt, DBMS_SQL.NATIVE);
122: fdbk := DBMS_SQL.EXECUTE (erdl_cur);
123: DBMS_SQL.CLOSE_CURSOR (erdl_cur);
124: COMMIT;
125:
118: AND ael.code_combination_id = cc.code_combination_id
119: AND pdr.event_id IS NOT NULL';
120:
121: DBMS_SQL.PARSE (erdl_cur, erdl_stmt, DBMS_SQL.NATIVE);
122: fdbk := DBMS_SQL.EXECUTE (erdl_cur);
123: DBMS_SQL.CLOSE_CURSOR (erdl_cur);
124: COMMIT;
125:
126: ERDL_STMT1 := 'insert into pa_gl_rev_xfer_audit_rep
119: AND pdr.event_id IS NOT NULL';
120:
121: DBMS_SQL.PARSE (erdl_cur, erdl_stmt, DBMS_SQL.NATIVE);
122: fdbk := DBMS_SQL.EXECUTE (erdl_cur);
123: DBMS_SQL.CLOSE_CURSOR (erdl_cur);
124: COMMIT;
125:
126: ERDL_STMT1 := 'insert into pa_gl_rev_xfer_audit_rep
127: (
189: AND '||x_where_cc||'
190: AND rdl.batch_name = jel.reference_1' ;
191:
192:
193: DBMS_SQL.PARSE (erdl_cur1, erdl_stmt1, DBMS_SQL.NATIVE);
194: fdbk := DBMS_SQL.EXECUTE (erdl_cur1);
195: DBMS_SQL.CLOSE_CURSOR (erdl_cur1);
196: COMMIT;
197:
190: AND rdl.batch_name = jel.reference_1' ;
191:
192:
193: DBMS_SQL.PARSE (erdl_cur1, erdl_stmt1, DBMS_SQL.NATIVE);
194: fdbk := DBMS_SQL.EXECUTE (erdl_cur1);
195: DBMS_SQL.CLOSE_CURSOR (erdl_cur1);
196: COMMIT;
197:
198: /*
191:
192:
193: DBMS_SQL.PARSE (erdl_cur1, erdl_stmt1, DBMS_SQL.NATIVE);
194: fdbk := DBMS_SQL.EXECUTE (erdl_cur1);
195: DBMS_SQL.CLOSE_CURSOR (erdl_cur1);
196: COMMIT;
197:
198: /*
199: Insertion of RDL lines
268: AND nvl(TRUNC(TO_DATE('''||to_char(x_to_date,'DD-MM-RRRR')||''',''DD-MM-RRRR'')),TRUNC(pdr.transferred_date))
269: AND ael.code_combination_id = cc.code_combination_id
270: AND '||x_where_cc;
271:
272: DBMS_SQL.PARSE (rdl_cur, rdl_stmt, DBMS_SQL.NATIVE);
273: fdbk := DBMS_SQL.EXECUTE (rdl_cur);
274: DBMS_SQL.CLOSE_CURSOR (rdl_cur);
275:
276:
269: AND ael.code_combination_id = cc.code_combination_id
270: AND '||x_where_cc;
271:
272: DBMS_SQL.PARSE (rdl_cur, rdl_stmt, DBMS_SQL.NATIVE);
273: fdbk := DBMS_SQL.EXECUTE (rdl_cur);
274: DBMS_SQL.CLOSE_CURSOR (rdl_cur);
275:
276:
277: rdl_stmt1 := 'insert into pa_gl_rev_xfer_audit_rep
270: AND '||x_where_cc;
271:
272: DBMS_SQL.PARSE (rdl_cur, rdl_stmt, DBMS_SQL.NATIVE);
273: fdbk := DBMS_SQL.EXECUTE (rdl_cur);
274: DBMS_SQL.CLOSE_CURSOR (rdl_cur);
275:
276:
277: rdl_stmt1 := 'insert into pa_gl_rev_xfer_audit_rep
278: (
340: AND '||x_where_cc||'
341: AND pdr.event_id IS NULL ';
342:
343:
344: DBMS_SQL.PARSE (rdl_cur1, rdl_stmt1, DBMS_SQL.NATIVE);
345: fdbk := DBMS_SQL.EXECUTE (rdl_cur1);
346: DBMS_SQL.CLOSE_CURSOR (rdl_cur1);
347:
348: update pa_gl_rev_xfer_audit_rep rep set (TRANSACTION_TYPE,TRANSACTION_DATE,TASK_ID,EMP_OR_ORG_NAME) =
341: AND pdr.event_id IS NULL ';
342:
343:
344: DBMS_SQL.PARSE (rdl_cur1, rdl_stmt1, DBMS_SQL.NATIVE);
345: fdbk := DBMS_SQL.EXECUTE (rdl_cur1);
346: DBMS_SQL.CLOSE_CURSOR (rdl_cur1);
347:
348: update pa_gl_rev_xfer_audit_rep rep set (TRANSACTION_TYPE,TRANSACTION_DATE,TASK_ID,EMP_OR_ORG_NAME) =
349: (select ei.expenditure_type,ei.expenditure_item_date,ei.task_id,DECODE(emp.full_name, null,org.name, emp.full_name )
342:
343:
344: DBMS_SQL.PARSE (rdl_cur1, rdl_stmt1, DBMS_SQL.NATIVE);
345: fdbk := DBMS_SQL.EXECUTE (rdl_cur1);
346: DBMS_SQL.CLOSE_CURSOR (rdl_cur1);
347:
348: update pa_gl_rev_xfer_audit_rep rep set (TRANSACTION_TYPE,TRANSACTION_DATE,TASK_ID,EMP_OR_ORG_NAME) =
349: (select ei.expenditure_type,ei.expenditure_item_date,ei.task_id,DECODE(emp.full_name, null,org.name, emp.full_name )
350: from hr_organization_units org,
434: AND nvl(TRUNC(TO_DATE('''||to_char(x_to_date,'DD-MM-RRRR')||''',''DD-MM-RRRR'')),TRUNC(pdr.transferred_date))
435: AND ael.code_combination_id = cc.code_combination_id
436: AND '||x_where_cc;
437:
438: DBMS_SQL.PARSE (uer_cur, uer_stmt, DBMS_SQL.NATIVE);
439: fdbk := DBMS_SQL.EXECUTE (uer_cur);
440: DBMS_SQL.CLOSE_CURSOR (uer_cur);
441: COMMIT;
442:
435: AND ael.code_combination_id = cc.code_combination_id
436: AND '||x_where_cc;
437:
438: DBMS_SQL.PARSE (uer_cur, uer_stmt, DBMS_SQL.NATIVE);
439: fdbk := DBMS_SQL.EXECUTE (uer_cur);
440: DBMS_SQL.CLOSE_CURSOR (uer_cur);
441: COMMIT;
442:
443:
436: AND '||x_where_cc;
437:
438: DBMS_SQL.PARSE (uer_cur, uer_stmt, DBMS_SQL.NATIVE);
439: fdbk := DBMS_SQL.EXECUTE (uer_cur);
440: DBMS_SQL.CLOSE_CURSOR (uer_cur);
441: COMMIT;
442:
443:
444: uer_stmt1 := 'insert into pa_gl_rev_xfer_audit_rep
503: AND nvl(TRUNC(TO_DATE('''||to_char(x_to_date,'DD-MM-RRRR')||''',''DD-MM-RRRR'')),TRUNC(pdr.transferred_date))
504: AND '||x_where_cc||'
505: AND pdr.event_id IS NULL ';
506:
507: DBMS_SQL.PARSE (uer_cur1, uer_stmt1, DBMS_SQL.NATIVE);
508: fdbk := DBMS_SQL.EXECUTE (uer_cur1);
509: DBMS_SQL.CLOSE_CURSOR (uer_cur1);
510: COMMIT;
511:
504: AND '||x_where_cc||'
505: AND pdr.event_id IS NULL ';
506:
507: DBMS_SQL.PARSE (uer_cur1, uer_stmt1, DBMS_SQL.NATIVE);
508: fdbk := DBMS_SQL.EXECUTE (uer_cur1);
509: DBMS_SQL.CLOSE_CURSOR (uer_cur1);
510: COMMIT;
511:
512: /*
505: AND pdr.event_id IS NULL ';
506:
507: DBMS_SQL.PARSE (uer_cur1, uer_stmt1, DBMS_SQL.NATIVE);
508: fdbk := DBMS_SQL.EXECUTE (uer_cur1);
509: DBMS_SQL.CLOSE_CURSOR (uer_cur1);
510: COMMIT;
511:
512: /*
513: Insertion of UBR Lines
578: AND nvl(TRUNC(TO_DATE('''||to_char(x_to_date,'DD-MM-RRRR')||''',''DD-MM-RRRR'')),TRUNC(pdr.transferred_date))
579: AND ael.code_combination_id = cc.code_combination_id
580: AND '||x_where_cc;
581:
582: DBMS_SQL.PARSE (ubr_cur, ubr_stmt, DBMS_SQL.NATIVE);
583: fdbk := DBMS_SQL.EXECUTE (ubr_cur);
584: DBMS_SQL.CLOSE_CURSOR (ubr_cur);
585: COMMIT;
586:
579: AND ael.code_combination_id = cc.code_combination_id
580: AND '||x_where_cc;
581:
582: DBMS_SQL.PARSE (ubr_cur, ubr_stmt, DBMS_SQL.NATIVE);
583: fdbk := DBMS_SQL.EXECUTE (ubr_cur);
584: DBMS_SQL.CLOSE_CURSOR (ubr_cur);
585: COMMIT;
586:
587:
580: AND '||x_where_cc;
581:
582: DBMS_SQL.PARSE (ubr_cur, ubr_stmt, DBMS_SQL.NATIVE);
583: fdbk := DBMS_SQL.EXECUTE (ubr_cur);
584: DBMS_SQL.CLOSE_CURSOR (ubr_cur);
585: COMMIT;
586:
587:
588: ubr_stmt1 := 'insert into pa_gl_rev_xfer_audit_rep
647: AND nvl(TRUNC(TO_DATE('''||to_char(x_to_date,'DD-MM-RRRR')||''',''DD-MM-RRRR'')),TRUNC(pdr.transferred_date))
648: AND '||x_where_cc||'
649: AND pdr.event_id IS NULL ';
650:
651: DBMS_SQL.PARSE (ubr_cur1, ubr_stmt1, DBMS_SQL.NATIVE);
652: fdbk := DBMS_SQL.EXECUTE (ubr_cur1);
653: DBMS_SQL.CLOSE_CURSOR (ubr_cur1);
654: COMMIT;
655:
648: AND '||x_where_cc||'
649: AND pdr.event_id IS NULL ';
650:
651: DBMS_SQL.PARSE (ubr_cur1, ubr_stmt1, DBMS_SQL.NATIVE);
652: fdbk := DBMS_SQL.EXECUTE (ubr_cur1);
653: DBMS_SQL.CLOSE_CURSOR (ubr_cur1);
654: COMMIT;
655:
656: /*
649: AND pdr.event_id IS NULL ';
650:
651: DBMS_SQL.PARSE (ubr_cur1, ubr_stmt1, DBMS_SQL.NATIVE);
652: fdbk := DBMS_SQL.EXECUTE (ubr_cur1);
653: DBMS_SQL.CLOSE_CURSOR (ubr_cur1);
654: COMMIT;
655:
656: /*
657: Insertion of RLZD-GAIN lines
722: AND nvl(TRUNC(TO_DATE('''||to_char(x_to_date,'DD-MM-RRRR')||''',''DD-MM-RRRR'')),TRUNC(pdr.transferred_date))
723: AND ael.code_combination_id = cc.code_combination_id
724: AND '||x_where_cc;
725:
726: DBMS_SQL.PARSE (gain_cur, gain_stmt, DBMS_SQL.NATIVE);
727: fdbk := DBMS_SQL.EXECUTE (gain_cur);
728: DBMS_SQL.CLOSE_CURSOR (gain_cur);
729: COMMIT;
730:
723: AND ael.code_combination_id = cc.code_combination_id
724: AND '||x_where_cc;
725:
726: DBMS_SQL.PARSE (gain_cur, gain_stmt, DBMS_SQL.NATIVE);
727: fdbk := DBMS_SQL.EXECUTE (gain_cur);
728: DBMS_SQL.CLOSE_CURSOR (gain_cur);
729: COMMIT;
730:
731:
724: AND '||x_where_cc;
725:
726: DBMS_SQL.PARSE (gain_cur, gain_stmt, DBMS_SQL.NATIVE);
727: fdbk := DBMS_SQL.EXECUTE (gain_cur);
728: DBMS_SQL.CLOSE_CURSOR (gain_cur);
729: COMMIT;
730:
731:
732:
791: AND nvl(TRUNC(TO_DATE('''||to_char(x_to_date,'DD-MM-RRRR')||''',''DD-MM-RRRR'')),TRUNC(pdr.transferred_date))
792: AND '||x_where_cc||'
793: AND pdr.event_id IS NULL ';
794:
795: DBMS_SQL.PARSE (gain_cur1, gain_stmt1, DBMS_SQL.NATIVE);
796: fdbk := DBMS_SQL.EXECUTE (gain_cur1);
797: DBMS_SQL.CLOSE_CURSOR (gain_cur1);
798: COMMIT;
799:
792: AND '||x_where_cc||'
793: AND pdr.event_id IS NULL ';
794:
795: DBMS_SQL.PARSE (gain_cur1, gain_stmt1, DBMS_SQL.NATIVE);
796: fdbk := DBMS_SQL.EXECUTE (gain_cur1);
797: DBMS_SQL.CLOSE_CURSOR (gain_cur1);
798: COMMIT;
799:
800: /*
793: AND pdr.event_id IS NULL ';
794:
795: DBMS_SQL.PARSE (gain_cur1, gain_stmt1, DBMS_SQL.NATIVE);
796: fdbk := DBMS_SQL.EXECUTE (gain_cur1);
797: DBMS_SQL.CLOSE_CURSOR (gain_cur1);
798: COMMIT;
799:
800: /*
801: Insertion of RLZD-LOSS lines
866: AND nvl(TRUNC(TO_DATE('''||to_char(x_to_date,'DD-MM-RRRR')||''',''DD-MM-RRRR'')),TRUNC(pdr.transferred_date))
867: AND ael.code_combination_id = cc.code_combination_id
868: AND '||x_where_cc;
869:
870: DBMS_SQL.PARSE (loss_cur, loss_stmt, DBMS_SQL.NATIVE);
871: fdbk := DBMS_SQL.EXECUTE (loss_cur);
872: DBMS_SQL.CLOSE_CURSOR (loss_cur);
873: COMMIT;
874:
867: AND ael.code_combination_id = cc.code_combination_id
868: AND '||x_where_cc;
869:
870: DBMS_SQL.PARSE (loss_cur, loss_stmt, DBMS_SQL.NATIVE);
871: fdbk := DBMS_SQL.EXECUTE (loss_cur);
872: DBMS_SQL.CLOSE_CURSOR (loss_cur);
873: COMMIT;
874:
875: loss_stmt1 :='insert into pa_gl_rev_xfer_audit_rep
868: AND '||x_where_cc;
869:
870: DBMS_SQL.PARSE (loss_cur, loss_stmt, DBMS_SQL.NATIVE);
871: fdbk := DBMS_SQL.EXECUTE (loss_cur);
872: DBMS_SQL.CLOSE_CURSOR (loss_cur);
873: COMMIT;
874:
875: loss_stmt1 :='insert into pa_gl_rev_xfer_audit_rep
876: (
933: AND nvl(TRUNC(TO_DATE('''||to_char(x_to_date,'DD-MM-RRRR')||''',''DD-MM-RRRR'')),TRUNC(pdr.transferred_date))
934: AND '||x_where_cc||'
935: AND pdr.event_id IS NULL ';
936:
937: DBMS_SQL.PARSE (loss_cur1, loss_stmt1, DBMS_SQL.NATIVE);
938: fdbk := DBMS_SQL.EXECUTE (loss_cur1);
939: DBMS_SQL.CLOSE_CURSOR (loss_cur1);
940: COMMIT;
941:
934: AND '||x_where_cc||'
935: AND pdr.event_id IS NULL ';
936:
937: DBMS_SQL.PARSE (loss_cur1, loss_stmt1, DBMS_SQL.NATIVE);
938: fdbk := DBMS_SQL.EXECUTE (loss_cur1);
939: DBMS_SQL.CLOSE_CURSOR (loss_cur1);
940: COMMIT;
941:
942:
935: AND pdr.event_id IS NULL ';
936:
937: DBMS_SQL.PARSE (loss_cur1, loss_stmt1, DBMS_SQL.NATIVE);
938: fdbk := DBMS_SQL.EXECUTE (loss_cur1);
939: DBMS_SQL.CLOSE_CURSOR (loss_cur1);
940: COMMIT;
941:
942:
943: /*