[Home] [Help]
1261: NOFORMAT_EXISTS_ERR Exception;
1262:
1263: BEGIN
1264:
1265: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
1266:
1267: --Initialize the message stack before starting any further processing.
1268: IF FND_API.to_boolean( p_init_msg_list )
1269: THEN
1552: l_old_resource_list_rec resource_list_cursor%RowType;
1553:
1554: BEGIN
1555:
1556: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
1557: --Initialize the message stack before starting any further processing.
1558: If Fnd_Api.To_Boolean( P_Init_Msg_List ) Then
1559:
1560: Fnd_Msg_Pub.Initialize;
1795: * For each of the resource_list_memeber_id in the table.
1796: * We'll first check if an entry is present in the
1797: * pa_resource_list_members table or not.
1798: * If it is present then we'll call the
1799: * Pa_Planning_resource_pvt.Update_Planning_Resource api,
1800: * which would just update the corr record in the table.
1801: * If it is not present then we'll call the
1802: * pa_planning_resource_pvt.Create_Planning_Resource api,
1803: * which would take care of creating the corr record in
1798: * If it is present then we'll call the
1799: * Pa_Planning_resource_pvt.Update_Planning_Resource api,
1800: * which would just update the corr record in the table.
1801: * If it is not present then we'll call the
1802: * pa_planning_resource_pvt.Create_Planning_Resource api,
1803: * which would take care of creating the corr record in
1804: * the table. Once a resource list member is succ created/Updated,
1805: * we'll commit it in the db.
1806: ************************************************************/
1936: Pa_Utils.Add_Message(
1937: P_App_Short_Name => 'PA',
1938: P_Msg_Name => 'PA_AMG_PROJECT_ID_INVALID',
1939: p_token1 => 'PLAN_RES',
1940: p_value1 => Pa_Planning_Resource_Pvt.g_token);
1941:
1942: Raise l_ERROR;
1943:
1944: END;
1961: Pa_Utils.Add_Message(
1962: P_App_Short_Name => 'PA',
1963: P_Msg_Name => 'PA_AMG_FORMAT_NOT_EXISTS',
1964: p_token1 => 'PLAN_RES',
1965: p_value1 => Pa_Planning_Resource_Pvt.g_token);
1966:
1967: Raise l_ERROR;
1968:
1969: END;
1971: END IF;
1972: --End of bug 4103909.
1973:
1974: SELECT meaning || ' ' || to_char(i) || ':'
1975: INTO Pa_Planning_Resource_Pvt.g_token
1976: FROM pa_lookups
1977: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
1978: AND lookup_code = 'PLANNING_RESOURCE';
1979:
1990: x_error_msg_data => l_msg_data);
1991: -- dbms_output.put_line('--- AFTER in create part of upd');
1992:
1993: /*
1994: Pa_Planning_Resource_Pvt.Create_Planning_Resource(
1995: p_resource_list_member_id => L_planning_resource_in_tbl(i).p_resource_list_member_id,
1996: p_resource_list_id => L_plan_res_list_Rec.p_resource_list_id,
1997: p_resource_alias => L_planning_resource_in_tbl(i).p_resource_alias,
1998: p_person_id => L_planning_resource_in_tbl(i).p_person_id,
2091: If L_planning_resource_in_tbl(i).p_resource_list_member_id is not null Then --For bug 4103909
2092: --This means that the resource list member is already existing and is supposed to be updated.
2093:
2094: SELECT meaning || ' ' || to_char(i) || ':'
2095: INTO Pa_Planning_Resource_Pvt.g_token
2096: FROM pa_lookups
2097: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
2098: AND lookup_code = 'PLANNING_RESOURCE';
2099:
2104: Pa_Utils.Add_Message(
2105: P_App_Short_Name => 'PA',
2106: P_Msg_Name => 'PA_RLM_REC_VER_NOT_VALID',
2107: p_token1 => 'PLAN_RES',
2108: p_value1 => Pa_Planning_Resource_Pvt.g_token);
2109:
2110: Raise l_ERROR;
2111: END IF;
2112:
2109:
2110: Raise l_ERROR;
2111: END IF;
2112:
2113: Pa_Planning_Resource_Pvt.Update_Planning_Resource(
2114: p_resource_list_id => L_plan_res_list_Rec.p_resource_list_id,
2115: p_resource_list_member_id => L_planning_resource_in_tbl(i).p_resource_list_member_id,
2116: p_enabled_flag => L_planning_resource_in_tbl(i).p_enabled_flag,
2117: p_resource_alias => L_planning_resource_in_tbl(i).p_resource_alias,
2258: l_Plan_rl_format_id_tbl SYSTEM.PA_NUM_TBL_TYPE :=
2259: SYSTEM.PA_NUM_TBL_TYPE();
2260: API_ERROR Exception;
2261: BEGIN
2262: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
2263: --Initialize the message stack before starting any further processing.
2264: IF FND_API.to_boolean( p_init_msg_list )
2265: THEN
2266: FND_MSG_PUB.initialize;
2323: IF l_res_list_member_id_tbl.COUNT > 0 THEN
2324: FOR i IN l_res_list_member_id_tbl.first.. l_res_list_member_id_tbl.last
2325: LOOP
2326: /*******************************************************
2327: * Call to API Pa_Planning_Resource_Pvt.Delete_Planning_Resource
2328: * passing the pl/sql table od resource_list_member_id's
2329: * This API would take care of deletion.
2330: ********************************************************/
2331: SELECT meaning || ' ' || to_char(i) || ':'
2328: * passing the pl/sql table od resource_list_member_id's
2329: * This API would take care of deletion.
2330: ********************************************************/
2331: SELECT meaning || ' ' || to_char(i) || ':'
2332: INTO Pa_Planning_Resource_Pvt.g_token
2333: FROM pa_lookups
2334: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
2335: AND lookup_code = 'PLANNING_RESOURCE';
2336:
2333: FROM pa_lookups
2334: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
2335: AND lookup_code = 'PLANNING_RESOURCE';
2336:
2337: Pa_Planning_Resource_Pvt.Delete_Planning_Resource(
2338: p_resource_list_member_id => l_res_list_member_id_tbl(i),
2339: x_return_status => l_return_status,
2340: x_msg_count => l_msg_count,
2341: x_error_msg_data => l_msg_data);
2729:
2730: l_count Number;
2731: Begin
2732:
2733: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
2734: -- First clear the message stack.
2735: If Fnd_Api.To_Boolean( P_Init_Msg_List ) Then
2736:
2737: Fnd_Msg_Pub.Initialize;
2765: For i IN 1..L_Planning_Resource_In_Tbl.Count
2766: Loop
2767:
2768: SELECT meaning || ' ' || to_char(i) || ':'
2769: INTO Pa_Planning_Resource_Pvt.g_token
2770: FROM pa_lookups
2771: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
2772: AND lookup_code = 'PLANNING_RESOURCE';
2773:
2844: Pa_Utils.Add_Message
2845: (P_App_Short_Name => 'PA',
2846: P_Msg_Name => 'PA_PLN_RL_FORMAT_BAD_FMT_ID',
2847: p_token1 => 'PLAN_RES',
2848: p_value1 => Pa_Planning_Resource_Pvt.g_token);
2849: RETURN;
2850: END;
2851:
2852: IF (L_planning_resource_in_tbl(i).p_res_format_id is not null) Then --For bug 4103909.
3038: END IF;
3039: --End of bug 4055082.
3040:
3041: /******************************************************
3042: * Call to pa_planning_resource_pvt.create_planning_resource
3043: * which would take care of the validation and creation
3044: * of the resource list members. The table elements are being passed as
3045: * parameters.
3046: ******************************************************/
3051: Into l_res_class_flag
3052: From pa_res_formats_b
3053: Where res_format_id = L_planning_resource_in_tbl(i).p_res_format_id;
3054:
3055: Pa_Planning_Resource_Pvt.Create_Planning_Resource(
3056: p_resource_list_id => p_resource_list_id,
3057: p_resource_list_member_id => L_planning_resource_in_tbl(i).p_resource_list_member_id,
3058: p_resource_alias => L_planning_resource_in_tbl(i).p_resource_alias,
3059: p_person_id => L_planning_resource_in_tbl(i).p_person_id,
3156: Pa_Utils.Add_Message
3157: (P_App_Short_Name => 'PA',
3158: P_Msg_Name => 'PA_AMG_FORMAT_ID_NULL',
3159: p_token1 => 'PLAN_RES',
3160: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3161: When RES_FORMAT_ID_ERR Then
3162: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3163: x_msg_count:=1;
3164: x_error_msg_data := 'PA_AMG_FORMAT_NOT_EXISTS';
3165: Pa_Utils.Add_Message(
3166: P_App_Short_Name => 'PA',
3167: P_Msg_Name => 'PA_AMG_FORMAT_NOT_EXISTS',
3168: p_token1 => 'PLAN_RES',
3169: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3170: When RES_CLASS_ID_AND_CODE_NULL Then
3171: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3172: x_msg_count:=1;
3173: x_error_msg_data := 'PA_AMG_RESCLS_ID_CODE_NULL';
3174: Pa_Utils.Add_Message
3175: (P_App_Short_Name => 'PA',
3176: P_Msg_Name => 'PA_AMG_RESCLS_ID_CODE_NULL',
3177: p_token1 => 'PLAN_RES',
3178: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3179: When RES_CODE_INVALID_ERR Then
3180: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3181: x_msg_count:=1;
3182: x_error_msg_data := 'PA_AMG_RESOURCE_CODE_INVALID';
3183: Pa_Utils.Add_Message
3184: (P_App_Short_Name => 'PA',
3185: P_Msg_Name => 'PA_AMG_RESOURCE_CODE_INVALID',
3186: p_token1 => 'PLAN_RES',
3187: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3188: When RES_ID_INVALID_ERR Then
3189: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3190: x_msg_count:=1;
3191: x_error_msg_data := 'PA_AMG_RESOURCE_ID_INVALID';
3192: Pa_Utils.Add_Message
3193: (P_App_Short_Name => 'PA',
3194: P_Msg_Name => 'PA_AMG_RESOURCE_ID_INVALID',
3195: p_token1 => 'PLAN_RES',
3196: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3197: When INVALID_PROJECT_ID Then
3198: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3199: x_msg_count:=1;
3200: x_error_msg_data := 'PA_AMG_PROJECT_ID_INVALID';
3201: Pa_Utils.Add_Message
3202: (P_App_Short_Name => 'PA',
3203: P_Msg_Name => 'PA_AMG_PROJECT_ID_INVALID',
3204: p_token1 => 'PLAN_RES',
3205: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3206: When NAMED_PER_NULL_ERR Then
3207: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3208: x_msg_count:=1;
3209: x_error_msg_data := 'PA_AMG_NAMED_PER_NULL';
3210: Pa_Utils.Add_Message
3211: (P_App_Short_Name => 'PA',
3212: P_Msg_Name => 'PA_AMG_NAMED_PER_NULL',
3213: p_token1 => 'PLAN_RES',
3214: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3215: When BOM_LAB_N_EQUIP_NULL_ERR Then
3216: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3217: x_msg_count:=1;
3218: x_error_msg_data := 'PA_AMG_BOM_NULL';
3219: Pa_Utils.Add_Message
3220: (P_App_Short_Name => 'PA',
3221: P_Msg_Name => 'PA_AMG_BOM_NULL',
3222: p_token1 => 'PLAN_RES',
3223: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3224: When ITEM_CAT_NULL_ERR Then
3225: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3226: x_msg_count:=1;
3227: x_error_msg_data := 'PA_AMG_ITEM_CAT_NULL';
3228: Pa_Utils.Add_Message
3229: (P_App_Short_Name => 'PA',
3230: P_Msg_Name => 'PA_AMG_ITEM_CAT_NULL',
3231: p_token1 => 'PLAN_RES',
3232: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3233: When INVEN_ITEM_NULL_ERR Then
3234: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3235: x_msg_count:=1;
3236: x_error_msg_data := 'PA_AMG_INV_ITEM_NULL';
3237: Pa_Utils.Add_Message
3238: (P_App_Short_Name => 'PA',
3239: P_Msg_Name => 'PA_AMG_INV_ITEM_NULL',
3240: p_token1 => 'PLAN_RES',
3241: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3242: When JOB_NULL_ERR Then
3243: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3244: x_msg_count:=1;
3245: x_error_msg_data := 'PA_AMG_JOB_NULL';
3246: Pa_Utils.Add_Message
3247: (P_App_Short_Name => 'PA',
3248: P_Msg_Name => 'PA_AMG_JOB_NULL',
3249: p_token1 => 'PLAN_RES',
3250: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3251: When PERSON_TYPE_NULL_ERR Then
3252: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3253: x_msg_count:=1;
3254: x_error_msg_data := 'PA_AMG_PERSON_TYPE_NULL';
3255: Pa_Utils.Add_Message
3256: (P_App_Short_Name => 'PA',
3257: P_Msg_Name => 'PA_AMG_PERSON_TYPE_NULL',
3258: p_token1 => 'PLAN_RES',
3259: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3260: When NON_LABOR_RES_NULL_ERR Then
3261: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3262: x_msg_count:=1;
3263: x_error_msg_data := 'PA_AMG_NON_LABOR_NULL';
3264: Pa_Utils.Add_Message
3265: (P_App_Short_Name => 'PA',
3266: P_Msg_Name => 'PA_AMG_NON_LABOR_NULL',
3267: p_token1 => 'PLAN_RES',
3268: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3269: When FIN_NULL_ERR Then
3270: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3271: x_msg_count:=1;
3272: x_error_msg_data := 'PA_AMG_FIN_NULL';
3273: Pa_Utils.Add_Message
3274: (P_App_Short_Name => 'PA',
3275: P_Msg_Name => 'PA_AMG_FIN_NULL',
3276: p_token1 => 'PLAN_RES',
3277: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3278: When FIN_NOT_NULL_ERR Then
3279: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3280: x_msg_count:=1;
3281: x_error_msg_data := 'PA_AMG_FIN_NOT_NULL';
3282: Pa_Utils.Add_Message
3283: (P_App_Short_Name => 'PA',
3284: P_Msg_Name => 'PA_AMG_FIN_NOT_NULL',
3285: p_token1 => 'PLAN_RES',
3286: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3287: When ORG_NULL_ERR Then
3288: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3289: x_msg_count:=1;
3290: x_error_msg_data := 'PA_AMG_ORG_NULL';
3291: Pa_Utils.Add_Message
3292: (P_App_Short_Name => 'PA',
3293: P_Msg_Name => 'PA_AMG_ORG_NULL',
3294: p_token1 => 'PLAN_RES',
3295: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3296: When ORG_NOT_NULL_ERR Then
3297: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3298: x_msg_count:=1;
3299: x_error_msg_data := 'PA_AMG_ORG_NOT_NULL';
3300: Pa_Utils.Add_Message
3301: (P_App_Short_Name => 'PA',
3302: P_Msg_Name => 'PA_AMG_ORG_NOT_NULL',
3303: p_token1 => 'PLAN_RES',
3304: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3305: When SUPP_NULL_ERR Then
3306: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3307: x_msg_count:=1;
3308: x_error_msg_data := 'PA_AMG_SUPP_NULL';
3309: Pa_Utils.Add_Message
3310: (P_App_Short_Name => 'PA',
3311: P_Msg_Name => 'PA_AMG_SUPP_NULL',
3312: p_token1 => 'PLAN_RES',
3313: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3314: When SUPP_NOT_NULL_ERR Then
3315: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3316: x_msg_count:=1;
3317: x_error_msg_data := 'PA_AMG_SUPP_NOT_NULL';
3318: Pa_Utils.Add_Message
3319: (P_App_Short_Name => 'PA',
3320: P_Msg_Name => 'PA_AMG_SUPP_NOT_NULL',
3321: p_token1 => 'PLAN_RES',
3322: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3323: When ROLE_NULL_ERR Then
3324: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3325: x_msg_count:=1;
3326: x_error_msg_data := 'PA_AMG_ROLE_NULL';
3327: Pa_Utils.Add_Message
3328: (P_App_Short_Name => 'PA',
3329: P_Msg_Name => 'PA_AMG_ROLE_NULL',
3330: p_token1 => 'PLAN_RES',
3331: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3332: When ROLE_NOT_NULL_ERR Then
3333: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3334: x_msg_count:=1;
3335: x_error_msg_data := 'PA_AMG_ROLE_NOT_NULL';
3336: Pa_Utils.Add_Message
3337: (P_App_Short_Name => 'PA',
3338: P_Msg_Name => 'PA_AMG_ROLE_NOT_NULL',
3339: p_token1 => 'PLAN_RES',
3340: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3341: When INC_NULL_ERR Then
3342: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3343: x_msg_count:=1;
3344: x_error_msg_data := 'PA_AMG_INC_NULL';
3345: Pa_Utils.Add_Message
3346: (P_App_Short_Name => 'PA',
3347: P_Msg_Name => 'PA_AMG_INC_NULL',
3348: p_token1 => 'PLAN_RES',
3349: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3350: When INC_NOT_NULL_ERR Then
3351: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3352: x_msg_count:=1;
3353: x_error_msg_data := 'PA_AMG_INC_NOT_NULL';
3354: Pa_Utils.Add_Message
3355: (P_App_Short_Name => 'PA',
3356: P_Msg_Name => 'PA_AMG_INC_NOT_NULL',
3357: p_token1 => 'PLAN_RES',
3358: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3359: When RES_NOT_NULL_ERR Then
3360: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3361: x_msg_count:=1;
3362: x_error_msg_data := 'PA_AMG_RES_NOT_NULL';
3363: Pa_Utils.Add_Message
3364: (P_App_Short_Name => 'PA',
3365: P_Msg_Name => 'PA_AMG_RES_NOT_NULL',
3366: p_token1 => 'PLAN_RES',
3367: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3368: When RESOURCE_CLASS_FMT_ERR Then
3369: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3370: x_msg_count:=1;
3371: x_error_msg_data := 'PA_AMG_RES_CLS_FMT';
3372: Pa_Utils.Add_Message
3373: (P_App_Short_Name => 'PA',
3374: P_Msg_Name => 'PA_AMG_RES_CLS_FMT',
3375: p_token1 => 'PLAN_RES',
3376: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3377: When Others Then
3378: Rollback;
3379: x_return_status := Fnd_Api.G_Ret_Sts_UnExp_Error;
3380:
3437: EXC_NULL_INVALID_DATA EXCEPTION;
3438:
3439: BEGIN
3440:
3441: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
3442: -- First clear the message stack.
3443: If Fnd_Api.To_Boolean( p_init_msg_list ) Then
3444:
3445: Fnd_Msg_Pub.Initialize;
3480: Loop
3481:
3482: Begin
3483: SELECT meaning || ' ' || to_char(i) || ':'
3484: INTO Pa_Planning_Resource_Pvt.g_token
3485: FROM pa_lookups
3486: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
3487: AND lookup_code = 'PLANNING_RESOURCE';
3488:
3506: If P_planning_resource_in_tbl(i).p_resource_alias Is Null Then
3507:
3508: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3509: Pa_Utils.Add_Message ('PA', 'PA_PLN_RES_LIST_ID_ALIAS_NULL',
3510: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3511: Raise EXC_NULL_INVALID_DATA;
3512:
3513: Else -- P_planning_resource_in_tbl(i).p_resource_alias Is Not Null
3514:
3521:
3522: Close c1;
3523: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3524: Pa_Utils.Add_Message ('PA', 'PA_PLN_RES_LIST_ALIAS_INVAL',
3525: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3526: RAISE EXC_NULL_INVALID_DATA;
3527:
3528: Else
3529:
3542: If p_planning_resource_in_tbl(i).p_record_version_number is Null Then
3543:
3544: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3545: Pa_Utils.Add_Message ('PA', 'PA_PLN_RESLISTMEM_RECVER_NULL',
3546: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3547: RAISE EXC_NULL_INVALID_DATA;
3548:
3549:
3550: Else
3556:
3557: Close c2;
3558: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3559: Pa_Utils.Add_Message ('PA', 'PA_PLN_RESLISTMEM_ID_INVAL',
3560: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3561: RAISE EXC_NULL_INVALID_DATA;
3562:
3563: Else
3564:
3566: If l_rec_ver_num <> p_planning_resource_in_tbl(i).p_record_version_number then
3567:
3568: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3569: Pa_Utils.Add_Message('PA', 'PA_PLN_RESLISTMEM_ALREADY_UPD',
3570: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3571: RAISE EXC_NULL_INVALID_DATA;
3572:
3573: End If;
3574:
3575: End If;
3576:
3577: End If;
3578:
3579: pa_planning_resource_pvt.Update_Planning_Resource(
3580: p_resource_list_id => p_resource_list_id,
3581: p_resource_list_member_id => l_rlm_id,
3582: p_enabled_flag => p_enabled_flag,
3583: p_resource_alias => P_planning_resource_in_tbl(i).p_resource_alias,
3676: x_error_msg_data OUT NOCOPY VARCHAR2)
3677:
3678: IS
3679: BEGIN
3680: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
3681: -- First clear the message stack.
3682: IF FND_API.to_boolean( p_init_msg_list )
3683: THEN
3684: FND_MSG_PUB.initialize;
3690: *************************************************/
3691: FOR i in 1..p_resource_list_member_id.COUNT
3692: LOOP
3693: SELECT meaning || ' ' || to_char(i) || ':'
3694: INTO Pa_Planning_Resource_Pvt.g_token
3695: FROM pa_lookups
3696: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
3697: AND lookup_code = 'PLANNING_RESOURCE';
3698:
3695: FROM pa_lookups
3696: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
3697: AND lookup_code = 'PLANNING_RESOURCE';
3698:
3699: pa_planning_resource_pvt.delete_planning_resource
3700: (p_resource_list_member_id =>p_resource_list_member_id(i),
3701: x_return_status =>x_return_status,
3702: x_msg_count =>x_msg_count,
3703: x_error_msg_data =>x_error_msg_data);