DBA Data[Home] [Help]

APPS.PA_RES_LIST_ASSIGNMENTS dependencies on PA_RESOURCE_LIST_USES

Line 157: from Pa_Resource_list_uses_v where Project_id = X_Project_id and

153: Select Budget_Type_Yn from PA_RESOURCE_LIST_USE_CODES_V where
154: List_Use_Code = X_Use_Code;
155: Cursor Res_list_uses_cur is
156: Select Row_id,Resource_List_Id
157: from Pa_Resource_list_uses_v where Project_id = X_Project_id and
158: Use_Code = X_Use_Code ;
159:
160: Begin
161: W_User_id := To_Number(FND_PROFILE.VALUE('USER_ID'));

Line 202: x_err_stage := ' Update Pa_Resource_List_Uses ';

198: GoTo Ins_para;
199: End If;
200: If W_usage_Res_list_id <> W_Asgmt_Res_list_id Then
201: If W_Budget_type_yn = 'Y' Then
202: x_err_stage := ' Update Pa_Resource_List_Uses ';
203: Update Pa_Resource_List_uses
204: Set Resource_list_Assignment_id =
205: X_Resource_list_Assgmt_id
206: Where RowId = W_Row_Id;

Line 203: Update Pa_Resource_List_uses

199: End If;
200: If W_usage_Res_list_id <> W_Asgmt_Res_list_id Then
201: If W_Budget_type_yn = 'Y' Then
202: x_err_stage := ' Update Pa_Resource_List_Uses ';
203: Update Pa_Resource_List_uses
204: Set Resource_list_Assignment_id =
205: X_Resource_list_Assgmt_id
206: Where RowId = W_Row_Id;
207: Close Res_list_uses_cur;

Line 219: x_err_stage := ' Insert into Pa_Resource_List_Uses ';

215: End If;
216: Close Res_list_uses_cur;
217: <>
218: If W_Insert_Flag = 'Y' Then
219: x_err_stage := ' Insert into Pa_Resource_List_Uses ';
220: Insert into Pa_Resource_list_uses
221: (RESOURCE_LIST_ASSIGNMENT_ID,USE_CODE,DEFAULT_FLAG,
222: LAST_UPDATED_BY,LAST_UPDATE_DATE,
223: CREATION_DATE,CREATED_BY,LAST_UPDATE_LOGIN) Values

Line 220: Insert into Pa_Resource_list_uses

216: Close Res_list_uses_cur;
217: <>
218: If W_Insert_Flag = 'Y' Then
219: x_err_stage := ' Insert into Pa_Resource_List_Uses ';
220: Insert into Pa_Resource_list_uses
221: (RESOURCE_LIST_ASSIGNMENT_ID,USE_CODE,DEFAULT_FLAG,
222: LAST_UPDATED_BY,LAST_UPDATE_DATE,
223: CREATION_DATE,CREATED_BY,LAST_UPDATE_LOGIN) Values
224: (X_Resource_list_Assgmt_id,X_Use_Code,'N',

Line 243: Select Resource_list_Assignment_Id from PA_RESOURCE_LIST_USES_V

239:
240: W_Assgmt_Id Number := 0;
241: Old_stack varchar2(630);
242: Cursor Res_List_Asgmt_Cur is
243: Select Resource_list_Assignment_Id from PA_RESOURCE_LIST_USES_V
244: where Resource_list_Assignment_id = X_Resource_list_Assgmt_id;
245:
246: Begin
247: X_err_code := 0;

Line 250: x_err_stage := ' Delete from PA_RESOURCE_LIST_USES';

246: Begin
247: X_err_code := 0;
248: Old_Stack := X_Err_Stack;
249: X_err_stack := X_err_stack ||'->PA_RES_LIST_ASSIGNMENTS.Delete_Rl_Uses';
250: x_err_stage := ' Delete from PA_RESOURCE_LIST_USES';
251: Delete from PA_RESOURCE_LIST_USES Where
252: Resource_List_Assignment_id = X_Resource_list_Assgmt_id and
253: Use_Code = X_Use_Code;
254: If SQL%NOTFOUND Then

Line 251: Delete from PA_RESOURCE_LIST_USES Where

247: X_err_code := 0;
248: Old_Stack := X_Err_Stack;
249: X_err_stack := X_err_stack ||'->PA_RES_LIST_ASSIGNMENTS.Delete_Rl_Uses';
250: x_err_stage := ' Delete from PA_RESOURCE_LIST_USES';
251: Delete from PA_RESOURCE_LIST_USES Where
252: Resource_List_Assignment_id = X_Resource_list_Assgmt_id and
253: Use_Code = X_Use_Code;
254: If SQL%NOTFOUND Then
255: X_err_stage := 'PA_RE_ASSGMT_NOT_FOUND' ;

Line 260: ' Select Resource_list_Assignment_Id from PA_RESOURCE_LIST_USES_V '

256: x_err_code := 10;
257: Return;
258: End If;
259: x_err_stage :=
260: ' Select Resource_list_Assignment_Id from PA_RESOURCE_LIST_USES_V '
261: || To_Char(X_Resource_list_Assgmt_id);
262: Open Res_List_Asgmt_Cur;
263: Fetch Res_List_Asgmt_Cur into W_Assgmt_Id;
264: If Res_List_Asgmt_Cur%NOTFOUND Then

Line 285: Select Resource_list_Assignment_Id from PA_RESOURCE_LIST_USES

281:
282: W_Assgmt_Id Number := 0;
283: Old_stack varchar2(630);
284: Cursor Res_List_Asgmt_Cur is
285: Select Resource_list_Assignment_Id from PA_RESOURCE_LIST_USES
286: where Resource_list_Assignment_id = X_Resource_list_Assgmt_id;
287:
288: Begin
289: X_err_code := 0;

Line 293: ' Select Resource_list_Assignment_Id from PA_RESOURCE_LIST_USES '

289: X_err_code := 0;
290: Old_Stack := X_Err_Stack;
291: X_err_stack := X_err_stack ||'->PA_RES_LIST_ASSIGNMENTS.Delete_Rl_Asgmt';
292: x_err_stage :=
293: ' Select Resource_list_Assignment_Id from PA_RESOURCE_LIST_USES '
294: || To_Char(X_Resource_list_Assgmt_id);
295: Open Res_List_Asgmt_Cur;
296: Fetch Res_List_Asgmt_Cur into W_Assgmt_Id;
297: If Res_List_Asgmt_Cur%NOTFOUND Then