[Home] [Help]
PACKAGE: APPS.PA_PROJECT_CHECK_PVT
Source
4
1 package PA_PROJECT_CHECK_PVT AUTHID DEFINER as
2 /*$Header: PAPMPCVS.pls 120.2 2007/02/06 10:24:39 dthakker ship $*/
3
5 --Package constant used for package version validation
6
7 G_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
8 -- Package variable to indicate whether some date checks in Update_task
9 -- need to be deferred until all tasks have been processed
10 G_ParChildTsk_chks_deferred VARCHAR2(1) := 'N';
11
12 -- Required for the Special Task number change handling in
13 -- Update_Project
14
15 TYPE task_number_upd_rec_type IS RECORD
16 (task_index NUMBER ,
17 task_id NUMBER);
18 TYPE task_number_upd_tbl_type IS TABLE OF task_number_upd_rec_type
19 INDEX BY BINARY_INTEGER;
20
21 G_task_num_updated_index_tbl task_number_upd_tbl_type;
22
23 G_index_counter NUMBER := 0;
24
25 --Locking exception
26
27 ROW_ALREADY_LOCKED EXCEPTION;
28 PRAGMA EXCEPTION_INIT(ROW_ALREADY_LOCKED, -54);
29
30 G_PROJECT_NUMBER_GEN_MODE VARCHAR2(30) := PA_PROJECT_UTILS.GetProjNumMode;
31 G_PROJECT_NUMBER_TYPE VARCHAR2(30) := PA_PROJECT_UTILS.GetProjNumType;
32
33 PROCEDURE Check_Delete_Task_OK_Pvt
34 ( p_api_version_number IN NUMBER
35 , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
36 , p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
37 , p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
38 , p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
39 , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
40 , p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
41 , p_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
42 , p_pm_task_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
43 --Project Structure changes done for bug 2765115
44 , p_structure_type IN VARCHAR2 := 'FINANCIAL'
45 , p_task_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
46 --END Project Structure changes done for bug 2765115
47 , p_delete_task_ok_flag OUT NOCOPY VARCHAR2 ); --File.Sql.39 bug 4440895
48
49 PROCEDURE Check_Add_Subtask_OK_Pvt
50 (p_api_version_number IN NUMBER
51 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
52 , p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
53 , p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
54 , p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
55 , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
56 , p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
57 , p_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
58 , p_pm_task_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
59 , p_add_subtask_ok_flag OUT NOCOPY VARCHAR2 ); --File.Sql.39 bug 4440895
60
61 PROCEDURE Check_Unique_Task_Ref_Pvt
62 (p_api_version_number IN NUMBER
63 , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
64 , p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
65 , p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
66 , p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
67 , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
68 , p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
69 , p_pm_task_reference IN VARCHAR2
70 , p_unique_task_ref_flag OUT NOCOPY VARCHAR2 ); --File.Sql.39 bug 4440895
71
72 PROCEDURE Check_Unique_Project_Ref_Pvt
73 (p_api_version_number IN NUMBER
74 , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
75 , p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
76 , p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
77 , p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
78 , p_pm_project_reference IN VARCHAR2
79 , p_unique_project_ref_flag OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
80 );
81
82 PROCEDURE Check_Delete_Project_OK_Pvt
83 (p_api_version_number IN NUMBER
84 , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
85 , p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
86 , p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
87 , p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
88 , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
89 , p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
90 , p_delete_project_ok_flag OUT NOCOPY VARCHAR2 ); --File.Sql.39 bug 4440895
91
92 PROCEDURE Check_Change_Parent_OK_Pvt
93 (p_api_version_number IN NUMBER
94 , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
95 , p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
96 , p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
97 , p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
98 , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
99 , p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
100 , p_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
101 , p_pm_task_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
102 , p_new_parent_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
103 , p_pm_new_parent_task_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
104 , p_change_parent_ok_flag OUT NOCOPY VARCHAR2 ); --File.Sql.39 bug 4440895
105
106 PROCEDURE Check_Change_Proj_Org_OK_Pvt
107 (p_api_version_number IN NUMBER
108 , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
109 , p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
110 , p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
111 , p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
112 , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
113 , p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
114 , p_change_project_org_ok_flag OUT NOCOPY VARCHAR2 ); --File.Sql.39 bug 4440895
115
116 PROCEDURE Check_Unique_Task_Number_Pvt
117 (p_api_version_number IN NUMBER
118 , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
119 , p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
120 , p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
121 , p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
122 , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
123 , p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
124 , p_task_number IN VARCHAR2
125 , p_unique_task_number_flag OUT NOCOPY VARCHAR2 ); --File.Sql.39 bug 4440895
126
127 PROCEDURE Check_Task_Numb_Change_Ok_Pvt
128 ( p_api_version_number IN NUMBER
129 , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
130 , p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
131 , p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
132 , p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
133 , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
134 , p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
135 , p_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
136 , p_pm_task_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
137 , p_task_number_change_Ok_flag OUT NOCOPY VARCHAR2 ); --File.Sql.39 bug 4440895
138
139 PROCEDURE Validate_billing_info_Pvt
140 (p_project_id IN NUMBER, -- Added for Bug 5643876
141 p_project_class_code IN VARCHAR2,
142 p_in_task_rec IN pa_project_pub.task_in_rec_type,
143 p_return_status OUT NOCOPY VARCHAR2 ) ; --File.Sql.39 bug 4440895
144
145 PROCEDURE check_start_end_date_Pvt
146 ( p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
147 ,p_old_start_date IN DATE
148 ,p_new_start_date IN DATE
149 ,p_old_end_date IN DATE
150 ,p_new_end_date IN DATE
151 ,p_update_start_date_flag OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
152 ,p_update_end_date_flag OUT NOCOPY VARCHAR2 ); --File.Sql.39 bug 4440895
153
154 Procedure check_for_one_manager_Pvt
155 (p_project_id IN NUMBER,
156 p_person_id IN NUMBER,
157 p_key_members IN pa_project_pub.project_role_tbl_type,
158 p_start_date IN DATE,
159 p_end_date IN DATE,
160 p_return_status OUT NOCOPY VARCHAR2 ); --File.Sql.39 bug 4440895
161
162 Procedure handle_task_number_change_Pvt
163 (p_project_id IN NUMBER,
164 p_task_id IN NUMBER,
165 p_array_cell_number IN NUMBER,
166 p_in_task_number IN VARCHAR2,
167 p_in_task_tbl IN pa_project_pub.task_in_tbl_type,
168 p_proceed_with_update_flag OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
169 p_return_status OUT NOCOPY VARCHAR2 ) ; --File.Sql.39 bug 4440895
170
171 Procedure check_parent_child_tk_dts_Pvt
172 (p_project_id IN NUMBER,
173 p_return_status OUT NOCOPY VARCHAR2 ); --File.Sql.39 bug 4440895
174
175 /* Added the following procedure for bug #2111806 */
176 Procedure CHECK_MANAGER_DATE_RANGE
177 (p_project_id IN NUMBER,
178 p_return_status OUT NOCOPY VARCHAR2 ); --File.Sql.39 bug 4440895
179
180 end PA_PROJECT_CHECK_PVT;