1 package PA_PROJECT_STUS_UTILS as
2 -- $Header: PAPSUTLS.pls 120.2 2006/11/07 05:39:58 vgottimu noship $
3
4 -- FUNCTION
5 -- Is_Project_Closed
6 -- PURPOSE
7 -- This function returns 'N' or 'Y'
8 -- depending on whether the project is closed or not
9
10 --
11 -- It calls the Is_Project_Status_Closed function.
12 FUNCTION Is_Project_Closed
13 (x_project_id IN NUMBER ) return VARCHAR2;
14
15 --Bug 3059344
16 --pragma RESTRICT_REFERENCES (Is_Project_Closed, WNDS, WNPS);
17
18 -- FUNCTION
19 -- Is_Project_Status_Closed
20 -- PURPOSE
21 -- This function returns 'Y'
22 -- if the given project status has a system status of 'CLOSED',
23 -- 'PENDING_PURGE', 'PARTIALLY_PURGED' and 'PURGED'
24
25 FUNCTION Is_Project_Status_Closed
26 (x_project_status_code IN VARCHAR2 ) return VARCHAR2;
27
28 -- FUNCTION
29 -- Is_ARPR_Project_Status_Closed
30 -- PURPOSE
31 -- This function returns 'Y'
32 -- if the given project status has a system status of 'CLOSED' or
33 -- 'PARTIALLY_PURGED'
34
35 FUNCTION Is_ARPR_Project_Status_Closed
36 (x_project_status_code IN VARCHAR2 ) return VARCHAR2;
37
38
39 -- FUNCTION
40 -- Is_Project_In_Purge_Status
41 -- PURPOSE
42 -- This function returns 'Y'
43 -- if the given project status has a system status of 'PENDING_PURGE',
44 -- 'PARTIALLY_PURGED' and 'PURGED'
45
46 FUNCTION Is_Project_In_Purge_Status
47 (x_project_status_code IN VARCHAR2 ) return VARCHAR2;
48
49 --Bug 3059344
50 --pragma RESTRICT_REFERENCES (Is_Project_Status_Closed, WNDS, WNPS);
51
52 Procedure Handle_Project_Status_Change
53 (x_calling_module IN VARCHAR2
54 ,X_project_id IN NUMBER
55 ,X_old_proj_status_code IN VARCHAR2
56 ,X_new_proj_status_code IN VARCHAR2
57 ,X_project_type IN VARCHAR2
58 ,X_project_start_date IN DATE
59 ,X_project_end_date IN DATE
60 ,X_public_sector_flag IN VARCHAR2
61 ,X_attribute_category IN VARCHAR2
62 ,X_attribute1 IN VARCHAR2
63 ,X_attribute2 IN VARCHAR2
64 ,X_attribute3 IN VARCHAR2
65 ,X_attribute4 IN VARCHAR2
66 ,X_attribute5 IN VARCHAR2
67 ,X_attribute6 IN VARCHAR2
68 ,X_attribute7 IN VARCHAR2
69 ,X_attribute8 IN VARCHAR2
70 ,X_attribute9 IN VARCHAR2
71 ,X_attribute10 IN VARCHAR2
72 ,X_pm_product_code IN VARCHAR2
73 ,x_init_msg IN VARCHAR2 := 'Y'
74 ,x_verify_ok_flag OUT NOCOPY VARCHAR2 --Bug: 4537865
75 ,x_wf_enabled_flag OUT NOCOPY VARCHAR2 --Bug: 4537865
76 ,X_err_stage IN OUT NOCOPY varchar2 --Bug: 4537865
77 ,X_err_stack IN OUT NOCOPY varchar2 --Bug: 4537865
78 ,x_err_msg_count OUT NOCOPY Number --Bug: 4537865
79 ,x_warnings_only_flag OUT NOCOPY VARCHAR2 ); --Bug: 4537865
80
81 Procedure Check_Wf_Enabled (x_project_status_code IN VARCHAR2,
82 x_project_type IN VARCHAR2,
83 x_project_id IN NUMBER,
84 x_wf_item_type OUT NOCOPY VARCHAR2, --Bug: 4537865
85 x_wf_process OUT NOCOPY VARCHAR2, --Bug: 4537865
86 x_wf_enabled_flag OUT NOCOPY VARCHAR2, --Bug: 4537865
87 x_err_code OUT NOCOPY NUMBER ); --Bug: 4537865
88
89 FUNCTION Is_Starting_Status (x_project_status_code IN VARCHAR2) RETURN VARCHAR2;
90
91 -- This function checks whether a given project status is a starting
92 -- status for any project type
93
94 pragma RESTRICT_REFERENCES (Is_Starting_Status, WNDS, WNPS);
95
96 FUNCTION Get_Default_Starting_Status (x_project_type IN VARCHAR2)
97 RETURN VARCHAR2;
98
99 -- This function gets the default starting status associated with
100 -- a project type
101
102 pragma RESTRICT_REFERENCES (Get_Default_Starting_Status, WNDS, WNPS);
103
104 PROCEDURE Allow_Status_Deletion(
105 p_project_status_code IN VARCHAR2
106 , p_status_type IN VARCHAR2
107 , x_err_code OUT NOCOPY NUMBER --Bug: 4537865
108 , x_err_stage OUT NOCOPY VARCHAR2 --Bug: 4537865
109 , x_err_stack OUT NOCOPY VARCHAR2 --Bug: 4537865
110 , x_allow_deletion_flag OUT NOCOPY VARCHAR2); --Bug: 4537865
111
112 FUNCTION Allow_Status_Change (o_status_code IN VARCHAR2
113 ,n_status_code IN VARCHAR2)
114 RETURN VARCHAR2;
115
116 PROCEDURE Delete_from_Next_Status (p_current_status_code IN VARCHAR2);
117
118 PROCEDURE Insert_into_Next_Status (p_current_status_code IN VARCHAR2
119 , p_next_status_code IN VARCHAR2);
120
121 -- Start of comments
122 -- API name : Name_to_Id
123 -- Type : Public
124 -- Pre-reqs : None.
125 -- Function : Returns the Id given MTL_SYSTEM_ITEMS given
126 -- its item_id.
127 -- Parameters :
128 -- IN : p_api_version IN NUMBER Required
129 -- .
130 -- .
131 -- p_item_id IN NUMBER Required
132 -- Corresponds to the column INVENTORY_ITEM_ID in
133 -- the table MTL_SYSTEM_ITEMS, and identifies the
134 -- record to be deleted.
135 -- p_org_id IN NUMBER Required
136 -- Item organization id. Part of the unique key
137 -- that uniquely identifies an item record.
138 -- Version : Current version 2.0
139 -- Added IN parameter p_org_id.
140 -- Previous version 1.0
141 -- Initial version 1.0
142 -- End of comments
143
144 PROCEDURE Check_Status_Name_or_Code(
145 p_status_code IN VARCHAR2
146 ,p_status_name IN VARCHAR2
147 ,p_status_type IN VARCHAR2
148 ,p_check_id_flag IN VARCHAR2
149 ,x_status_code OUT NOCOPY VARCHAR2 --Bug: 4537865
150 ,x_return_status OUT NOCOPY VARCHAR2 --Bug: 4537865
151 ,x_error_message_code OUT NOCOPY VARCHAR2); --Bug: 4537865
152
153 PROCEDURE get_wf_success_failure_status
154 (p_status_code IN VARCHAR2
155 ,p_status_type IN VARCHAR2
156 ,x_wf_success_status_code OUT NOCOPY VARCHAR2 --Bug: 4537865
157 ,x_wf_failure_status_code OUT NOCOPY VARCHAR2 --Bug: 4537865
158 ,x_return_status OUT NOCOPY VARCHAR2 --Bug: 4537865
159 ,x_error_message_code OUT NOCOPY VARCHAR2 ) ; --Bug: 4537865
160
161 -- Added for lifecycle support
162 -- This procedure will check for the constraints available for phase type status code before deleting
163
164 PROCEDURE check_delete_phase_ok(
165 p_project_status_code IN VARCHAR2
166 , x_err_code OUT NOCOPY NUMBER --Bug: 4537865
167 , x_err_stage OUT NOCOPY VARCHAR2 --Bug: 4537865
168 , x_err_stack OUT NOCOPY VARCHAR2 --Bug: 4537865
169 , x_allow_deletion_flag OUT NOCOPY VARCHAR2); --Bug: 4537865
170
171
172 --Bug5635429 This function will return Y if the project status is being
173 --used in project types setup. N will be returned otherwise
174 FUNCTION is_status_used_in_proj_type(p_project_status_code IN VARCHAR2)
175 RETURN VARCHAR2;
176
177
178 --Bug 3059344
179 G_ProjID_Tab PA_PLSQL_DATATYPES.Char1TabTyp;
180 g_project_status_code pa_projects_all.project_status_code%type;
181 G_PROJ_STS_CLOSED VARCHAR2(1);
182
183
184 end PA_PROJECT_STUS_UTILS ;