eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PA_FI_AMT_CALC_PKG dependencies on PA_DEBUG

Line 4: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');

1: PACKAGE BODY Pa_Fi_Amt_Calc_Pkg as
2: /* $Header: PAFICALB.pls 120.5.12010000.3 2009/02/16 10:40:13 amehrotr ship $ */
3:
4: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
5:
6: PROCEDURE Calculate_Fcst_Amounts_Wrap
7: (
8: errbuff OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895

Line 45: IF P_PA_DEBUG_MODE = 'Y' THEN

41: l_current_org_id NUMBER;
42: BEGIN
43:
44: /* Bug fix:4329035 */
45: IF P_PA_DEBUG_MODE = 'Y' THEN
46: PA_DEBUG.Set_Curr_Function( p_function => 'FI Amt Wrap Pkg:',
47: p_debug_mode => p_debug_mode );
48: PA_DEBUG.g_err_stage := 'Parameters :';
49: END IF;

Line 46: PA_DEBUG.Set_Curr_Function( p_function => 'FI Amt Wrap Pkg:',

42: BEGIN
43:
44: /* Bug fix:4329035 */
45: IF P_PA_DEBUG_MODE = 'Y' THEN
46: PA_DEBUG.Set_Curr_Function( p_function => 'FI Amt Wrap Pkg:',
47: p_debug_mode => p_debug_mode );
48: PA_DEBUG.g_err_stage := 'Parameters :';
49: END IF;
50: IF P_PA_DEBUG_MODE = 'Y' THEN

Line 48: PA_DEBUG.g_err_stage := 'Parameters :';

44: /* Bug fix:4329035 */
45: IF P_PA_DEBUG_MODE = 'Y' THEN
46: PA_DEBUG.Set_Curr_Function( p_function => 'FI Amt Wrap Pkg:',
47: p_debug_mode => p_debug_mode );
48: PA_DEBUG.g_err_stage := 'Parameters :';
49: END IF;
50: IF P_PA_DEBUG_MODE = 'Y' THEN
51: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
52: PA_DEBUG.g_err_stage := 'Run Mode :'||p_run_mode;

Line 50: IF P_PA_DEBUG_MODE = 'Y' THEN

46: PA_DEBUG.Set_Curr_Function( p_function => 'FI Amt Wrap Pkg:',
47: p_debug_mode => p_debug_mode );
48: PA_DEBUG.g_err_stage := 'Parameters :';
49: END IF;
50: IF P_PA_DEBUG_MODE = 'Y' THEN
51: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
52: PA_DEBUG.g_err_stage := 'Run Mode :'||p_run_mode;
53: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
54: PA_DEBUG.g_err_stage := 'Select Criteria :'||p_select_criteria;

Line 51: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

47: p_debug_mode => p_debug_mode );
48: PA_DEBUG.g_err_stage := 'Parameters :';
49: END IF;
50: IF P_PA_DEBUG_MODE = 'Y' THEN
51: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
52: PA_DEBUG.g_err_stage := 'Run Mode :'||p_run_mode;
53: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
54: PA_DEBUG.g_err_stage := 'Select Criteria :'||p_select_criteria;
55: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

Line 52: PA_DEBUG.g_err_stage := 'Run Mode :'||p_run_mode;

48: PA_DEBUG.g_err_stage := 'Parameters :';
49: END IF;
50: IF P_PA_DEBUG_MODE = 'Y' THEN
51: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
52: PA_DEBUG.g_err_stage := 'Run Mode :'||p_run_mode;
53: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
54: PA_DEBUG.g_err_stage := 'Select Criteria :'||p_select_criteria;
55: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
56: PA_DEBUG.g_err_stage := 'Project Id :'||NVL(p_project_id,-99);

Line 53: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

49: END IF;
50: IF P_PA_DEBUG_MODE = 'Y' THEN
51: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
52: PA_DEBUG.g_err_stage := 'Run Mode :'||p_run_mode;
53: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
54: PA_DEBUG.g_err_stage := 'Select Criteria :'||p_select_criteria;
55: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
56: PA_DEBUG.g_err_stage := 'Project Id :'||NVL(p_project_id,-99);
57: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

Line 54: PA_DEBUG.g_err_stage := 'Select Criteria :'||p_select_criteria;

50: IF P_PA_DEBUG_MODE = 'Y' THEN
51: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
52: PA_DEBUG.g_err_stage := 'Run Mode :'||p_run_mode;
53: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
54: PA_DEBUG.g_err_stage := 'Select Criteria :'||p_select_criteria;
55: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
56: PA_DEBUG.g_err_stage := 'Project Id :'||NVL(p_project_id,-99);
57: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
58: PA_DEBUG.g_err_stage := 'Assignment Id :'||NVL(p_assignment_id,-99);

Line 55: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

51: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
52: PA_DEBUG.g_err_stage := 'Run Mode :'||p_run_mode;
53: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
54: PA_DEBUG.g_err_stage := 'Select Criteria :'||p_select_criteria;
55: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
56: PA_DEBUG.g_err_stage := 'Project Id :'||NVL(p_project_id,-99);
57: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
58: PA_DEBUG.g_err_stage := 'Assignment Id :'||NVL(p_assignment_id,-99);
59: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

Line 56: PA_DEBUG.g_err_stage := 'Project Id :'||NVL(p_project_id,-99);

52: PA_DEBUG.g_err_stage := 'Run Mode :'||p_run_mode;
53: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
54: PA_DEBUG.g_err_stage := 'Select Criteria :'||p_select_criteria;
55: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
56: PA_DEBUG.g_err_stage := 'Project Id :'||NVL(p_project_id,-99);
57: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
58: PA_DEBUG.g_err_stage := 'Assignment Id :'||NVL(p_assignment_id,-99);
59: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
60: PA_DEBUG.g_err_stage := 'Organization Id :'||NVL(p_organization_id,-99);

Line 57: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

53: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
54: PA_DEBUG.g_err_stage := 'Select Criteria :'||p_select_criteria;
55: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
56: PA_DEBUG.g_err_stage := 'Project Id :'||NVL(p_project_id,-99);
57: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
58: PA_DEBUG.g_err_stage := 'Assignment Id :'||NVL(p_assignment_id,-99);
59: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
60: PA_DEBUG.g_err_stage := 'Organization Id :'||NVL(p_organization_id,-99);
61: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

Line 58: PA_DEBUG.g_err_stage := 'Assignment Id :'||NVL(p_assignment_id,-99);

54: PA_DEBUG.g_err_stage := 'Select Criteria :'||p_select_criteria;
55: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
56: PA_DEBUG.g_err_stage := 'Project Id :'||NVL(p_project_id,-99);
57: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
58: PA_DEBUG.g_err_stage := 'Assignment Id :'||NVL(p_assignment_id,-99);
59: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
60: PA_DEBUG.g_err_stage := 'Organization Id :'||NVL(p_organization_id,-99);
61: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
62: PA_DEBUG.g_err_stage := 'Start Organization Id :'||NVL(p_start_organization_id,-99);

Line 59: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

55: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
56: PA_DEBUG.g_err_stage := 'Project Id :'||NVL(p_project_id,-99);
57: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
58: PA_DEBUG.g_err_stage := 'Assignment Id :'||NVL(p_assignment_id,-99);
59: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
60: PA_DEBUG.g_err_stage := 'Organization Id :'||NVL(p_organization_id,-99);
61: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
62: PA_DEBUG.g_err_stage := 'Start Organization Id :'||NVL(p_start_organization_id,-99);
63: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

Line 60: PA_DEBUG.g_err_stage := 'Organization Id :'||NVL(p_organization_id,-99);

56: PA_DEBUG.g_err_stage := 'Project Id :'||NVL(p_project_id,-99);
57: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
58: PA_DEBUG.g_err_stage := 'Assignment Id :'||NVL(p_assignment_id,-99);
59: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
60: PA_DEBUG.g_err_stage := 'Organization Id :'||NVL(p_organization_id,-99);
61: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
62: PA_DEBUG.g_err_stage := 'Start Organization Id :'||NVL(p_start_organization_id,-99);
63: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
64: PA_DEBUG.g_err_stage := 'Generate Report Flag :'||NVL(p_gen_Report_flag,'N');

Line 61: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

57: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
58: PA_DEBUG.g_err_stage := 'Assignment Id :'||NVL(p_assignment_id,-99);
59: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
60: PA_DEBUG.g_err_stage := 'Organization Id :'||NVL(p_organization_id,-99);
61: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
62: PA_DEBUG.g_err_stage := 'Start Organization Id :'||NVL(p_start_organization_id,-99);
63: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
64: PA_DEBUG.g_err_stage := 'Generate Report Flag :'||NVL(p_gen_Report_flag,'N');
65: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

Line 62: PA_DEBUG.g_err_stage := 'Start Organization Id :'||NVL(p_start_organization_id,-99);

58: PA_DEBUG.g_err_stage := 'Assignment Id :'||NVL(p_assignment_id,-99);
59: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
60: PA_DEBUG.g_err_stage := 'Organization Id :'||NVL(p_organization_id,-99);
61: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
62: PA_DEBUG.g_err_stage := 'Start Organization Id :'||NVL(p_start_organization_id,-99);
63: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
64: PA_DEBUG.g_err_stage := 'Generate Report Flag :'||NVL(p_gen_Report_flag,'N');
65: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
66: END IF;

Line 63: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

59: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
60: PA_DEBUG.g_err_stage := 'Organization Id :'||NVL(p_organization_id,-99);
61: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
62: PA_DEBUG.g_err_stage := 'Start Organization Id :'||NVL(p_start_organization_id,-99);
63: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
64: PA_DEBUG.g_err_stage := 'Generate Report Flag :'||NVL(p_gen_Report_flag,'N');
65: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
66: END IF;
67:

Line 64: PA_DEBUG.g_err_stage := 'Generate Report Flag :'||NVL(p_gen_Report_flag,'N');

60: PA_DEBUG.g_err_stage := 'Organization Id :'||NVL(p_organization_id,-99);
61: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
62: PA_DEBUG.g_err_stage := 'Start Organization Id :'||NVL(p_start_organization_id,-99);
63: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
64: PA_DEBUG.g_err_stage := 'Generate Report Flag :'||NVL(p_gen_Report_flag,'N');
65: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
66: END IF;
67:
68: /* Bug fix: 4367847 */

Line 65: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

61: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
62: PA_DEBUG.g_err_stage := 'Start Organization Id :'||NVL(p_start_organization_id,-99);
63: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
64: PA_DEBUG.g_err_stage := 'Generate Report Flag :'||NVL(p_gen_Report_flag,'N');
65: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
66: END IF;
67:
68: /* Bug fix: 4367847 */
69: SELECT NVL(org_id,-99) INTO

Line 72: If P_PA_DEBUG_MODE = 'Y' THEN

68: /* Bug fix: 4367847 */
69: SELECT NVL(org_id,-99) INTO
70: l_excep_org_id FROM PA_IMPLEMENTATIONS;
71:
72: If P_PA_DEBUG_MODE = 'Y' THEN
73: PA_DEBUG.Log_Message(p_message => 'l_excep_org_id => :'||l_excep_org_id);
74: PA_DEBUG.Log_Message(p_message => 'Calling MO_GLOBAL.INITapi');
75: End If;
76: MO_GLOBAL.INIT('PA');

Line 73: PA_DEBUG.Log_Message(p_message => 'l_excep_org_id => :'||l_excep_org_id);

69: SELECT NVL(org_id,-99) INTO
70: l_excep_org_id FROM PA_IMPLEMENTATIONS;
71:
72: If P_PA_DEBUG_MODE = 'Y' THEN
73: PA_DEBUG.Log_Message(p_message => 'l_excep_org_id => :'||l_excep_org_id);
74: PA_DEBUG.Log_Message(p_message => 'Calling MO_GLOBAL.INITapi');
75: End If;
76: MO_GLOBAL.INIT('PA');
77: If NVL(l_excep_org_id,-99) = -99 Then

Line 74: PA_DEBUG.Log_Message(p_message => 'Calling MO_GLOBAL.INITapi');

70: l_excep_org_id FROM PA_IMPLEMENTATIONS;
71:
72: If P_PA_DEBUG_MODE = 'Y' THEN
73: PA_DEBUG.Log_Message(p_message => 'l_excep_org_id => :'||l_excep_org_id);
74: PA_DEBUG.Log_Message(p_message => 'Calling MO_GLOBAL.INITapi');
75: End If;
76: MO_GLOBAL.INIT('PA');
77: If NVL(l_excep_org_id,-99) = -99 Then
78: l_excep_org_id := MO_GLOBAL.GET_CURRENT_ORG_ID;

Line 80: If P_PA_DEBUG_MODE = 'Y' THEN

76: MO_GLOBAL.INIT('PA');
77: If NVL(l_excep_org_id,-99) = -99 Then
78: l_excep_org_id := MO_GLOBAL.GET_CURRENT_ORG_ID;
79: End If;
80: If P_PA_DEBUG_MODE = 'Y' THEN
81: PA_DEBUG.Log_Message(p_message => 'Calling MO_GLOBAL.SET_POLICY_CONTEXT');
82: End If;
83: MO_GLOBAL.SET_POLICY_CONTEXT('S',l_excep_org_id);
84: /* end of bug fix:4367847 */

Line 81: PA_DEBUG.Log_Message(p_message => 'Calling MO_GLOBAL.SET_POLICY_CONTEXT');

77: If NVL(l_excep_org_id,-99) = -99 Then
78: l_excep_org_id := MO_GLOBAL.GET_CURRENT_ORG_ID;
79: End If;
80: If P_PA_DEBUG_MODE = 'Y' THEN
81: PA_DEBUG.Log_Message(p_message => 'Calling MO_GLOBAL.SET_POLICY_CONTEXT');
82: End If;
83: MO_GLOBAL.SET_POLICY_CONTEXT('S',l_excep_org_id);
84: /* end of bug fix:4367847 */
85:

Line 89: IF P_PA_DEBUG_MODE = 'Y' THEN

85:
86: IF p_run_mode IN ( 'F' , 'I' ) OR
87: ( p_run_mode = 'P' AND p_select_criteria IN ( '02' , '01' ) ) THEN
88:
89: IF P_PA_DEBUG_MODE = 'Y' THEN
90: PA_DEBUG.g_err_stage := 'Inside Full or Incremental call or specific Org call';
91: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
92: END IF;
93:

Line 90: PA_DEBUG.g_err_stage := 'Inside Full or Incremental call or specific Org call';

86: IF p_run_mode IN ( 'F' , 'I' ) OR
87: ( p_run_mode = 'P' AND p_select_criteria IN ( '02' , '01' ) ) THEN
88:
89: IF P_PA_DEBUG_MODE = 'Y' THEN
90: PA_DEBUG.g_err_stage := 'Inside Full or Incremental call or specific Org call';
91: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
92: END IF;
93:
94: Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts

Line 91: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

87: ( p_run_mode = 'P' AND p_select_criteria IN ( '02' , '01' ) ) THEN
88:
89: IF P_PA_DEBUG_MODE = 'Y' THEN
90: PA_DEBUG.g_err_stage := 'Inside Full or Incremental call or specific Org call';
91: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
92: END IF;
93:
94: Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts
95: (

Line 105: IF P_PA_DEBUG_MODE = 'Y' THEN

101: p_assignment_id => p_assignment_id,
102: p_organization_id => p_organization_id,
103: p_debug_mode => p_debug_mode );
104: ELSIF p_run_mode = 'P' AND p_select_criteria = '03' THEN
105: IF P_PA_DEBUG_MODE = 'Y' THEN
106: PA_DEBUG.g_err_stage := 'Inside Org hierarchy call';
107: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
108: END IF;
109:

Line 106: PA_DEBUG.g_err_stage := 'Inside Org hierarchy call';

102: p_organization_id => p_organization_id,
103: p_debug_mode => p_debug_mode );
104: ELSIF p_run_mode = 'P' AND p_select_criteria = '03' THEN
105: IF P_PA_DEBUG_MODE = 'Y' THEN
106: PA_DEBUG.g_err_stage := 'Inside Org hierarchy call';
107: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
108: END IF;
109:
110: FOR org_rec IN org_hierarchy(p_start_organization_id) LOOP

Line 107: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

103: p_debug_mode => p_debug_mode );
104: ELSIF p_run_mode = 'P' AND p_select_criteria = '03' THEN
105: IF P_PA_DEBUG_MODE = 'Y' THEN
106: PA_DEBUG.g_err_stage := 'Inside Org hierarchy call';
107: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
108: END IF;
109:
110: FOR org_rec IN org_hierarchy(p_start_organization_id) LOOP
111:

Line 112: IF P_PA_DEBUG_MODE = 'Y' THEN

108: END IF;
109:
110: FOR org_rec IN org_hierarchy(p_start_organization_id) LOOP
111:
112: IF P_PA_DEBUG_MODE = 'Y' THEN
113: PA_DEBUG.g_err_stage := 'Processing Organizaion Id : '||
114: org_rec.organization_id;
115: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
116: END IF;

Line 113: PA_DEBUG.g_err_stage := 'Processing Organizaion Id : '||

109:
110: FOR org_rec IN org_hierarchy(p_start_organization_id) LOOP
111:
112: IF P_PA_DEBUG_MODE = 'Y' THEN
113: PA_DEBUG.g_err_stage := 'Processing Organizaion Id : '||
114: org_rec.organization_id;
115: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
116: END IF;
117:

Line 115: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

111:
112: IF P_PA_DEBUG_MODE = 'Y' THEN
113: PA_DEBUG.g_err_stage := 'Processing Organizaion Id : '||
114: org_rec.organization_id;
115: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
116: END IF;
117:
118:
119: Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts

Line 133: IF P_PA_DEBUG_MODE = 'Y' THEN

129: END LOOP;
130: END IF;
131: retcode := l_retcode;
132: IF NVL(p_gen_report_flag,'N' ) = 'Y' AND p_run_mode <> 'I' THEN
133: IF P_PA_DEBUG_MODE = 'Y' THEN
134: PA_DEBUG.g_err_stage := 'Before calling the Exception Report';
135: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
136: END IF;
137:

Line 134: PA_DEBUG.g_err_stage := 'Before calling the Exception Report';

130: END IF;
131: retcode := l_retcode;
132: IF NVL(p_gen_report_flag,'N' ) = 'Y' AND p_run_mode <> 'I' THEN
133: IF P_PA_DEBUG_MODE = 'Y' THEN
134: PA_DEBUG.g_err_stage := 'Before calling the Exception Report';
135: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
136: END IF;
137:
138:

Line 135: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

131: retcode := l_retcode;
132: IF NVL(p_gen_report_flag,'N' ) = 'Y' AND p_run_mode <> 'I' THEN
133: IF P_PA_DEBUG_MODE = 'Y' THEN
134: PA_DEBUG.g_err_stage := 'Before calling the Exception Report';
135: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
136: END IF;
137:
138:
139: SELECT NVL(org_id,-99) INTO

Line 143: If P_PA_DEBUG_MODE = 'Y' THEN

139: SELECT NVL(org_id,-99) INTO
140: l_excep_org_id FROM PA_IMPLEMENTATIONS;
141:
142: /* Bug fix: 4367847 */
143: If P_PA_DEBUG_MODE = 'Y' THEN
144: PA_DEBUG.Log_Message(p_message => 'Calling FND_REQUEST.set_org_id{'||l_excep_org_id||'}');
145: End If;
146: FND_REQUEST.set_org_id(l_excep_org_id);
147: /* end of Bug fix: 4367847 */

Line 144: PA_DEBUG.Log_Message(p_message => 'Calling FND_REQUEST.set_org_id{'||l_excep_org_id||'}');

140: l_excep_org_id FROM PA_IMPLEMENTATIONS;
141:
142: /* Bug fix: 4367847 */
143: If P_PA_DEBUG_MODE = 'Y' THEN
144: PA_DEBUG.Log_Message(p_message => 'Calling FND_REQUEST.set_org_id{'||l_excep_org_id||'}');
145: End If;
146: FND_REQUEST.set_org_id(l_excep_org_id);
147: /* end of Bug fix: 4367847 */
148:

Line 166: IF P_PA_DEBUG_MODE = 'Y' THEN

162: argument8 => P_Start_Organization_Flag,
163: argument9 => p_start_organization_id);
164:
165: IF l_rpt_request_id = 0 then
166: IF P_PA_DEBUG_MODE = 'Y' THEN
167: PA_DEBUG.g_err_stage := 'Error while submitting Report [PAFPEXRP]';
168: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
169: END IF;
170: retcode := FND_API.G_RET_STS_ERROR;

Line 167: PA_DEBUG.g_err_stage := 'Error while submitting Report [PAFPEXRP]';

163: argument9 => p_start_organization_id);
164:
165: IF l_rpt_request_id = 0 then
166: IF P_PA_DEBUG_MODE = 'Y' THEN
167: PA_DEBUG.g_err_stage := 'Error while submitting Report [PAFPEXRP]';
168: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
169: END IF;
170: retcode := FND_API.G_RET_STS_ERROR;
171: ELSE

Line 168: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

164:
165: IF l_rpt_request_id = 0 then
166: IF P_PA_DEBUG_MODE = 'Y' THEN
167: PA_DEBUG.g_err_stage := 'Error while submitting Report [PAFPEXRP]';
168: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
169: END IF;
170: retcode := FND_API.G_RET_STS_ERROR;
171: ELSE
172: IF P_PA_DEBUG_MODE = 'Y' THEN

Line 172: IF P_PA_DEBUG_MODE = 'Y' THEN

168: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
169: END IF;
170: retcode := FND_API.G_RET_STS_ERROR;
171: ELSE
172: IF P_PA_DEBUG_MODE = 'Y' THEN
173: PA_DEBUG.g_err_stage := 'Exception Report Request Id : ' ||
174: LTRIM(TO_CHAR(l_rpt_request_id )) ;
175: PA_DEBUG.log_Message( p_message => PA_DEBUG.g_err_stage,
176: p_write_file => 'OUT',

Line 173: PA_DEBUG.g_err_stage := 'Exception Report Request Id : ' ||

169: END IF;
170: retcode := FND_API.G_RET_STS_ERROR;
171: ELSE
172: IF P_PA_DEBUG_MODE = 'Y' THEN
173: PA_DEBUG.g_err_stage := 'Exception Report Request Id : ' ||
174: LTRIM(TO_CHAR(l_rpt_request_id )) ;
175: PA_DEBUG.log_Message( p_message => PA_DEBUG.g_err_stage,
176: p_write_file => 'OUT',
177: p_write_mode => 1);

Line 175: PA_DEBUG.log_Message( p_message => PA_DEBUG.g_err_stage,

171: ELSE
172: IF P_PA_DEBUG_MODE = 'Y' THEN
173: PA_DEBUG.g_err_stage := 'Exception Report Request Id : ' ||
174: LTRIM(TO_CHAR(l_rpt_request_id )) ;
175: PA_DEBUG.log_Message( p_message => PA_DEBUG.g_err_stage,
176: p_write_file => 'OUT',
177: p_write_mode => 1);
178: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
179: END IF;

Line 178: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

174: LTRIM(TO_CHAR(l_rpt_request_id )) ;
175: PA_DEBUG.log_Message( p_message => PA_DEBUG.g_err_stage,
176: p_write_file => 'OUT',
177: p_write_mode => 1);
178: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
179: END IF;
180: END IF;
181: END IF;
182: /* Bug fix:4329035 */

Line 183: IF P_PA_DEBUG_MODE = 'Y' THEN

179: END IF;
180: END IF;
181: END IF;
182: /* Bug fix:4329035 */
183: IF P_PA_DEBUG_MODE = 'Y' THEN
184: PA_DEBUG.Reset_Curr_Function;
185: END IF;
186:
187: EXCEPTION

Line 184: PA_DEBUG.Reset_Curr_Function;

180: END IF;
181: END IF;
182: /* Bug fix:4329035 */
183: IF P_PA_DEBUG_MODE = 'Y' THEN
184: PA_DEBUG.Reset_Curr_Function;
185: END IF;
186:
187: EXCEPTION
188: WHEN OTHERS THEN

Line 190: IF P_PA_DEBUG_MODE = 'Y' THEN

186:
187: EXCEPTION
188: WHEN OTHERS THEN
189: /* Bug fix:4329035 */
190: IF P_PA_DEBUG_MODE = 'Y' THEN
191: PA_DEBUG.Reset_Curr_Function;
192: END IF;
193: RAISE;
194: END Calculate_Fcst_Amounts_Wrap;

Line 191: PA_DEBUG.Reset_Curr_Function;

187: EXCEPTION
188: WHEN OTHERS THEN
189: /* Bug fix:4329035 */
190: IF P_PA_DEBUG_MODE = 'Y' THEN
191: PA_DEBUG.Reset_Curr_Function;
192: END IF;
193: RAISE;
194: END Calculate_Fcst_Amounts_Wrap;
195:

Line 923: IF P_PA_DEBUG_MODE = 'Y' THEN

919:
920: BEGIN
921: retcode := '0';
922: /* Bug fix:4329035 */
923: IF P_PA_DEBUG_MODE = 'Y' THEN
924: PA_DEBUG.Set_Curr_Function( p_function => 'F I Amt:',
925: p_debug_mode => p_debug_mode );
926: END IF;
927: l_count := l_count + 5;

Line 924: PA_DEBUG.Set_Curr_Function( p_function => 'F I Amt:',

920: BEGIN
921: retcode := '0';
922: /* Bug fix:4329035 */
923: IF P_PA_DEBUG_MODE = 'Y' THEN
924: PA_DEBUG.Set_Curr_Function( p_function => 'F I Amt:',
925: p_debug_mode => p_debug_mode );
926: END IF;
927: l_count := l_count + 5;
928: l_chk := 1;

Line 961: IF P_PA_DEBUG_MODE = 'Y' THEN

957: retcode := '2';
958: /* dbms_output.put_line('inside PA period no data ');
959: dbms_output.put_line('PA Pd Type : Start Pd Name :'||
960: opt_rec.Pa_Period_Type ||' : ' ||opt_rec.START_PERIOD_NAME); */
961: IF P_PA_DEBUG_MODE = 'Y' THEN
962: PA_DEBUG.g_err_stage := 'Org Id :'||opt_rec.Org_Id;
963: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
964: PA_DEBUG.g_err_stage := 'No Data Found In PA Pd:'||opt_rec.Pa_Period_Type;
965: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

Line 962: PA_DEBUG.g_err_stage := 'Org Id :'||opt_rec.Org_Id;

958: /* dbms_output.put_line('inside PA period no data ');
959: dbms_output.put_line('PA Pd Type : Start Pd Name :'||
960: opt_rec.Pa_Period_Type ||' : ' ||opt_rec.START_PERIOD_NAME); */
961: IF P_PA_DEBUG_MODE = 'Y' THEN
962: PA_DEBUG.g_err_stage := 'Org Id :'||opt_rec.Org_Id;
963: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
964: PA_DEBUG.g_err_stage := 'No Data Found In PA Pd:'||opt_rec.Pa_Period_Type;
965: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
966: END IF;

Line 963: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

959: dbms_output.put_line('PA Pd Type : Start Pd Name :'||
960: opt_rec.Pa_Period_Type ||' : ' ||opt_rec.START_PERIOD_NAME); */
961: IF P_PA_DEBUG_MODE = 'Y' THEN
962: PA_DEBUG.g_err_stage := 'Org Id :'||opt_rec.Org_Id;
963: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
964: PA_DEBUG.g_err_stage := 'No Data Found In PA Pd:'||opt_rec.Pa_Period_Type;
965: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
966: END IF;
967: RAISE;

Line 964: PA_DEBUG.g_err_stage := 'No Data Found In PA Pd:'||opt_rec.Pa_Period_Type;

960: opt_rec.Pa_Period_Type ||' : ' ||opt_rec.START_PERIOD_NAME); */
961: IF P_PA_DEBUG_MODE = 'Y' THEN
962: PA_DEBUG.g_err_stage := 'Org Id :'||opt_rec.Org_Id;
963: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
964: PA_DEBUG.g_err_stage := 'No Data Found In PA Pd:'||opt_rec.Pa_Period_Type;
965: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
966: END IF;
967: RAISE;
968: END;

Line 965: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

961: IF P_PA_DEBUG_MODE = 'Y' THEN
962: PA_DEBUG.g_err_stage := 'Org Id :'||opt_rec.Org_Id;
963: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
964: PA_DEBUG.g_err_stage := 'No Data Found In PA Pd:'||opt_rec.Pa_Period_Type;
965: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
966: END IF;
967: RAISE;
968: END;
969: ELSIF opt_rec.ORG_FCST_PERIOD_TYPE = 'GL' AND

Line 983: IF P_PA_DEBUG_MODE = 'Y' THEN

979: /* dbms_output.put_line('inside GL period no data ');
980: dbms_output.put_line('GL Pd Type : Start Pd Name : '||
981: opt_rec.Accounted_Period_Type ||' : ' ||opt_rec.START_PERIOD_NAME); */
982: retcode := '2';
983: IF P_PA_DEBUG_MODE = 'Y' THEN
984: PA_DEBUG.g_err_stage := 'Org Id :'||opt_rec.Org_Id;
985: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
986: PA_DEBUG.g_err_stage := 'No Data Found In GL Pd:'||opt_rec.Accounted_Period_Type;
987: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

Line 984: PA_DEBUG.g_err_stage := 'Org Id :'||opt_rec.Org_Id;

980: dbms_output.put_line('GL Pd Type : Start Pd Name : '||
981: opt_rec.Accounted_Period_Type ||' : ' ||opt_rec.START_PERIOD_NAME); */
982: retcode := '2';
983: IF P_PA_DEBUG_MODE = 'Y' THEN
984: PA_DEBUG.g_err_stage := 'Org Id :'||opt_rec.Org_Id;
985: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
986: PA_DEBUG.g_err_stage := 'No Data Found In GL Pd:'||opt_rec.Accounted_Period_Type;
987: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
988: END IF;

Line 985: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

981: opt_rec.Accounted_Period_Type ||' : ' ||opt_rec.START_PERIOD_NAME); */
982: retcode := '2';
983: IF P_PA_DEBUG_MODE = 'Y' THEN
984: PA_DEBUG.g_err_stage := 'Org Id :'||opt_rec.Org_Id;
985: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
986: PA_DEBUG.g_err_stage := 'No Data Found In GL Pd:'||opt_rec.Accounted_Period_Type;
987: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
988: END IF;
989: RAISE;

Line 986: PA_DEBUG.g_err_stage := 'No Data Found In GL Pd:'||opt_rec.Accounted_Period_Type;

982: retcode := '2';
983: IF P_PA_DEBUG_MODE = 'Y' THEN
984: PA_DEBUG.g_err_stage := 'Org Id :'||opt_rec.Org_Id;
985: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
986: PA_DEBUG.g_err_stage := 'No Data Found In GL Pd:'||opt_rec.Accounted_Period_Type;
987: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
988: END IF;
989: RAISE;
990: END;

Line 987: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

983: IF P_PA_DEBUG_MODE = 'Y' THEN
984: PA_DEBUG.g_err_stage := 'Org Id :'||opt_rec.Org_Id;
985: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
986: PA_DEBUG.g_err_stage := 'No Data Found In GL Pd:'||opt_rec.Accounted_Period_Type;
987: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
988: END IF;
989: RAISE;
990: END;
991: END IF;

Line 1000: IF P_PA_DEBUG_MODE = 'Y' THEN

996: l_fi_process_start_date := l_curr_process_start_date;
997: END IF;
998: END LOOP;
999: IF l_fi_process_start_date IS NULL THEN
1000: IF P_PA_DEBUG_MODE = 'Y' THEN
1001: PA_DEBUG.g_err_stage := 'No Forecasting Options Setup, returning';
1002: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1003: PA_DEBUG.Reset_Curr_Function;
1004: END IF;

Line 1001: PA_DEBUG.g_err_stage := 'No Forecasting Options Setup, returning';

997: END IF;
998: END LOOP;
999: IF l_fi_process_start_date IS NULL THEN
1000: IF P_PA_DEBUG_MODE = 'Y' THEN
1001: PA_DEBUG.g_err_stage := 'No Forecasting Options Setup, returning';
1002: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1003: PA_DEBUG.Reset_Curr_Function;
1004: END IF;
1005: RETURN;

Line 1002: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

998: END LOOP;
999: IF l_fi_process_start_date IS NULL THEN
1000: IF P_PA_DEBUG_MODE = 'Y' THEN
1001: PA_DEBUG.g_err_stage := 'No Forecasting Options Setup, returning';
1002: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1003: PA_DEBUG.Reset_Curr_Function;
1004: END IF;
1005: RETURN;
1006: END IF;

Line 1003: PA_DEBUG.Reset_Curr_Function;

999: IF l_fi_process_start_date IS NULL THEN
1000: IF P_PA_DEBUG_MODE = 'Y' THEN
1001: PA_DEBUG.g_err_stage := 'No Forecasting Options Setup, returning';
1002: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1003: PA_DEBUG.Reset_Curr_Function;
1004: END IF;
1005: RETURN;
1006: END IF;
1007: IF P_PA_DEBUG_MODE = 'Y' THEN

Line 1007: IF P_PA_DEBUG_MODE = 'Y' THEN

1003: PA_DEBUG.Reset_Curr_Function;
1004: END IF;
1005: RETURN;
1006: END IF;
1007: IF P_PA_DEBUG_MODE = 'Y' THEN
1008: PA_DEBUG.g_err_stage := 'FI Process Start Date :'||
1009: TO_CHAR(l_fi_process_start_date,'yyyy/mm/dd');
1010: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1011: END IF;

Line 1008: PA_DEBUG.g_err_stage := 'FI Process Start Date :'||

1004: END IF;
1005: RETURN;
1006: END IF;
1007: IF P_PA_DEBUG_MODE = 'Y' THEN
1008: PA_DEBUG.g_err_stage := 'FI Process Start Date :'||
1009: TO_CHAR(l_fi_process_start_date,'yyyy/mm/dd');
1010: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1011: END IF;
1012: /* dbms_output.put_line('FI Process Start Dt :'||

Line 1010: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1006: END IF;
1007: IF P_PA_DEBUG_MODE = 'Y' THEN
1008: PA_DEBUG.g_err_stage := 'FI Process Start Date :'||
1009: TO_CHAR(l_fi_process_start_date,'yyyy/mm/dd');
1010: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1011: END IF;
1012: /* dbms_output.put_line('FI Process Start Dt :'||
1013: TO_CHAR(l_fi_process_start_date,'yyyy/mm/dd')); */
1014: OPEN fcst_item_All(l_fi_process_start_date);

Line 1015: IF P_PA_DEBUG_MODE = 'Y' THEN

1011: END IF;
1012: /* dbms_output.put_line('FI Process Start Dt :'||
1013: TO_CHAR(l_fi_process_start_date,'yyyy/mm/dd')); */
1014: OPEN fcst_item_All(l_fi_process_start_date);
1015: IF P_PA_DEBUG_MODE = 'Y' THEN
1016: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_All cursor';
1017: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1018: END IF;
1019: ELSIF p_run_mode = 'I' THEN

Line 1016: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_All cursor';

1012: /* dbms_output.put_line('FI Process Start Dt :'||
1013: TO_CHAR(l_fi_process_start_date,'yyyy/mm/dd')); */
1014: OPEN fcst_item_All(l_fi_process_start_date);
1015: IF P_PA_DEBUG_MODE = 'Y' THEN
1016: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_All cursor';
1017: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1018: END IF;
1019: ELSIF p_run_mode = 'I' THEN
1020: IF P_PA_DEBUG_MODE = 'Y' THEN

Line 1017: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1013: TO_CHAR(l_fi_process_start_date,'yyyy/mm/dd')); */
1014: OPEN fcst_item_All(l_fi_process_start_date);
1015: IF P_PA_DEBUG_MODE = 'Y' THEN
1016: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_All cursor';
1017: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1018: END IF;
1019: ELSIF p_run_mode = 'I' THEN
1020: IF P_PA_DEBUG_MODE = 'Y' THEN
1021: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_Inc cursor';

Line 1020: IF P_PA_DEBUG_MODE = 'Y' THEN

1016: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_All cursor';
1017: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1018: END IF;
1019: ELSIF p_run_mode = 'I' THEN
1020: IF P_PA_DEBUG_MODE = 'Y' THEN
1021: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_Inc cursor';
1022: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1023: END IF;
1024: OPEN fcst_item_Inc;

Line 1021: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_Inc cursor';

1017: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1018: END IF;
1019: ELSIF p_run_mode = 'I' THEN
1020: IF P_PA_DEBUG_MODE = 'Y' THEN
1021: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_Inc cursor';
1022: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1023: END IF;
1024: OPEN fcst_item_Inc;
1025: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND

Line 1022: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1018: END IF;
1019: ELSIF p_run_mode = 'I' THEN
1020: IF P_PA_DEBUG_MODE = 'Y' THEN
1021: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_Inc cursor';
1022: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1023: END IF;
1024: OPEN fcst_item_Inc;
1025: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
1026: p_project_id IS NOT NULL AND p_assignment_id IS NULL THEN

Line 1027: IF P_PA_DEBUG_MODE = 'Y' THEN

1023: END IF;
1024: OPEN fcst_item_Inc;
1025: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
1026: p_project_id IS NOT NULL AND p_assignment_id IS NULL THEN
1027: IF P_PA_DEBUG_MODE = 'Y' THEN
1028: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_Prj cursor';
1029: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1030: END IF;
1031: OPEN fcst_item_Prj(p_project_id);

Line 1028: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_Prj cursor';

1024: OPEN fcst_item_Inc;
1025: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
1026: p_project_id IS NOT NULL AND p_assignment_id IS NULL THEN
1027: IF P_PA_DEBUG_MODE = 'Y' THEN
1028: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_Prj cursor';
1029: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1030: END IF;
1031: OPEN fcst_item_Prj(p_project_id);
1032: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND

Line 1029: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1025: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
1026: p_project_id IS NOT NULL AND p_assignment_id IS NULL THEN
1027: IF P_PA_DEBUG_MODE = 'Y' THEN
1028: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_Prj cursor';
1029: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1030: END IF;
1031: OPEN fcst_item_Prj(p_project_id);
1032: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
1033: p_project_id IS NOT NULL AND p_assignment_id IS NOT NULL THEN

Line 1034: IF P_PA_DEBUG_MODE = 'Y' THEN

1030: END IF;
1031: OPEN fcst_item_Prj(p_project_id);
1032: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
1033: p_project_id IS NOT NULL AND p_assignment_id IS NOT NULL THEN
1034: IF P_PA_DEBUG_MODE = 'Y' THEN
1035: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_Prj_Asg cursor';
1036: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1037: END IF;
1038: OPEN fcst_item_Prj_Asg(p_project_id,p_assignment_id);

Line 1035: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_Prj_Asg cursor';

1031: OPEN fcst_item_Prj(p_project_id);
1032: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
1033: p_project_id IS NOT NULL AND p_assignment_id IS NOT NULL THEN
1034: IF P_PA_DEBUG_MODE = 'Y' THEN
1035: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_Prj_Asg cursor';
1036: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1037: END IF;
1038: OPEN fcst_item_Prj_Asg(p_project_id,p_assignment_id);
1039: ELSIF p_run_mode = 'P' AND p_select_criteria in ( '02','03') THEN

Line 1036: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1032: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
1033: p_project_id IS NOT NULL AND p_assignment_id IS NOT NULL THEN
1034: IF P_PA_DEBUG_MODE = 'Y' THEN
1035: PA_DEBUG.g_err_stage := 'Opening Fcst_Item_Prj_Asg cursor';
1036: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1037: END IF;
1038: OPEN fcst_item_Prj_Asg(p_project_id,p_assignment_id);
1039: ELSIF p_run_mode = 'P' AND p_select_criteria in ( '02','03') THEN
1040: IF P_PA_DEBUG_MODE = 'Y' THEN

Line 1040: IF P_PA_DEBUG_MODE = 'Y' THEN

1036: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1037: END IF;
1038: OPEN fcst_item_Prj_Asg(p_project_id,p_assignment_id);
1039: ELSIF p_run_mode = 'P' AND p_select_criteria in ( '02','03') THEN
1040: IF P_PA_DEBUG_MODE = 'Y' THEN
1041: PA_DEBUG.g_err_stage := 'Opening Fcst_Ftem_Organization cursor';
1042: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1043: END IF;
1044: OPEN fcst_item_Organization(p_organization_id);

Line 1041: PA_DEBUG.g_err_stage := 'Opening Fcst_Ftem_Organization cursor';

1037: END IF;
1038: OPEN fcst_item_Prj_Asg(p_project_id,p_assignment_id);
1039: ELSIF p_run_mode = 'P' AND p_select_criteria in ( '02','03') THEN
1040: IF P_PA_DEBUG_MODE = 'Y' THEN
1041: PA_DEBUG.g_err_stage := 'Opening Fcst_Ftem_Organization cursor';
1042: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1043: END IF;
1044: OPEN fcst_item_Organization(p_organization_id);
1045: END IF;

Line 1042: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1038: OPEN fcst_item_Prj_Asg(p_project_id,p_assignment_id);
1039: ELSIF p_run_mode = 'P' AND p_select_criteria in ( '02','03') THEN
1040: IF P_PA_DEBUG_MODE = 'Y' THEN
1041: PA_DEBUG.g_err_stage := 'Opening Fcst_Ftem_Organization cursor';
1042: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1043: END IF;
1044: OPEN fcst_item_Organization(p_organization_id);
1045: END IF;
1046: LOOP

Line 1286: IF P_PA_DEBUG_MODE = 'Y' THEN

1282:
1283: l_fia_index := 1;
1284: l_fia_upd_index := 1;
1285: IF p_run_mode = 'F' THEN
1286: IF P_PA_DEBUG_MODE = 'Y' THEN
1287: PA_DEBUG.g_err_stage := 'Fetching Fcst_Item_All';
1288: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1289: END IF;
1290: FETCH fcst_item_All BULK COLLECT INTO

Line 1287: PA_DEBUG.g_err_stage := 'Fetching Fcst_Item_All';

1283: l_fia_index := 1;
1284: l_fia_upd_index := 1;
1285: IF p_run_mode = 'F' THEN
1286: IF P_PA_DEBUG_MODE = 'Y' THEN
1287: PA_DEBUG.g_err_stage := 'Fetching Fcst_Item_All';
1288: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1289: END IF;
1290: FETCH fcst_item_All BULK COLLECT INTO
1291: l_fi_id_tab,

Line 1288: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1284: l_fia_upd_index := 1;
1285: IF p_run_mode = 'F' THEN
1286: IF P_PA_DEBUG_MODE = 'Y' THEN
1287: PA_DEBUG.g_err_stage := 'Fetching Fcst_Item_All';
1288: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1289: END IF;
1290: FETCH fcst_item_All BULK COLLECT INTO
1291: l_fi_id_tab,
1292: l_fi_item_type_tab,

Line 1312: IF P_PA_DEBUG_MODE = 'Y' THEN

1308: l_fi_exptypeclass_tab,
1309: l_fi_amount_type_tab,
1310: l_fi_delete_flag_tab LIMIT l_fetch_size;
1311: ELSIF p_run_mode = 'I' THEN
1312: IF P_PA_DEBUG_MODE = 'Y' THEN
1313: PA_DEBUG.g_err_stage := 'Fetching Fcst_Item_Inc';
1314: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1315: END IF;
1316: FETCH fcst_item_Inc BULK COLLECT INTO

Line 1313: PA_DEBUG.g_err_stage := 'Fetching Fcst_Item_Inc';

1309: l_fi_amount_type_tab,
1310: l_fi_delete_flag_tab LIMIT l_fetch_size;
1311: ELSIF p_run_mode = 'I' THEN
1312: IF P_PA_DEBUG_MODE = 'Y' THEN
1313: PA_DEBUG.g_err_stage := 'Fetching Fcst_Item_Inc';
1314: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1315: END IF;
1316: FETCH fcst_item_Inc BULK COLLECT INTO
1317: l_fi_id_tab,

Line 1314: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1310: l_fi_delete_flag_tab LIMIT l_fetch_size;
1311: ELSIF p_run_mode = 'I' THEN
1312: IF P_PA_DEBUG_MODE = 'Y' THEN
1313: PA_DEBUG.g_err_stage := 'Fetching Fcst_Item_Inc';
1314: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1315: END IF;
1316: FETCH fcst_item_Inc BULK COLLECT INTO
1317: l_fi_id_tab,
1318: l_fi_item_type_tab,

Line 1339: IF P_PA_DEBUG_MODE = 'Y' THEN

1335: l_fi_amount_type_tab,
1336: l_fi_delete_flag_tab LIMIT l_fetch_size;
1337: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
1338: p_project_id IS NOT NULL AND p_assignment_id IS NULL THEN
1339: IF P_PA_DEBUG_MODE = 'Y' THEN
1340: PA_DEBUG.g_err_stage := 'Fetching Fcst_Item_Prj';
1341: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1342: END IF;
1343: FETCH fcst_item_Prj BULK COLLECT INTO

Line 1340: PA_DEBUG.g_err_stage := 'Fetching Fcst_Item_Prj';

1336: l_fi_delete_flag_tab LIMIT l_fetch_size;
1337: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
1338: p_project_id IS NOT NULL AND p_assignment_id IS NULL THEN
1339: IF P_PA_DEBUG_MODE = 'Y' THEN
1340: PA_DEBUG.g_err_stage := 'Fetching Fcst_Item_Prj';
1341: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1342: END IF;
1343: FETCH fcst_item_Prj BULK COLLECT INTO
1344: l_fi_id_tab,

Line 1341: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1337: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
1338: p_project_id IS NOT NULL AND p_assignment_id IS NULL THEN
1339: IF P_PA_DEBUG_MODE = 'Y' THEN
1340: PA_DEBUG.g_err_stage := 'Fetching Fcst_Item_Prj';
1341: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1342: END IF;
1343: FETCH fcst_item_Prj BULK COLLECT INTO
1344: l_fi_id_tab,
1345: l_fi_item_type_tab,

Line 1366: IF P_PA_DEBUG_MODE = 'Y' THEN

1362: l_fi_amount_type_tab,
1363: l_fi_delete_flag_tab LIMIT l_fetch_size;
1364: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
1365: p_project_id IS NOT NULL AND p_assignment_id IS NOT NULL THEN
1366: IF P_PA_DEBUG_MODE = 'Y' THEN
1367: PA_DEBUG.g_err_stage := 'Fetching Fcst_Item_Prj_Asg';
1368: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1369: END IF;
1370: FETCH fcst_item_Prj_Asg BULK COLLECT INTO

Line 1367: PA_DEBUG.g_err_stage := 'Fetching Fcst_Item_Prj_Asg';

1363: l_fi_delete_flag_tab LIMIT l_fetch_size;
1364: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
1365: p_project_id IS NOT NULL AND p_assignment_id IS NOT NULL THEN
1366: IF P_PA_DEBUG_MODE = 'Y' THEN
1367: PA_DEBUG.g_err_stage := 'Fetching Fcst_Item_Prj_Asg';
1368: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1369: END IF;
1370: FETCH fcst_item_Prj_Asg BULK COLLECT INTO
1371: l_fi_id_tab,

Line 1368: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1364: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
1365: p_project_id IS NOT NULL AND p_assignment_id IS NOT NULL THEN
1366: IF P_PA_DEBUG_MODE = 'Y' THEN
1367: PA_DEBUG.g_err_stage := 'Fetching Fcst_Item_Prj_Asg';
1368: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1369: END IF;
1370: FETCH fcst_item_Prj_Asg BULK COLLECT INTO
1371: l_fi_id_tab,
1372: l_fi_item_type_tab,

Line 1392: IF P_PA_DEBUG_MODE = 'Y' THEN

1388: l_fi_exptypeclass_tab,
1389: l_fi_amount_type_tab,
1390: l_fi_delete_flag_tab LIMIT l_fetch_size;
1391: ELSIF p_run_mode = 'P' AND p_select_criteria in ( '02','03') THEN
1392: IF P_PA_DEBUG_MODE = 'Y' THEN
1393: PA_DEBUG.g_err_stage := 'Fetching fcst_item_Organization';
1394: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1395: END IF;
1396: FETCH fcst_item_Organization BULK COLLECT INTO

Line 1393: PA_DEBUG.g_err_stage := 'Fetching fcst_item_Organization';

1389: l_fi_amount_type_tab,
1390: l_fi_delete_flag_tab LIMIT l_fetch_size;
1391: ELSIF p_run_mode = 'P' AND p_select_criteria in ( '02','03') THEN
1392: IF P_PA_DEBUG_MODE = 'Y' THEN
1393: PA_DEBUG.g_err_stage := 'Fetching fcst_item_Organization';
1394: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1395: END IF;
1396: FETCH fcst_item_Organization BULK COLLECT INTO
1397: l_fi_id_tab,

Line 1394: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1390: l_fi_delete_flag_tab LIMIT l_fetch_size;
1391: ELSIF p_run_mode = 'P' AND p_select_criteria in ( '02','03') THEN
1392: IF P_PA_DEBUG_MODE = 'Y' THEN
1393: PA_DEBUG.g_err_stage := 'Fetching fcst_item_Organization';
1394: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1395: END IF;
1396: FETCH fcst_item_Organization BULK COLLECT INTO
1397: l_fi_id_tab,
1398: l_fi_item_type_tab,

Line 1422: IF P_PA_DEBUG_MODE = 'Y' THEN

1418: IF l_fi_id_tab.count = 0 THEN
1419: EXIT;
1420: END IF;
1421: /* dbms_output.put_line('fetch count:'||l_fi_id_tab.count); */
1422: IF P_PA_DEBUG_MODE = 'Y' THEN
1423: PA_DEBUG.g_err_stage := 'Fetch Count:'||l_fi_id_tab.COUNT;
1424: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1425: END IF;
1426:

Line 1423: PA_DEBUG.g_err_stage := 'Fetch Count:'||l_fi_id_tab.COUNT;

1419: EXIT;
1420: END IF;
1421: /* dbms_output.put_line('fetch count:'||l_fi_id_tab.count); */
1422: IF P_PA_DEBUG_MODE = 'Y' THEN
1423: PA_DEBUG.g_err_stage := 'Fetch Count:'||l_fi_id_tab.COUNT;
1424: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1425: END IF;
1426:
1427:

Line 1424: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1420: END IF;
1421: /* dbms_output.put_line('fetch count:'||l_fi_id_tab.count); */
1422: IF P_PA_DEBUG_MODE = 'Y' THEN
1423: PA_DEBUG.g_err_stage := 'Fetch Count:'||l_fi_id_tab.COUNT;
1424: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1425: END IF;
1426:
1427:
1428: DELETE FROM Pa_Fi_Amount_Dtls_Tmp;

Line 1477: IF P_PA_DEBUG_MODE = 'Y' THEN -- Bug 7423839

1473: l_fi_process_flag_tab(i) = 'Y' THEN
1474: /* dbms_output.put_line('prev prj id :'||l_prev_project_id);
1475: dbms_output.put_line('curr prj id :'||l_fi_projid_tab(i)); */
1476:
1477: IF P_PA_DEBUG_MODE = 'Y' THEN -- Bug 7423839
1478: PA_DEBUG.g_err_stage := 'F I Amt: prev prj id :'||l_prev_project_id||' curr prj id :'||l_fi_projid_tab(i);
1479: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1480: END IF;
1481:

Line 1478: PA_DEBUG.g_err_stage := 'F I Amt: prev prj id :'||l_prev_project_id||' curr prj id :'||l_fi_projid_tab(i);

1474: /* dbms_output.put_line('prev prj id :'||l_prev_project_id);
1475: dbms_output.put_line('curr prj id :'||l_fi_projid_tab(i)); */
1476:
1477: IF P_PA_DEBUG_MODE = 'Y' THEN -- Bug 7423839
1478: PA_DEBUG.g_err_stage := 'F I Amt: prev prj id :'||l_prev_project_id||' curr prj id :'||l_fi_projid_tab(i);
1479: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1480: END IF;
1481:
1482:

Line 1479: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1475: dbms_output.put_line('curr prj id :'||l_fi_projid_tab(i)); */
1476:
1477: IF P_PA_DEBUG_MODE = 'Y' THEN -- Bug 7423839
1478: PA_DEBUG.g_err_stage := 'F I Amt: prev prj id :'||l_prev_project_id||' curr prj id :'||l_fi_projid_tab(i);
1479: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1480: END IF;
1481:
1482:
1483: l_prj_type := NULL;

Line 1576: IF P_PA_DEBUG_MODE = 'Y' THEN

1572: EXCEPTION
1573: WHEN NO_DATA_FOUND THEN
1574: l_fi_others_rejct_reason_tab(i) := 'PA_INVALID_PROJECT_ID';
1575: l_fi_process_flag_tab(i) := 'N';
1576: IF P_PA_DEBUG_MODE = 'Y' THEN
1577: PA_DEBUG.g_err_stage := 'Invalid Project Id :'||TO_CHAR(l_prev_project_id);
1578: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1579: END IF;
1580: END;

Line 1577: PA_DEBUG.g_err_stage := 'Invalid Project Id :'||TO_CHAR(l_prev_project_id);

1573: WHEN NO_DATA_FOUND THEN
1574: l_fi_others_rejct_reason_tab(i) := 'PA_INVALID_PROJECT_ID';
1575: l_fi_process_flag_tab(i) := 'N';
1576: IF P_PA_DEBUG_MODE = 'Y' THEN
1577: PA_DEBUG.g_err_stage := 'Invalid Project Id :'||TO_CHAR(l_prev_project_id);
1578: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1579: END IF;
1580: END;
1581: END IF;

Line 1578: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1574: l_fi_others_rejct_reason_tab(i) := 'PA_INVALID_PROJECT_ID';
1575: l_fi_process_flag_tab(i) := 'N';
1576: IF P_PA_DEBUG_MODE = 'Y' THEN
1577: PA_DEBUG.g_err_stage := 'Invalid Project Id :'||TO_CHAR(l_prev_project_id);
1578: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1579: END IF;
1580: END;
1581: END IF;
1582:

Line 1598: IF P_PA_DEBUG_MODE = 'Y' THEN

1594: WHERE NVL(ORG_ID,-99) = l_prev_proj_orgid AND
1595: JOB_COST_RATE_SCHEDULE_ID IS NOT NULL;
1596: EXCEPTION
1597: WHEN NO_DATA_FOUND THEN
1598: IF P_PA_DEBUG_MODE = 'Y' THEN
1599: PA_DEBUG.g_err_stage := 'No Fcst Job Cost Rt Sch for Proj Orgid:' ||
1600: TO_CHAR(l_prev_proj_orgid);
1601: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1602: END IF;

Line 1599: PA_DEBUG.g_err_stage := 'No Fcst Job Cost Rt Sch for Proj Orgid:' ||

1595: JOB_COST_RATE_SCHEDULE_ID IS NOT NULL;
1596: EXCEPTION
1597: WHEN NO_DATA_FOUND THEN
1598: IF P_PA_DEBUG_MODE = 'Y' THEN
1599: PA_DEBUG.g_err_stage := 'No Fcst Job Cost Rt Sch for Proj Orgid:' ||
1600: TO_CHAR(l_prev_proj_orgid);
1601: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1602: END IF;
1603: l_fi_others_rejct_reason_tab(i) := 'PA_FCST_NO_JOB_SCH_ID';

Line 1601: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1597: WHEN NO_DATA_FOUND THEN
1598: IF P_PA_DEBUG_MODE = 'Y' THEN
1599: PA_DEBUG.g_err_stage := 'No Fcst Job Cost Rt Sch for Proj Orgid:' ||
1600: TO_CHAR(l_prev_proj_orgid);
1601: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1602: END IF;
1603: l_fi_others_rejct_reason_tab(i) := 'PA_FCST_NO_JOB_SCH_ID';
1604: l_fi_process_flag_tab(i) := 'N';
1605: END;

Line 1709: IF P_PA_DEBUG_MODE = 'Y' THEN

1705: l_asg_fcst_jobid_tab(i) := l_asg_fcst_job_id;
1706: l_asg_fcst_jobgroupid_tab(i) := l_asg_fcst_job_group_id;
1707: EXCEPTION
1708: WHEN NO_DATA_FOUND THEN
1709: IF P_PA_DEBUG_MODE = 'Y' THEN
1710: PA_DEBUG.g_err_stage := 'Invalid Assignment Id:' ||
1711: TO_CHAR(l_prev_asg_id);
1712: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1713: END IF;

Line 1710: PA_DEBUG.g_err_stage := 'Invalid Assignment Id:' ||

1706: l_asg_fcst_jobgroupid_tab(i) := l_asg_fcst_job_group_id;
1707: EXCEPTION
1708: WHEN NO_DATA_FOUND THEN
1709: IF P_PA_DEBUG_MODE = 'Y' THEN
1710: PA_DEBUG.g_err_stage := 'Invalid Assignment Id:' ||
1711: TO_CHAR(l_prev_asg_id);
1712: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1713: END IF;
1714: l_fi_others_rejct_reason_tab(i) := 'PA_FP_INVALID_ASG_ID';

Line 1712: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1708: WHEN NO_DATA_FOUND THEN
1709: IF P_PA_DEBUG_MODE = 'Y' THEN
1710: PA_DEBUG.g_err_stage := 'Invalid Assignment Id:' ||
1711: TO_CHAR(l_prev_asg_id);
1712: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1713: END IF;
1714: l_fi_others_rejct_reason_tab(i) := 'PA_FP_INVALID_ASG_ID';
1715: l_fi_process_flag_tab(i) := 'N';
1716: RAISE;

Line 1768: IF P_PA_DEBUG_MODE = 'Y' THEN

1764: l_fi_process_flag_tab(i) := 'N';
1765: l_asg_fcst_job_id := NULL;
1766: l_asg_fcst_job_group_id := NULL;
1767: WHEN OTHERS THEN
1768: IF P_PA_DEBUG_MODE = 'Y' THEN
1769: PA_DEBUG.g_err_stage := 'Inside Prj Role others Excep';
1770: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1771: END IF;
1772: RAISE;

Line 1769: PA_DEBUG.g_err_stage := 'Inside Prj Role others Excep';

1765: l_asg_fcst_job_id := NULL;
1766: l_asg_fcst_job_group_id := NULL;
1767: WHEN OTHERS THEN
1768: IF P_PA_DEBUG_MODE = 'Y' THEN
1769: PA_DEBUG.g_err_stage := 'Inside Prj Role others Excep';
1770: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1771: END IF;
1772: RAISE;
1773: END;

Line 1770: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1766: l_asg_fcst_job_group_id := NULL;
1767: WHEN OTHERS THEN
1768: IF P_PA_DEBUG_MODE = 'Y' THEN
1769: PA_DEBUG.g_err_stage := 'Inside Prj Role others Excep';
1770: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1771: END IF;
1772: RAISE;
1773: END;
1774: END IF; /* fi item type = R chk */

Line 1820: IF P_PA_DEBUG_MODE = 'Y' THEN

1816: WHEN NO_DATA_FOUND THEN
1817: l_fi_process_flag_tab(i) := 'N';
1818: l_cc_exp_category := NULL;
1819: WHEN OTHERS THEN
1820: IF P_PA_DEBUG_MODE = 'Y' THEN
1821: PA_DEBUG.g_err_stage := 'Inside Exp Type others Excep';
1822: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1823: END IF;
1824: RAISE;

Line 1821: PA_DEBUG.g_err_stage := 'Inside Exp Type others Excep';

1817: l_fi_process_flag_tab(i) := 'N';
1818: l_cc_exp_category := NULL;
1819: WHEN OTHERS THEN
1820: IF P_PA_DEBUG_MODE = 'Y' THEN
1821: PA_DEBUG.g_err_stage := 'Inside Exp Type others Excep';
1822: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1823: END IF;
1824: RAISE;
1825: END;

Line 1822: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1818: l_cc_exp_category := NULL;
1819: WHEN OTHERS THEN
1820: IF P_PA_DEBUG_MODE = 'Y' THEN
1821: PA_DEBUG.g_err_stage := 'Inside Exp Type others Excep';
1822: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1823: END IF;
1824: RAISE;
1825: END;
1826: END IF;

Line 1852: IF P_PA_DEBUG_MODE = 'Y' THEN

1848: l_fi_delete_flag_tab(i) );
1849: dbms_output.put_line('fi id :'||l_fi_id_tab(i) ); */
1850: WHEN OTHERS THEN
1851: retcode := '2';
1852: IF P_PA_DEBUG_MODE = 'Y' THEN
1853: PA_DEBUG.g_err_stage := 'Inside FI Dtls others Excep';
1854: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1855: END IF;
1856: RAISE;

Line 1853: PA_DEBUG.g_err_stage := 'Inside FI Dtls others Excep';

1849: dbms_output.put_line('fi id :'||l_fi_id_tab(i) ); */
1850: WHEN OTHERS THEN
1851: retcode := '2';
1852: IF P_PA_DEBUG_MODE = 'Y' THEN
1853: PA_DEBUG.g_err_stage := 'Inside FI Dtls others Excep';
1854: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1855: END IF;
1856: RAISE;
1857: END;

Line 1854: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

1850: WHEN OTHERS THEN
1851: retcode := '2';
1852: IF P_PA_DEBUG_MODE = 'Y' THEN
1853: PA_DEBUG.g_err_stage := 'Inside FI Dtls others Excep';
1854: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1855: END IF;
1856: RAISE;
1857: END;
1858: END IF;

Line 2089: IF P_PA_DEBUG_MODE = 'Y' THEN

2085: ELSE
2086: l_amount_calc_mode := 'ALL';
2087: END IF;
2088:
2089: IF P_PA_DEBUG_MODE = 'Y' THEN
2090: PA_DEBUG.g_err_stage := 'Bef calling Rate API for Asg Id:Person Id' ||
2091: TO_CHAR(l_prev_rt_asg_id)||' : '||
2092: TO_CHAR(l_prev_rt_personid);
2093: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

Line 2090: PA_DEBUG.g_err_stage := 'Bef calling Rate API for Asg Id:Person Id' ||

2086: l_amount_calc_mode := 'ALL';
2087: END IF;
2088:
2089: IF P_PA_DEBUG_MODE = 'Y' THEN
2090: PA_DEBUG.g_err_stage := 'Bef calling Rate API for Asg Id:Person Id' ||
2091: TO_CHAR(l_prev_rt_asg_id)||' : '||
2092: TO_CHAR(l_prev_rt_personid);
2093: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2094: END IF;

Line 2093: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

2089: IF P_PA_DEBUG_MODE = 'Y' THEN
2090: PA_DEBUG.g_err_stage := 'Bef calling Rate API for Asg Id:Person Id' ||
2091: TO_CHAR(l_prev_rt_asg_id)||' : '||
2092: TO_CHAR(l_prev_rt_personid);
2093: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2094: END IF;
2095: /* dbms_output.put_line('before calling Rate api :count'||
2096: l_rt_start_date_tab.count); */
2097:

Line 2098: IF P_PA_DEBUG_MODE = 'Y' THEN -- Bug 7423839

2094: END IF;
2095: /* dbms_output.put_line('before calling Rate api :count'||
2096: l_rt_start_date_tab.count); */
2097:
2098: IF P_PA_DEBUG_MODE = 'Y' THEN -- Bug 7423839
2099: PA_DEBUG.g_err_stage := 'F I Amt: prj id :'||l_prev_rt_prj_id||' proj type:'||l_prev_rt_prj_type;
2100: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2101: END IF;
2102:

Line 2099: PA_DEBUG.g_err_stage := 'F I Amt: prj id :'||l_prev_rt_prj_id||' proj type:'||l_prev_rt_prj_type;

2095: /* dbms_output.put_line('before calling Rate api :count'||
2096: l_rt_start_date_tab.count); */
2097:
2098: IF P_PA_DEBUG_MODE = 'Y' THEN -- Bug 7423839
2099: PA_DEBUG.g_err_stage := 'F I Amt: prj id :'||l_prev_rt_prj_id||' proj type:'||l_prev_rt_prj_type;
2100: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2101: END IF;
2102:
2103: Begin

Line 2100: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

2096: l_rt_start_date_tab.count); */
2097:
2098: IF P_PA_DEBUG_MODE = 'Y' THEN -- Bug 7423839
2099: PA_DEBUG.g_err_stage := 'F I Amt: prj id :'||l_prev_rt_prj_id||' proj type:'||l_prev_rt_prj_type;
2100: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2101: END IF;
2102:
2103: Begin
2104: PA_RATE_PVT_PKG.Calc_Rate_Amount(

Line 2203: IF P_PA_DEBUG_MODE = 'Y' THEN

2199: X_MSG_DATA => lx_rt_msg_data );
2200:
2201: exception -- Bug 7423839
2202: when others then
2203: IF P_PA_DEBUG_MODE = 'Y' THEN
2204: PA_DEBUG.g_err_stage := 'Error in PA_RATE_PVT_PKG.Calc_Rate_Amount';
2205: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2206: PA_DEBUG.Log_Message(p_message => 'x_msg_count '||lx_rt_msg_count || 'l_msg_data '||substr(lx_rt_msg_data,1,300));
2207: PA_DEBUG.Log_Message(p_message => 'X_ERROR_MSG '||substr(lx_rt_error_msg,1,300) || 'X_RETURN_STATUS '||lx_rt_return_status);

Line 2204: PA_DEBUG.g_err_stage := 'Error in PA_RATE_PVT_PKG.Calc_Rate_Amount';

2200:
2201: exception -- Bug 7423839
2202: when others then
2203: IF P_PA_DEBUG_MODE = 'Y' THEN
2204: PA_DEBUG.g_err_stage := 'Error in PA_RATE_PVT_PKG.Calc_Rate_Amount';
2205: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2206: PA_DEBUG.Log_Message(p_message => 'x_msg_count '||lx_rt_msg_count || 'l_msg_data '||substr(lx_rt_msg_data,1,300));
2207: PA_DEBUG.Log_Message(p_message => 'X_ERROR_MSG '||substr(lx_rt_error_msg,1,300) || 'X_RETURN_STATUS '||lx_rt_return_status);
2208: END IF;

Line 2205: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

2201: exception -- Bug 7423839
2202: when others then
2203: IF P_PA_DEBUG_MODE = 'Y' THEN
2204: PA_DEBUG.g_err_stage := 'Error in PA_RATE_PVT_PKG.Calc_Rate_Amount';
2205: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2206: PA_DEBUG.Log_Message(p_message => 'x_msg_count '||lx_rt_msg_count || 'l_msg_data '||substr(lx_rt_msg_data,1,300));
2207: PA_DEBUG.Log_Message(p_message => 'X_ERROR_MSG '||substr(lx_rt_error_msg,1,300) || 'X_RETURN_STATUS '||lx_rt_return_status);
2208: END IF;
2209: Raise;

Line 2206: PA_DEBUG.Log_Message(p_message => 'x_msg_count '||lx_rt_msg_count || 'l_msg_data '||substr(lx_rt_msg_data,1,300));

2202: when others then
2203: IF P_PA_DEBUG_MODE = 'Y' THEN
2204: PA_DEBUG.g_err_stage := 'Error in PA_RATE_PVT_PKG.Calc_Rate_Amount';
2205: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2206: PA_DEBUG.Log_Message(p_message => 'x_msg_count '||lx_rt_msg_count || 'l_msg_data '||substr(lx_rt_msg_data,1,300));
2207: PA_DEBUG.Log_Message(p_message => 'X_ERROR_MSG '||substr(lx_rt_error_msg,1,300) || 'X_RETURN_STATUS '||lx_rt_return_status);
2208: END IF;
2209: Raise;
2210: end;

Line 2207: PA_DEBUG.Log_Message(p_message => 'X_ERROR_MSG '||substr(lx_rt_error_msg,1,300) || 'X_RETURN_STATUS '||lx_rt_return_status);

2203: IF P_PA_DEBUG_MODE = 'Y' THEN
2204: PA_DEBUG.g_err_stage := 'Error in PA_RATE_PVT_PKG.Calc_Rate_Amount';
2205: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2206: PA_DEBUG.Log_Message(p_message => 'x_msg_count '||lx_rt_msg_count || 'l_msg_data '||substr(lx_rt_msg_data,1,300));
2207: PA_DEBUG.Log_Message(p_message => 'X_ERROR_MSG '||substr(lx_rt_error_msg,1,300) || 'X_RETURN_STATUS '||lx_rt_return_status);
2208: END IF;
2209: Raise;
2210: end;
2211:

Line 2212: IF P_PA_DEBUG_MODE = 'Y' THEN

2208: END IF;
2209: Raise;
2210: end;
2211:
2212: IF P_PA_DEBUG_MODE = 'Y' THEN
2213: PA_DEBUG.g_err_stage := 'Aft calling Rate API';
2214: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2215: END IF;
2216: /* dbms_output.put_line('after calling Rate api'); */

Line 2213: PA_DEBUG.g_err_stage := 'Aft calling Rate API';

2209: Raise;
2210: end;
2211:
2212: IF P_PA_DEBUG_MODE = 'Y' THEN
2213: PA_DEBUG.g_err_stage := 'Aft calling Rate API';
2214: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2215: END IF;
2216: /* dbms_output.put_line('after calling Rate api'); */
2217:

Line 2214: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

2210: end;
2211:
2212: IF P_PA_DEBUG_MODE = 'Y' THEN
2213: PA_DEBUG.g_err_stage := 'Aft calling Rate API';
2214: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2215: END IF;
2216: /* dbms_output.put_line('after calling Rate api'); */
2217:
2218: FOR k IN l_fi_process_flag_tab.FIRST .. l_fi_process_flag_tab.LAST LOOP

Line 2481: IF P_PA_DEBUG_MODE = 'Y' THEN

2477: dbms_output.put_line('count recvr orgz :'||lx_cc_recvr_orgzid_tab.count);
2478: dbms_output.put_line('count recvr org :'||lx_cc_recvr_orgid_tab.count);
2479: dbms_output.put_line('count prvdr org :'||lx_cc_prvdr_orgid_tab.count); */
2480:
2481: IF P_PA_DEBUG_MODE = 'Y' THEN
2482: PA_DEBUG.g_err_stage := 'Bef calling CC API';
2483: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2484: END IF;
2485:

Line 2482: PA_DEBUG.g_err_stage := 'Bef calling CC API';

2478: dbms_output.put_line('count recvr org :'||lx_cc_recvr_orgid_tab.count);
2479: dbms_output.put_line('count prvdr org :'||lx_cc_prvdr_orgid_tab.count); */
2480:
2481: IF P_PA_DEBUG_MODE = 'Y' THEN
2482: PA_DEBUG.g_err_stage := 'Bef calling CC API';
2483: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2484: END IF;
2485:
2486: Pa_Cc_Ident.PA_CC_IDENTIFY_TXN_FI(

Line 2483: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

2479: dbms_output.put_line('count prvdr org :'||lx_cc_prvdr_orgid_tab.count); */
2480:
2481: IF P_PA_DEBUG_MODE = 'Y' THEN
2482: PA_DEBUG.g_err_stage := 'Bef calling CC API';
2483: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2484: END IF;
2485:
2486: Pa_Cc_Ident.PA_CC_IDENTIFY_TXN_FI(
2487: P_ExpOrganizationIdTab => l_fi_exp_organizationid_tab,

Line 2512: IF P_PA_DEBUG_MODE = 'Y' THEN

2508: X_PrvdrOrgIdTab => lx_cc_prvdr_orgid_tab,
2509: X_Error_Stage => lx_cc_error_stage,
2510: X_Error_Code => lx_cc_error_code );
2511:
2512: IF P_PA_DEBUG_MODE = 'Y' THEN
2513: PA_DEBUG.g_err_stage := 'Aft calling CC API';
2514: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2515: END IF;
2516:

Line 2513: PA_DEBUG.g_err_stage := 'Aft calling CC API';

2509: X_Error_Stage => lx_cc_error_stage,
2510: X_Error_Code => lx_cc_error_code );
2511:
2512: IF P_PA_DEBUG_MODE = 'Y' THEN
2513: PA_DEBUG.g_err_stage := 'Aft calling CC API';
2514: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2515: END IF;
2516:
2517: /* dbms_output.put_line('aft calling cc ident ');

Line 2514: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

2510: X_Error_Code => lx_cc_error_code );
2511:
2512: IF P_PA_DEBUG_MODE = 'Y' THEN
2513: PA_DEBUG.g_err_stage := 'Aft calling CC API';
2514: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2515: END IF;
2516:
2517: /* dbms_output.put_line('aft calling cc ident ');
2518: dbms_output.put_line('count exp orgzid :'||l_fi_exp_organizationid_tab.count);

Line 3283: IF P_PA_DEBUG_MODE = 'Y' THEN

3279: dbms_output.put_line('tp job id :'||lx_tp_job_id.count);
3280:
3281: dbms_output.put_line('bef calling trf price'); */
3282:
3283: IF P_PA_DEBUG_MODE = 'Y' THEN
3284: PA_DEBUG.g_err_stage := 'Bef calling Trf Price API';
3285: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3286: END IF;
3287:

Line 3284: PA_DEBUG.g_err_stage := 'Bef calling Trf Price API';

3280:
3281: dbms_output.put_line('bef calling trf price'); */
3282:
3283: IF P_PA_DEBUG_MODE = 'Y' THEN
3284: PA_DEBUG.g_err_stage := 'Bef calling Trf Price API';
3285: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3286: END IF;
3287:
3288: Pa_Cc_Transfer_Price.Get_Transfer_Price(

Line 3285: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

3281: dbms_output.put_line('bef calling trf price'); */
3282:
3283: IF P_PA_DEBUG_MODE = 'Y' THEN
3284: PA_DEBUG.g_err_stage := 'Bef calling Trf Price API';
3285: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3286: END IF;
3287:
3288: Pa_Cc_Transfer_Price.Get_Transfer_Price(
3289: p_module_name => 'FORECAST',

Line 3350: IF P_PA_DEBUG_MODE = 'Y' THEN

3346: x_tp_job_id => lx_tp_job_id,
3347: x_error_code => lx_tp_error_code,
3348: x_return_status => lx_tp_return_status );
3349:
3350: IF P_PA_DEBUG_MODE = 'Y' THEN
3351: PA_DEBUG.g_err_stage := 'Aft calling Trf Price API';
3352: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3353: END IF;
3354: /* dbms_output.put_line('aft calling trf price'); */

Line 3351: PA_DEBUG.g_err_stage := 'Aft calling Trf Price API';

3347: x_error_code => lx_tp_error_code,
3348: x_return_status => lx_tp_return_status );
3349:
3350: IF P_PA_DEBUG_MODE = 'Y' THEN
3351: PA_DEBUG.g_err_stage := 'Aft calling Trf Price API';
3352: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3353: END IF;
3354: /* dbms_output.put_line('aft calling trf price'); */
3355:

Line 3352: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

3348: x_return_status => lx_tp_return_status );
3349:
3350: IF P_PA_DEBUG_MODE = 'Y' THEN
3351: PA_DEBUG.g_err_stage := 'Aft calling Trf Price API';
3352: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3353: END IF;
3354: /* dbms_output.put_line('aft calling trf price'); */
3355:
3356: FORALL l_trf_upd IN 1 .. l_fi_date_tab.COUNT

Line 3860: IF P_PA_DEBUG_MODE = 'Y' THEN

3856: EXCEPTION
3857: WHEN NO_DATA_FOUND THEN
3858: NULL;
3859: WHEN OTHERS THEN
3860: IF P_PA_DEBUG_MODE = 'Y' THEN
3861: PA_DEBUG.g_err_stage := 'Inside FI Amt Dtls others Excep';
3862: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3863: END IF;
3864: RAISE;

Line 3861: PA_DEBUG.g_err_stage := 'Inside FI Amt Dtls others Excep';

3857: WHEN NO_DATA_FOUND THEN
3858: NULL;
3859: WHEN OTHERS THEN
3860: IF P_PA_DEBUG_MODE = 'Y' THEN
3861: PA_DEBUG.g_err_stage := 'Inside FI Amt Dtls others Excep';
3862: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3863: END IF;
3864: RAISE;
3865: END;

Line 3862: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

3858: NULL;
3859: WHEN OTHERS THEN
3860: IF P_PA_DEBUG_MODE = 'Y' THEN
3861: PA_DEBUG.g_err_stage := 'Inside FI Amt Dtls others Excep';
3862: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3863: END IF;
3864: RAISE;
3865: END;
3866:

Line 3963: IF P_PA_DEBUG_MODE = 'Y' THEN

3959:
3960: /* dbms_output.put_line('fi amt tab count :'||l_fid_fcst_itemid.count);
3961: dbms_output.put_line('bef inserting FI amount dtls :'); */
3962:
3963: IF P_PA_DEBUG_MODE = 'Y' THEN
3964: PA_DEBUG.g_err_stage := 'Bef inserting FI Amt Dtls';
3965: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3966: END IF;
3967:

Line 3964: PA_DEBUG.g_err_stage := 'Bef inserting FI Amt Dtls';

3960: /* dbms_output.put_line('fi amt tab count :'||l_fid_fcst_itemid.count);
3961: dbms_output.put_line('bef inserting FI amount dtls :'); */
3962:
3963: IF P_PA_DEBUG_MODE = 'Y' THEN
3964: PA_DEBUG.g_err_stage := 'Bef inserting FI Amt Dtls';
3965: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3966: END IF;
3967:
3968: FORALL b IN 1 .. l_fid_fcst_itemid.COUNT

Line 3965: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

3961: dbms_output.put_line('bef inserting FI amount dtls :'); */
3962:
3963: IF P_PA_DEBUG_MODE = 'Y' THEN
3964: PA_DEBUG.g_err_stage := 'Bef inserting FI Amt Dtls';
3965: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3966: END IF;
3967:
3968: FORALL b IN 1 .. l_fid_fcst_itemid.COUNT
3969: INSERT INTO Pa_Fi_Amount_Details(

Line 4096: IF P_PA_DEBUG_MODE = 'Y' THEN

4092: l_fid_expfunc_tp_rate_type(b),
4093: l_fid_expfunc_tp_ex_rate(b),
4094: l_fid_expfunc_tp_amt(b) );
4095:
4096: IF P_PA_DEBUG_MODE = 'Y' THEN
4097: PA_DEBUG.g_err_stage := 'Bef updating FI Amt Dtls';
4098: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4099: END IF;
4100: /* dbms_output.put_line('bef updating FI amount dtls :'); */

Line 4097: PA_DEBUG.g_err_stage := 'Bef updating FI Amt Dtls';

4093: l_fid_expfunc_tp_ex_rate(b),
4094: l_fid_expfunc_tp_amt(b) );
4095:
4096: IF P_PA_DEBUG_MODE = 'Y' THEN
4097: PA_DEBUG.g_err_stage := 'Bef updating FI Amt Dtls';
4098: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4099: END IF;
4100: /* dbms_output.put_line('bef updating FI amount dtls :'); */
4101:

Line 4098: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

4094: l_fid_expfunc_tp_amt(b) );
4095:
4096: IF P_PA_DEBUG_MODE = 'Y' THEN
4097: PA_DEBUG.g_err_stage := 'Bef updating FI Amt Dtls';
4098: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4099: END IF;
4100: /* dbms_output.put_line('bef updating FI amount dtls :'); */
4101:
4102: FORALL l_upd_idx IN 1 .. l_fid_upd_fcst_itemid.COUNT

Line 4117: IF P_PA_DEBUG_MODE = 'Y' THEN

4113: WHERE
4114: Forecast_Item_Id = l_fid_upd_fcst_itemid(l_upd_idx) AND
4115: Line_Num = l_fid_upd_line_num(l_upd_idx);
4116:
4117: IF P_PA_DEBUG_MODE = 'Y' THEN
4118: PA_DEBUG.g_err_stage := 'Bef updating Fcst Items';
4119: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4120: END IF;
4121: /* dbms_output.put_line('bef updating FIs :'); */

Line 4118: PA_DEBUG.g_err_stage := 'Bef updating Fcst Items';

4114: Forecast_Item_Id = l_fid_upd_fcst_itemid(l_upd_idx) AND
4115: Line_Num = l_fid_upd_line_num(l_upd_idx);
4116:
4117: IF P_PA_DEBUG_MODE = 'Y' THEN
4118: PA_DEBUG.g_err_stage := 'Bef updating Fcst Items';
4119: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4120: END IF;
4121: /* dbms_output.put_line('bef updating FIs :'); */
4122:

Line 4119: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

4115: Line_Num = l_fid_upd_line_num(l_upd_idx);
4116:
4117: IF P_PA_DEBUG_MODE = 'Y' THEN
4118: PA_DEBUG.g_err_stage := 'Bef updating Fcst Items';
4119: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4120: END IF;
4121: /* dbms_output.put_line('bef updating FIs :'); */
4122:
4123: FOR l_tupd IN 1 .. l_fi_id_tab.COUNT LOOP

Line 4253: pa_debug.write('Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts', 'Start of populating TP Rate columns', 3);

4249: /* Bug 3051110 - Code added for populating two columns in pa_project_assignments table
4250: TP Enhancement */
4251:
4252: IF p_debug_mode = 'Y' THEN
4253: pa_debug.write('Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts', 'Start of populating TP Rate columns', 3);
4254: END IF;
4255:
4256: /* The cursor Cur_Assignments will get all the assignment_ids processed in this particular request */
4257:

Line 4264: pa_debug.write('Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts', 'Currently Populating for assignment_id :'||l_assignment_id, 3);

4260: FETCH Cur_Assignments INTO l_assignment_id;
4261: EXIT WHEN Cur_Assignments%NOTFOUND;
4262:
4263: IF p_debug_mode = 'Y' THEN
4264: pa_debug.write('Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts', 'Currently Populating for assignment_id :'||l_assignment_id, 3);
4265: END IF;
4266:
4267: /*
4268: Getting the sum of projfunc_transfer_price and item_quantity from pa_forecast_items table for the assignment_id,

Line 4288: pa_debug.write('Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts', 'TP rate for assignment:'||l_sum_transfer_price, 3);

4284: l_sum_item_quantity := Null;
4285: END;
4286:
4287: IF p_debug_mode = 'Y' THEN
4288: pa_debug.write('Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts', 'TP rate for assignment:'||l_sum_transfer_price, 3);
4289: pa_debug.write('Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts', 'Item Quantity for assignment:'||l_sum_item_quantity, 3);
4290: pa_debug.write('Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts', 'Proj Func Curency:'||l_prjfunc_curr_code, 3);
4291: END IF;
4292:

Line 4289: pa_debug.write('Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts', 'Item Quantity for assignment:'||l_sum_item_quantity, 3);

4285: END;
4286:
4287: IF p_debug_mode = 'Y' THEN
4288: pa_debug.write('Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts', 'TP rate for assignment:'||l_sum_transfer_price, 3);
4289: pa_debug.write('Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts', 'Item Quantity for assignment:'||l_sum_item_quantity, 3);
4290: pa_debug.write('Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts', 'Proj Func Curency:'||l_prjfunc_curr_code, 3);
4291: END IF;
4292:
4293: IF l_sum_transfer_price is NULL OR l_sum_item_quantity is NULL OR l_sum_item_quantity = 0 THEN

Line 4290: pa_debug.write('Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts', 'Proj Func Curency:'||l_prjfunc_curr_code, 3);

4286:
4287: IF p_debug_mode = 'Y' THEN
4288: pa_debug.write('Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts', 'TP rate for assignment:'||l_sum_transfer_price, 3);
4289: pa_debug.write('Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts', 'Item Quantity for assignment:'||l_sum_item_quantity, 3);
4290: pa_debug.write('Pa_Fi_Amt_Calc_Pkg.Calculate_Fcst_Amounts', 'Proj Func Curency:'||l_prjfunc_curr_code, 3);
4291: END IF;
4292:
4293: IF l_sum_transfer_price is NULL OR l_sum_item_quantity is NULL OR l_sum_item_quantity = 0 THEN
4294: PA_ASSIGNMENTS_PVT.Update_Transfer_Price

Line 4318: IF P_PA_DEBUG_MODE = 'Y' THEN

4314: END LOOP;
4315: CLOSE Cur_Assignments;
4316:
4317: IF p_run_mode = 'F' THEN
4318: IF P_PA_DEBUG_MODE = 'Y' THEN
4319: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_All and returning';
4320: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4321: END IF;
4322: CLOSE fcst_item_All;

Line 4319: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_All and returning';

4315: CLOSE Cur_Assignments;
4316:
4317: IF p_run_mode = 'F' THEN
4318: IF P_PA_DEBUG_MODE = 'Y' THEN
4319: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_All and returning';
4320: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4321: END IF;
4322: CLOSE fcst_item_All;
4323: ELSIF p_run_mode = 'I' THEN

Line 4320: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

4316:
4317: IF p_run_mode = 'F' THEN
4318: IF P_PA_DEBUG_MODE = 'Y' THEN
4319: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_All and returning';
4320: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4321: END IF;
4322: CLOSE fcst_item_All;
4323: ELSIF p_run_mode = 'I' THEN
4324: IF P_PA_DEBUG_MODE = 'Y' THEN

Line 4324: IF P_PA_DEBUG_MODE = 'Y' THEN

4320: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4321: END IF;
4322: CLOSE fcst_item_All;
4323: ELSIF p_run_mode = 'I' THEN
4324: IF P_PA_DEBUG_MODE = 'Y' THEN
4325: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_Inc and returning';
4326: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4327: END IF;
4328: CLOSE fcst_item_Inc;

Line 4325: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_Inc and returning';

4321: END IF;
4322: CLOSE fcst_item_All;
4323: ELSIF p_run_mode = 'I' THEN
4324: IF P_PA_DEBUG_MODE = 'Y' THEN
4325: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_Inc and returning';
4326: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4327: END IF;
4328: CLOSE fcst_item_Inc;
4329: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND

Line 4326: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

4322: CLOSE fcst_item_All;
4323: ELSIF p_run_mode = 'I' THEN
4324: IF P_PA_DEBUG_MODE = 'Y' THEN
4325: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_Inc and returning';
4326: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4327: END IF;
4328: CLOSE fcst_item_Inc;
4329: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
4330: p_project_id IS NOT NULL AND p_assignment_id IS NULL THEN

Line 4331: IF P_PA_DEBUG_MODE = 'Y' THEN

4327: END IF;
4328: CLOSE fcst_item_Inc;
4329: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
4330: p_project_id IS NOT NULL AND p_assignment_id IS NULL THEN
4331: IF P_PA_DEBUG_MODE = 'Y' THEN
4332: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_Prj and returning';
4333: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4334: END IF;
4335: CLOSE fcst_item_Prj;

Line 4332: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_Prj and returning';

4328: CLOSE fcst_item_Inc;
4329: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
4330: p_project_id IS NOT NULL AND p_assignment_id IS NULL THEN
4331: IF P_PA_DEBUG_MODE = 'Y' THEN
4332: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_Prj and returning';
4333: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4334: END IF;
4335: CLOSE fcst_item_Prj;
4336: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND

Line 4333: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

4329: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
4330: p_project_id IS NOT NULL AND p_assignment_id IS NULL THEN
4331: IF P_PA_DEBUG_MODE = 'Y' THEN
4332: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_Prj and returning';
4333: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4334: END IF;
4335: CLOSE fcst_item_Prj;
4336: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
4337: p_project_id IS NOT NULL AND p_assignment_id IS NOT NULL THEN

Line 4338: IF P_PA_DEBUG_MODE = 'Y' THEN

4334: END IF;
4335: CLOSE fcst_item_Prj;
4336: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
4337: p_project_id IS NOT NULL AND p_assignment_id IS NOT NULL THEN
4338: IF P_PA_DEBUG_MODE = 'Y' THEN
4339: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_Prj_Asg and returning';
4340: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4341: END IF;
4342: CLOSE fcst_item_Prj_Asg;

Line 4339: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_Prj_Asg and returning';

4335: CLOSE fcst_item_Prj;
4336: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
4337: p_project_id IS NOT NULL AND p_assignment_id IS NOT NULL THEN
4338: IF P_PA_DEBUG_MODE = 'Y' THEN
4339: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_Prj_Asg and returning';
4340: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4341: END IF;
4342: CLOSE fcst_item_Prj_Asg;
4343: ELSIF p_run_mode = 'P' AND p_select_criteria in ( '02','03') THEN

Line 4340: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

4336: ELSIF p_run_mode = 'P' AND p_select_criteria = '01' AND
4337: p_project_id IS NOT NULL AND p_assignment_id IS NOT NULL THEN
4338: IF P_PA_DEBUG_MODE = 'Y' THEN
4339: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_Prj_Asg and returning';
4340: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4341: END IF;
4342: CLOSE fcst_item_Prj_Asg;
4343: ELSIF p_run_mode = 'P' AND p_select_criteria in ( '02','03') THEN
4344: IF P_PA_DEBUG_MODE = 'Y' THEN

Line 4344: IF P_PA_DEBUG_MODE = 'Y' THEN

4340: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4341: END IF;
4342: CLOSE fcst_item_Prj_Asg;
4343: ELSIF p_run_mode = 'P' AND p_select_criteria in ( '02','03') THEN
4344: IF P_PA_DEBUG_MODE = 'Y' THEN
4345: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_Organization and returning';
4346: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4347: END IF;
4348: CLOSE fcst_item_Organization;

Line 4345: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_Organization and returning';

4341: END IF;
4342: CLOSE fcst_item_Prj_Asg;
4343: ELSIF p_run_mode = 'P' AND p_select_criteria in ( '02','03') THEN
4344: IF P_PA_DEBUG_MODE = 'Y' THEN
4345: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_Organization and returning';
4346: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4347: END IF;
4348: CLOSE fcst_item_Organization;
4349: END IF;

Line 4346: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

4342: CLOSE fcst_item_Prj_Asg;
4343: ELSIF p_run_mode = 'P' AND p_select_criteria in ( '02','03') THEN
4344: IF P_PA_DEBUG_MODE = 'Y' THEN
4345: PA_DEBUG.g_err_stage := 'Closing Fcst_Item_Organization and returning';
4346: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4347: END IF;
4348: CLOSE fcst_item_Organization;
4349: END IF;
4350: /* Bug fix:4329035 */

Line 4351: IF P_PA_DEBUG_MODE = 'Y' THEN

4347: END IF;
4348: CLOSE fcst_item_Organization;
4349: END IF;
4350: /* Bug fix:4329035 */
4351: IF P_PA_DEBUG_MODE = 'Y' THEN
4352: PA_DEBUG.Reset_Curr_Function;
4353: END IF;
4354: RETURN;
4355: EXCEPTION

Line 4352: PA_DEBUG.Reset_Curr_Function;

4348: CLOSE fcst_item_Organization;
4349: END IF;
4350: /* Bug fix:4329035 */
4351: IF P_PA_DEBUG_MODE = 'Y' THEN
4352: PA_DEBUG.Reset_Curr_Function;
4353: END IF;
4354: RETURN;
4355: EXCEPTION
4356: WHEN OTHERS THEN

Line 4358: IF P_PA_DEBUG_MODE = 'Y' THEN

4354: RETURN;
4355: EXCEPTION
4356: WHEN OTHERS THEN
4357: retcode := '2';
4358: IF P_PA_DEBUG_MODE = 'Y' THEN
4359: PA_DEBUG.g_err_stage := 'Inside Main Others Excep';
4360: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4361: PA_DEBUG.Log_Message(p_message => SQLERRM); -- Bug 7423839
4362: PA_DEBUG.Reset_Curr_Function;

Line 4359: PA_DEBUG.g_err_stage := 'Inside Main Others Excep';

4355: EXCEPTION
4356: WHEN OTHERS THEN
4357: retcode := '2';
4358: IF P_PA_DEBUG_MODE = 'Y' THEN
4359: PA_DEBUG.g_err_stage := 'Inside Main Others Excep';
4360: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4361: PA_DEBUG.Log_Message(p_message => SQLERRM); -- Bug 7423839
4362: PA_DEBUG.Reset_Curr_Function;
4363: END IF;

Line 4360: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

4356: WHEN OTHERS THEN
4357: retcode := '2';
4358: IF P_PA_DEBUG_MODE = 'Y' THEN
4359: PA_DEBUG.g_err_stage := 'Inside Main Others Excep';
4360: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4361: PA_DEBUG.Log_Message(p_message => SQLERRM); -- Bug 7423839
4362: PA_DEBUG.Reset_Curr_Function;
4363: END IF;
4364: RAISE;

Line 4361: PA_DEBUG.Log_Message(p_message => SQLERRM); -- Bug 7423839

4357: retcode := '2';
4358: IF P_PA_DEBUG_MODE = 'Y' THEN
4359: PA_DEBUG.g_err_stage := 'Inside Main Others Excep';
4360: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4361: PA_DEBUG.Log_Message(p_message => SQLERRM); -- Bug 7423839
4362: PA_DEBUG.Reset_Curr_Function;
4363: END IF;
4364: RAISE;
4365: END;

Line 4362: PA_DEBUG.Reset_Curr_Function;

4358: IF P_PA_DEBUG_MODE = 'Y' THEN
4359: PA_DEBUG.g_err_stage := 'Inside Main Others Excep';
4360: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4361: PA_DEBUG.Log_Message(p_message => SQLERRM); -- Bug 7423839
4362: PA_DEBUG.Reset_Curr_Function;
4363: END IF;
4364: RAISE;
4365: END;
4366: END Pa_Fi_Amt_Calc_Pkg;