[Home] [Help]
148: l_defined_balance_id pay_defined_balances.defined_balance_id%type;
149: --
150: begin
151: --
152: hr_utility.set_location('pay_archive.bal_db_item - opening cursor', 1);
153: open csr_defined_balance;
154: fetch csr_defined_balance into l_defined_balance_id;
155: if csr_defined_balance%notfound then
156: close csr_defined_balance;
153: open csr_defined_balance;
154: fetch csr_defined_balance into l_defined_balance_id;
155: if csr_defined_balance%notfound then
156: close csr_defined_balance;
157: raise hr_utility.hr_error;
158: else
159: hr_utility.set_location('pay_archive.bal_db_item - fetched from cursor', 2);
160: close csr_defined_balance;
161: end if;
155: if csr_defined_balance%notfound then
156: close csr_defined_balance;
157: raise hr_utility.hr_error;
158: else
159: hr_utility.set_location('pay_archive.bal_db_item - fetched from cursor', 2);
160: close csr_defined_balance;
161: end if;
162: --
163: return (l_defined_balance_id);
184: exception
185: when no_data_found then
186: return(0);
187: when others then
188: hr_utility.trace('Error while getting the jursd. value ' ||
189: to_char(sqlcode));
190:
191: end get_jursd_level;
192:
201: procedure set_dbi_level (p_dbi_name in varchar2,
202: p_jur_level in varchar2) is
203:
204: begin
205: hr_utility.set_location('set_dbi_level',1);
206: for i IN 1..l_assignment_dbis.sz LOOP
207: if l_assignment_dbis.item_name(i) = p_dbi_name then
208: l_assignment_dbis.jur_level(i) := p_jur_level;
209: hr_utility.set_location('set_dbi_level',21);
205: hr_utility.set_location('set_dbi_level',1);
206: for i IN 1..l_assignment_dbis.sz LOOP
207: if l_assignment_dbis.item_name(i) = p_dbi_name then
208: l_assignment_dbis.jur_level(i) := p_jur_level;
209: hr_utility.set_location('set_dbi_level',21);
210: hr_utility.trace('Jurisdiction level for '||p_dbi_name||' set to '||p_jur_level);
211: exit;
212: end if;
213: end loop;
206: for i IN 1..l_assignment_dbis.sz LOOP
207: if l_assignment_dbis.item_name(i) = p_dbi_name then
208: l_assignment_dbis.jur_level(i) := p_jur_level;
209: hr_utility.set_location('set_dbi_level',21);
210: hr_utility.trace('Jurisdiction level for '||p_dbi_name||' set to '||p_jur_level);
211: exit;
212: end if;
213: end loop;
214: --
259: name VARCHAR2(240);
260: flag VARCHAR2(1);
261: --
262: BEGIN
263: hr_utility.set_location ('arch_db_items_loop',1);
264: --
265: -- Loop through database items
266: FOR db_items_row IN db_items_csr (l_report_format) LOOP
267: --
264: --
265: -- Loop through database items
266: FOR db_items_row IN db_items_csr (l_report_format) LOOP
267: --
268: hr_utility.set_location ('arch_db_items_loop',11);
269: --
270: -- Ignore any database item found without a A_ prefix
271: ----------------------------------------------------------------------
272: IF substr(db_items_row.item_name,1,2) <> 'A_' THEN
269: --
270: -- Ignore any database item found without a A_ prefix
271: ----------------------------------------------------------------------
272: IF substr(db_items_row.item_name,1,2) <> 'A_' THEN
273: hr_utility.trace ('** Ignoring DB Item without A_ prefix: ' ||
274: db_items_row.item_name || ' **');
275: ELSE
276: hr_utility.set_location ('arch_db_items_loop',111);
277: -- get original database item name to run.
272: IF substr(db_items_row.item_name,1,2) <> 'A_' THEN
273: hr_utility.trace ('** Ignoring DB Item without A_ prefix: ' ||
274: db_items_row.item_name || ' **');
275: ELSE
276: hr_utility.set_location ('arch_db_items_loop',111);
277: -- get original database item name to run.
278: name := substr (db_items_row.item_name,3,
279: length(db_items_row.item_name)-2);
280: hr_utility.trace ('** Found '|| db_items_row.item_name ||' **');
276: hr_utility.set_location ('arch_db_items_loop',111);
277: -- get original database item name to run.
278: name := substr (db_items_row.item_name,3,
279: length(db_items_row.item_name)-2);
280: hr_utility.trace ('** Found '|| db_items_row.item_name ||' **');
281: hr_utility.set_location ('arch_db_items_loop',112);
282: --
283: -- Get archive entity id and data type
284: SELECT dbi.user_entity_id, dbi.data_type
277: -- get original database item name to run.
278: name := substr (db_items_row.item_name,3,
279: length(db_items_row.item_name)-2);
280: hr_utility.trace ('** Found '|| db_items_row.item_name ||' **');
281: hr_utility.set_location ('arch_db_items_loop',112);
282: --
283: -- Get archive entity id and data type
284: SELECT dbi.user_entity_id, dbi.data_type
285: INTO a_user_entity_id, a_data_type
311: )
312: )
313: OR ue.business_group_id + 0 = l_business_group_id
314: );
315: hr_utility.set_location ('arch_db_items_loop',1121);
316: --------------------------------------------------------------------
317: -- Get live entity id to get the contexts
318: --
319: SELECT dbi.user_entity_id,ue.creator_type,ue.route_id
362: END IF;
363: END LOOP;
364: END IF;
365: --
366: hr_utility.set_location ('arch_db_items_loop',113);
367: -----------------------------------------------------------------
368: -- Store archive data in plsql tables
369: -----------------------------------------------------------------
370: IF flag = 'B' THEN
367: -----------------------------------------------------------------
368: -- Store archive data in plsql tables
369: -----------------------------------------------------------------
370: IF flag = 'B' THEN
371: hr_utility.set_location ('arch_db_items_loop',1131);
372: --
373: l_balance_dbis.sz := l_balance_dbis.sz + 1;
374: l_balance_dbis.item_name(l_balance_dbis.sz) := name;
375: l_balance_dbis.user_entity_id(l_balance_dbis.sz)
400: := l_contexts_dbi.sz;
401: end loop;
402: --
403: ELSIF flag = 'A' THEN
404: hr_utility.set_location ('arch_db_items_loop',1132);
405: --
406: l_assignment_dbis.sz := l_assignment_dbis.sz + 1;
407: l_assignment_dbis.item_name(l_assignment_dbis.sz) := name;
408: l_assignment_dbis.user_entity_id(l_assignment_dbis.sz)
429: END IF;
430: --
431: END IF;
432: --
433: hr_utility.set_location ('arch_db_items_loop',12);
434: --
435: END LOOP; -- go back for next dbi
436: --
437: hr_utility.set_location ('arch_db_items_loop',2);
433: hr_utility.set_location ('arch_db_items_loop',12);
434: --
435: END LOOP; -- go back for next dbi
436: --
437: hr_utility.set_location ('arch_db_items_loop',2);
438: END arch_db_items_loop;
439: --
440: -----------------------------------------------------------------------
441: -- ARCH_INITIALISE
445: --======================================================================
446: PROCEDURE arch_initialise (p_payroll_action_id in NUMBER)
447: IS
448: BEGIN
449: hr_utility.set_location ('arch_initialise',1);
450: -----------------------------------------------------------------------
451: -- Initialise table sizes
452: -----------------------------------------------------------------------
453: l_balance_dbis.sz := 0;
454: l_assignment_dbis.sz := 0;
455: l_contexts_dbi.sz := 0;
456: g_context_values.sz := 0;
457: --
458: hr_utility.set_location ('arch_initialise',2);
459: l_payroll_action_id := p_payroll_action_id;
460: -----------------------------------------------------------------------
461: SELECT pa.business_group_id,
462: bg.legislation_code,
473: WHERE pa.payroll_action_id = l_payroll_action_id AND
474: pa.business_group_id = bg.business_group_id;
475: --
476: g_leg_code := l_legislation_code;
477: hr_utility.set_location ('arch_initialise',3);
478: ---------------------------------------------------------------------
479: -- Get format for report type and state specified.
480: SELECT prfm.report_format, pac.report_type
481: INTO l_report_format, l_report_type
486: AND prfm.report_category = pac.report_category
487: AND pac.payroll_action_id = l_payroll_action_id
488: AND pac.effective_date BETWEEN effective_start_date AND
489: effective_end_date;
490: hr_utility.set_location ('arch_initialise',5);
491:
492: -- Create dynsql to invoke legislative hook
493: declare
494: sql_cur number;
516: */
517: if(init_proc is null) then
518: process_archive := FALSE;
519: /*
520: hr_utility.set_message(801,
521: 'PAY_34956_ARCINIT_MUST_EXIST');
522: hr_utility.raise_error;
523: */
524: else
518: process_archive := FALSE;
519: /*
520: hr_utility.set_message(801,
521: 'PAY_34956_ARCINIT_MUST_EXIST');
522: hr_utility.raise_error;
523: */
524: else
525: process_archive := TRUE;
526: end if;
529: if (process_archive = TRUE) then
530: --
531: statem := 'BEGIN '||init_proc||'(:pactid); END;';
532: --
533: hr_utility.set_location ('arch_initialise',6);
534: hr_utility.trace(statem);
535:
536: sql_cur := dbms_sql.open_cursor;
537: dbms_sql.parse(sql_cur,
530: --
531: statem := 'BEGIN '||init_proc||'(:pactid); END;';
532: --
533: hr_utility.set_location ('arch_initialise',6);
534: hr_utility.trace(statem);
535:
536: sql_cur := dbms_sql.open_cursor;
537: dbms_sql.parse(sql_cur,
538: statem,
541: dbms_sql.bind_variable(sql_cur, ':pactid', pactid);
542: ignore := dbms_sql.execute(sql_cur);
543: dbms_sql.close_cursor(sql_cur);
544: --
545: hr_utility.set_location('arch_initialise', 7);
546: --
547: end if;
548: --
549: exception
558: -- blocks and headers.
559: -- This will also instantiate all plsql tables with db items.
560: --
561: if (process_archive = TRUE) then
562: hr_utility.set_location('arch_initialise', 8);
563: arch_db_items_loop(l_effective_date);
564: end if;
565: --
566: end arch_initialise;
574: --======================================================================
575: PROCEDURE deinitialise (p_payroll_action_id in NUMBER)
576: IS
577: BEGIN
578: hr_utility.set_location ('deinitialise',1);
579: --
580: l_payroll_action_id := p_payroll_action_id;
581: --
582: hr_utility.set_location ('deinitialise',3);
578: hr_utility.set_location ('deinitialise',1);
579: --
580: l_payroll_action_id := p_payroll_action_id;
581: --
582: hr_utility.set_location ('deinitialise',3);
583: ---------------------------------------------------------------------
584: -- Create dynsql to invoke legislative hook
585: declare
586: sql_cur number;
604: if(deinit_proc is not null) then
605: --
606: statem := 'BEGIN '||deinit_proc||'(:pactid); END;';
607: --
608: hr_utility.set_location ('deinitialise',6);
609: hr_utility.trace(statem);
610:
611: sql_cur := dbms_sql.open_cursor;
612: dbms_sql.parse(sql_cur,
605: --
606: statem := 'BEGIN '||deinit_proc||'(:pactid); END;';
607: --
608: hr_utility.set_location ('deinitialise',6);
609: hr_utility.trace(statem);
610:
611: sql_cur := dbms_sql.open_cursor;
612: dbms_sql.parse(sql_cur,
613: statem,
616: dbms_sql.bind_variable(sql_cur, ':pactid', pactid);
617: ignore := dbms_sql.execute(sql_cur);
618: dbms_sql.close_cursor(sql_cur);
619: --
620: hr_utility.set_location('deinitialise', 7);
621: --
622: end if;
623: --
624: exception
640: p_context1 in ff_archive_items.context1%TYPE,
641: p_value in ff_archive_items.value%TYPE
642: ) IS
643: begin
644: hr_utility.set_location ('arch_store',121);
645: --
646: INSERT INTO ff_archive_items
647: ( ARCHIVE_ITEM_ID, USER_ENTITY_ID, CONTEXT1, VALUE)
648: VALUES
647: ( ARCHIVE_ITEM_ID, USER_ENTITY_ID, CONTEXT1, VALUE)
648: VALUES
649: ( ff_archive_items_s.nextval,p_user_entity_id,p_context1,p_value);
650: --
651: hr_utility.set_location ('arch_store',122);
652: END arch_store;
653: ------------------------------------------------------------------------
654: --
655: -- PROCEDURE ARCHIVE_DBI
668: v_context_id ff_contexts.context_id%TYPE;
669: result ff_archive_items.value%TYPE;
670: begin
671: --
672: hr_utility.set_location ('archive_dbi',1);
673: --
674: balance_ptr:=p_balance_ptr;
675: context_ptr:=p_context_ptr;
676: --
673: --
674: balance_ptr:=p_balance_ptr;
675: context_ptr:=p_context_ptr;
676: --
677: hr_utility.set_location ('archive_dbi',2);
678: --
679: -- for the context specified (Jur Code, Tax Unit etc) go get all the
680: -- different values.
681: FOR context_val_loop IN 1..NVL(g_context_values.sz,0) LOOP
678: --
679: -- for the context specified (Jur Code, Tax Unit etc) go get all the
680: -- different values.
681: FOR context_val_loop IN 1..NVL(g_context_values.sz,0) LOOP
682: hr_utility.set_location ('archive_dbi',3);
683: --
684: if g_context_values.name(context_val_loop) = l_contexts_dbi.name(context_ptr) then
685: --
686: hr_utility.set_location ('archive_dbi',41);
682: hr_utility.set_location ('archive_dbi',3);
683: --
684: if g_context_values.name(context_val_loop) = l_contexts_dbi.name(context_ptr) then
685: --
686: hr_utility.set_location ('archive_dbi',41);
687: --
688: non_unique_con := FALSE;
689: if g_context_values.name(context_val_loop) = 'JURISDICTION_CODE'
690: and l_jur_set.last is not null then
688: non_unique_con := FALSE;
689: if g_context_values.name(context_val_loop) = 'JURISDICTION_CODE'
690: and l_jur_set.last is not null then
691: --
692: hr_utility.set_location ('archive_dbi',5);
693: --
694: non_unique_con := FALSE;
695: l_level :=NVL(l_balance_dbis.jur_level(balance_ptr),0);
696: --
750:
751: if g_context_values.name(context_val_loop) ='JURISDICTION_CODE'
752: and non_unique_con = TRUE then
753: --
754: hr_utility.set_location ('archive_dbi',61);
755: null;
756: else
757: hr_utility.set_location ('archive_dbi',62);
758: --
753: --
754: hr_utility.set_location ('archive_dbi',61);
755: null;
756: else
757: hr_utility.set_location ('archive_dbi',62);
758: --
759: -- OK, the context names match, Set the context.
760: --
761: Pay_balance_pkg.set_context (
761: Pay_balance_pkg.set_context (
762: g_context_values.name(context_val_loop),
763: g_context_values.value(context_val_loop)
764: );
765: hr_utility.set_location ('archive_dbi',63);
766: hr_utility.trace(
767: 'Set '||l_contexts_dbi.name(context_ptr)|| ' to '
768: ||g_context_values.value(context_val_loop)
769: );
762: g_context_values.name(context_val_loop),
763: g_context_values.value(context_val_loop)
764: );
765: hr_utility.set_location ('archive_dbi',63);
766: hr_utility.trace(
767: 'Set '||l_contexts_dbi.name(context_ptr)|| ' to '
768: ||g_context_values.value(context_val_loop)
769: );
770: --
772: --
773: if l_balance_dbis.context_end(balance_ptr) = context_ptr then
774: --
775: -- Yes, All contexts are set go get it
776: hr_utility.set_location ('archive_dbi',71);
777: -- run user exit to get balance value for
778: -- assignment action
779: result := pay_balance_pkg.get_value(
780: l_balance_dbis.balance_id(balance_ptr),
780: l_balance_dbis.balance_id(balance_ptr),
781: balance_aa
782: );
783: --
784: hr_utility.trace ('** Balance Loop ** '||
785: l_balance_dbis.item_name(balance_ptr) ||
786: ' = ' || result);
787: --
788: -- Archive balance item
791: p_assactid,
792: result
793: );
794: --
795: hr_utility.set_location ('archive_dbi',72);
796: --
797: --loop through the contexts for this dbi
798: --
799: for i in l_balance_dbis.context_start(balance_ptr)..
798: --
799: for i in l_balance_dbis.context_start(balance_ptr)..
800: l_balance_dbis.context_end(balance_ptr) LOOP
801: --
802: hr_utility.set_location ('archive_dbi',81);
803: if l_contexts_dbi.name(i) = 'ASSIGNMENT_ACTION_ID' then
804: hr_utility.set_location ('archive_dbi',91);
805: null; -- dont store ass_action_id in context table
806: else
800: l_balance_dbis.context_end(balance_ptr) LOOP
801: --
802: hr_utility.set_location ('archive_dbi',81);
803: if l_contexts_dbi.name(i) = 'ASSIGNMENT_ACTION_ID' then
804: hr_utility.set_location ('archive_dbi',91);
805: null; -- dont store ass_action_id in context table
806: else
807: hr_utility.set_location ('archive_dbi',92);
808: v_context_value
803: if l_contexts_dbi.name(i) = 'ASSIGNMENT_ACTION_ID' then
804: hr_utility.set_location ('archive_dbi',91);
805: null; -- dont store ass_action_id in context table
806: else
807: hr_utility.set_location ('archive_dbi',92);
808: v_context_value
809: := pay_balance_pkg.get_context(l_contexts_dbi.name(i));
810: --
811: select context_id into v_context_id
819: (ff_archive_items_s.currval,
820: 1,v_context_value,v_context_id);
821: -- if were setting the jur code add to l_jur_set table
822: if l_contexts_dbi.name(i) = 'JURISDICTION_CODE' then
823: hr_utility.set_location ('archive_dbi',811);
824: l_jur_set(NVL(l_jur_set.last+1,1)):= v_context_value;
825: end if;
826: end if;
827: hr_utility.set_location ('archive_dbi',82);
823: hr_utility.set_location ('archive_dbi',811);
824: l_jur_set(NVL(l_jur_set.last+1,1)):= v_context_value;
825: end if;
826: end if;
827: hr_utility.set_location ('archive_dbi',82);
828: end loop;
829: hr_utility.set_location ('archive_dbi',73);
830: else
831: hr_utility.set_location ('archive_dbi',64);
825: end if;
826: end if;
827: hr_utility.set_location ('archive_dbi',82);
828: end loop;
829: hr_utility.set_location ('archive_dbi',73);
830: else
831: hr_utility.set_location ('archive_dbi',64);
832: --
833: -- No, settup the next context required.
827: hr_utility.set_location ('archive_dbi',82);
828: end loop;
829: hr_utility.set_location ('archive_dbi',73);
830: else
831: hr_utility.set_location ('archive_dbi',64);
832: --
833: -- No, settup the next context required.
834: --
835: archive_dbi(balance_ptr, context_ptr + 1,p_assactid);
833: -- No, settup the next context required.
834: --
835: archive_dbi(balance_ptr, context_ptr + 1,p_assactid);
836: end if;
837: hr_utility.set_location ('archive_dbi',65);
838: end if;
839: hr_utility.set_location ('archive_dbi',42);
840: end if;
841: --
835: archive_dbi(balance_ptr, context_ptr + 1,p_assactid);
836: end if;
837: hr_utility.set_location ('archive_dbi',65);
838: end if;
839: hr_utility.set_location ('archive_dbi',42);
840: end if;
841: --
842: hr_utility.set_location ('archive_dbi',32);
843: --
838: end if;
839: hr_utility.set_location ('archive_dbi',42);
840: end if;
841: --
842: hr_utility.set_location ('archive_dbi',32);
843: --
844: end loop;
845: --
846: hr_utility.set_location ('archive_dbi',10);
842: hr_utility.set_location ('archive_dbi',32);
843: --
844: end loop;
845: --
846: hr_utility.set_location ('archive_dbi',10);
847: --
848: -- If context_name is JURISDICTION_CODE then clear down the l_jur_set table in prep for
849: -- the next iteration
850: if l_contexts_dbi.name(context_ptr) = 'JURISDICTION_CODE' then
877: result ff_archive_items.value%TYPE;
878: --
879: begin
880: --
881: hr_utility.set_location ('archive_ass',1);
882: --
883: ass_ptr:=p_ass_ptr;
884: context_ptr:=p_context_ptr;
885: --
882: --
883: ass_ptr:=p_ass_ptr;
884: context_ptr:=p_context_ptr;
885: --
886: hr_utility.set_location ('archive_ass',2);
887: --
888: -- for the context specified (Tax Unit etc) go get all the
889: -- different values.
890: FOR context_val_loop IN 1..NVL(g_context_values.sz,0) LOOP
887: --
888: -- for the context specified (Tax Unit etc) go get all the
889: -- different values.
890: FOR context_val_loop IN 1..NVL(g_context_values.sz,0) LOOP
891: hr_utility.set_location ('archive_ass',3);
892: if g_context_values.name(context_val_loop)
893: =l_contexts_dbi.name(context_ptr) then
894: non_unique_con :=FALSE;
895: hr_utility.set_location ('archive_ass',41);
891: hr_utility.set_location ('archive_ass',3);
892: if g_context_values.name(context_val_loop)
893: =l_contexts_dbi.name(context_ptr) then
894: non_unique_con :=FALSE;
895: hr_utility.set_location ('archive_ass',41);
896: if g_context_values.name(context_val_loop) = 'JURISDICTION_CODE' and l_jur_set.last is not null then
897: hr_utility.set_location('archive_dbi',5);
898: non_unique_con := FALSE;
899: l_level := NVL(l_assignment_dbis.jur_level(ass_ptr),0);
893: =l_contexts_dbi.name(context_ptr) then
894: non_unique_con :=FALSE;
895: hr_utility.set_location ('archive_ass',41);
896: if g_context_values.name(context_val_loop) = 'JURISDICTION_CODE' and l_jur_set.last is not null then
897: hr_utility.set_location('archive_dbi',5);
898: non_unique_con := FALSE;
899: l_level := NVL(l_assignment_dbis.jur_level(ass_ptr),0);
900: FOR i IN 1..l_jur_set.last LOOP
901: if substr(l_jur_set(i),1,l_level) = substr(g_context_values.value(context_val_loop),1,l_level) then
950: end if; /* non_unique_con = False */
951:
952: if g_context_values.name(context_val_loop) ='JURISDICTION_CODE' and non_unique_con=TRUE
953: then
954: hr_utility.set_location('archive_ass',61);
955: null;
956: else
957: hr_utility.set_location ('archive_ass',62);
958: --
953: then
954: hr_utility.set_location('archive_ass',61);
955: null;
956: else
957: hr_utility.set_location ('archive_ass',62);
958: --
959: -- OK, the context names match, Set the context.
960: --
961: Pay_balance_pkg.set_context (
961: Pay_balance_pkg.set_context (
962: g_context_values.name(context_val_loop),
963: g_context_values.value(context_val_loop)
964: );
965: hr_utility.set_location ('archive_ass',63);
966: --
967: -- Are all the contexts set for this DBI set?
968: --
969: if l_assignment_dbis.context_end(ass_ptr) = context_ptr then
968: --
969: if l_assignment_dbis.context_end(ass_ptr) = context_ptr then
970: --
971: -- Yes, All contexts are set go get it
972: hr_utility.set_location ('archive_ass',71);
973: -- run user exit to get balance value for assignment action
974: result := pay_balance_pkg.run_db_item(
975: l_assignment_dbis.item_name(ass_ptr),
976: l_business_group_id,
975: l_assignment_dbis.item_name(ass_ptr),
976: l_business_group_id,
977: l_legislation_code
978: );
979: hr_utility.trace (
980: '** Assignment Loop ** '
981: || l_assignment_dbis.item_name(ass_ptr) ||
982: ' = ' || result
983: );
986: arch_store ('A_' || l_assignment_dbis.item_name(ass_ptr),
987: l_assignment_dbis.user_entity_id(ass_ptr),
988: p_assactid,
989: result );
990: hr_utility.set_location ('archive_ass',72);
991: --
992: --loop through the contexts for this dbi
993: --
994: for i in l_assignment_dbis.context_start(ass_ptr)..
992: --loop through the contexts for this dbi
993: --
994: for i in l_assignment_dbis.context_start(ass_ptr)..
995: l_assignment_dbis.context_end(ass_ptr) LOOP
996: hr_utility.set_location ('archive_ass',81);
997: if l_contexts_dbi.name(i)='ASSIGNMENT_ACTION_ID' then
998: hr_utility.set_location ('archive_ass',91);
999: null; -- dont store ass_action_id in context table
1000: else
994: for i in l_assignment_dbis.context_start(ass_ptr)..
995: l_assignment_dbis.context_end(ass_ptr) LOOP
996: hr_utility.set_location ('archive_ass',81);
997: if l_contexts_dbi.name(i)='ASSIGNMENT_ACTION_ID' then
998: hr_utility.set_location ('archive_ass',91);
999: null; -- dont store ass_action_id in context table
1000: else
1001: hr_utility.set_location ('archive_ass',92);
1002: --
997: if l_contexts_dbi.name(i)='ASSIGNMENT_ACTION_ID' then
998: hr_utility.set_location ('archive_ass',91);
999: null; -- dont store ass_action_id in context table
1000: else
1001: hr_utility.set_location ('archive_ass',92);
1002: --
1003: v_context_value:=
1004: pay_balance_pkg.get_context(l_contexts_dbi.name(i));
1005: --
1019: l_jur1_set(NVL(l_jur1_set.last+1,1)) := v_context_value;
1020: end if;
1021: --
1022: end if;
1023: hr_utility.set_location ('archive_ass',82);
1024: end loop;
1025: hr_utility.set_location ('archive_ass',73);
1026: --
1027: else
1021: --
1022: end if;
1023: hr_utility.set_location ('archive_ass',82);
1024: end loop;
1025: hr_utility.set_location ('archive_ass',73);
1026: --
1027: else
1028: hr_utility.set_location ('archive_ass',64);
1029: --
1024: end loop;
1025: hr_utility.set_location ('archive_ass',73);
1026: --
1027: else
1028: hr_utility.set_location ('archive_ass',64);
1029: --
1030: -- No, settup the next context required.
1031: --
1032: archive_ass(ass_ptr, context_ptr + 1,p_assactid);
1030: -- No, settup the next context required.
1031: --
1032: archive_ass(ass_ptr, context_ptr + 1,p_assactid);
1033: end if;
1034: hr_utility.set_location ('archive_ass',65);
1035: end if;
1036: hr_utility.set_location ('archive_ass',42);
1037: end if;
1038: --
1032: archive_ass(ass_ptr, context_ptr + 1,p_assactid);
1033: end if;
1034: hr_utility.set_location ('archive_ass',65);
1035: end if;
1036: hr_utility.set_location ('archive_ass',42);
1037: end if;
1038: --
1039: hr_utility.set_location ('archive_ass',32);
1040: --
1035: end if;
1036: hr_utility.set_location ('archive_ass',42);
1037: end if;
1038: --
1039: hr_utility.set_location ('archive_ass',32);
1040: --
1041: end loop;
1042: --
1043: hr_utility.set_location ('archive_ass',10);
1039: hr_utility.set_location ('archive_ass',32);
1040: --
1041: end loop;
1042: --
1043: hr_utility.set_location ('archive_ass',10);
1044: --
1045: --
1046: -- If context_name is JURISDICTION_CODE then clear down the l_jur_set table in prep for
1047: -- the next iteration
1063: --==================================================================
1064: PROCEDURE process_chunk(p_payroll_action_id in number,
1065: p_chunk_number in number) IS
1066: BEGIN
1067: hr_utility.set_location ('process_chunk',1);
1068: --
1069: --
1070: -- Call legislative hook to setup up employee contexts
1071: -- Create dynsql to invoke legislative hook
1095: else
1096: begin
1097: statem := 'BEGIN '||archiv_proc||'(:pactid, :chunk_number); END;';
1098: --
1099: hr_utility.trace(statem);
1100: hr_utility.set_location ('process_chunk',2);
1101: sql_cur := dbms_sql.open_cursor;
1102: dbms_sql.parse(sql_cur,
1103: statem,
1096: begin
1097: statem := 'BEGIN '||archiv_proc||'(:pactid, :chunk_number); END;';
1098: --
1099: hr_utility.trace(statem);
1100: hr_utility.set_location ('process_chunk',2);
1101: sql_cur := dbms_sql.open_cursor;
1102: dbms_sql.parse(sql_cur,
1103: statem,
1104: dbms_sql.v7);
1107: p_chunk_number);
1108: ignore := dbms_sql.execute(sql_cur);
1109: dbms_sql.close_cursor(sql_cur);
1110: --
1111: hr_utility.set_location ('process_chunk',3);
1112: --
1113: exception
1114: when others then
1115: if (dbms_sql.is_open(sql_cur)) then
1136: i INTEGER;
1137: pactid NUMBER;
1138: l_flag BOOLEAN;
1139: BEGIN
1140: hr_utility.set_location ('process_employee',1);
1141: --
1142: --
1143: aactid := p_assact_id;
1144: --
1176: -- if the archive code does not exist don't do any archiving
1177: if(archiv_proc is null) then
1178: process_archive := FALSE;
1179: /*
1180: hr_utility.set_message(801, 'PAY_34957_ARCPROC_MUST_EXIST');
1181: hr_utility.raise_error;
1182: */
1183: else
1184: --
1177: if(archiv_proc is null) then
1178: process_archive := FALSE;
1179: /*
1180: hr_utility.set_message(801, 'PAY_34957_ARCPROC_MUST_EXIST');
1181: hr_utility.raise_error;
1182: */
1183: else
1184: --
1185: begin
1184: --
1185: begin
1186: statem := 'BEGIN '||archiv_proc||'(:aactid, :l_effective_date); END;';
1187: --
1188: hr_utility.trace(statem);
1189: hr_utility.set_location ('process_employee',2);
1190: sql_cur := dbms_sql.open_cursor;
1191: dbms_sql.parse(sql_cur,
1192: statem,
1185: begin
1186: statem := 'BEGIN '||archiv_proc||'(:aactid, :l_effective_date); END;';
1187: --
1188: hr_utility.trace(statem);
1189: hr_utility.set_location ('process_employee',2);
1190: sql_cur := dbms_sql.open_cursor;
1191: dbms_sql.parse(sql_cur,
1192: statem,
1193: dbms_sql.v7);
1196: l_effective_date);
1197: ignore := dbms_sql.execute(sql_cur);
1198: dbms_sql.close_cursor(sql_cur);
1199: --
1200: hr_utility.set_location ('process_employee',3);
1201: --
1202: exception
1203: when others then
1204: if (dbms_sql.is_open(sql_cur)) then
1239: ---------------------------------------------------------------------
1240: -- Balance Loop
1241: ---------------------------------------------------------------------
1242: FOR i IN 1..l_balance_dbis.sz LOOP
1243: hr_utility.set_location ('process_employee',4);
1244: --
1245: archive_dbi(i,l_balance_dbis.context_start(i),p_assact_id);
1246: --
1247: hr_utility.set_location ('process_employee',5);
1243: hr_utility.set_location ('process_employee',4);
1244: --
1245: archive_dbi(i,l_balance_dbis.context_start(i),p_assact_id);
1246: --
1247: hr_utility.set_location ('process_employee',5);
1248: --
1249: END LOOP;
1250: ---------------------------------------------------------------------
1251: -- Assignment Loop
1250: ---------------------------------------------------------------------
1251: -- Assignment Loop
1252: ---------------------------------------------------------------------
1253: FOR i IN 1..l_assignment_dbis.sz LOOP
1254: hr_utility.set_location ('process_employee',6);
1255: --
1256: archive_ass(i,l_assignment_dbis.context_start(i),p_assact_id);
1257: --
1258: hr_utility.set_location ('process_employee',7);
1254: hr_utility.set_location ('process_employee',6);
1255: --
1256: archive_ass(i,l_assignment_dbis.context_start(i),p_assact_id);
1257: --
1258: hr_utility.set_location ('process_employee',7);
1259: END LOOP;
1260: ---------------------------------------------------------------------
1261: hr_utility.set_location ('process_employee',8);
1262: ---------------------------------------------------------------------
1257: --
1258: hr_utility.set_location ('process_employee',7);
1259: END LOOP;
1260: ---------------------------------------------------------------------
1261: hr_utility.set_location ('process_employee',8);
1262: ---------------------------------------------------------------------
1263: --
1264: end if;
1265: --