[Home] [Help]
37: g_tim_def_prc_name varchar2(70);
38: g_proc_set boolean;
39: --
40: G_DISCO_NONE number := 0;
41: G_DISCO_STANDARD number := 1;
42: G_DISCO_DF number := 2;
43: --
44: /****************************************************************************
45: Name : initialise_global
3203: -- we are looking.
3204: --
3205: if (p_global_env.datetrack_ee_tab_use = FALSE) then
3206: /*
3207: if (p_disco = G_DISCO_STANDARD) then
3208: --
3209: add_found_event (
3210: p_effective_date => p_effective_date,
3211: p_creation_date => p_creation_date,
3361:
3362: --
3363: if (save_event = TRUE) then
3364: /*
3365: if (p_disco = G_DISCO_STANDARD) then
3366: --
3367: add_found_event (
3368: p_effective_date => p_effective_date,
3369: p_creation_date => p_creation_date,
3884: hr_utility.set_location(l_proc, 65);
3885: end if;
3886: --
3887: --Add found API-E to store
3888: p_disco := G_DISCO_STANDARD;
3889:
3890: -- all dbt_df now in extra_tests_dbt_df
3891: -- ELSIF (p_pro_evt_rec.updated_column_name is null
3892: --
3898: -- We have got either a DT-E or DT-F
3899: -- NB. As it is impossible to identify exactly which one
3900: -- it is proposed that it is simply classified as DT-DF
3901: -- Add found DF event to our store
3902: -- p_disco := G_DISCO_STANDARD;
3903:
3904:
3905: END IF;
3906:
3960: p_pro_evt_rec.effective_date ; --:2
3961:
3962: IF ( l_dummy = 1) then
3963: --Add found event to our store
3964: p_disco := G_DISCO_STANDARD;
3965: end if;
3966:
3967: end if; --If not delete type then dont do anything
3968:
4178: -- earliest created ppe row, but sanity check and test for any future purge
4179: -- (Non-dated dated tables we know cant have straight away)
4180: if (p_dtevent_rec.start_date_name is null) then
4181: --g_key_date_cache(l_pos).got_flag := 'Y' ;
4182: p_disco := G_DISCO_STANDARD;
4183: else
4184:
4185: l_statement :=
4186: 'SELECT count(*) FROM '||p_dtevent_rec.table_name||
4196: p_pro_evt_rec.effective_date; --:2
4197: --
4198: IF (l_dummy = 1) THEN
4199: --g_key_date_cache(l_pos).got_flag := 'Y' ;
4200: p_disco := G_DISCO_STANDARD;
4201: end if;
4202: end if;
4203: END IF; --end if else due to non-dated support
4204: if (g_dbg) then
4373: using p_pro_evt_rec.surrogate_key; --:1
4374:
4375: IF (l_dummy = 0 ) THEN
4376: --Got no rows, so delete is part of PURGE
4377: p_disco := G_DISCO_STANDARD;
4378: --g_key_date_cache(l_pos).got_flag := 'Y'; --make sure we dont get this again
4379:
4380: END IF;
4381:
4440: using p_pro_evt_rec.surrogate_key, --:1
4441: p_pro_evt_rec.effective_date; --:2
4442:
4443: IF (l_dummy >= 1) then
4444: p_disco := G_DISCO_STANDARD;
4445: END IF;
4446:
4447: END IF;
4448: if (g_dbg) then
4642: ELSIF (l_search = 'C' and p_mst_pe_rec.event_type = 'U') then
4643: -- Simple test for Database Trigger styled Correction
4644: if (p_mst_pe_rec.updated_column_name = l_look_for_rec.column_name)
4645: then
4646: disco := G_DISCO_STANDARD;
4647: end if;
4648:
4649: ELSIF (l_search = 'C' and
4650: p_mst_pe_rec.event_type not in ('I','U','D')) then
4651: --
4652: -- Simple test for Dynamic Package styled Correction
4653: if (p_mst_pe_rec.updated_column_name = l_look_for_rec.column_name
4654: and p_mst_pe_rec.event_type = hr_api.g_correction) then
4655: disco := G_DISCO_STANDARD;
4656: end if;
4657:
4658: ELSIF (l_search = 'P' and p_mst_pe_rec.event_type = 'D') then
4659: extra_tests_dbt_p(p_mst_pe_rec,l_look_for_rec,disco);
4659: extra_tests_dbt_p(p_mst_pe_rec,l_look_for_rec,disco);
4660: ELSIF (l_search = 'P' and
4661: p_mst_pe_rec.event_type = hr_api.g_zap ) then
4662: -- Simple test already performed for Dynamic Package styled Purge
4663: disco := G_DISCO_STANDARD;
4664:
4665: ELSIF (l_search = 'E' and
4666: p_mst_pe_rec.event_type in ('I','U','D')) then
4667: extra_tests_dbt_u_e(