3:
4:
5: PROCEDURE CREATE_CI_ACTION (
6: p_api_version IN NUMBER := 1.0,
7: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
8: p_commit IN VARCHAR2 := FND_API.g_false,
9: p_validate_only IN VARCHAR2 := FND_API.g_true,
10: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
11: P_CI_ACTION_ID out NOCOPY NUMBER,
4:
5: PROCEDURE CREATE_CI_ACTION (
6: p_api_version IN NUMBER := 1.0,
7: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
8: p_commit IN VARCHAR2 := FND_API.g_false,
9: p_validate_only IN VARCHAR2 := FND_API.g_true,
10: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
11: P_CI_ACTION_ID out NOCOPY NUMBER,
12: P_CI_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
5: PROCEDURE CREATE_CI_ACTION (
6: p_api_version IN NUMBER := 1.0,
7: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
8: p_commit IN VARCHAR2 := FND_API.g_false,
9: p_validate_only IN VARCHAR2 := FND_API.g_true,
10: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
11: P_CI_ACTION_ID out NOCOPY NUMBER,
12: P_CI_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
13: P_TYPE_CODE in VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
6: p_api_version IN NUMBER := 1.0,
7: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
8: p_commit IN VARCHAR2 := FND_API.g_false,
9: p_validate_only IN VARCHAR2 := FND_API.g_true,
10: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
11: P_CI_ACTION_ID out NOCOPY NUMBER,
12: P_CI_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
13: P_TYPE_CODE in VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
14: P_ASSIGNED_TO in NUMBER DEFAULT FND_API.G_MISS_NUM,
8: p_commit IN VARCHAR2 := FND_API.g_false,
9: p_validate_only IN VARCHAR2 := FND_API.g_true,
10: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
11: P_CI_ACTION_ID out NOCOPY NUMBER,
12: P_CI_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
13: P_TYPE_CODE in VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
14: P_ASSIGNED_TO in NUMBER DEFAULT FND_API.G_MISS_NUM,
15: P_RESOURCE_TYPE_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
16: P_ASSIGNED_TO_NAME in VARCHAR DEFAULT FND_API.G_MISS_CHAR,
9: p_validate_only IN VARCHAR2 := FND_API.g_true,
10: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
11: P_CI_ACTION_ID out NOCOPY NUMBER,
12: P_CI_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
13: P_TYPE_CODE in VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
14: P_ASSIGNED_TO in NUMBER DEFAULT FND_API.G_MISS_NUM,
15: P_RESOURCE_TYPE_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
16: P_ASSIGNED_TO_NAME in VARCHAR DEFAULT FND_API.G_MISS_CHAR,
17: P_DATE_REQUIRED in DATE DEFAULT FND_API.G_MISS_DATE,
10: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
11: P_CI_ACTION_ID out NOCOPY NUMBER,
12: P_CI_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
13: P_TYPE_CODE in VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
14: P_ASSIGNED_TO in NUMBER DEFAULT FND_API.G_MISS_NUM,
15: P_RESOURCE_TYPE_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
16: P_ASSIGNED_TO_NAME in VARCHAR DEFAULT FND_API.G_MISS_CHAR,
17: P_DATE_REQUIRED in DATE DEFAULT FND_API.G_MISS_DATE,
18: P_SIGN_OFF_REQUIRED_FLAG in VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
11: P_CI_ACTION_ID out NOCOPY NUMBER,
12: P_CI_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
13: P_TYPE_CODE in VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
14: P_ASSIGNED_TO in NUMBER DEFAULT FND_API.G_MISS_NUM,
15: P_RESOURCE_TYPE_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
16: P_ASSIGNED_TO_NAME in VARCHAR DEFAULT FND_API.G_MISS_CHAR,
17: P_DATE_REQUIRED in DATE DEFAULT FND_API.G_MISS_DATE,
18: P_SIGN_OFF_REQUIRED_FLAG in VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
19: P_COMMENT_TEXT in VARCHAR2,
12: P_CI_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
13: P_TYPE_CODE in VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
14: P_ASSIGNED_TO in NUMBER DEFAULT FND_API.G_MISS_NUM,
15: P_RESOURCE_TYPE_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
16: P_ASSIGNED_TO_NAME in VARCHAR DEFAULT FND_API.G_MISS_CHAR,
17: P_DATE_REQUIRED in DATE DEFAULT FND_API.G_MISS_DATE,
18: P_SIGN_OFF_REQUIRED_FLAG in VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
19: P_COMMENT_TEXT in VARCHAR2,
20: P_SOURCE_CI_ACTION_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
13: P_TYPE_CODE in VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
14: P_ASSIGNED_TO in NUMBER DEFAULT FND_API.G_MISS_NUM,
15: P_RESOURCE_TYPE_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
16: P_ASSIGNED_TO_NAME in VARCHAR DEFAULT FND_API.G_MISS_CHAR,
17: P_DATE_REQUIRED in DATE DEFAULT FND_API.G_MISS_DATE,
18: P_SIGN_OFF_REQUIRED_FLAG in VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
19: P_COMMENT_TEXT in VARCHAR2,
20: P_SOURCE_CI_ACTION_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
21: P_CREATED_BY in NUMBER default fnd_global.user_id,
14: P_ASSIGNED_TO in NUMBER DEFAULT FND_API.G_MISS_NUM,
15: P_RESOURCE_TYPE_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
16: P_ASSIGNED_TO_NAME in VARCHAR DEFAULT FND_API.G_MISS_CHAR,
17: P_DATE_REQUIRED in DATE DEFAULT FND_API.G_MISS_DATE,
18: P_SIGN_OFF_REQUIRED_FLAG in VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
19: P_COMMENT_TEXT in VARCHAR2,
20: P_SOURCE_CI_ACTION_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
21: P_CREATED_BY in NUMBER default fnd_global.user_id,
22: P_CREATION_DATE in DATE default sysdate,
16: P_ASSIGNED_TO_NAME in VARCHAR DEFAULT FND_API.G_MISS_CHAR,
17: P_DATE_REQUIRED in DATE DEFAULT FND_API.G_MISS_DATE,
18: P_SIGN_OFF_REQUIRED_FLAG in VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
19: P_COMMENT_TEXT in VARCHAR2,
20: P_SOURCE_CI_ACTION_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
21: P_CREATED_BY in NUMBER default fnd_global.user_id,
22: P_CREATION_DATE in DATE default sysdate,
23: P_LAST_UPDATED_BY in NUMBER default fnd_global.user_id,
24: P_LAST_UPDATE_DATE in DATE default sysdate,
39: -- Initialize the Error Stack
40: PA_DEBUG.init_err_stack('PA_CI_ACTIONS_PUB.CREATE_CI_ACTION');
41:
42: -- Initialize the return status to success
43: x_return_status := FND_API.G_RET_STS_SUCCESS;
44:
45: --Clear the global PL/SQL message table
46: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
47: FND_MSG_PUB.initialize;
42: -- Initialize the return status to success
43: x_return_status := FND_API.G_RET_STS_SUCCESS;
44:
45: --Clear the global PL/SQL message table
46: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
47: FND_MSG_PUB.initialize;
48: END IF;
49:
50: IF p_commit = FND_API.G_TRUE
46: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
47: FND_MSG_PUB.initialize;
48: END IF;
49:
50: IF p_commit = FND_API.G_TRUE
51: THEN
52: SAVEPOINT CREATE_CI_ACTION;
53: END IF;
54: x_msg_count := 0;
65: ,x_msg_data => x_msg_data);
66:
67:
68: -- Validate the Input Values
69: If (x_return_status = fnd_api.g_ret_sts_success
70: AND l_party_id <> -999) then
71:
72: PA_CI_ACTIONS_PVT.CREATE_CI_ACTION
73: (
92: -- IF the number of messaages is 1 then fetch the message code from the stack
93: -- and return its text
94: x_msg_count := FND_MSG_PUB.Count_Msg;
95: IF x_msg_count = 1 THEN
96: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
97: ,p_msg_index => 1
98: ,p_data => x_msg_data
99: ,p_msg_index_out => l_msg_index_out
100: );
102:
103: -- Reset the error stack when returning to the calling program
104: PA_DEBUG.Reset_Err_Stack;
105: -- Commit the changes if requested
106: if (p_commit = FND_API.G_TRUE
107: AND x_return_status = fnd_api.g_ret_sts_success) then
108: commit;
109: end if;
110: EXCEPTION
103: -- Reset the error stack when returning to the calling program
104: PA_DEBUG.Reset_Err_Stack;
105: -- Commit the changes if requested
106: if (p_commit = FND_API.G_TRUE
107: AND x_return_status = fnd_api.g_ret_sts_success) then
108: commit;
109: end if;
110: EXCEPTION
111: WHEN OTHERS THEN
113: -- Set the excetption Message and the stack
114: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CI_ACTIONS_PUB.CREATE_CI_ACTION'
115: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
116:
117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
118: RAISE;
119:
120: END;
121:
120: END;
121:
122: PROCEDURE CANCEL_CI_ACTION (
123: p_api_version IN NUMBER := 1.0,
124: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
125: p_commit IN VARCHAR2 := FND_API.g_false,
126: p_validate_only IN VARCHAR2 := FND_API.g_true,
127: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
128: P_CI_ACTION_ID in NUMBER,
121:
122: PROCEDURE CANCEL_CI_ACTION (
123: p_api_version IN NUMBER := 1.0,
124: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
125: p_commit IN VARCHAR2 := FND_API.g_false,
126: p_validate_only IN VARCHAR2 := FND_API.g_true,
127: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
128: P_CI_ACTION_ID in NUMBER,
129: P_RECORD_VERSION_NUMBER in NUMBER,
122: PROCEDURE CANCEL_CI_ACTION (
123: p_api_version IN NUMBER := 1.0,
124: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
125: p_commit IN VARCHAR2 := FND_API.g_false,
126: p_validate_only IN VARCHAR2 := FND_API.g_true,
127: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
128: P_CI_ACTION_ID in NUMBER,
129: P_RECORD_VERSION_NUMBER in NUMBER,
130: P_CANCEL_COMMENT in VARCHAR2,
123: p_api_version IN NUMBER := 1.0,
124: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
125: p_commit IN VARCHAR2 := FND_API.g_false,
126: p_validate_only IN VARCHAR2 := FND_API.g_true,
127: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
128: P_CI_ACTION_ID in NUMBER,
129: P_RECORD_VERSION_NUMBER in NUMBER,
130: P_CANCEL_COMMENT in VARCHAR2,
131: P_LAST_UPDATED_BY in NUMBER default fnd_global.user_id,
141: -- Initialize the Error Stack
142: PA_DEBUG.init_err_stack('PA_CI_ACTIONS_PUB.CANCEL_CI_ACTION');
143:
144: -- Initialize the return status to success
145: x_return_status := FND_API.G_RET_STS_SUCCESS;
146: x_msg_count := 0;
147: PA_CI_ACTIONS_PVT.CANCEL_CI_ACTION
148: (
149: p_api_version => P_API_VERSION,
161: -- IF the number of messaages is 1 then fetch the message code from the stack
162: -- and return its text
163: x_msg_count := FND_MSG_PUB.Count_Msg;
164: IF x_msg_count = 1 THEN
165: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
166: ,p_msg_index => 1
167: ,p_data => x_msg_data
168: ,p_msg_index_out => l_msg_index_out
169: );
169: );
170: END IF;
171:
172: -- Commit the changes if requested
173: if (p_commit = FND_API.G_TRUE
174: AND x_return_status = fnd_api.g_ret_sts_success) then
175: commit;
176: end if;
177: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
170: END IF;
171:
172: -- Commit the changes if requested
173: if (p_commit = FND_API.G_TRUE
174: AND x_return_status = fnd_api.g_ret_sts_success) then
175: commit;
176: end if;
177: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
178: IF p_commit = FND_API.G_TRUE THEN
173: if (p_commit = FND_API.G_TRUE
174: AND x_return_status = fnd_api.g_ret_sts_success) then
175: commit;
176: end if;
177: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
178: IF p_commit = FND_API.G_TRUE THEN
179: ROLLBACK TO CLOSE_CI_ACTION;
180: END IF;
181: x_return_status := 'E';
174: AND x_return_status = fnd_api.g_ret_sts_success) then
175: commit;
176: end if;
177: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
178: IF p_commit = FND_API.G_TRUE THEN
179: ROLLBACK TO CLOSE_CI_ACTION;
180: END IF;
181: x_return_status := 'E';
182: WHEN OTHERS THEN
179: ROLLBACK TO CLOSE_CI_ACTION;
180: END IF;
181: x_return_status := 'E';
182: WHEN OTHERS THEN
183: IF p_commit = FND_API.G_TRUE THEN
184: ROLLBACK TO CLOSE_CI_ACTION;
185: END IF;
186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
187: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CI_ACTIONS_PUB',
182: WHEN OTHERS THEN
183: IF p_commit = FND_API.G_TRUE THEN
184: ROLLBACK TO CLOSE_CI_ACTION;
185: END IF;
186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
187: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CI_ACTIONS_PUB',
188: p_procedure_name => 'CLOSE_CI_ACTION',
189: p_error_text => SUBSTRB(SQLERRM,1,240));
190: RAISE;
194:
195:
196: PROCEDURE CLOSE_CI_ACTION (
197: p_api_version IN NUMBER := 1.0,
198: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
199: p_commit IN VARCHAR2 := FND_API.g_false,
200: p_validate_only IN VARCHAR2 := FND_API.g_true,
201: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
202: P_CI_ACTION_ID in NUMBER,
195:
196: PROCEDURE CLOSE_CI_ACTION (
197: p_api_version IN NUMBER := 1.0,
198: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
199: p_commit IN VARCHAR2 := FND_API.g_false,
200: p_validate_only IN VARCHAR2 := FND_API.g_true,
201: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
202: P_CI_ACTION_ID in NUMBER,
203: P_SIGN_OFF_FLAG in VARCHAR2,
196: PROCEDURE CLOSE_CI_ACTION (
197: p_api_version IN NUMBER := 1.0,
198: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
199: p_commit IN VARCHAR2 := FND_API.g_false,
200: p_validate_only IN VARCHAR2 := FND_API.g_true,
201: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
202: P_CI_ACTION_ID in NUMBER,
203: P_SIGN_OFF_FLAG in VARCHAR2,
204: P_RECORD_VERSION_NUMBER in NUMBER,
197: p_api_version IN NUMBER := 1.0,
198: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
199: p_commit IN VARCHAR2 := FND_API.g_false,
200: p_validate_only IN VARCHAR2 := FND_API.g_true,
201: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
202: P_CI_ACTION_ID in NUMBER,
203: P_SIGN_OFF_FLAG in VARCHAR2,
204: P_RECORD_VERSION_NUMBER in NUMBER,
205: P_COMMENT_TEXT in VARCHAR2,
215: -- Initialize the Error Stack
216: PA_DEBUG.init_err_stack('PA_CI_ACTIONS_PUB.CLOSE_CI_ACTION');
217:
218: -- Initialize the return status to success
219: x_return_status := FND_API.G_RET_STS_SUCCESS;
220: IF p_commit = FND_API.G_TRUE
221: THEN
222: SAVEPOINT CLOSE_CI_ACTION;
223: END IF;
216: PA_DEBUG.init_err_stack('PA_CI_ACTIONS_PUB.CLOSE_CI_ACTION');
217:
218: -- Initialize the return status to success
219: x_return_status := FND_API.G_RET_STS_SUCCESS;
220: IF p_commit = FND_API.G_TRUE
221: THEN
222: SAVEPOINT CLOSE_CI_ACTION;
223: END IF;
224: x_return_status := fnd_api.g_ret_sts_success;
220: IF p_commit = FND_API.G_TRUE
221: THEN
222: SAVEPOINT CLOSE_CI_ACTION;
223: END IF;
224: x_return_status := fnd_api.g_ret_sts_success;
225: x_msg_count := 0;
226:
227: -- Validate the Input Values
228: If (x_return_status = fnd_api.g_ret_sts_success
224: x_return_status := fnd_api.g_ret_sts_success;
225: x_msg_count := 0;
226:
227: -- Validate the Input Values
228: If (x_return_status = fnd_api.g_ret_sts_success
229: AND p_validate_only <> fnd_api.g_true) then
230:
231: PA_CI_ACTIONS_PVT.CLOSE_CI_ACTION
232: (
225: x_msg_count := 0;
226:
227: -- Validate the Input Values
228: If (x_return_status = fnd_api.g_ret_sts_success
229: AND p_validate_only <> fnd_api.g_true) then
230:
231: PA_CI_ACTIONS_PVT.CLOSE_CI_ACTION
232: (
233: p_api_version => P_API_VERSION,
246:
247: End If;
248: x_msg_count := FND_MSG_PUB.Count_Msg;
249: IF x_msg_count = 1 THEN
250: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
251: ,p_msg_index => 1
252: ,p_data => x_msg_data
253: ,p_msg_index_out => l_msg_index_out
254: );
253: ,p_msg_index_out => l_msg_index_out
254: );
255: END IF;
256: -- Commit the changes if requested
257: if (p_commit = FND_API.G_TRUE
258: AND x_return_status = fnd_api.g_ret_sts_success) then
259: commit;
260: end if;
261: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
254: );
255: END IF;
256: -- Commit the changes if requested
257: if (p_commit = FND_API.G_TRUE
258: AND x_return_status = fnd_api.g_ret_sts_success) then
259: commit;
260: end if;
261: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
262: IF p_commit = FND_API.G_TRUE THEN
257: if (p_commit = FND_API.G_TRUE
258: AND x_return_status = fnd_api.g_ret_sts_success) then
259: commit;
260: end if;
261: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
262: IF p_commit = FND_API.G_TRUE THEN
263: ROLLBACK TO CLOSE_CI_ACTION;
264: END IF;
265: x_return_status := 'E';
258: AND x_return_status = fnd_api.g_ret_sts_success) then
259: commit;
260: end if;
261: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
262: IF p_commit = FND_API.G_TRUE THEN
263: ROLLBACK TO CLOSE_CI_ACTION;
264: END IF;
265: x_return_status := 'E';
266: WHEN OTHERS THEN
263: ROLLBACK TO CLOSE_CI_ACTION;
264: END IF;
265: x_return_status := 'E';
266: WHEN OTHERS THEN
267: IF p_commit = FND_API.G_TRUE THEN
268: ROLLBACK TO CLOSE_CI_ACTION;
269: END IF;
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CI_ACTIONS_PUB',
266: WHEN OTHERS THEN
267: IF p_commit = FND_API.G_TRUE THEN
268: ROLLBACK TO CLOSE_CI_ACTION;
269: END IF;
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CI_ACTIONS_PUB',
272: p_procedure_name => 'CLOSE_CI_ACTION',
273: p_error_text => SUBSTRB(SQLERRM,1,240));
274: RAISE;
275: END;
276:
277: PROCEDURE REASSIGN_CI_ACTION (
278: p_api_version IN NUMBER := 1.0,
279: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
280: p_commit IN VARCHAR2 := FND_API.g_false,
281: p_validate_only IN VARCHAR2 := FND_API.g_true,
282: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
283: P_CI_ACTION_ID in NUMBER,
276:
277: PROCEDURE REASSIGN_CI_ACTION (
278: p_api_version IN NUMBER := 1.0,
279: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
280: p_commit IN VARCHAR2 := FND_API.g_false,
281: p_validate_only IN VARCHAR2 := FND_API.g_true,
282: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
283: P_CI_ACTION_ID in NUMBER,
284: P_SIGN_OFF_FLAG in VARCHAR2,
277: PROCEDURE REASSIGN_CI_ACTION (
278: p_api_version IN NUMBER := 1.0,
279: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
280: p_commit IN VARCHAR2 := FND_API.g_false,
281: p_validate_only IN VARCHAR2 := FND_API.g_true,
282: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
283: P_CI_ACTION_ID in NUMBER,
284: P_SIGN_OFF_FLAG in VARCHAR2,
285: P_RECORD_VERSION_NUMBER in NUMBER,
278: p_api_version IN NUMBER := 1.0,
279: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
280: p_commit IN VARCHAR2 := FND_API.g_false,
281: p_validate_only IN VARCHAR2 := FND_API.g_true,
282: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
283: P_CI_ACTION_ID in NUMBER,
284: P_SIGN_OFF_FLAG in VARCHAR2,
285: P_RECORD_VERSION_NUMBER in NUMBER,
286: P_RESOURCE_TYPE_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
282: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
283: P_CI_ACTION_ID in NUMBER,
284: P_SIGN_OFF_FLAG in VARCHAR2,
285: P_RECORD_VERSION_NUMBER in NUMBER,
286: P_RESOURCE_TYPE_ID in NUMBER DEFAULT FND_API.G_MISS_NUM,
287: P_ASSIGNED_TO in NUMBER,
288: P_ASSIGNED_TO_NAME in VARCHAR2,
289: P_DATE_REQUIRED in DATE,
290: P_COMMENT_TEXT in VARCHAR2,
308: -- Initialize the Error Stack
309: PA_DEBUG.init_err_stack('PA_CI_ACTIONS_PUB.REASSIGN_CI_ACTION');
310:
311: -- Initialize the return status to success
312: x_return_status := FND_API.G_RET_STS_SUCCESS;
313:
314: --Clear the global PL/SQL message table
315: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
316: FND_MSG_PUB.initialize;
311: -- Initialize the return status to success
312: x_return_status := FND_API.G_RET_STS_SUCCESS;
313:
314: --Clear the global PL/SQL message table
315: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
316: FND_MSG_PUB.initialize;
317: END IF;
318:
319: IF p_commit = FND_API.G_TRUE
315: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
316: FND_MSG_PUB.initialize;
317: END IF;
318:
319: IF p_commit = FND_API.G_TRUE
320: THEN
321: SAVEPOINT REASSIGN_CI_ACTION;
322: END IF;
323: x_msg_count := 0;
333: ,x_msg_count => x_msg_count
334: ,x_msg_data => x_msg_data);
335:
336: -- Validate the Input Values
337: If (x_return_status = fnd_api.g_ret_sts_success
338: AND p_validate_only <> fnd_api.g_true) then
339:
340: PA_CI_ACTIONS_PVT.REASSIGN_CI_ACTION
341: (
334: ,x_msg_data => x_msg_data);
335:
336: -- Validate the Input Values
337: If (x_return_status = fnd_api.g_ret_sts_success
338: AND p_validate_only <> fnd_api.g_true) then
339:
340: PA_CI_ACTIONS_PVT.REASSIGN_CI_ACTION
341: (
342: p_api_version => p_api_version,
365: -- IF the number of messaages is 1 then fetch the message code from the stack
366: -- and return its text
367: x_msg_count := FND_MSG_PUB.Count_Msg;
368: IF x_msg_count = 1 THEN
369: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
370: ,p_msg_index => 1
371: ,p_data => x_msg_data
372: ,p_msg_index_out => l_msg_index_out
373: );
372: ,p_msg_index_out => l_msg_index_out
373: );
374: END IF;
375: -- Commit the changes if requested
376: if (p_commit = FND_API.G_TRUE
377: AND x_return_status = fnd_api.g_ret_sts_success) then
378: commit;
379: end if;
380: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
373: );
374: END IF;
375: -- Commit the changes if requested
376: if (p_commit = FND_API.G_TRUE
377: AND x_return_status = fnd_api.g_ret_sts_success) then
378: commit;
379: end if;
380: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
381: IF p_commit = FND_API.G_TRUE THEN
376: if (p_commit = FND_API.G_TRUE
377: AND x_return_status = fnd_api.g_ret_sts_success) then
378: commit;
379: end if;
380: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
381: IF p_commit = FND_API.G_TRUE THEN
382: ROLLBACK TO REASSIGN_CI_ACTION;
383: END IF;
384: x_return_status := 'E';
377: AND x_return_status = fnd_api.g_ret_sts_success) then
378: commit;
379: end if;
380: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
381: IF p_commit = FND_API.G_TRUE THEN
382: ROLLBACK TO REASSIGN_CI_ACTION;
383: END IF;
384: x_return_status := 'E';
385: WHEN OTHERS THEN
382: ROLLBACK TO REASSIGN_CI_ACTION;
383: END IF;
384: x_return_status := 'E';
385: WHEN OTHERS THEN
386: IF p_commit = FND_API.G_TRUE THEN
387: ROLLBACK TO REASSIGN_CI_ACTION;
388: END IF;
389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
390: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CI_ACTIONS_PUB',
385: WHEN OTHERS THEN
386: IF p_commit = FND_API.G_TRUE THEN
387: ROLLBACK TO REASSIGN_CI_ACTION;
388: END IF;
389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
390: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CI_ACTIONS_PUB',
391: p_procedure_name => 'REASSIGN_CI_ACTION',
392: p_error_text => SUBSTRB(SQLERRM,1,240));
393: RAISE;
395:
396:
397: PROCEDURE ADD_CI_COMMENT(
398: p_api_version IN NUMBER := 1.0,
399: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
400: p_commit IN VARCHAR2 := FND_API.g_false,
401: p_validate_only IN VARCHAR2 := FND_API.g_true,
402: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
403: x_ci_comment_id out NOCOPY NUMBER,
396:
397: PROCEDURE ADD_CI_COMMENT(
398: p_api_version IN NUMBER := 1.0,
399: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
400: p_commit IN VARCHAR2 := FND_API.g_false,
401: p_validate_only IN VARCHAR2 := FND_API.g_true,
402: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
403: x_ci_comment_id out NOCOPY NUMBER,
404: p_ci_id IN NUMBER,
397: PROCEDURE ADD_CI_COMMENT(
398: p_api_version IN NUMBER := 1.0,
399: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
400: p_commit IN VARCHAR2 := FND_API.g_false,
401: p_validate_only IN VARCHAR2 := FND_API.g_true,
402: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
403: x_ci_comment_id out NOCOPY NUMBER,
404: p_ci_id IN NUMBER,
405: p_type_code IN VARCHAR2,
398: p_api_version IN NUMBER := 1.0,
399: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
400: p_commit IN VARCHAR2 := FND_API.g_false,
401: p_validate_only IN VARCHAR2 := FND_API.g_true,
402: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
403: x_ci_comment_id out NOCOPY NUMBER,
404: p_ci_id IN NUMBER,
405: p_type_code IN VARCHAR2,
406: p_comment_text IN VARCHAR2,
415: x_msg_data OUT NOCOPY VARCHAR2)
416:
417: IS
418: BEGIN
419: IF p_commit = FND_API.G_TRUE
420: THEN
421: SAVEPOINT ADD_CI_COMMENT;
422: END IF;
423: x_return_status := 'S';
423: x_return_status := 'S';
424: x_msg_count := 0;
425:
426: -- Validate the Input Values
427: If (x_return_status = fnd_api.g_ret_sts_success
428: AND p_validate_only <> fnd_api.g_true) then
429: PA_CI_ACTIONS_PVT.ADD_CI_COMMENT(
430: p_api_version => P_API_VERSION,
431: p_init_msg_list => P_INIT_MSG_LIST,
424: x_msg_count := 0;
425:
426: -- Validate the Input Values
427: If (x_return_status = fnd_api.g_ret_sts_success
428: AND p_validate_only <> fnd_api.g_true) then
429: PA_CI_ACTIONS_PVT.ADD_CI_COMMENT(
430: p_api_version => P_API_VERSION,
431: p_init_msg_list => P_INIT_MSG_LIST,
432: p_commit => P_COMMIT,
443: );
444: End If;
445:
446: -- Commit the changes if requested
447: if (p_commit = FND_API.G_TRUE
448: AND x_return_status = fnd_api.g_ret_sts_success) then
449: commit;
450: end if;
451: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
444: End If;
445:
446: -- Commit the changes if requested
447: if (p_commit = FND_API.G_TRUE
448: AND x_return_status = fnd_api.g_ret_sts_success) then
449: commit;
450: end if;
451: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
452: IF p_commit = FND_API.G_TRUE THEN
447: if (p_commit = FND_API.G_TRUE
448: AND x_return_status = fnd_api.g_ret_sts_success) then
449: commit;
450: end if;
451: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
452: IF p_commit = FND_API.G_TRUE THEN
453: ROLLBACK TO ADD_CI_COMMENT;
454: END IF;
455: x_return_status := 'E';
448: AND x_return_status = fnd_api.g_ret_sts_success) then
449: commit;
450: end if;
451: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
452: IF p_commit = FND_API.G_TRUE THEN
453: ROLLBACK TO ADD_CI_COMMENT;
454: END IF;
455: x_return_status := 'E';
456: WHEN OTHERS THEN
453: ROLLBACK TO ADD_CI_COMMENT;
454: END IF;
455: x_return_status := 'E';
456: WHEN OTHERS THEN
457: IF p_commit = FND_API.G_TRUE THEN
458: ROLLBACK TO ADD_CI_COMMENT;
459: END IF;
460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
461: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CI_ACTIONS_PUB',
456: WHEN OTHERS THEN
457: IF p_commit = FND_API.G_TRUE THEN
458: ROLLBACK TO ADD_CI_COMMENT;
459: END IF;
460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
461: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CI_ACTIONS_PUB',
462: p_procedure_name => 'ADD_CI_COMMENT',
463: p_error_text => SUBSTRB(SQLERRM,1,240));
464: RAISE;
466:
467:
468: PROCEDURE UPDATE_CI_COMMENT(
469: p_api_version IN NUMBER := 1.0,
470: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
471: p_commit IN VARCHAR2 := FND_API.g_false,
472: p_validate_only IN VARCHAR2 := FND_API.g_true,
473: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
474: p_ci_comment_id IN NUMBER,
467:
468: PROCEDURE UPDATE_CI_COMMENT(
469: p_api_version IN NUMBER := 1.0,
470: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
471: p_commit IN VARCHAR2 := FND_API.g_false,
472: p_validate_only IN VARCHAR2 := FND_API.g_true,
473: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
474: p_ci_comment_id IN NUMBER,
475: p_comment_text IN VARCHAR2,
468: PROCEDURE UPDATE_CI_COMMENT(
469: p_api_version IN NUMBER := 1.0,
470: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
471: p_commit IN VARCHAR2 := FND_API.g_false,
472: p_validate_only IN VARCHAR2 := FND_API.g_true,
473: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
474: p_ci_comment_id IN NUMBER,
475: p_comment_text IN VARCHAR2,
476: p_record_version_number IN NUMBER,
469: p_api_version IN NUMBER := 1.0,
470: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
471: p_commit IN VARCHAR2 := FND_API.g_false,
472: p_validate_only IN VARCHAR2 := FND_API.g_true,
473: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
474: p_ci_comment_id IN NUMBER,
475: p_comment_text IN VARCHAR2,
476: p_record_version_number IN NUMBER,
477: P_LAST_UPDATED_BY in NUMBER default fnd_global.user_id,
482: x_msg_data OUT NOCOPY VARCHAR2)
483:
484: IS
485: BEGIN
486: IF p_commit = FND_API.G_TRUE
487: THEN
488: SAVEPOINT UPDATE_CI_COMMENT;
489: END IF;
490: x_return_status := 'S';
490: x_return_status := 'S';
491: x_msg_count := 0;
492:
493: -- Validate the Input Values
494: If (x_return_status = fnd_api.g_ret_sts_success
495: AND p_validate_only <> fnd_api.g_true) then
496: PA_CI_ACTIONS_PVT.UPDATE_CI_COMMENT(
497: p_api_version => P_API_VERSION,
498: p_init_msg_list => P_INIT_MSG_LIST,
491: x_msg_count := 0;
492:
493: -- Validate the Input Values
494: If (x_return_status = fnd_api.g_ret_sts_success
495: AND p_validate_only <> fnd_api.g_true) then
496: PA_CI_ACTIONS_PVT.UPDATE_CI_COMMENT(
497: p_api_version => P_API_VERSION,
498: p_init_msg_list => P_INIT_MSG_LIST,
499: p_commit => P_COMMIT,
511: );
512: End If;
513:
514: -- Commit the changes if requested
515: if (p_commit = FND_API.G_TRUE
516: AND x_return_status = fnd_api.g_ret_sts_success) then
517: commit;
518: end if;
519: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
512: End If;
513:
514: -- Commit the changes if requested
515: if (p_commit = FND_API.G_TRUE
516: AND x_return_status = fnd_api.g_ret_sts_success) then
517: commit;
518: end if;
519: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
520: IF p_commit = FND_API.G_TRUE THEN
515: if (p_commit = FND_API.G_TRUE
516: AND x_return_status = fnd_api.g_ret_sts_success) then
517: commit;
518: end if;
519: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
520: IF p_commit = FND_API.G_TRUE THEN
521: ROLLBACK TO ADD_CI_COMMENT;
522: END IF;
523: x_return_status := 'E';
516: AND x_return_status = fnd_api.g_ret_sts_success) then
517: commit;
518: end if;
519: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
520: IF p_commit = FND_API.G_TRUE THEN
521: ROLLBACK TO ADD_CI_COMMENT;
522: END IF;
523: x_return_status := 'E';
524: WHEN OTHERS THEN
521: ROLLBACK TO ADD_CI_COMMENT;
522: END IF;
523: x_return_status := 'E';
524: WHEN OTHERS THEN
525: IF p_commit = FND_API.G_TRUE THEN
526: ROLLBACK TO ADD_CI_COMMENT;
527: END IF;
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CI_ACTIONS_PUB',
524: WHEN OTHERS THEN
525: IF p_commit = FND_API.G_TRUE THEN
526: ROLLBACK TO ADD_CI_COMMENT;
527: END IF;
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CI_ACTIONS_PUB',
530: p_procedure_name => 'UPDATE_CI_COMMENT',
531: p_error_text => SUBSTRB(SQLERRM,1,240));
532: RAISE;