1: package body FND_CONC_PP as
2: /* $Header: AFCPPPIB.pls 120.2 2005/08/22 06:54:37 aweisber ship $ */
3:
4:
5: /* Exceptions */
207:
208: begin
209: Select count(*)
210: into step_id
211: from fnd_conc_pp_actions
212: where concurrent_request_id = Req_ID
213: and Action_Type = 4;
214:
215: If (step_id > 0) then
214:
215: If (step_id > 0) then
216: Select max(SEQUENCE)
217: into step_id
218: from fnd_conc_pp_actions
219: where concurrent_request_id = Req_ID
220: and Action_Type = 4;
221: End If;
222:
220: and Action_Type = 4;
221: End If;
222:
223: Exception when others then
224: message_add('Error while querying fnd_conc_pp_actions.');
225: return(-1);
226: End;
227:
228:
228:
229: step_id := step_id + 1;
230:
231: begin
232: Insert into fnd_conc_pp_actions
233: (CONCURRENT_REQUEST_ID,ACTION_TYPE, STATUS_S_FLAG, STATUS_W_FLAG,
234: STATUS_F_FLAG, LAST_UPDATE_DATE, LAST_UPDATED_BY, CREATION_DATE,
235: LAST_UPDATE_LOGIN, CREATED_BY, PROGRAM_APPLICATION_ID, PROGRAM_ID,
236: Argument1, Argument2, Argument3, Argument4, Argument5,
241: fnd_global.login_id, user_id, app_id, exec_id,
242: Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10,
243: step_id, ins_num from dual;
244: Exception when others then
245: message_add('Error while inserting into fnd_conc_pp_actions.');
246: return(-1);
247: End;
248:
249: return step_id;
293: Argument1, Argument2, Argument3, Argument4, Argument5,
294: Argument6, Argument7, Argument8, Argument9, Argument10
295: into S_Flag, W_Flag, F_Flag, app_id, exec_id,
296: Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10
297: from fnd_conc_pp_actions
298: where CONCURRENT_REQUEST_ID = Req_ID and
299: sequence = Step and
300: action_type = 4;
301: exception
303: message_add('Request ID, Sequence, Action Type ('||to_char(Req_ID)||
304: ', ' || TO_CHAR(Step) || ', 4) not found.');
305: return(-1);
306: when others then
307: message_add('Error while querying fnd_conc_pp_actions.');
308: return(-1);
309: End;
310:
311: begin
339:
340: return 0;
341: end;
342:
343: end FND_CONC_PP;