[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;
1780: * For each of the resource_list_memeber_id in the table.
1781: * We'll first check if an entry is present in the
1782: * pa_resource_list_members table or not.
1783: * If it is present then we'll call the
1784: * Pa_Planning_resource_pvt.Update_Planning_Resource api,
1785: * which would just update the corr record in the table.
1786: * If it is not present then we'll call the
1787: * pa_planning_resource_pvt.Create_Planning_Resource api,
1788: * which would take care of creating the corr record in
1783: * If it is present then we'll call the
1784: * Pa_Planning_resource_pvt.Update_Planning_Resource api,
1785: * which would just update the corr record in the table.
1786: * If it is not present then we'll call the
1787: * pa_planning_resource_pvt.Create_Planning_Resource api,
1788: * which would take care of creating the corr record in
1789: * the table. Once a resource list member is succ created/Updated,
1790: * we'll commit it in the db.
1791: ************************************************************/
1921: Pa_Utils.Add_Message(
1922: P_App_Short_Name => 'PA',
1923: P_Msg_Name => 'PA_AMG_PROJECT_ID_INVALID',
1924: p_token1 => 'PLAN_RES',
1925: p_value1 => Pa_Planning_Resource_Pvt.g_token);
1926:
1927: Raise l_ERROR;
1928:
1929: END;
1946: Pa_Utils.Add_Message(
1947: P_App_Short_Name => 'PA',
1948: P_Msg_Name => 'PA_AMG_FORMAT_NOT_EXISTS',
1949: p_token1 => 'PLAN_RES',
1950: p_value1 => Pa_Planning_Resource_Pvt.g_token);
1951:
1952: Raise l_ERROR;
1953:
1954: END;
1956: END IF;
1957: --End of bug 4103909.
1958:
1959: SELECT meaning || ' ' || to_char(i) || ':'
1960: INTO Pa_Planning_Resource_Pvt.g_token
1961: FROM pa_lookups
1962: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
1963: AND lookup_code = 'PLANNING_RESOURCE';
1964:
1975: x_error_msg_data => l_msg_data);
1976: -- dbms_output.put_line('--- AFTER in create part of upd');
1977:
1978: /*
1979: Pa_Planning_Resource_Pvt.Create_Planning_Resource(
1980: p_resource_list_member_id => L_planning_resource_in_tbl(i).p_resource_list_member_id,
1981: p_resource_list_id => L_plan_res_list_Rec.p_resource_list_id,
1982: p_resource_alias => L_planning_resource_in_tbl(i).p_resource_alias,
1983: p_person_id => L_planning_resource_in_tbl(i).p_person_id,
2076: If L_planning_resource_in_tbl(i).p_resource_list_member_id is not null Then --For bug 4103909
2077: --This means that the resource list member is already existing and is supposed to be updated.
2078:
2079: SELECT meaning || ' ' || to_char(i) || ':'
2080: INTO Pa_Planning_Resource_Pvt.g_token
2081: FROM pa_lookups
2082: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
2083: AND lookup_code = 'PLANNING_RESOURCE';
2084:
2089: Pa_Utils.Add_Message(
2090: P_App_Short_Name => 'PA',
2091: P_Msg_Name => 'PA_RLM_REC_VER_NOT_VALID',
2092: p_token1 => 'PLAN_RES',
2093: p_value1 => Pa_Planning_Resource_Pvt.g_token);
2094:
2095: Raise l_ERROR;
2096: END IF;
2097:
2094:
2095: Raise l_ERROR;
2096: END IF;
2097:
2098: Pa_Planning_Resource_Pvt.Update_Planning_Resource(
2099: p_resource_list_id => L_plan_res_list_Rec.p_resource_list_id,
2100: p_resource_list_member_id => L_planning_resource_in_tbl(i).p_resource_list_member_id,
2101: p_enabled_flag => L_planning_resource_in_tbl(i).p_enabled_flag,
2102: p_resource_alias => L_planning_resource_in_tbl(i).p_resource_alias,
2243: l_Plan_rl_format_id_tbl SYSTEM.PA_NUM_TBL_TYPE :=
2244: SYSTEM.PA_NUM_TBL_TYPE();
2245: API_ERROR Exception;
2246: BEGIN
2247: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
2248: --Initialize the message stack before starting any further processing.
2249: IF FND_API.to_boolean( p_init_msg_list )
2250: THEN
2251: FND_MSG_PUB.initialize;
2308: IF l_res_list_member_id_tbl.COUNT > 0 THEN
2309: FOR i IN l_res_list_member_id_tbl.first.. l_res_list_member_id_tbl.last
2310: LOOP
2311: /*******************************************************
2312: * Call to API Pa_Planning_Resource_Pvt.Delete_Planning_Resource
2313: * passing the pl/sql table od resource_list_member_id's
2314: * This API would take care of deletion.
2315: ********************************************************/
2316: SELECT meaning || ' ' || to_char(i) || ':'
2313: * passing the pl/sql table od resource_list_member_id's
2314: * This API would take care of deletion.
2315: ********************************************************/
2316: SELECT meaning || ' ' || to_char(i) || ':'
2317: INTO Pa_Planning_Resource_Pvt.g_token
2318: FROM pa_lookups
2319: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
2320: AND lookup_code = 'PLANNING_RESOURCE';
2321:
2318: FROM pa_lookups
2319: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
2320: AND lookup_code = 'PLANNING_RESOURCE';
2321:
2322: Pa_Planning_Resource_Pvt.Delete_Planning_Resource(
2323: p_resource_list_member_id => l_res_list_member_id_tbl(i),
2324: x_return_status => l_return_status,
2325: x_msg_count => l_msg_count,
2326: x_error_msg_data => l_msg_data);
2709:
2710: l_count Number;
2711: Begin
2712:
2713: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
2714: -- First clear the message stack.
2715: If Fnd_Api.To_Boolean( P_Init_Msg_List ) Then
2716:
2717: Fnd_Msg_Pub.Initialize;
2733: For i IN 1..L_Planning_Resource_In_Tbl.Count
2734: Loop
2735:
2736: SELECT meaning || ' ' || to_char(i) || ':'
2737: INTO Pa_Planning_Resource_Pvt.g_token
2738: FROM pa_lookups
2739: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
2740: AND lookup_code = 'PLANNING_RESOURCE';
2741:
2812: Pa_Utils.Add_Message
2813: (P_App_Short_Name => 'PA',
2814: P_Msg_Name => 'PA_PLN_RL_FORMAT_BAD_FMT_ID',
2815: p_token1 => 'PLAN_RES',
2816: p_value1 => Pa_Planning_Resource_Pvt.g_token);
2817: RETURN;
2818: END;
2819:
2820: IF (L_planning_resource_in_tbl(i).p_res_format_id is not null) Then --For bug 4103909.
3006: END IF;
3007: --End of bug 4055082.
3008:
3009: /******************************************************
3010: * Call to pa_planning_resource_pvt.create_planning_resource
3011: * which would take care of the validation and creation
3012: * of the resource list members. The table elements are being passed as
3013: * parameters.
3014: ******************************************************/
3019: Into l_res_class_flag
3020: From pa_res_formats_b
3021: Where res_format_id = L_planning_resource_in_tbl(i).p_res_format_id;
3022:
3023: Pa_Planning_Resource_Pvt.Create_Planning_Resource(
3024: p_resource_list_id => p_resource_list_id,
3025: p_resource_list_member_id => L_planning_resource_in_tbl(i).p_resource_list_member_id,
3026: p_resource_alias => L_planning_resource_in_tbl(i).p_resource_alias,
3027: p_person_id => L_planning_resource_in_tbl(i).p_person_id,
3124: Pa_Utils.Add_Message
3125: (P_App_Short_Name => 'PA',
3126: P_Msg_Name => 'PA_AMG_FORMAT_ID_NULL',
3127: p_token1 => 'PLAN_RES',
3128: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3129: When RES_FORMAT_ID_ERR Then
3130: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3131: x_msg_count:=1;
3132: x_error_msg_data := 'PA_AMG_FORMAT_NOT_EXISTS';
3133: Pa_Utils.Add_Message(
3134: P_App_Short_Name => 'PA',
3135: P_Msg_Name => 'PA_AMG_FORMAT_NOT_EXISTS',
3136: p_token1 => 'PLAN_RES',
3137: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3138: When RES_CLASS_ID_AND_CODE_NULL Then
3139: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3140: x_msg_count:=1;
3141: x_error_msg_data := 'PA_AMG_RESCLS_ID_CODE_NULL';
3142: Pa_Utils.Add_Message
3143: (P_App_Short_Name => 'PA',
3144: P_Msg_Name => 'PA_AMG_RESCLS_ID_CODE_NULL',
3145: p_token1 => 'PLAN_RES',
3146: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3147: When RES_CODE_INVALID_ERR Then
3148: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3149: x_msg_count:=1;
3150: x_error_msg_data := 'PA_AMG_RESOURCE_CODE_INVALID';
3151: Pa_Utils.Add_Message
3152: (P_App_Short_Name => 'PA',
3153: P_Msg_Name => 'PA_AMG_RESOURCE_CODE_INVALID',
3154: p_token1 => 'PLAN_RES',
3155: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3156: When RES_ID_INVALID_ERR Then
3157: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3158: x_msg_count:=1;
3159: x_error_msg_data := 'PA_AMG_RESOURCE_ID_INVALID';
3160: Pa_Utils.Add_Message
3161: (P_App_Short_Name => 'PA',
3162: P_Msg_Name => 'PA_AMG_RESOURCE_ID_INVALID',
3163: p_token1 => 'PLAN_RES',
3164: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3165: When INVALID_PROJECT_ID Then
3166: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3167: x_msg_count:=1;
3168: x_error_msg_data := 'PA_AMG_PROJECT_ID_INVALID';
3169: Pa_Utils.Add_Message
3170: (P_App_Short_Name => 'PA',
3171: P_Msg_Name => 'PA_AMG_PROJECT_ID_INVALID',
3172: p_token1 => 'PLAN_RES',
3173: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3174: When NAMED_PER_NULL_ERR Then
3175: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3176: x_msg_count:=1;
3177: x_error_msg_data := 'PA_AMG_NAMED_PER_NULL';
3178: Pa_Utils.Add_Message
3179: (P_App_Short_Name => 'PA',
3180: P_Msg_Name => 'PA_AMG_NAMED_PER_NULL',
3181: p_token1 => 'PLAN_RES',
3182: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3183: When BOM_LAB_N_EQUIP_NULL_ERR Then
3184: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3185: x_msg_count:=1;
3186: x_error_msg_data := 'PA_AMG_BOM_NULL';
3187: Pa_Utils.Add_Message
3188: (P_App_Short_Name => 'PA',
3189: P_Msg_Name => 'PA_AMG_BOM_NULL',
3190: p_token1 => 'PLAN_RES',
3191: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3192: When ITEM_CAT_NULL_ERR Then
3193: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3194: x_msg_count:=1;
3195: x_error_msg_data := 'PA_AMG_ITEM_CAT_NULL';
3196: Pa_Utils.Add_Message
3197: (P_App_Short_Name => 'PA',
3198: P_Msg_Name => 'PA_AMG_ITEM_CAT_NULL',
3199: p_token1 => 'PLAN_RES',
3200: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3201: When INVEN_ITEM_NULL_ERR Then
3202: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3203: x_msg_count:=1;
3204: x_error_msg_data := 'PA_AMG_INV_ITEM_NULL';
3205: Pa_Utils.Add_Message
3206: (P_App_Short_Name => 'PA',
3207: P_Msg_Name => 'PA_AMG_INV_ITEM_NULL',
3208: p_token1 => 'PLAN_RES',
3209: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3210: When JOB_NULL_ERR Then
3211: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3212: x_msg_count:=1;
3213: x_error_msg_data := 'PA_AMG_JOB_NULL';
3214: Pa_Utils.Add_Message
3215: (P_App_Short_Name => 'PA',
3216: P_Msg_Name => 'PA_AMG_JOB_NULL',
3217: p_token1 => 'PLAN_RES',
3218: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3219: When PERSON_TYPE_NULL_ERR Then
3220: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3221: x_msg_count:=1;
3222: x_error_msg_data := 'PA_AMG_PERSON_TYPE_NULL';
3223: Pa_Utils.Add_Message
3224: (P_App_Short_Name => 'PA',
3225: P_Msg_Name => 'PA_AMG_PERSON_TYPE_NULL',
3226: p_token1 => 'PLAN_RES',
3227: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3228: When NON_LABOR_RES_NULL_ERR Then
3229: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3230: x_msg_count:=1;
3231: x_error_msg_data := 'PA_AMG_NON_LABOR_NULL';
3232: Pa_Utils.Add_Message
3233: (P_App_Short_Name => 'PA',
3234: P_Msg_Name => 'PA_AMG_NON_LABOR_NULL',
3235: p_token1 => 'PLAN_RES',
3236: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3237: When FIN_NULL_ERR Then
3238: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3239: x_msg_count:=1;
3240: x_error_msg_data := 'PA_AMG_FIN_NULL';
3241: Pa_Utils.Add_Message
3242: (P_App_Short_Name => 'PA',
3243: P_Msg_Name => 'PA_AMG_FIN_NULL',
3244: p_token1 => 'PLAN_RES',
3245: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3246: When FIN_NOT_NULL_ERR Then
3247: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3248: x_msg_count:=1;
3249: x_error_msg_data := 'PA_AMG_FIN_NOT_NULL';
3250: Pa_Utils.Add_Message
3251: (P_App_Short_Name => 'PA',
3252: P_Msg_Name => 'PA_AMG_FIN_NOT_NULL',
3253: p_token1 => 'PLAN_RES',
3254: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3255: When ORG_NULL_ERR Then
3256: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3257: x_msg_count:=1;
3258: x_error_msg_data := 'PA_AMG_ORG_NULL';
3259: Pa_Utils.Add_Message
3260: (P_App_Short_Name => 'PA',
3261: P_Msg_Name => 'PA_AMG_ORG_NULL',
3262: p_token1 => 'PLAN_RES',
3263: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3264: When ORG_NOT_NULL_ERR Then
3265: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3266: x_msg_count:=1;
3267: x_error_msg_data := 'PA_AMG_ORG_NOT_NULL';
3268: Pa_Utils.Add_Message
3269: (P_App_Short_Name => 'PA',
3270: P_Msg_Name => 'PA_AMG_ORG_NOT_NULL',
3271: p_token1 => 'PLAN_RES',
3272: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3273: When SUPP_NULL_ERR Then
3274: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3275: x_msg_count:=1;
3276: x_error_msg_data := 'PA_AMG_SUPP_NULL';
3277: Pa_Utils.Add_Message
3278: (P_App_Short_Name => 'PA',
3279: P_Msg_Name => 'PA_AMG_SUPP_NULL',
3280: p_token1 => 'PLAN_RES',
3281: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3282: When SUPP_NOT_NULL_ERR Then
3283: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3284: x_msg_count:=1;
3285: x_error_msg_data := 'PA_AMG_SUPP_NOT_NULL';
3286: Pa_Utils.Add_Message
3287: (P_App_Short_Name => 'PA',
3288: P_Msg_Name => 'PA_AMG_SUPP_NOT_NULL',
3289: p_token1 => 'PLAN_RES',
3290: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3291: When ROLE_NULL_ERR Then
3292: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3293: x_msg_count:=1;
3294: x_error_msg_data := 'PA_AMG_ROLE_NULL';
3295: Pa_Utils.Add_Message
3296: (P_App_Short_Name => 'PA',
3297: P_Msg_Name => 'PA_AMG_ROLE_NULL',
3298: p_token1 => 'PLAN_RES',
3299: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3300: When ROLE_NOT_NULL_ERR Then
3301: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3302: x_msg_count:=1;
3303: x_error_msg_data := 'PA_AMG_ROLE_NOT_NULL';
3304: Pa_Utils.Add_Message
3305: (P_App_Short_Name => 'PA',
3306: P_Msg_Name => 'PA_AMG_ROLE_NOT_NULL',
3307: p_token1 => 'PLAN_RES',
3308: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3309: When INC_NULL_ERR Then
3310: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3311: x_msg_count:=1;
3312: x_error_msg_data := 'PA_AMG_INC_NULL';
3313: Pa_Utils.Add_Message
3314: (P_App_Short_Name => 'PA',
3315: P_Msg_Name => 'PA_AMG_INC_NULL',
3316: p_token1 => 'PLAN_RES',
3317: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3318: When INC_NOT_NULL_ERR Then
3319: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3320: x_msg_count:=1;
3321: x_error_msg_data := 'PA_AMG_INC_NOT_NULL';
3322: Pa_Utils.Add_Message
3323: (P_App_Short_Name => 'PA',
3324: P_Msg_Name => 'PA_AMG_INC_NOT_NULL',
3325: p_token1 => 'PLAN_RES',
3326: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3327: When RES_NOT_NULL_ERR Then
3328: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3329: x_msg_count:=1;
3330: x_error_msg_data := 'PA_AMG_RES_NOT_NULL';
3331: Pa_Utils.Add_Message
3332: (P_App_Short_Name => 'PA',
3333: P_Msg_Name => 'PA_AMG_RES_NOT_NULL',
3334: p_token1 => 'PLAN_RES',
3335: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3336: When RESOURCE_CLASS_FMT_ERR Then
3337: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3338: x_msg_count:=1;
3339: x_error_msg_data := 'PA_AMG_RES_CLS_FMT';
3340: Pa_Utils.Add_Message
3341: (P_App_Short_Name => 'PA',
3342: P_Msg_Name => 'PA_AMG_RES_CLS_FMT',
3343: p_token1 => 'PLAN_RES',
3344: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3345: When Others Then
3346: Rollback;
3347: x_return_status := Fnd_Api.G_Ret_Sts_UnExp_Error;
3348:
3405: EXC_NULL_INVALID_DATA EXCEPTION;
3406:
3407: BEGIN
3408:
3409: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
3410: -- First clear the message stack.
3411: If Fnd_Api.To_Boolean( p_init_msg_list ) Then
3412:
3413: Fnd_Msg_Pub.Initialize;
3433: Loop
3434:
3435: Begin
3436: SELECT meaning || ' ' || to_char(i) || ':'
3437: INTO Pa_Planning_Resource_Pvt.g_token
3438: FROM pa_lookups
3439: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
3440: AND lookup_code = 'PLANNING_RESOURCE';
3441:
3459: If P_planning_resource_in_tbl(i).p_resource_alias Is Null Then
3460:
3461: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3462: Pa_Utils.Add_Message ('PA', 'PA_PLN_RES_LIST_ID_ALIAS_NULL',
3463: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3464: Raise EXC_NULL_INVALID_DATA;
3465:
3466: Else -- P_planning_resource_in_tbl(i).p_resource_alias Is Not Null
3467:
3474:
3475: Close c1;
3476: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3477: Pa_Utils.Add_Message ('PA', 'PA_PLN_RES_LIST_ALIAS_INVAL',
3478: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3479: RAISE EXC_NULL_INVALID_DATA;
3480:
3481: Else
3482:
3495: If p_planning_resource_in_tbl(i).p_record_version_number is Null Then
3496:
3497: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3498: Pa_Utils.Add_Message ('PA', 'PA_PLN_RESLISTMEM_RECVER_NULL',
3499: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3500: RAISE EXC_NULL_INVALID_DATA;
3501:
3502:
3503: Else
3509:
3510: Close c2;
3511: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3512: Pa_Utils.Add_Message ('PA', 'PA_PLN_RESLISTMEM_ID_INVAL',
3513: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3514: RAISE EXC_NULL_INVALID_DATA;
3515:
3516: Else
3517:
3519: If l_rec_ver_num <> p_planning_resource_in_tbl(i).p_record_version_number then
3520:
3521: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3522: Pa_Utils.Add_Message('PA', 'PA_PLN_RESLISTMEM_ALREADY_UPD',
3523: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3524: RAISE EXC_NULL_INVALID_DATA;
3525:
3526: End If;
3527:
3528: End If;
3529:
3530: End If;
3531:
3532: pa_planning_resource_pvt.Update_Planning_Resource(
3533: p_resource_list_id => p_resource_list_id,
3534: p_resource_list_member_id => l_rlm_id,
3535: p_enabled_flag => p_enabled_flag,
3536: p_resource_alias => P_planning_resource_in_tbl(i).p_resource_alias,
3629: x_error_msg_data OUT NOCOPY VARCHAR2)
3630:
3631: IS
3632: BEGIN
3633: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
3634: -- First clear the message stack.
3635: IF FND_API.to_boolean( p_init_msg_list )
3636: THEN
3637: FND_MSG_PUB.initialize;
3643: *************************************************/
3644: FOR i in 1..p_resource_list_member_id.COUNT
3645: LOOP
3646: SELECT meaning || ' ' || to_char(i) || ':'
3647: INTO Pa_Planning_Resource_Pvt.g_token
3648: FROM pa_lookups
3649: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
3650: AND lookup_code = 'PLANNING_RESOURCE';
3651:
3648: FROM pa_lookups
3649: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
3650: AND lookup_code = 'PLANNING_RESOURCE';
3651:
3652: pa_planning_resource_pvt.delete_planning_resource
3653: (p_resource_list_member_id =>p_resource_list_member_id(i),
3654: x_return_status =>x_return_status,
3655: x_msg_count =>x_msg_count,
3656: x_error_msg_data =>x_error_msg_data);