174: --
175: -- 31-JUL-03 jwhite For patchset 'L' Reburdening Enhancement, added this
176: -- IN-parm to the accum_cdls procedure:
177: -- x_cdl_line_type VARCHAR2
178: -- Also, added FND_PROFILE.value call to Initialization
179: -- procedure for conditional processing:
180: -- Pa_Proj_Accum_Main.G_PA_Enhanced_Burdening
181: --
182: -- 01-JUL-04 sacgupta Added call to new procedure get_pa_period_info1
186:
187: PROCEDURE initialize
188:
189: IS
190: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N'); /* Added Debug Profile Option variable initialization for bug#2674619 */
191:
192: BEGIN
193:
194: x_old_stack := x_err_stack;
205: Pa_Debug.debug(x_err_stack);
206: END IF;
207:
208: --- Getting the commit size--------------
209: IF Fnd_Profile.value('PA_NUM_EXP_ITEMS_PER_SET') IS NOT NULL THEN
210: Pa_Proj_Accum_Main.x_commit_size := Fnd_Profile.value('PA_NUM_EXP_ITEMS_PER_SET');
211: ELSE
212: Pa_Proj_Accum_Main.x_commit_size := 500;
213: END IF;
206: END IF;
207:
208: --- Getting the commit size--------------
209: IF Fnd_Profile.value('PA_NUM_EXP_ITEMS_PER_SET') IS NOT NULL THEN
210: Pa_Proj_Accum_Main.x_commit_size := Fnd_Profile.value('PA_NUM_EXP_ITEMS_PER_SET');
211: ELSE
212: Pa_Proj_Accum_Main.x_commit_size := 500;
213: END IF;
214:
305: -- This profile is used to conditionally execute the accum_clds procedure
306: -- for incremental burden rows.
307:
308:
309: --Pa_Proj_Accum_Main.G_PA_Enhanced_Burdening := NVL(FND_PROFILE.value('PA_ENHANCED_BURDENING'), 'N');
310: Pa_Proj_Accum_Main.G_PA_Enhanced_Burdening := pa_utils2.IsEnhancedBurdeningEnabled; /*4278940 */
311:
312: IF ( P_DEBUG_MODE = 'Y' )
313: THEN
334:
335: PROCEDURE initialize_project (x_project_id IN NUMBER,
336: x_accum_period_type_changed OUT NOCOPY BOOLEAN) --File.Sql.39 bug 4440895
337: IS
338: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N'); /* Added Debug Profile Option variable initialization for bug#2674619 */
339: l_accum_period_type_changed BOOLEAN;
340:
341:
342: BEGIN
499: x_err_stack IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
500: x_err_stage IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
501: x_err_code IN OUT NOCOPY NUMBER) --File.Sql.39 bug 4440895
502: IS
503: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N'); /* Added Debug Profile Option variable initialization for bug#2674619 */
504:
505: BEGIN
506:
507: x_old_stack := x_err_stack;
608: x_ret_flag VARCHAR2(1) := 'N' ;
609: l_prev_accum_period VARCHAR2(20) ;
610: l_prev_accum_end_date DATE ;
611: l_prev_year NUMBER ;
612: l_prev_projects varchar2(1) := NVL(FND_PROFILE.value('PA_PREVIOUS_PROJECTS'), 'N');
613:
614: BEGIN
615:
616: SELECT DISTINCT accum_period
792: )
793: IS
794:
795: /* Added Debug Profile Option variable initialization for bug#2674619 */
796: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
797:
798:
799:
800: x_log_summ_mode VARCHAR2(1) := 'N';
982: x_err_code := 0;
983:
984: x_summ_process := 'UP';
985: x_err_stage := 'Project Accumulation Process';
986: x_log_summ_mode := Fnd_Profile.value('PA_LOG_SUMM_MODE');
987:
988: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
989: Pa_Debug.debug('proj_accum: ' || x_err_stack);
990: END IF;
2105: IS
2106:
2107: /* Added Debug Profile Option variable initialization for bug#2674619 */
2108:
2109: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
2110: l_client_extn_mode varchar2(1); --14090312
2111:
2112:
2113: l_accum_period_type_changed BOOLEAN;
2184: x_err_code := 0;
2185:
2186: x_summ_process := 'RF';
2187: x_err_stage := 'Project refresh Process';
2188: x_log_summ_mode := Fnd_Profile.value('PA_LOG_SUMM_MODE');
2189: delete from PA_PROJ_REFRESH_TMP; --14090312
2190: IF (x_end_date_through IS NULL OR x_end_date_through >= x_current_pa_end_date) THEN
2191: x_date_through := x_end_pa_date;
2192: ELSE
2820: x_project_num_to IN VARCHAR2,
2821: x_resource_list_id IN NUMBER
2822: )
2823: IS
2824: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N'); /* Added Debug Profile Option variable initialization for bug#2674619 */
2825: l_accum_period_type_changed BOOLEAN;
2826: l_sum_exception_code pa_project_accum_headers.sum_exception_code%TYPE := NULL;
2827: l_current_start_date DATE := NULL;
2828: l_current_end_date DATE := NULL;
3178: x_end_pa_period IN VARCHAR2,
3179: x_system_linkage_function IN VARCHAR2
3180: )
3181: IS
3182: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N'); /* Added Debug Profile Option variable initialization for bug#2674619 */
3183: l_accum_period_type_changed BOOLEAN;
3184: -- Declare cursor for Projects
3185:
3186: l_project_num_from VARCHAR2(25);
3561:
3562: PROCEDURE lock_proj_level_header_record
3563: (x_project_id IN NUMBER)
3564: IS
3565: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N'); /* Added Debug Profile Option variable initialization for bug#2674619 */
3566: dummy_project_id NUMBER;
3567: BEGIN
3568: x_old_stack := x_err_stack;
3569: x_err_stack :=