[Home] [Help]
38: -- 13-Nov-2002 bhroy NOCOPY changes made
39: -- 11-27-2002 bhroy All the default values have been removed, also fixed Bug# 2250056
40: -- 16-JUN-2003 bhroy Modified CSC_CORE_UTILS_PVT.G_APP_SHORTNAME to CS, it was pointed to CSC, messages are in CS
41: -- 26-NOV-2003 bhroy Fixed bug# 2805474, update Start_Date_Active
42: -- 22-DEC-2003 bhroy Fixed bug# 3319977, 3319946, chanegd text messages, removed FND_API.G_MISS_NUM for G_CUSTOMIZED_ID
43: --
44: -- End of Comments
45:
46:
47: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSC_RELATIONSHIP_PLANS_PVT';
48: G_FILE_NAME CONSTANT VARCHAR2(12) := 'cscvrlpb.pls';
49:
50: G_CUSTOMIZED_ID NUMBER;
51: -- G_CUSTOMIZED_ID NUMBER := FND_API.G_MISS_NUM;
52: -- used to get back the id of the record
53: -- created in CSC_CUSTOMIZED_PLANS table
54: -- when a customzied plan is created.
55:
54: -- when a customzied plan is created.
55:
56: -- not using this global variable coz, when executing the validation procedure stand-alone
57: -- from forms, this errors out.
58: --G_CUST_PLANS_REC_CNT NUMBER := FND_API.G_MISS_NUM;
59: -- Used to keep a count on the number of records in
60: -- CSC_CUST_PLANS table. This count is used while performing
61: -- update on columns which requires that there should be no
62: -- association between plans and customers. ie. if a record
276: l_api_name CONSTANT VARCHAR2(30) := 'create_plan_header';
277: l_api_version_number CONSTANT NUMBER := 1.0;
278: l_cust_plan_id NUMBER;
279: -- The following assignment is done, because the correct values have to be passed into the
280: -- table handler insert pkg. If FND_API.G_MISS_ is being passed in, then these values have to
281: -- be nullified because FND_API.G_MISS_NUM is a huge value and does not fit into most db
282: -- columns. These assignments are done before the call to the table handler API.
283: l_ins_plan_headers_b_rec CSC_PLAN_HEADERS_B_REC_TYPE := P_CSC_PLAN_HEADERS_B_REC;
284: l_name VARCHAR2(90) := P_NAME;
277: l_api_version_number CONSTANT NUMBER := 1.0;
278: l_cust_plan_id NUMBER;
279: -- The following assignment is done, because the correct values have to be passed into the
280: -- table handler insert pkg. If FND_API.G_MISS_ is being passed in, then these values have to
281: -- be nullified because FND_API.G_MISS_NUM is a huge value and does not fit into most db
282: -- columns. These assignments are done before the call to the table handler API.
283: l_ins_plan_headers_b_rec CSC_PLAN_HEADERS_B_REC_TYPE := P_CSC_PLAN_HEADERS_B_REC;
284: l_name VARCHAR2(90) := P_NAME;
285: l_description VARCHAR2(720) := P_DESCRIPTION;
297: -- Standard Start of API savepoint
298: SAVEPOINT CREATE_PLAN_HEADER_PVT;
299:
300: -- Standard call to check for call compatibility.
301: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
302: p_api_version_number,
303: l_api_name,
304: G_PKG_NAME)
305: THEN
302: p_api_version_number,
303: l_api_name,
304: G_PKG_NAME)
305: THEN
306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;
308:
309: -- Initialize message list if p_init_msg_list is set to TRUE.
310: IF FND_API.to_Boolean( p_init_msg_list )
306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;
308:
309: -- Initialize message list if p_init_msg_list is set to TRUE.
310: IF FND_API.to_Boolean( p_init_msg_list )
311: THEN
312: FND_MSG_PUB.initialize;
313: END IF;
314:
312: FND_MSG_PUB.initialize;
313: END IF;
314:
315: -- Initialize API return status to SUCCESS
316: x_return_status := FND_API.G_RET_STS_SUCCESS;
317:
318: -- ******************************************************************
319: -- Validate Environment
320: -- ******************************************************************
323: FND_MESSAGE.Set_Name(CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'UT_CANNOT_GET_PROFILE_VALUE');
324: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
325: --FND_MSG_PUB.ADD;
326: END IF;
327: RAISE FND_API.G_EXC_ERROR;
328: END IF;
329:
330: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
331: -- Invoke validation procedures
326: END IF;
327: RAISE FND_API.G_EXC_ERROR;
328: END IF;
329:
330: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
331: -- Invoke validation procedures
332: Validate_csc_relationship_plan(
333: p_init_msg_list => FND_API.G_FALSE,
334: p_validation_level => p_validation_level,
329:
330: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
331: -- Invoke validation procedures
332: Validate_csc_relationship_plan(
333: p_init_msg_list => FND_API.G_FALSE,
334: p_validation_level => p_validation_level,
335: p_validation_mode => CSC_CORE_UTILS_PVT.G_CREATE,
336: P_CSC_PLAN_HEADERS_B_REC => P_CSC_PLAN_HEADERS_B_REC,
337: P_DESCRIPTION => p_description,
339: x_return_status => x_return_status,
340: x_msg_count => x_msg_count,
341: x_msg_data => x_msg_data);
342:
343: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
344: RAISE FND_API.G_EXC_ERROR;
345: END IF;
346: END IF;
347:
340: x_msg_count => x_msg_count,
341: x_msg_data => x_msg_data);
342:
343: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
344: RAISE FND_API.G_EXC_ERROR;
345: END IF;
346: END IF;
347:
348: --
362: -- applies to ACCOUNT level plans.
363:
364: IF ( P_CSC_PLAN_HEADERS_B_REC.CUSTOMIZED_PLAN = 'Y' ) then
365: Validate_ORIGINAL_PLAN_ID(
366: p_init_msg_list => FND_API.G_FALSE,
367: p_validation_mode => CSC_CORE_UTILS_PVT.G_CREATE,
368: p_PLAN_ID => P_CSC_PLAN_HEADERS_B_REC.PLAN_ID,
369: p_ORIGINAL_PLAN_ID => P_CSC_PLAN_HEADERS_B_REC.ORIGINAL_PLAN_ID,
370: p_CUSTOMIZED_PLAN => P_CSC_PLAN_HEADERS_B_REC.CUSTOMIZED_PLAN,
370: p_CUSTOMIZED_PLAN => P_CSC_PLAN_HEADERS_B_REC.CUSTOMIZED_PLAN,
371: x_return_status => x_return_status,
372: x_msg_count => x_msg_count,
373: x_msg_data => x_msg_data);
374: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
375: raise FND_API.G_EXC_ERROR;
376: END IF;
377: if ( l_party_id_tbl.count = 0 ) then
378: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
371: x_return_status => x_return_status,
372: x_msg_count => x_msg_count,
373: x_msg_data => x_msg_data);
374: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
375: raise FND_API.G_EXC_ERROR;
376: END IF;
377: if ( l_party_id_tbl.count = 0 ) then
378: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
379: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
379: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
380: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'|| l_api_name);
381: fnd_message.set_token('NULL_PARAM', 'PARTY_ID');
382: -- fnd_msg_pub.add;
383: x_return_status := FND_API.G_RET_STS_ERROR;
384: RAISE FND_API.G_EXC_ERROR;
385: else
386: for i in 1..l_party_id_tbl.count
387: loop
380: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'|| l_api_name);
381: fnd_message.set_token('NULL_PARAM', 'PARTY_ID');
382: -- fnd_msg_pub.add;
383: x_return_status := FND_API.G_RET_STS_ERROR;
384: RAISE FND_API.G_EXC_ERROR;
385: else
386: for i in 1..l_party_id_tbl.count
387: loop
388: if ( p_csc_plan_headers_b_rec.use_for_cust_account = 'N' ) then
395: fnd_message.set_name ('CS', 'CS_API_ALL_INVALID_ARGUMENT');
396: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
397: fnd_message.set_token('VALUE', p_csc_plan_headers_b_rec.use_for_cust_account);
398: fnd_message.set_token('PARAMETER', 'USE_FOR_CUST_ACCOUNT');
399: x_return_status := FND_API.G_RET_STS_ERROR;
400: RAISE FND_API.G_EXC_ERROR;
401: end if;
402: end if;
403: CSC_CUST_PLANS_PVT.Validate_PARTY_ID (
396: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
397: fnd_message.set_token('VALUE', p_csc_plan_headers_b_rec.use_for_cust_account);
398: fnd_message.set_token('PARAMETER', 'USE_FOR_CUST_ACCOUNT');
399: x_return_status := FND_API.G_RET_STS_ERROR;
400: RAISE FND_API.G_EXC_ERROR;
401: end if;
402: end if;
403: CSC_CUST_PLANS_PVT.Validate_PARTY_ID (
404: P_Init_Msg_List => FND_API.G_TRUE,
400: RAISE FND_API.G_EXC_ERROR;
401: end if;
402: end if;
403: CSC_CUST_PLANS_PVT.Validate_PARTY_ID (
404: P_Init_Msg_List => FND_API.G_TRUE,
405: P_Validation_mode => CSC_CORE_UTILS_PVT.G_CREATE,
406: P_PARTY_ID => l_party_id_tbl(i).party_id,
407: x_Return_Status => x_return_status,
408: X_Msg_Count => x_msg_count,
406: P_PARTY_ID => l_party_id_tbl(i).party_id,
407: x_Return_Status => x_return_status,
408: X_Msg_Count => x_msg_count,
409: X_Msg_Data => x_msg_data );
410: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
411: RAISE FND_API.G_EXC_ERROR;
412: end if;
413:
414: /********************** 04-10-2000
407: x_Return_Status => x_return_status,
408: X_Msg_Count => x_msg_count,
409: X_Msg_Data => x_msg_data );
410: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
411: RAISE FND_API.G_EXC_ERROR;
412: end if;
413:
414: /********************** 04-10-2000
415:
414: /********************** 04-10-2000
415:
416: IF ( P_CSC_PLAN_HEADERS_B_REC.USE_FOR_CUST_ACCOUNT = 'Y' ) then
417: CSC_CUST_PLANS_PVT.Validate_CUST_ACC_ORG_ID (
418: P_Init_Msg_List => FND_API.G_TRUE,
419: P_Validation_mode => CSC_CORE_UTILS_PVT.G_CREATE,
420: P_PARTY_ID => l_party_id_tbl(i).party_id,
421: P_CUST_ACCOUNT_ID => l_party_id_tbl(i).cust_account_id,
422: -- CUST_ACCOUNT_ORG => l_party_id_tbl(i).cust_account_org,
422: -- CUST_ACCOUNT_ORG => l_party_id_tbl(i).cust_account_org,
423: X_Return_Status => x_return_status,
424: X_Msg_Count => x_msg_count,
425: X_Msg_Data => x_msg_data );
426: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
427: RAISE FND_API.G_EXC_ERROR;
428: end if;
429: END IF; -- end of use_for_cust_account = 'Y'
430:
423: X_Return_Status => x_return_status,
424: X_Msg_Count => x_msg_count,
425: X_Msg_Data => x_msg_data );
426: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
427: RAISE FND_API.G_EXC_ERROR;
428: end if;
429: END IF; -- end of use_for_cust_account = 'Y'
430:
431: ***********************************/
440: -- increases performance by using shared pool.
441:
442: /********** This check is not required, NULL can be passed directly as parameter value
443:
444: if ( p_csc_plan_headers_b_rec.original_plan_id = FND_API.G_MISS_NUM ) then
445: l_ins_plan_headers_b_rec.original_plan_id := NULL;
446: end if;
447:
448: if ( p_csc_plan_headers_b_rec.plan_group_code = FND_API.G_MISS_CHAR ) then
444: if ( p_csc_plan_headers_b_rec.original_plan_id = FND_API.G_MISS_NUM ) then
445: l_ins_plan_headers_b_rec.original_plan_id := NULL;
446: end if;
447:
448: if ( p_csc_plan_headers_b_rec.plan_group_code = FND_API.G_MISS_CHAR ) then
449: l_ins_plan_headers_b_rec.plan_group_code := NULL;
450: end if;
451:
452: if ( p_csc_plan_headers_b_rec.start_date_active = FND_API.G_MISS_DATE ) then
448: if ( p_csc_plan_headers_b_rec.plan_group_code = FND_API.G_MISS_CHAR ) then
449: l_ins_plan_headers_b_rec.plan_group_code := NULL;
450: end if;
451:
452: if ( p_csc_plan_headers_b_rec.start_date_active = FND_API.G_MISS_DATE ) then
453: l_ins_plan_headers_b_rec.start_date_active := NULL;
454: end if;
455:
456: if ( p_csc_plan_headers_b_rec.end_date_active = FND_API.G_MISS_DATE ) then
452: if ( p_csc_plan_headers_b_rec.start_date_active = FND_API.G_MISS_DATE ) then
453: l_ins_plan_headers_b_rec.start_date_active := NULL;
454: end if;
455:
456: if ( p_csc_plan_headers_b_rec.end_date_active = FND_API.G_MISS_DATE ) then
457: l_ins_plan_headers_b_rec.end_date_active := NULL;
458: end if;
459:
460: if ( p_csc_plan_headers_b_rec.use_for_cust_account = FND_API.G_MISS_CHAR ) then
456: if ( p_csc_plan_headers_b_rec.end_date_active = FND_API.G_MISS_DATE ) then
457: l_ins_plan_headers_b_rec.end_date_active := NULL;
458: end if;
459:
460: if ( p_csc_plan_headers_b_rec.use_for_cust_account = FND_API.G_MISS_CHAR ) then
461: l_ins_plan_headers_b_rec.use_for_cust_account := NULL;
462: end if;
463:
464: if ( p_csc_plan_headers_b_rec.end_user_type = CSC_CORE_UTILS_PVT.G_MISS_CHAR ) then
464: if ( p_csc_plan_headers_b_rec.end_user_type = CSC_CORE_UTILS_PVT.G_MISS_CHAR ) then
465: l_ins_plan_headers_b_rec.end_user_type := NULL;
466: end if;
467:
468: if ( p_csc_plan_headers_b_rec.customized_plan = FND_API.G_MISS_CHAR ) then
469: l_ins_plan_headers_b_rec.customized_plan := NULL;
470: end if;
471:
472: if ( p_csc_plan_headers_b_rec.profile_check_id = FND_API.G_MISS_NUM ) then
468: if ( p_csc_plan_headers_b_rec.customized_plan = FND_API.G_MISS_CHAR ) then
469: l_ins_plan_headers_b_rec.customized_plan := NULL;
470: end if;
471:
472: if ( p_csc_plan_headers_b_rec.profile_check_id = FND_API.G_MISS_NUM ) then
473: l_ins_plan_headers_b_rec.profile_check_id := NULL;
474: end if;
475:
476: if ( p_csc_plan_headers_b_rec.relational_operator = FND_API.G_MISS_CHAR ) then
472: if ( p_csc_plan_headers_b_rec.profile_check_id = FND_API.G_MISS_NUM ) then
473: l_ins_plan_headers_b_rec.profile_check_id := NULL;
474: end if;
475:
476: if ( p_csc_plan_headers_b_rec.relational_operator = FND_API.G_MISS_CHAR ) then
477: l_ins_plan_headers_b_rec.relational_operator := NULL;
478: end if;
479:
480: if ( p_csc_plan_headers_b_rec.criteria_value_high = FND_API.G_MISS_CHAR ) then
476: if ( p_csc_plan_headers_b_rec.relational_operator = FND_API.G_MISS_CHAR ) then
477: l_ins_plan_headers_b_rec.relational_operator := NULL;
478: end if;
479:
480: if ( p_csc_plan_headers_b_rec.criteria_value_high = FND_API.G_MISS_CHAR ) then
481: l_ins_plan_headers_b_rec.criteria_value_high := NULL;
482: end if;
483:
484: if ( p_csc_plan_headers_b_rec.criteria_value_low = FND_API.G_MISS_CHAR ) then
480: if ( p_csc_plan_headers_b_rec.criteria_value_high = FND_API.G_MISS_CHAR ) then
481: l_ins_plan_headers_b_rec.criteria_value_high := NULL;
482: end if;
483:
484: if ( p_csc_plan_headers_b_rec.criteria_value_low = FND_API.G_MISS_CHAR ) then
485: l_ins_plan_headers_b_rec.criteria_value_low := NULL;
486: end if;
487:
488: if ( p_csc_plan_headers_b_rec.attribute1 = FND_API.G_MISS_CHAR ) then
484: if ( p_csc_plan_headers_b_rec.criteria_value_low = FND_API.G_MISS_CHAR ) then
485: l_ins_plan_headers_b_rec.criteria_value_low := NULL;
486: end if;
487:
488: if ( p_csc_plan_headers_b_rec.attribute1 = FND_API.G_MISS_CHAR ) then
489: l_ins_plan_headers_b_rec.attribute1 := NULL;
490: end if;
491:
492: if ( p_csc_plan_headers_b_rec.attribute2 = FND_API.G_MISS_CHAR ) then
488: if ( p_csc_plan_headers_b_rec.attribute1 = FND_API.G_MISS_CHAR ) then
489: l_ins_plan_headers_b_rec.attribute1 := NULL;
490: end if;
491:
492: if ( p_csc_plan_headers_b_rec.attribute2 = FND_API.G_MISS_CHAR ) then
493: l_ins_plan_headers_b_rec.attribute2 := NULL;
494: end if;
495:
496: if ( p_csc_plan_headers_b_rec.attribute3 = FND_API.G_MISS_CHAR ) then
492: if ( p_csc_plan_headers_b_rec.attribute2 = FND_API.G_MISS_CHAR ) then
493: l_ins_plan_headers_b_rec.attribute2 := NULL;
494: end if;
495:
496: if ( p_csc_plan_headers_b_rec.attribute3 = FND_API.G_MISS_CHAR ) then
497: l_ins_plan_headers_b_rec.attribute3 := NULL;
498: end if;
499:
500: if ( p_csc_plan_headers_b_rec.attribute4 = FND_API.G_MISS_CHAR ) then
496: if ( p_csc_plan_headers_b_rec.attribute3 = FND_API.G_MISS_CHAR ) then
497: l_ins_plan_headers_b_rec.attribute3 := NULL;
498: end if;
499:
500: if ( p_csc_plan_headers_b_rec.attribute4 = FND_API.G_MISS_CHAR ) then
501: l_ins_plan_headers_b_rec.attribute4 := NULL;
502: end if;
503:
504: if ( p_csc_plan_headers_b_rec.attribute5 = FND_API.G_MISS_CHAR ) then
500: if ( p_csc_plan_headers_b_rec.attribute4 = FND_API.G_MISS_CHAR ) then
501: l_ins_plan_headers_b_rec.attribute4 := NULL;
502: end if;
503:
504: if ( p_csc_plan_headers_b_rec.attribute5 = FND_API.G_MISS_CHAR ) then
505: l_ins_plan_headers_b_rec.attribute5 := NULL;
506: end if;
507:
508: if ( p_csc_plan_headers_b_rec.attribute6 = FND_API.G_MISS_CHAR ) then
504: if ( p_csc_plan_headers_b_rec.attribute5 = FND_API.G_MISS_CHAR ) then
505: l_ins_plan_headers_b_rec.attribute5 := NULL;
506: end if;
507:
508: if ( p_csc_plan_headers_b_rec.attribute6 = FND_API.G_MISS_CHAR ) then
509: l_ins_plan_headers_b_rec.attribute6 := NULL;
510: end if;
511:
512: if ( p_csc_plan_headers_b_rec.attribute7 = FND_API.G_MISS_CHAR ) then
508: if ( p_csc_plan_headers_b_rec.attribute6 = FND_API.G_MISS_CHAR ) then
509: l_ins_plan_headers_b_rec.attribute6 := NULL;
510: end if;
511:
512: if ( p_csc_plan_headers_b_rec.attribute7 = FND_API.G_MISS_CHAR ) then
513: l_ins_plan_headers_b_rec.attribute7 := NULL;
514: end if;
515:
516: if ( p_csc_plan_headers_b_rec.attribute8 = FND_API.G_MISS_CHAR ) then
512: if ( p_csc_plan_headers_b_rec.attribute7 = FND_API.G_MISS_CHAR ) then
513: l_ins_plan_headers_b_rec.attribute7 := NULL;
514: end if;
515:
516: if ( p_csc_plan_headers_b_rec.attribute8 = FND_API.G_MISS_CHAR ) then
517: l_ins_plan_headers_b_rec.attribute8 := NULL;
518: end if;
519:
520: if ( p_csc_plan_headers_b_rec.attribute9 = FND_API.G_MISS_CHAR ) then
516: if ( p_csc_plan_headers_b_rec.attribute8 = FND_API.G_MISS_CHAR ) then
517: l_ins_plan_headers_b_rec.attribute8 := NULL;
518: end if;
519:
520: if ( p_csc_plan_headers_b_rec.attribute9 = FND_API.G_MISS_CHAR ) then
521: l_ins_plan_headers_b_rec.attribute9 := NULL;
522: end if;
523:
524: if ( p_csc_plan_headers_b_rec.attribute10 = FND_API.G_MISS_CHAR ) then
520: if ( p_csc_plan_headers_b_rec.attribute9 = FND_API.G_MISS_CHAR ) then
521: l_ins_plan_headers_b_rec.attribute9 := NULL;
522: end if;
523:
524: if ( p_csc_plan_headers_b_rec.attribute10 = FND_API.G_MISS_CHAR ) then
525: l_ins_plan_headers_b_rec.attribute10 := NULL;
526: end if;
527:
528: if ( p_csc_plan_headers_b_rec.attribute11 = FND_API.G_MISS_CHAR ) then
524: if ( p_csc_plan_headers_b_rec.attribute10 = FND_API.G_MISS_CHAR ) then
525: l_ins_plan_headers_b_rec.attribute10 := NULL;
526: end if;
527:
528: if ( p_csc_plan_headers_b_rec.attribute11 = FND_API.G_MISS_CHAR ) then
529: l_ins_plan_headers_b_rec.attribute11 := NULL;
530: end if;
531:
532: if ( p_csc_plan_headers_b_rec.attribute12 = FND_API.G_MISS_CHAR ) then
528: if ( p_csc_plan_headers_b_rec.attribute11 = FND_API.G_MISS_CHAR ) then
529: l_ins_plan_headers_b_rec.attribute11 := NULL;
530: end if;
531:
532: if ( p_csc_plan_headers_b_rec.attribute12 = FND_API.G_MISS_CHAR ) then
533: l_ins_plan_headers_b_rec.attribute12 := NULL;
534: end if;
535:
536: if ( p_csc_plan_headers_b_rec.attribute13 = FND_API.G_MISS_CHAR ) then
532: if ( p_csc_plan_headers_b_rec.attribute12 = FND_API.G_MISS_CHAR ) then
533: l_ins_plan_headers_b_rec.attribute12 := NULL;
534: end if;
535:
536: if ( p_csc_plan_headers_b_rec.attribute13 = FND_API.G_MISS_CHAR ) then
537: l_ins_plan_headers_b_rec.attribute13 := NULL;
538: end if;
539:
540: if ( p_csc_plan_headers_b_rec.attribute14 = FND_API.G_MISS_CHAR ) then
536: if ( p_csc_plan_headers_b_rec.attribute13 = FND_API.G_MISS_CHAR ) then
537: l_ins_plan_headers_b_rec.attribute13 := NULL;
538: end if;
539:
540: if ( p_csc_plan_headers_b_rec.attribute14 = FND_API.G_MISS_CHAR ) then
541: l_ins_plan_headers_b_rec.attribute14 := NULL;
542: end if;
543:
544: if ( p_csc_plan_headers_b_rec.attribute15 = FND_API.G_MISS_CHAR ) then
540: if ( p_csc_plan_headers_b_rec.attribute14 = FND_API.G_MISS_CHAR ) then
541: l_ins_plan_headers_b_rec.attribute14 := NULL;
542: end if;
543:
544: if ( p_csc_plan_headers_b_rec.attribute15 = FND_API.G_MISS_CHAR ) then
545: l_ins_plan_headers_b_rec.attribute15 := NULL;
546: end if;
547:
548: if ( p_csc_plan_headers_b_rec.attribute_category = FND_API.G_MISS_CHAR ) then
544: if ( p_csc_plan_headers_b_rec.attribute15 = FND_API.G_MISS_CHAR ) then
545: l_ins_plan_headers_b_rec.attribute15 := NULL;
546: end if;
547:
548: if ( p_csc_plan_headers_b_rec.attribute_category = FND_API.G_MISS_CHAR ) then
549: l_ins_plan_headers_b_rec.attribute_category := NULL;
550: end if;
551:
552: **************************/
550: end if;
551:
552: **************************/
553:
554: if ( p_name <> FND_API.G_MISS_CHAR ) then
555: l_name:= p_name;
556: end if;
557:
558: if ( p_description <> FND_API.G_MISS_CHAR ) then
554: if ( p_name <> FND_API.G_MISS_CHAR ) then
555: l_name:= p_name;
556: end if;
557:
558: if ( p_description <> FND_API.G_MISS_CHAR ) then
559: l_description:= p_description;
560: end if;
561:
562: -- Invoke table handler(CSC_PLAN_HEADERS_B_PKG.Insert_Row)
612: -- Call update_for_customized_plans to do the update of the plan_id for all the parties
613: -- with the new plan_id that was customzied.
614: CSC_CUST_PLANS_PVT.Update_for_customized_plans (
615: P_Api_Version_Number => 1.0,
616: P_Init_Msg_List => FND_API.G_TRUE,
617: P_Commit => p_commit,
618: P_PLAN_ID => x_plan_id,
619: P_ORIGINAL_PLAN_ID => p_csc_plan_headers_b_rec.original_plan_id,
620: P_PARTY_ID => l_party_id_tbl(i).party_id,
624: X_OBJECT_VERSION_NUMBER => x_cust_object_version_number,
625: X_Return_Status => x_return_status,
626: X_Msg_Count => x_msg_count,
627: X_Msg_Data => x_msg_data );
628: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
629: RAISE FND_API.G_EXC_ERROR;
630: end if;
631: END LOOP;
632: END IF;
625: X_Return_Status => x_return_status,
626: X_Msg_Count => x_msg_count,
627: X_Msg_Data => x_msg_data );
628: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
629: RAISE FND_API.G_EXC_ERROR;
630: end if;
631: END LOOP;
632: END IF;
633:
631: END LOOP;
632: END IF;
633:
634: -- Standard check for p_commit
635: IF FND_API.to_Boolean( p_commit )
636: THEN
637: COMMIT WORK;
638: END IF;
639:
638: END IF;
639:
640: -- Standard call to get message count and if count is 1, get message info.
641: FND_MSG_PUB.Count_And_Get
642: ( p_encoded => FND_API.G_FALSE,
643: p_count => x_msg_count,
644: p_data => x_msg_data );
645:
646: EXCEPTION
643: p_count => x_msg_count,
644: p_data => x_msg_data );
645:
646: EXCEPTION
647: WHEN FND_API.G_EXC_ERROR THEN
648: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
649: P_API_NAME => L_API_NAME,
650: P_PKG_NAME => G_PKG_NAME,
651: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR,
654: X_MSG_DATA => X_MSG_DATA,
655: X_RETURN_STATUS => X_RETURN_STATUS);
656: APP_EXCEPTION.RAISE_EXCEPTION;
657:
658: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
659: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
660: P_API_NAME => L_API_NAME,
661: P_PKG_NAME => G_PKG_NAME,
662: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
844: -- Standard Start of API savepoint
845: SAVEPOINT UPDATE_PLAN_HEADER_PVT;
846:
847: -- Standard call to check for call compatibility.
848: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
849: p_api_version_number,
850: l_api_name,
851: G_PKG_NAME)
852: THEN
849: p_api_version_number,
850: l_api_name,
851: G_PKG_NAME)
852: THEN
853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
854: END IF;
855:
856: -- Initialize message list if p_init_msg_list is set to TRUE.
857: IF FND_API.to_Boolean( p_init_msg_list )
853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
854: END IF;
855:
856: -- Initialize message list if p_init_msg_list is set to TRUE.
857: IF FND_API.to_Boolean( p_init_msg_list )
858: THEN
859: FND_MSG_PUB.initialize;
860: END IF;
861:
859: FND_MSG_PUB.initialize;
860: END IF;
861:
862: -- Initialize API return status to SUCCESS
863: x_return_status := FND_API.G_RET_STS_SUCCESS;
864:
865: CSC_PLAN_HEADERS_B_PKG.LOCK_ROW(
866: P_PLAN_ID => p_csc_plan_headers_b_rec.plan_id,
867: P_OBJECT_VERSION_NUMBER => p_csc_plan_headers_b_rec.OBJECT_VERSION_NUMBER );
914: FND_MESSAGE.Set_Token ('INFO', 'csc_relationship_plans', FALSE);
915: -- FND_MSG_PUB.Add;
916: --END IF;
917: Close c_get_csc_plan_headers;
918: raise FND_API.G_EXC_ERROR;
919: END IF;
920: Close c_get_csc_plan_headers;
921:
922: -- Check Whether record has been changed by someone else
931: FND_MESSAGE.Set_Name(CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'API_RECORD_CHANGED');
932: FND_MESSAGE.Set_Token('INFO', 'csc_relationship_plans', FALSE);
933: -- FND_MSG_PUB.ADD;
934: --END IF;
935: raise FND_API.G_EXC_ERROR;
936: End if;
937:
938: -- Get the final values of all the parameters that have to be passed into the table
939: -- handler update package; The decode is done here rather than in the update statement
994: l_upd_plan_headers_b_rec.attribute15 := CSC_CORE_UTILS_PVT.Get_G_Miss_Char(p_csc_plan_headers_b_rec.attribute15, l_ref_plan_header_rec.attribute15);
995:
996: l_upd_plan_headers_b_rec.attribute_category := CSC_CORE_UTILS_PVT.Get_G_Miss_Char(p_csc_plan_headers_b_rec.attribute_category, l_ref_plan_header_rec.attribute_category);
997:
998: if ( p_name <> FND_API.G_MISS_CHAR ) then
999: l_name := p_name;
1000: end if;
1001:
1002: if ( p_description <> FND_API.G_MISS_CHAR ) then
998: if ( p_name <> FND_API.G_MISS_CHAR ) then
999: l_name := p_name;
1000: end if;
1001:
1002: if ( p_description <> FND_API.G_MISS_CHAR ) then
1003: l_description := p_description;
1004: else
1005: l_description := NULL;
1006: end if;
1004: else
1005: l_description := NULL;
1006: end if;
1007:
1008: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL )
1009: THEN
1010: -- Invoke validation procedures
1011: Validate_csc_relationship_plan(
1012: p_init_msg_list => FND_API.G_FALSE,
1008: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL )
1009: THEN
1010: -- Invoke validation procedures
1011: Validate_csc_relationship_plan(
1012: p_init_msg_list => FND_API.G_FALSE,
1013: p_validation_level => p_validation_level,
1014: p_validation_mode => CSC_CORE_UTILS_PVT.G_UPDATE,
1015: P_CSC_PLAN_HEADERS_B_REC => L_UPD_PLAN_HEADERS_B_REC,
1016: P_OLD_PLAN_HEADERS_B_REC => l_ref_plan_header_rec,
1023: x_msg_count => x_msg_count,
1024: x_msg_data => x_msg_data);
1025: END IF;
1026:
1027: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1028: RAISE FND_API.G_EXC_ERROR;
1029: END IF;
1030:
1031: -- Invoke table handler(CSC_PLAN_HEADERS_B_PKG.Update_Row)
1024: x_msg_data => x_msg_data);
1025: END IF;
1026:
1027: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1028: RAISE FND_API.G_EXC_ERROR;
1029: END IF;
1030:
1031: -- Invoke table handler(CSC_PLAN_HEADERS_B_PKG.Update_Row)
1032: CSC_PLAN_HEADERS_B_PKG.Update_Row(
1108: CSC_CUST_PLANS_PVT.UPDATE_CUST_PLANS (
1109: P_Api_Version_Number => p_api_version_number,
1110: P_Init_Msg_List => p_init_msg_list,
1111: P_Commit => p_commit,
1112: p_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
1113: P_PLAN_ID => p_csc_plan_headers_b_rec.plan_id,
1114: P_CUST_PLAN_ID => l_ref_CSC_CUST_PLANS_rec.CUST_PLAN_ID,
1115: P_PARTY_ID => l_ref_CSC_CUST_PLANS_rec.PARTY_ID,
1116: P_CUST_ACCOUNT_ID => l_ref_CSC_CUST_PLANS_rec.CUST_ACCOUNT_ID,
1121: X_Return_Status => x_return_status,
1122: X_Msg_Count => x_msg_count,
1123: X_Msg_Data => x_msg_data );
1124:
1125: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1126: RAISE FND_API.G_EXC_ERROR;
1127: END IF;
1128:
1129: END LOOP;
1122: X_Msg_Count => x_msg_count,
1123: X_Msg_Data => x_msg_data );
1124:
1125: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1126: RAISE FND_API.G_EXC_ERROR;
1127: END IF;
1128:
1129: END LOOP;
1130:
1135: -- end if;
1136:
1137:
1138: -- Standard check for p_commit
1139: IF FND_API.to_Boolean( p_commit )
1140: THEN
1141: COMMIT WORK;
1142: END IF;
1143:
1142: END IF;
1143:
1144: -- Standard call to get message count and if count is 1, get message info.
1145: FND_MSG_PUB.Count_And_Get
1146: ( p_encoded => FND_API.G_FALSE,
1147: p_count => x_msg_count,
1148: p_data => x_msg_data );
1149:
1150: EXCEPTION
1147: p_count => x_msg_count,
1148: p_data => x_msg_data );
1149:
1150: EXCEPTION
1151: WHEN FND_API.G_EXC_ERROR THEN
1152: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
1153: P_API_NAME => L_API_NAME,
1154: P_PKG_NAME => G_PKG_NAME,
1155: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR,
1158: X_MSG_DATA => X_MSG_DATA,
1159: X_RETURN_STATUS => X_RETURN_STATUS);
1160: APP_EXCEPTION.RAISE_EXCEPTION;
1161:
1162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1163: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
1164: P_API_NAME => L_API_NAME,
1165: P_PKG_NAME => G_PKG_NAME,
1166: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
1184:
1185:
1186: PROCEDURE Disable_plan(
1187: P_Api_Version_Number IN NUMBER,
1188: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1189: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1190: p_plan_id IN NUMBER,
1191: X_Return_Status OUT NOCOPY VARCHAR2,
1192: X_Msg_Count OUT NOCOPY NUMBER,
1185:
1186: PROCEDURE Disable_plan(
1187: P_Api_Version_Number IN NUMBER,
1188: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1189: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1190: p_plan_id IN NUMBER,
1191: X_Return_Status OUT NOCOPY VARCHAR2,
1192: X_Msg_Count OUT NOCOPY NUMBER,
1193: X_Msg_Data OUT NOCOPY VARCHAR2
1208: -- Standard Start of API savepoint
1209: SAVEPOINT Disable_plan_pvt;
1210:
1211: -- Standard call to check for call compatibility.
1212: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1213: p_api_version_number,
1214: l_api_name,
1215: G_PKG_NAME)
1216: THEN
1213: p_api_version_number,
1214: l_api_name,
1215: G_PKG_NAME)
1216: THEN
1217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1218: END IF;
1219:
1220: -- Initialize message list if p_init_msg_list is set to TRUE.
1221: IF FND_API.to_Boolean( p_init_msg_list )
1217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1218: END IF;
1219:
1220: -- Initialize message list if p_init_msg_list is set to TRUE.
1221: IF FND_API.to_Boolean( p_init_msg_list )
1222: THEN
1223: FND_MSG_PUB.initialize;
1224: END IF;
1225:
1223: FND_MSG_PUB.initialize;
1224: END IF;
1225:
1226: -- Initialize API return status to SUCCESS
1227: x_return_status := FND_API.G_RET_STS_SUCCESS;
1228:
1229: -- Invoke table handler(CSC_PLAN_HEADERS_B_PKG.Disable_Row)
1230: CSC_PLAN_HEADERS_B_PKG.Disable_Row(
1231: p_PLAN_ID => p_PLAN_ID);
1242: CSC_CUST_PLANS_PVT.UPDATE_CUST_PLANS (
1243: P_Api_Version_Number => p_api_version_number,
1244: P_Init_Msg_List => p_init_msg_list,
1245: P_Commit => p_commit,
1246: p_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
1247: p_CUST_PLAN_ID => c1rec.cust_plan_id,
1248: P_PLAN_ID => p_plan_id,
1249: p_end_date_active => sysdate+1,
1250: p_party_id => c1rec.party_id,
1255: X_Return_Status => x_return_status,
1256: X_Msg_Count => x_msg_count,
1257: X_Msg_Data => x_msg_data );
1258:
1259: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1260: close c1;
1261: RAISE FND_API.G_EXC_ERROR;
1262: END IF;
1263:
1257: X_Msg_Data => x_msg_data );
1258:
1259: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1260: close c1;
1261: RAISE FND_API.G_EXC_ERROR;
1262: END IF;
1263:
1264: end loop;
1265: close c1;
1264: end loop;
1265: close c1;
1266:
1267: -- Standard check for p_commit
1268: IF FND_API.to_Boolean( p_commit )
1269: THEN
1270: COMMIT WORK;
1271: END IF;
1272:
1271: END IF;
1272:
1273: -- Standard call to get message count and if count is 1, get message info.
1274: FND_MSG_PUB.Count_And_Get
1275: ( p_encoded => FND_API.G_FALSE,
1276: p_count => x_msg_count,
1277: p_data => x_msg_data);
1278:
1279: EXCEPTION
1276: p_count => x_msg_count,
1277: p_data => x_msg_data);
1278:
1279: EXCEPTION
1280: WHEN FND_API.G_EXC_ERROR THEN
1281: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
1282: P_API_NAME => L_API_NAME,
1283: P_PKG_NAME => G_PKG_NAME,
1284: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR,
1287: X_MSG_DATA => X_MSG_DATA,
1288: X_RETURN_STATUS => X_RETURN_STATUS);
1289: APP_EXCEPTION.RAISE_EXCEPTION;
1290:
1291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1292: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
1293: P_API_NAME => L_API_NAME,
1294: P_PKG_NAME => G_PKG_NAME,
1295: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
1330: l_plan_id number;
1331: l_api_name varchar2(30) := 'Validate_Plan_Id';
1332: BEGIN
1333: -- Initialize message list if p_init_msg_list is set to TRUE.
1334: IF FND_API.to_Boolean( p_init_msg_list )
1335: THEN
1336: FND_MSG_PUB.initialize;
1337: END IF;
1338:
1336: FND_MSG_PUB.initialize;
1337: END IF;
1338:
1339: -- Initialize API return status to SUCCESS
1340: x_return_status := FND_API.G_RET_STS_SUCCESS;
1341:
1342: -- validate NOT NULL column.
1343: if (p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE) then
1344: IF(p_PLAN_ID is NULL or p_plan_id = FND_API.G_MISS_NUM) then
1340: x_return_status := FND_API.G_RET_STS_SUCCESS;
1341:
1342: -- validate NOT NULL column.
1343: if (p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE) then
1344: IF(p_PLAN_ID is NULL or p_plan_id = FND_API.G_MISS_NUM) then
1345: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1346: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
1347: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'|| l_api_name);
1348: fnd_message.set_token('NULL_PARAM', 'PLAN_ID');
1346: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
1347: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'|| l_api_name);
1348: fnd_message.set_token('NULL_PARAM', 'PLAN_ID');
1349: -- fnd_msg_pub.add;
1350: x_return_status := FND_API.G_RET_STS_ERROR;
1351: END IF;
1352: end if;
1353:
1354: -- validate for duplicate plan_ids.
1361: fnd_message.set_name ('CS', 'CS_API_ALL_DUPLICATE_VALUE');
1362: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'|| l_api_name);
1363: fnd_message.set_token('DUPLICATE_VAL_PARAM', 'PLAN_ID');
1364: -- fnd_msg_pub.add;
1365: x_return_status := FND_API.G_RET_STS_ERROR;
1366: end if;
1367: close check_dup_plan_id;
1368: END IF;
1369:
1366: end if;
1367: close check_dup_plan_id;
1368: END IF;
1369:
1370: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1371: APP_EXCEPTION.RAISE_EXCEPTION;
1372: end if;
1373:
1374: END Validate_PLAN_ID;
1392: l_plan_id NUMBER;
1393: l_api_name varchar2(30) := 'Validate_Name';
1394: BEGIN
1395: -- Initialize message list if p_init_msg_list is set to TRUE.
1396: IF FND_API.to_Boolean( p_init_msg_list )
1397: THEN
1398: FND_MSG_PUB.initialize;
1399: END IF;
1400:
1398: FND_MSG_PUB.initialize;
1399: END IF;
1400:
1401: -- Initialize API return status to SUCCESS
1402: x_return_status := FND_API.G_RET_STS_SUCCESS;
1403:
1404: -- validate NOT NULL column
1405: IF(p_NAME is NULL or p_name = FND_API.G_MISS_CHAR) then
1406: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1401: -- Initialize API return status to SUCCESS
1402: x_return_status := FND_API.G_RET_STS_SUCCESS;
1403:
1404: -- validate NOT NULL column
1405: IF(p_NAME is NULL or p_name = FND_API.G_MISS_CHAR) then
1406: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1407: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
1408: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1409: fnd_message.set_token('NULL_PARAM', 'PLAN_NAME');
1407: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
1408: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1409: fnd_message.set_token('NULL_PARAM', 'PLAN_NAME');
1410: -- fnd_msg_pub.add;
1411: x_return_status := FND_API.G_RET_STS_ERROR;
1412: END IF;
1413:
1414: -- validate for duplicate plan_names.
1415: if ( x_return_status = FND_API.G_RET_STS_SUCCESS ) then
1411: x_return_status := FND_API.G_RET_STS_ERROR;
1412: END IF;
1413:
1414: -- validate for duplicate plan_names.
1415: if ( x_return_status = FND_API.G_RET_STS_SUCCESS ) then
1416: if p_validation_mode = CSC_CORE_UTILS_PVT.G_CREATE then
1417: l_plan_id := 0;
1418: else
1419: l_plan_id := p_plan_id;
1429: -- fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'|| l_api_name);
1430: -- fnd_message.set_token('DUPLICATE_VAL_PARAM', 'PLAN_NAME');
1431: -- fnd_msg_pub.add;
1432: fnd_message.set_name ('CSC', 'CSC_RSP_DUPLICATE_NAME');
1433: x_return_status := FND_API.G_RET_STS_ERROR;
1434: else
1435: if ( p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE and
1436: l_plan_id <> p_plan_id ) then -- some other plan exists with this name
1437: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_DUPLICATE_VALUE');
1438: fnd_message.set_name ('CS', 'CS_API_ALL_DUPLICATE_VALUE');
1439: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'|| l_api_name);
1440: fnd_message.set_token('DUPLICATE_VAL_PARAM', 'PLAN_NAME');
1441: -- fnd_msg_pub.add;
1442: x_return_status := FND_API.G_RET_STS_ERROR;
1443: end if;
1444: end if;
1445: end if;
1446:
1443: end if;
1444: end if;
1445: end if;
1446:
1447: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1448: APP_EXCEPTION.RAISE_EXCEPTION;
1449: end if;
1450:
1451: END Validate_NAME;
1470: l_plan_id number;
1471: l_api_name varchar2(30) := 'Validate_Original_Plan_Id';
1472: BEGIN
1473: -- Initialize message list if p_init_msg_list is set to TRUE.
1474: IF FND_API.to_Boolean( p_init_msg_list )
1475: THEN
1476: FND_MSG_PUB.initialize;
1477: END IF;
1478:
1476: FND_MSG_PUB.initialize;
1477: END IF;
1478:
1479: -- Initialize API return status to SUCCESS
1480: x_return_status := FND_API.G_RET_STS_SUCCESS;
1481:
1482: -- validate NOT NULL column
1483: IF ( p_original_plan_id is NULL or p_original_plan_id = FND_API.G_MISS_NUM ) THEN
1484: IF ( p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE ) OR
1479: -- Initialize API return status to SUCCESS
1480: x_return_status := FND_API.G_RET_STS_SUCCESS;
1481:
1482: -- validate NOT NULL column
1483: IF ( p_original_plan_id is NULL or p_original_plan_id = FND_API.G_MISS_NUM ) THEN
1484: IF ( p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE ) OR
1485: ( p_validation_mode = CSC_CORE_UTILS_PVT.G_CREATE AND
1486: p_customized_plan = 'Y' )
1487: THEN
1489: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
1490: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1491: fnd_message.set_token('NULL_PARAM', 'ORIGINAL_PLAN_ID');
1492: -- fnd_msg_pub.add;
1493: x_return_status := FND_API.G_RET_STS_ERROR;
1494: APP_EXCEPTION.RAISE_EXCEPTION;
1495: END IF;
1496: END IF;
1497:
1494: APP_EXCEPTION.RAISE_EXCEPTION;
1495: END IF;
1496: END IF;
1497:
1498: IF ( p_original_plan_id is not NULL and p_original_plan_id <> FND_API.G_MISS_NUM ) THEN
1499: open chk_original_plan_id;
1500: fetch chk_original_plan_id into l_plan_id;
1501: if ( chk_original_plan_id%notfound ) then
1502: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_INVALID_ARGUMENT');
1503: fnd_message.set_name ('CS', 'CS_API_ALL_INVALID_ARGUMENT');
1504: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1505: fnd_message.set_token('VALUE', p_original_plan_id);
1506: fnd_message.set_token('PARAMETER', 'ORIGINAL_PLAN_ID');
1507: x_return_status := FND_API.G_RET_STS_ERROR;
1508: end if;
1509: close chk_original_plan_id;
1510: END IF;
1511:
1508: end if;
1509: close chk_original_plan_id;
1510: END IF;
1511:
1512: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1513: APP_EXCEPTION.RAISE_EXCEPTION;
1514: end if;
1515:
1516: END Validate_ORIGINAL_PLAN_ID;
1537: NULL;
1538: /********** commented out; change to make plan_group NULLABLE
1539: 01-26-2000
1540: -- Initialize message list if p_init_msg_list is set to TRUE.
1541: IF FND_API.to_Boolean( p_init_msg_list )
1542: THEN
1543: FND_MSG_PUB.initialize;
1544: END IF;
1545:
1543: FND_MSG_PUB.initialize;
1544: END IF;
1545:
1546: -- Initialize API return status to SUCCESS
1547: x_return_status := FND_API.G_RET_STS_SUCCESS;
1548:
1549: -- validate NOT NULL column
1550: IF (p_PLAN_GROUP_CODE is NULL or p_PLAN_GROUP_CODE = FND_API.G_MISS_CHAR) then
1551: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1546: -- Initialize API return status to SUCCESS
1547: x_return_status := FND_API.G_RET_STS_SUCCESS;
1548:
1549: -- validate NOT NULL column
1550: IF (p_PLAN_GROUP_CODE is NULL or p_PLAN_GROUP_CODE = FND_API.G_MISS_CHAR) then
1551: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1552: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
1553: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1554: fnd_message.set_token('NULL_PARAM', 'PLAN_GROUP_CODE');
1552: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
1553: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1554: fnd_message.set_token('NULL_PARAM', 'PLAN_GROUP_CODE');
1555: -- fnd_msg_pub.add;
1556: x_return_status := FND_API.G_RET_STS_ERROR;
1557: else
1558: -- validate PLAN_GROUP_CODE exists in fnd_lookup_values.
1559: open group_in_lookup;
1560: fetch group_in_lookup into l_rec_count;
1566: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1567: fnd_message.set_token('VALUE', p_plan_group_code);
1568: fnd_message.set_token('PARAMETER', 'PLAN_GROUP_CODE');
1569: -- fnd_msg_pub.add;
1570: x_return_status := FND_API.G_RET_STS_ERROR;
1571: end if;
1572: --end if;
1573:
1574: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1570: x_return_status := FND_API.G_RET_STS_ERROR;
1571: end if;
1572: --end if;
1573:
1574: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1575: APP_EXCEPTION.RAISE_EXCEPTION;
1576: end if;
1577: ********* commented out; change to make plan_group NULLABLE */
1578:
1598: l_rec_count number := 0;
1599: l_api_name varchar2(30) := 'Validate_Use_For_Cust_Account';
1600: BEGIN
1601: -- Initialize message list if p_init_msg_list is set to TRUE.
1602: IF FND_API.to_Boolean( p_init_msg_list )
1603: THEN
1604: FND_MSG_PUB.initialize;
1605: END IF;
1606:
1604: FND_MSG_PUB.initialize;
1605: END IF;
1606:
1607: -- Initialize API return status to SUCCESS
1608: x_return_status := FND_API.G_RET_STS_SUCCESS;
1609:
1610: -- validate NOT NULL column
1611: IF ( p_use_for_cust_account is NULL or p_use_for_cust_account = FND_API.G_MISS_CHAR ) then
1612: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1607: -- Initialize API return status to SUCCESS
1608: x_return_status := FND_API.G_RET_STS_SUCCESS;
1609:
1610: -- validate NOT NULL column
1611: IF ( p_use_for_cust_account is NULL or p_use_for_cust_account = FND_API.G_MISS_CHAR ) then
1612: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1613: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
1614: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1615: fnd_message.set_token('NULL_PARAM', 'USE_FOR_CUST_ACCOUNT');
1613: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
1614: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1615: fnd_message.set_token('NULL_PARAM', 'USE_FOR_CUST_ACCOUNT');
1616: -- fnd_msg_pub.add;
1617: x_return_status := FND_API.G_RET_STS_ERROR;
1618: ELSIF ( p_use_for_cust_account <> 'Y' and p_use_for_cust_account <> 'N' ) then
1619: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_INVALID_ARGUMENT');
1620: fnd_message.set_name ('CS', 'CS_API_ALL_INVALID_ARGUMENT');
1621: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1621: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1622: fnd_message.set_token('VALUE', p_use_for_cust_account);
1623: fnd_message.set_token('PARAMETER', 'USE_FOR_CUST_ACCOUNT');
1624: -- fnd_msg_pub.add;
1625: x_return_status := FND_API.G_RET_STS_ERROR;
1626: ELSIF ( p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE ) then
1627: if ( p_use_for_cust_account <> p_old_use_for_cust_account ) then
1628: -- Check if there are any existing customer-to-plan associations for this particular
1629: -- PLAN_ID. If ther are, then do not allow the update on the column.
1638: -- Fixed bug# 3319977
1639: fnd_message.set_name ('CSC', 'CSC_RSP_INVALID_UPDATE');
1640: fnd_message.set_token('UPDATE_PARAM', 'PLAN_LEVEL');
1641: -- fnd_msg_pub.add;
1642: x_return_status := FND_API.G_RET_STS_ERROR;
1643: end if;
1644: end if;
1645: END IF;
1646:
1643: end if;
1644: end if;
1645: END IF;
1646:
1647: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1648: APP_EXCEPTION.RAISE_EXCEPTION;
1649: end if;
1650:
1651: END Validate_USE_FOR_CUST_ACCOUNT;
1671: l_rec_count NUMBER := 0;
1672: l_api_name varchar2(30) := 'Validate_End_User_Type';
1673: BEGIN
1674: -- Initialize message list if p_init_msg_list is set to TRUE.
1675: IF FND_API.to_Boolean( p_init_msg_list )
1676: THEN
1677: FND_MSG_PUB.initialize;
1678: END IF;
1679:
1677: FND_MSG_PUB.initialize;
1678: END IF;
1679:
1680: -- Initialize API return status to SUCCESS
1681: x_return_status := FND_API.G_RET_STS_SUCCESS;
1682:
1683: IF (p_END_USER_TYPE is NULL or p_END_USER_TYPE = FND_API.G_MISS_CHAR) then
1684: return;
1685: else
1679:
1680: -- Initialize API return status to SUCCESS
1681: x_return_status := FND_API.G_RET_STS_SUCCESS;
1682:
1683: IF (p_END_USER_TYPE is NULL or p_END_USER_TYPE = FND_API.G_MISS_CHAR) then
1684: return;
1685: else
1686: -- validate PLAN_GROUP_CODE exists in fnd_lookup_values.
1687: open type_in_lookup;
1693: fnd_message.set_name ('CS', 'CS_API_ALL_INVALID_ARGUMENT');
1694: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1695: fnd_message.set_token('VALUE', p_end_user_type);
1696: fnd_message.set_token('PARAMETER', 'END_USER_TYPE');
1697: x_return_status := FND_API.G_RET_STS_ERROR;
1698: end if;
1699: end if;
1700:
1701: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1697: x_return_status := FND_API.G_RET_STS_ERROR;
1698: end if;
1699: end if;
1700:
1701: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1702: APP_EXCEPTION.RAISE_EXCEPTION;
1703: end if;
1704:
1705: END Validate_END_USER_TYPE;
1715: IS
1716: l_api_name varchar2(30) := 'Validate_Customized_Plan';
1717: BEGIN
1718: -- Initialize message list if p_init_msg_list is set to TRUE.
1719: IF FND_API.to_Boolean( p_init_msg_list )
1720: THEN
1721: FND_MSG_PUB.initialize;
1722: END IF;
1723:
1721: FND_MSG_PUB.initialize;
1722: END IF;
1723:
1724: -- Initialize API return status to SUCCESS
1725: x_return_status := FND_API.G_RET_STS_SUCCESS;
1726:
1727: -- validate NOT NULL column
1728: IF( p_CUSTOMIZED_PLAN is NULL or p_customized_plan = FND_API.G_MISS_CHAR ) then
1729: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1724: -- Initialize API return status to SUCCESS
1725: x_return_status := FND_API.G_RET_STS_SUCCESS;
1726:
1727: -- validate NOT NULL column
1728: IF( p_CUSTOMIZED_PLAN is NULL or p_customized_plan = FND_API.G_MISS_CHAR ) then
1729: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1730: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
1731: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1732: fnd_message.set_token('NULL_PARAM', 'CUSTOMIZED_PLAN');
1729: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1730: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
1731: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1732: fnd_message.set_token('NULL_PARAM', 'CUSTOMIZED_PLAN');
1733: x_return_status := FND_API.G_RET_STS_ERROR;
1734: ELSIF ( p_customized_plan <> 'Y' and p_customized_plan <> 'N' ) then
1735: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_INVALID_ARGUMENT');
1736: fnd_message.set_name ('CS', 'CS_API_ALL_INVALID_ARGUMENT');
1737: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1737: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1738: fnd_message.set_token('VALUE', p_customized_plan);
1739: fnd_message.set_token('PARAMETER', 'CUSTOMIZED_PLAN');
1740: -- fnd_msg_pub.add;
1741: x_return_status := FND_API.G_RET_STS_ERROR;
1742: END IF;
1743:
1744: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1745: APP_EXCEPTION.RAISE_EXCEPTION;
1740: -- fnd_msg_pub.add;
1741: x_return_status := FND_API.G_RET_STS_ERROR;
1742: END IF;
1743:
1744: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1745: APP_EXCEPTION.RAISE_EXCEPTION;
1746: end if;
1747:
1748: END Validate_CUSTOMIZED_PLAN;
1774: l_api_name varchar2(30) := 'Validate_Profile_Check_Id';
1775: BEGIN
1776:
1777: -- Initialize message list if p_init_msg_list is set to TRUE.
1778: IF FND_API.to_Boolean( p_init_msg_list )
1779: THEN
1780: FND_MSG_PUB.initialize;
1781: END IF;
1782:
1780: FND_MSG_PUB.initialize;
1781: END IF;
1782:
1783: -- Initialize API return status to SUCCESS
1784: x_return_status := FND_API.G_RET_STS_SUCCESS;
1785:
1786: -- validate NOT NULL column
1787: IF(p_PROFILE_CHECK_ID is NULL or p_profile_check_id = FND_API.G_MISS_NUM) then
1788: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1783: -- Initialize API return status to SUCCESS
1784: x_return_status := FND_API.G_RET_STS_SUCCESS;
1785:
1786: -- validate NOT NULL column
1787: IF(p_PROFILE_CHECK_ID is NULL or p_profile_check_id = FND_API.G_MISS_NUM) then
1788: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1789: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
1790: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1791: fnd_message.set_token('NULL_PARAM', 'PROFILE_CHECK_ID');
1789: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
1790: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1791: fnd_message.set_token('NULL_PARAM', 'PROFILE_CHECK_ID');
1792: -- fnd_msg_pub.add;
1793: x_return_status := FND_API.G_RET_STS_ERROR;
1794: ELSIF ( p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE AND
1795: p_profile_check_id <> p_old_profile_check_id ) then
1796: --if ( G_CUST_PLANS_REC_CNT = FND_API.G_MISS_NUM ) then
1797: open c1;
1792: -- fnd_msg_pub.add;
1793: x_return_status := FND_API.G_RET_STS_ERROR;
1794: ELSIF ( p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE AND
1795: p_profile_check_id <> p_old_profile_check_id ) then
1796: --if ( G_CUST_PLANS_REC_CNT = FND_API.G_MISS_NUM ) then
1797: open c1;
1798: fetch c1 into l_rec_count;
1799: close c1;
1800: --end if;
1804: -- fnd_message.set_name ('CS', 'CS_ALL_UPDATE_NOT_ALLOWED');
1805: -- Fixed bug# 3319977
1806: fnd_message.set_name ('CSC', 'CSC_RSP_INVALID_UPDATE');
1807: fnd_message.set_token('UPDATE_PARAM', 'PROFILE_CHECK_ID');
1808: x_return_status := FND_API.G_RET_STS_ERROR;
1809: end if;
1810: END IF;
1811:
1812: IF ( x_return_status = FND_API.G_RET_STS_SUCCESS ) then
1808: x_return_status := FND_API.G_RET_STS_ERROR;
1809: end if;
1810: END IF;
1811:
1812: IF ( x_return_status = FND_API.G_RET_STS_SUCCESS ) then
1813: -- validate PROFILE_CHECK_ID exists in fnd_lookup_values.
1814: if ( ( p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE AND
1815: p_profile_check_id <> p_old_profile_check_id ) OR
1816: p_validation_mode = CSC_CORE_UTILS_PVT.G_CREATE )
1826: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1827: fnd_message.set_token('VALUE', p_profile_check_id);
1828: fnd_message.set_token('PARAMETER', 'PROFILE_CHECK_ID');
1829: -- fnd_msg_pub.add;
1830: x_return_status := FND_API.G_RET_STS_ERROR;
1831: end if;
1832: end if;
1833: END IF;
1834: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1830: x_return_status := FND_API.G_RET_STS_ERROR;
1831: end if;
1832: end if;
1833: END IF;
1834: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1835: APP_EXCEPTION.RAISE_EXCEPTION;
1836: end if;
1837:
1838: END Validate_PROFILE_CHECK_ID;
1857: l_api_name varchar2(30) := 'Validate_Criteria_Value_Low';
1858: BEGIN
1859:
1860: -- Initialize message list if p_init_msg_list is set to TRUE.
1861: IF FND_API.to_Boolean( p_init_msg_list )
1862: THEN
1863: FND_MSG_PUB.initialize;
1864: END IF;
1865:
1863: FND_MSG_PUB.initialize;
1864: END IF;
1865:
1866: -- Initialize API return status to SUCCESS
1867: x_return_status := FND_API.G_RET_STS_SUCCESS;
1868:
1869: -- validate NOT NULL column
1870: --IF(p_CRITERIA_VALUE_LOW is NULL or p_CRITERIA_VALUE_LOW = FND_API.G_MISS_CHAR ) then
1871: --fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1866: -- Initialize API return status to SUCCESS
1867: x_return_status := FND_API.G_RET_STS_SUCCESS;
1868:
1869: -- validate NOT NULL column
1870: --IF(p_CRITERIA_VALUE_LOW is NULL or p_CRITERIA_VALUE_LOW = FND_API.G_MISS_CHAR ) then
1871: --fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1872: --fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1873: --fnd_message.set_token('NULL_PARAM', 'CRITERIA_VALUE_LOW');
1874: -- fnd_msg_pub.add;
1871: --fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1872: --fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1873: --fnd_message.set_token('NULL_PARAM', 'CRITERIA_VALUE_LOW');
1874: -- fnd_msg_pub.add;
1875: --x_return_status := FND_API.G_RET_STS_ERROR;
1876: IF ( p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE AND
1877: p_criteria_value_low <> p_old_criteria_value_low ) then
1878: --if ( G_CUST_PLANS_REC_CNT = FND_API.G_MISS_NUM ) then
1879: open c1;
1874: -- fnd_msg_pub.add;
1875: --x_return_status := FND_API.G_RET_STS_ERROR;
1876: IF ( p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE AND
1877: p_criteria_value_low <> p_old_criteria_value_low ) then
1878: --if ( G_CUST_PLANS_REC_CNT = FND_API.G_MISS_NUM ) then
1879: open c1;
1880: fetch c1 into l_rec_count;
1881: close c1;
1882: --end if;
1886: -- fnd_message.set_name ('CS', 'CS_ALL_UPDATE_NOT_ALLOWED');
1887: -- Fixed bug# 3319977
1888: fnd_message.set_name ('CSC', 'CSC_RSP_INVALID_UPDATE');
1889: fnd_message.set_token('UPDATE_PARAM', 'CRITERIA_VALUE_LOW');
1890: x_return_status := FND_API.G_RET_STS_ERROR;
1891: end if;
1892: END IF;
1893:
1894: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1890: x_return_status := FND_API.G_RET_STS_ERROR;
1891: end if;
1892: END IF;
1893:
1894: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1895: APP_EXCEPTION.RAISE_EXCEPTION;
1896: end if;
1897:
1898: END Validate_CRITERIA_VALUE_LOW;
1917: l_api_name varchar2(30) := 'Validate_Criteria_Value_High';
1918: BEGIN
1919:
1920: -- Initialize message list if p_init_msg_list is set to TRUE.
1921: IF FND_API.to_Boolean( p_init_msg_list )
1922: THEN
1923: FND_MSG_PUB.initialize;
1924: END IF;
1925:
1923: FND_MSG_PUB.initialize;
1924: END IF;
1925:
1926: -- Initialize API return status to SUCCESS
1927: x_return_status := FND_API.G_RET_STS_SUCCESS;
1928:
1929: IF ( p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE AND
1930: nvl(p_criteria_value_high,0) <> nvl(p_old_criteria_value_high,0) ) then
1931: --if ( G_CUST_PLANS_REC_CNT = FND_API.G_MISS_NUM ) then
1927: x_return_status := FND_API.G_RET_STS_SUCCESS;
1928:
1929: IF ( p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE AND
1930: nvl(p_criteria_value_high,0) <> nvl(p_old_criteria_value_high,0) ) then
1931: --if ( G_CUST_PLANS_REC_CNT = FND_API.G_MISS_NUM ) then
1932: open c1;
1933: fetch c1 into l_rec_count;
1934: close c1;
1935: --end if;
1939: -- fnd_message.set_name ('CS', 'CS_ALL_UPDATE_NOT_ALLOWED');
1940: -- Fixed bug# 3319977
1941: fnd_message.set_name ('CSC', 'CSC_RSP_INVALID_UPDATE');
1942: fnd_message.set_token('UPDATE_PARAM', 'CRITERIA_VALUE_HIGH');
1943: x_return_status := FND_API.G_RET_STS_ERROR;
1944: end if;
1945: END IF;
1946:
1947: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1943: x_return_status := FND_API.G_RET_STS_ERROR;
1944: end if;
1945: END IF;
1946:
1947: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1948: APP_EXCEPTION.RAISE_EXCEPTION;
1949: end if;
1950:
1951: END Validate_CRITERIA_VALUE_HIGH;
1970: l_api_name varchar2(30) := 'Validate_Relational_Operator';
1971: BEGIN
1972:
1973: -- Initialize message list if p_init_msg_list is set to TRUE.
1974: IF FND_API.to_Boolean( p_init_msg_list )
1975: THEN
1976: FND_MSG_PUB.initialize;
1977: END IF;
1978:
1976: FND_MSG_PUB.initialize;
1977: END IF;
1978:
1979: -- Initialize API return status to SUCCESS
1980: x_return_status := FND_API.G_RET_STS_SUCCESS;
1981:
1982: -- validate NOT NULL column
1983: IF(p_RELATIONAL_OPERATOR is NULL or p_RELATIONAL_OPERATOR = FND_API.G_MISS_CHAR ) then
1984: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1979: -- Initialize API return status to SUCCESS
1980: x_return_status := FND_API.G_RET_STS_SUCCESS;
1981:
1982: -- validate NOT NULL column
1983: IF(p_RELATIONAL_OPERATOR is NULL or p_RELATIONAL_OPERATOR = FND_API.G_MISS_CHAR ) then
1984: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_NULL_PARAMETER');
1985: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
1986: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1987: fnd_message.set_token('NULL_PARAM', 'RELATIONAL_OPERATOR');
1985: fnd_message.set_name ('CS', 'CS_API_ALL_NULL_PARAMETER');
1986: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
1987: fnd_message.set_token('NULL_PARAM', 'RELATIONAL_OPERATOR');
1988: -- fnd_msg_pub.add;
1989: x_return_status := FND_API.G_RET_STS_ERROR;
1990: ELSIF ( p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE AND
1991: p_relational_operator <> p_old_relational_operator ) then
1992: --if ( G_CUST_PLANS_REC_CNT = FND_API.G_MISS_NUM ) then
1993: open c1;
1988: -- fnd_msg_pub.add;
1989: x_return_status := FND_API.G_RET_STS_ERROR;
1990: ELSIF ( p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE AND
1991: p_relational_operator <> p_old_relational_operator ) then
1992: --if ( G_CUST_PLANS_REC_CNT = FND_API.G_MISS_NUM ) then
1993: open c1;
1994: fetch c1 into l_rec_count;
1995: close c1;
1996: --end if;
2000: -- fnd_message.set_name ('CS', 'CS_ALL_UPDATE_NOT_ALLOWED');
2001: -- Fixed bug# 3319977
2002: fnd_message.set_name ('CSC', 'CSC_RSP_INVALID_UPDATE');
2003: fnd_message.set_token('UPDATE_PARAM', 'RELATIONAL_OPERATOR');
2004: x_return_status := FND_API.G_RET_STS_ERROR;
2005: end if;
2006: END IF;
2007:
2008: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2004: x_return_status := FND_API.G_RET_STS_ERROR;
2005: end if;
2006: END IF;
2007:
2008: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2009: APP_EXCEPTION.RAISE_EXCEPTION;
2010: end if;
2011:
2012: END Validate_RELATIONAL_OPERATOR;
2025: IS
2026: l_api_name varchar2(30) := 'Validate_Plan_Criteria';
2027: BEGIN
2028: -- Initialize message list if p_init_msg_list is set to TRUE.
2029: IF FND_API.to_Boolean( p_init_msg_list )
2030: THEN
2031: FND_MSG_PUB.initialize;
2032: END IF;
2033:
2031: FND_MSG_PUB.initialize;
2032: END IF;
2033:
2034: -- Initialize API return status to SUCCESS
2035: x_return_status := FND_API.G_RET_STS_SUCCESS;
2036:
2037: IF ( p_relational_operator = '=' OR
2038: p_relational_operator = '<>' OR
2039: p_relational_operator = '>' OR
2050: fnd_message.set_name ('CS', 'CS_API_ALL_INVALID_ARGUMENT');
2051: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
2052: fnd_message.set_token('VALUE', p_relational_operator);
2053: fnd_message.set_token('PARAMETER', 'RELATIONAL OPERATOR');
2054: x_return_status := FND_API.G_RET_STS_ERROR;
2055: elsif ( p_criteria_value_low is NULL AND p_criteria_value_high IS NULL ) then
2056: -- Error in plan criteria. Criteria value low should be specified.
2057: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_INVALID_ARGUMENT');
2058: fnd_message.set_name ('CS', 'CS_API_ALL_INVALID_ARGUMENT');
2058: fnd_message.set_name ('CS', 'CS_API_ALL_INVALID_ARGUMENT');
2059: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
2060: fnd_message.set_token('VALUE', p_criteria_value_low);
2061: fnd_message.set_token('PARAMETER', 'CRITERIA VALUE LOW');
2062: x_return_status := FND_API.G_RET_STS_ERROR;
2063: elsif ( p_criteria_value_low IS NOT NULL AND p_criteria_value_high IS NOT NULL ) then
2064: -- Error in plan criteria. Criteria value high should not be specified.
2065: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_INVALID_ARGUMENT');
2066: fnd_message.set_name ('CS', 'CS_API_ALL_INVALID_ARGUMENT');
2066: fnd_message.set_name ('CS', 'CS_API_ALL_INVALID_ARGUMENT');
2067: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
2068: fnd_message.set_token('VALUE', p_criteria_value_high);
2069: fnd_message.set_token('PARAMETER', 'CRITERIA VALUE HIGH');
2070: x_return_status := FND_API.G_RET_STS_ERROR;
2071: end if;
2072: ELSIF ( p_relational_operator = 'BETWEEN' OR
2073: p_relational_operator = 'NOT BETWEEN' )
2074: THEN
2078: fnd_message.set_name ('CS', 'CS_API_ALL_INVALID_ARGUMENT');
2079: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
2080: fnd_message.set_token('VALUE', p_relational_operator);
2081: fnd_message.set_token('PARAMETER', 'RELATIONAL OPERATOR');
2082: x_return_status := FND_API.G_RET_STS_ERROR;
2083: elsif ( p_criteria_value_low > p_criteria_value_high ) then
2084: -- Error in plan criteria. Criteria value low should be less than criteria
2085: -- value high.
2086: -- fnd_message.set_name (CSC_CORE_UTILS_PVT.G_APP_SHORTNAME, 'CS_API_ALL_INVALID_ARGUMENT');
2087: fnd_message.set_name ('CS', 'CS_API_ALL_INVALID_ARGUMENT');
2088: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
2089: fnd_message.set_token('VALUE', p_criteria_value_high);
2090: fnd_message.set_token('PARAMETER', 'CRITERIA VALUE HIGH');
2091: x_return_status := FND_API.G_RET_STS_ERROR;
2092: end if;
2093: ELSIF ( p_relational_operator = 'IS NULL' OR
2094: p_relational_operator = 'IS NOT NULL' )
2095: THEN
2099: fnd_message.set_name ('CS', 'CS_API_ALL_INVALID_ARGUMENT');
2100: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
2101: fnd_message.set_token('VALUE', p_relational_operator);
2102: fnd_message.set_token('PARAMETER', 'RELATIONAL OPERATOR');
2103: x_return_status := FND_API.G_RET_STS_ERROR;
2104: end if;
2105: END IF;
2106:
2107: END Validate_Plan_Criteria;
2127:
2128: BEGIN
2129:
2130: -- Initialize message list if p_init_msg_list is set to TRUE.
2131: IF FND_API.to_Boolean( p_init_msg_list )
2132: THEN
2133: FND_MSG_PUB.initialize;
2134: END IF;
2135:
2133: FND_MSG_PUB.initialize;
2134: END IF;
2135:
2136: -- Initialize API return status to SUCCESS
2137: x_return_status := FND_API.G_RET_STS_SUCCESS;
2138:
2139: if ( p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE ) then
2140: open c1;
2141: fetch c1 into l_min_date;
2149: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
2150: fnd_message.set_token('VALUE', p_start_date_active);
2151: fnd_message.set_token('PARAMETER', 'START_DATE_ACTIVE');
2152: -- fnd_msg_pub.add;
2153: x_return_status := FND_API.G_RET_STS_ERROR;
2154: end if;
2155: end if;
2156:
2157: if ( x_Return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2153: x_return_status := FND_API.G_RET_STS_ERROR;
2154: end if;
2155: end if;
2156:
2157: if ( x_Return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2158: APP_EXCEPTION.RAISE_EXCEPTION;
2159: end if;
2160:
2161: END Validate_START_DATE_ACTIVE;
2180: l_api_name VARCHAR2(30) := 'Validate_End_Date_Active';
2181:
2182: BEGIN
2183: -- Initialize message list if p_init_msg_list is set to TRUE.
2184: IF FND_API.to_Boolean( p_init_msg_list )
2185: THEN
2186: FND_MSG_PUB.initialize;
2187: END IF;
2188:
2186: FND_MSG_PUB.initialize;
2187: END IF;
2188:
2189: -- Initialize API return status to SUCCESS
2190: x_return_status := FND_API.G_RET_STS_SUCCESS;
2191:
2192: if ( p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE ) then
2193: open c1;
2194: fetch c1 into l_max_date;
2206: fnd_message.set_token ('DATE_TYPE', 'End Date Active');
2207: fnd_message.set_token('EARLIER_LATER', 'later');
2208: fnd_message.set_token('GREATER_LESSER', 'greater');
2209: fnd_message.set_token('MAX_MIN_DATE', l_max_date);
2210: x_return_status := FND_API.G_RET_STS_ERROR;
2211: end if;
2212:
2213: /*
2214: if ( trunc(p_end_date_active) < trunc(l_max_date) ) then
2219: fnd_message.set_token ('API_NAME', G_PKG_NAME||'.'||l_api_name);
2220: fnd_message.set_token('VALUE', p_end_date_active);
2221: fnd_message.set_token('PARAMETER', 'END_DATE_ACTIVE');
2222: -- fnd_msg_pub.add;
2223: x_return_status := FND_API.G_RET_STS_ERROR;
2224: end if;
2225: */
2226: end if;
2227:
2224: end if;
2225: */
2226: end if;
2227:
2228: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2229: APP_EXCEPTION.RAISE_EXCEPTION;
2230: end if;
2231:
2232: END Validate_END_DATE_ACTIVE;
2239: P_CSC_PLAN_HEADERS_B_REC IN CSC_PLAN_HEADERS_B_REC_TYPE,
2240: P_OLD_PLAN_HEADERS_B_REC IN CSC_PLAN_HEADERS_B_REC_TYPE,
2241: P_DESCRIPTION IN VARCHAR2,
2242: P_NAME IN VARCHAR2,
2243: --P_PARTY_ID IN NUMBER := FND_API.G_MISS_NUM,
2244: --P_CUST_ACCOUNT_ID IN NUMBER := FND_API.G_MISS_NUM,
2245: --P_CUST_ACCOUNT_ORG IN NUMBER := FND_API.G_MISS_NUM,
2246: X_Return_Status OUT NOCOPY VARCHAR2,
2247: X_Msg_Count OUT NOCOPY NUMBER,
2240: P_OLD_PLAN_HEADERS_B_REC IN CSC_PLAN_HEADERS_B_REC_TYPE,
2241: P_DESCRIPTION IN VARCHAR2,
2242: P_NAME IN VARCHAR2,
2243: --P_PARTY_ID IN NUMBER := FND_API.G_MISS_NUM,
2244: --P_CUST_ACCOUNT_ID IN NUMBER := FND_API.G_MISS_NUM,
2245: --P_CUST_ACCOUNT_ORG IN NUMBER := FND_API.G_MISS_NUM,
2246: X_Return_Status OUT NOCOPY VARCHAR2,
2247: X_Msg_Count OUT NOCOPY NUMBER,
2248: X_Msg_Data OUT NOCOPY VARCHAR2
2241: P_DESCRIPTION IN VARCHAR2,
2242: P_NAME IN VARCHAR2,
2243: --P_PARTY_ID IN NUMBER := FND_API.G_MISS_NUM,
2244: --P_CUST_ACCOUNT_ID IN NUMBER := FND_API.G_MISS_NUM,
2245: --P_CUST_ACCOUNT_ORG IN NUMBER := FND_API.G_MISS_NUM,
2246: X_Return_Status OUT NOCOPY VARCHAR2,
2247: X_Msg_Count OUT NOCOPY NUMBER,
2248: X_Msg_Data OUT NOCOPY VARCHAR2
2249: )
2250: IS
2251: l_api_name CONSTANT VARCHAR2(30) := 'Validate_csc_relationship_plan';
2252: BEGIN
2253: -- Initialize API return status to SUCCESS
2254: x_return_status := FND_API.G_RET_STS_SUCCESS;
2255:
2256: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2257: Validate_PLAN_ID(
2258: p_init_msg_list => FND_API.G_FALSE,
2252: BEGIN
2253: -- Initialize API return status to SUCCESS
2254: x_return_status := FND_API.G_RET_STS_SUCCESS;
2255:
2256: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2257: Validate_PLAN_ID(
2258: p_init_msg_list => FND_API.G_FALSE,
2259: p_validation_mode => p_validation_mode,
2260: p_PLAN_ID => P_CSC_PLAN_HEADERS_B_REC.PLAN_ID,
2254: x_return_status := FND_API.G_RET_STS_SUCCESS;
2255:
2256: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2257: Validate_PLAN_ID(
2258: p_init_msg_list => FND_API.G_FALSE,
2259: p_validation_mode => p_validation_mode,
2260: p_PLAN_ID => P_CSC_PLAN_HEADERS_B_REC.PLAN_ID,
2261: x_return_status => x_return_status,
2262: x_msg_count => x_msg_count,
2260: p_PLAN_ID => P_CSC_PLAN_HEADERS_B_REC.PLAN_ID,
2261: x_return_status => x_return_status,
2262: x_msg_count => x_msg_count,
2263: x_msg_data => x_msg_data);
2264: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2265: raise FND_API.G_EXC_ERROR;
2266: END IF;
2267:
2268: Validate_NAME(
2261: x_return_status => x_return_status,
2262: x_msg_count => x_msg_count,
2263: x_msg_data => x_msg_data);
2264: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2265: raise FND_API.G_EXC_ERROR;
2266: END IF;
2267:
2268: Validate_NAME(
2269: p_init_msg_list => FND_API.G_FALSE,
2265: raise FND_API.G_EXC_ERROR;
2266: END IF;
2267:
2268: Validate_NAME(
2269: p_init_msg_list => FND_API.G_FALSE,
2270: p_validation_mode => p_validation_mode,
2271: p_plan_id => P_CSC_PLAN_HEADERS_B_REC.PLAN_ID,
2272: p_NAME => P_NAME,
2273: x_return_status => x_return_status,
2272: p_NAME => P_NAME,
2273: x_return_status => x_return_status,
2274: x_msg_count => x_msg_count,
2275: x_msg_data => x_msg_data);
2276: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2277: raise FND_API.G_EXC_ERROR;
2278: END IF;
2279:
2280: Validate_ORIGINAL_PLAN_ID(
2273: x_return_status => x_return_status,
2274: x_msg_count => x_msg_count,
2275: x_msg_data => x_msg_data);
2276: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2277: raise FND_API.G_EXC_ERROR;
2278: END IF;
2279:
2280: Validate_ORIGINAL_PLAN_ID(
2281: p_init_msg_list => FND_API.G_FALSE,
2277: raise FND_API.G_EXC_ERROR;
2278: END IF;
2279:
2280: Validate_ORIGINAL_PLAN_ID(
2281: p_init_msg_list => FND_API.G_FALSE,
2282: p_validation_mode => p_validation_mode,
2283: p_PLAN_ID => P_CSC_PLAN_HEADERS_B_REC.PLAN_ID,
2284: p_ORIGINAL_PLAN_ID => P_CSC_PLAN_HEADERS_B_REC.ORIGINAL_PLAN_ID,
2285: p_CUSTOMIZED_PLAN => P_CSC_PLAN_HEADERS_B_REC.CUSTOMIZED_PLAN,
2285: p_CUSTOMIZED_PLAN => P_CSC_PLAN_HEADERS_B_REC.CUSTOMIZED_PLAN,
2286: x_return_status => x_return_status,
2287: x_msg_count => x_msg_count,
2288: x_msg_data => x_msg_data);
2289: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2290: raise FND_API.G_EXC_ERROR;
2291: END IF;
2292:
2293: Validate_PLAN_GROUP_CODE(
2286: x_return_status => x_return_status,
2287: x_msg_count => x_msg_count,
2288: x_msg_data => x_msg_data);
2289: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2290: raise FND_API.G_EXC_ERROR;
2291: END IF;
2292:
2293: Validate_PLAN_GROUP_CODE(
2294: p_init_msg_list => FND_API.G_FALSE,
2290: raise FND_API.G_EXC_ERROR;
2291: END IF;
2292:
2293: Validate_PLAN_GROUP_CODE(
2294: p_init_msg_list => FND_API.G_FALSE,
2295: p_validation_mode => p_validation_mode,
2296: p_PLAN_GROUP_CODE => P_CSC_PLAN_HEADERS_B_REC.PLAN_GROUP_CODE,
2297: x_return_status => x_return_status,
2298: x_msg_count => x_msg_count,
2296: p_PLAN_GROUP_CODE => P_CSC_PLAN_HEADERS_B_REC.PLAN_GROUP_CODE,
2297: x_return_status => x_return_status,
2298: x_msg_count => x_msg_count,
2299: x_msg_data => x_msg_data);
2300: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2301: raise FND_API.G_EXC_ERROR;
2302: END IF;
2303:
2304: Validate_START_DATE_ACTIVE (
2297: x_return_status => x_return_status,
2298: x_msg_count => x_msg_count,
2299: x_msg_data => x_msg_data);
2300: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2301: raise FND_API.G_EXC_ERROR;
2302: END IF;
2303:
2304: Validate_START_DATE_ACTIVE (
2305: P_Init_Msg_List => FND_API.G_TRUE,
2301: raise FND_API.G_EXC_ERROR;
2302: END IF;
2303:
2304: Validate_START_DATE_ACTIVE (
2305: P_Init_Msg_List => FND_API.G_TRUE,
2306: P_Validation_mode => p_validation_mode,
2307: P_PLAN_ID => P_CSC_PLAN_HEADERS_B_REC.PLAN_ID,
2308: P_START_DATE_ACTIVE => P_CSC_PLAN_HEADERS_B_REC.START_DATE_ACTIVE,
2309: X_Return_Status => x_return_status,
2308: P_START_DATE_ACTIVE => P_CSC_PLAN_HEADERS_B_REC.START_DATE_ACTIVE,
2309: X_Return_Status => x_return_status,
2310: X_Msg_Count => x_msg_count,
2311: X_Msg_Data => x_msg_data );
2312: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2313: raise FND_API.G_EXC_ERROR;
2314: END IF;
2315:
2316: Validate_END_DATE_ACTIVE (
2309: X_Return_Status => x_return_status,
2310: X_Msg_Count => x_msg_count,
2311: X_Msg_Data => x_msg_data );
2312: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2313: raise FND_API.G_EXC_ERROR;
2314: END IF;
2315:
2316: Validate_END_DATE_ACTIVE (
2317: P_Init_Msg_List => FND_API.G_TRUE,
2313: raise FND_API.G_EXC_ERROR;
2314: END IF;
2315:
2316: Validate_END_DATE_ACTIVE (
2317: P_Init_Msg_List => FND_API.G_TRUE,
2318: P_Validation_mode => p_validation_mode,
2319: P_PLAN_ID => P_CSC_PLAN_HEADERS_B_REC.PLAN_ID,
2320: P_END_DATE_ACTIVE => P_CSC_PLAN_HEADERS_B_REC.END_DATE_ACTIVE,
2321: X_Return_Status => x_return_status,
2320: P_END_DATE_ACTIVE => P_CSC_PLAN_HEADERS_B_REC.END_DATE_ACTIVE,
2321: X_Return_Status => x_return_status,
2322: X_Msg_Count => x_msg_count,
2323: X_Msg_Data => x_msg_data );
2324: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2325: raise FND_API.G_EXC_ERROR;
2326: END IF;
2327:
2328: -- issue a call to the CORE UTILITIES package to validate the date fields.
2321: X_Return_Status => x_return_status,
2322: X_Msg_Count => x_msg_count,
2323: X_Msg_Data => x_msg_data );
2324: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2325: raise FND_API.G_EXC_ERROR;
2326: END IF;
2327:
2328: -- issue a call to the CORE UTILITIES package to validate the date fields.
2329: CSC_CORE_UTILS_PVT.VALIDATE_DATES(
2326: END IF;
2327:
2328: -- issue a call to the CORE UTILITIES package to validate the date fields.
2329: CSC_CORE_UTILS_PVT.VALIDATE_DATES(
2330: p_init_msg_list => FND_API.G_FALSE,
2331: p_validation_mode => p_validation_mode,
2332: P_START_DATE => p_csc_plan_headers_b_rec.start_date_active,
2333: P_END_DATE => p_csc_plan_headers_b_rec.end_date_active,
2334: x_return_status => x_return_status,
2333: P_END_DATE => p_csc_plan_headers_b_rec.end_date_active,
2334: x_return_status => x_return_status,
2335: x_msg_count => x_msg_count,
2336: x_msg_data => x_msg_data);
2337: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2338: raise FND_API.G_EXC_ERROR;
2339: END IF;
2340:
2341: Validate_USE_FOR_CUST_ACCOUNT(
2334: x_return_status => x_return_status,
2335: x_msg_count => x_msg_count,
2336: x_msg_data => x_msg_data);
2337: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2338: raise FND_API.G_EXC_ERROR;
2339: END IF;
2340:
2341: Validate_USE_FOR_CUST_ACCOUNT(
2342: p_init_msg_list => FND_API.G_FALSE,
2338: raise FND_API.G_EXC_ERROR;
2339: END IF;
2340:
2341: Validate_USE_FOR_CUST_ACCOUNT(
2342: p_init_msg_list => FND_API.G_FALSE,
2343: p_validation_mode => p_validation_mode,
2344: p_PLAN_ID => P_CSC_PLAN_HEADERS_B_REC.PLAN_ID,
2345: p_USE_FOR_CUST_ACCOUNT => P_CSC_PLAN_HEADERS_B_REC.USE_FOR_CUST_ACCOUNT,
2346: p_OLD_USE_FOR_CUST_ACCOUNT => P_OLD_PLAN_HEADERS_B_REC.USE_FOR_CUST_ACCOUNT,
2346: p_OLD_USE_FOR_CUST_ACCOUNT => P_OLD_PLAN_HEADERS_B_REC.USE_FOR_CUST_ACCOUNT,
2347: x_return_status => x_return_status,
2348: x_msg_count => x_msg_count,
2349: x_msg_data => x_msg_data);
2350: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2351: raise FND_API.G_EXC_ERROR;
2352: END IF;
2353:
2354: Validate_END_USER_TYPE (
2347: x_return_status => x_return_status,
2348: x_msg_count => x_msg_count,
2349: x_msg_data => x_msg_data);
2350: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2351: raise FND_API.G_EXC_ERROR;
2352: END IF;
2353:
2354: Validate_END_USER_TYPE (
2355: P_Init_Msg_List => FND_API.G_FALSE,
2351: raise FND_API.G_EXC_ERROR;
2352: END IF;
2353:
2354: Validate_END_USER_TYPE (
2355: P_Init_Msg_List => FND_API.G_FALSE,
2356: P_Validation_mode => p_validation_mode,
2357: P_END_USER_TYPE => P_CSC_PLAN_HEADERS_B_REC.END_USER_TYPE,
2358: X_Return_Status => x_return_status,
2359: X_Msg_Count => x_msg_count,
2357: P_END_USER_TYPE => P_CSC_PLAN_HEADERS_B_REC.END_USER_TYPE,
2358: X_Return_Status => x_return_status,
2359: X_Msg_Count => x_msg_count,
2360: X_Msg_Data => x_msg_data );
2361: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2362: raise FND_API.G_EXC_ERROR;
2363: END IF;
2364:
2365: Validate_CUSTOMIZED_PLAN(
2358: X_Return_Status => x_return_status,
2359: X_Msg_Count => x_msg_count,
2360: X_Msg_Data => x_msg_data );
2361: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2362: raise FND_API.G_EXC_ERROR;
2363: END IF;
2364:
2365: Validate_CUSTOMIZED_PLAN(
2366: p_init_msg_list => FND_API.G_FALSE,
2362: raise FND_API.G_EXC_ERROR;
2363: END IF;
2364:
2365: Validate_CUSTOMIZED_PLAN(
2366: p_init_msg_list => FND_API.G_FALSE,
2367: p_validation_mode => p_validation_mode,
2368: p_CUSTOMIZED_PLAN => P_CSC_PLAN_HEADERS_B_REC.CUSTOMIZED_PLAN,
2369: x_return_status => x_return_status,
2370: x_msg_count => x_msg_count,
2368: p_CUSTOMIZED_PLAN => P_CSC_PLAN_HEADERS_B_REC.CUSTOMIZED_PLAN,
2369: x_return_status => x_return_status,
2370: x_msg_count => x_msg_count,
2371: x_msg_data => x_msg_data);
2372: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2373: raise FND_API.G_EXC_ERROR;
2374: END IF;
2375:
2376: Validate_PROFILE_CHECK_ID(
2369: x_return_status => x_return_status,
2370: x_msg_count => x_msg_count,
2371: x_msg_data => x_msg_data);
2372: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2373: raise FND_API.G_EXC_ERROR;
2374: END IF;
2375:
2376: Validate_PROFILE_CHECK_ID(
2377: p_init_msg_list => FND_API.G_FALSE,
2373: raise FND_API.G_EXC_ERROR;
2374: END IF;
2375:
2376: Validate_PROFILE_CHECK_ID(
2377: p_init_msg_list => FND_API.G_FALSE,
2378: p_validation_mode => p_validation_mode,
2379: p_plan_id => P_CSC_PLAN_HEADERS_B_REC.PLAN_ID,
2380: p_PROFILE_CHECK_ID => P_CSC_PLAN_HEADERS_B_REC.PROFILE_CHECK_ID,
2381: p_OLD_PROFILE_CHECK_ID => P_OLD_PLAN_HEADERS_B_REC.PROFILE_CHECK_ID,
2381: p_OLD_PROFILE_CHECK_ID => P_OLD_PLAN_HEADERS_B_REC.PROFILE_CHECK_ID,
2382: x_return_status => x_return_status,
2383: x_msg_count => x_msg_count,
2384: x_msg_data => x_msg_data);
2385: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2386: raise FND_API.G_EXC_ERROR;
2387: END IF;
2388:
2389: Validate_CRITERIA_VALUE_LOW(
2382: x_return_status => x_return_status,
2383: x_msg_count => x_msg_count,
2384: x_msg_data => x_msg_data);
2385: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2386: raise FND_API.G_EXC_ERROR;
2387: END IF;
2388:
2389: Validate_CRITERIA_VALUE_LOW(
2390: p_init_msg_list => FND_API.G_FALSE,
2386: raise FND_API.G_EXC_ERROR;
2387: END IF;
2388:
2389: Validate_CRITERIA_VALUE_LOW(
2390: p_init_msg_list => FND_API.G_FALSE,
2391: p_validation_mode => p_validation_mode,
2392: p_plan_id => P_CSC_PLAN_HEADERS_B_REC.PLAN_ID,
2393: p_CRITERIA_VALUE_LOW => P_CSC_PLAN_HEADERS_B_REC.CRITERIA_VALUE_LOW,
2394: p_OLD_CRITERIA_VALUE_LOW => P_OLD_PLAN_HEADERS_B_REC.CRITERIA_VALUE_LOW,
2394: p_OLD_CRITERIA_VALUE_LOW => P_OLD_PLAN_HEADERS_B_REC.CRITERIA_VALUE_LOW,
2395: x_return_status => x_return_status,
2396: x_msg_count => x_msg_count,
2397: x_msg_data => x_msg_data);
2398: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2399: raise FND_API.G_EXC_ERROR;
2400: END IF;
2401:
2402: Validate_CRITERIA_VALUE_HIGH(
2395: x_return_status => x_return_status,
2396: x_msg_count => x_msg_count,
2397: x_msg_data => x_msg_data);
2398: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2399: raise FND_API.G_EXC_ERROR;
2400: END IF;
2401:
2402: Validate_CRITERIA_VALUE_HIGH(
2403: p_init_msg_list => FND_API.G_FALSE,
2399: raise FND_API.G_EXC_ERROR;
2400: END IF;
2401:
2402: Validate_CRITERIA_VALUE_HIGH(
2403: p_init_msg_list => FND_API.G_FALSE,
2404: p_validation_mode => p_validation_mode,
2405: p_plan_id => P_CSC_PLAN_HEADERS_B_REC.PLAN_ID,
2406: p_CRITERIA_VALUE_HIGH => P_CSC_PLAN_HEADERS_B_REC.CRITERIA_VALUE_HIGH,
2407: p_OLD_CRITERIA_VALUE_HIGH => P_OLD_PLAN_HEADERS_B_REC.CRITERIA_VALUE_HIGH,
2407: p_OLD_CRITERIA_VALUE_HIGH => P_OLD_PLAN_HEADERS_B_REC.CRITERIA_VALUE_HIGH,
2408: x_return_status => x_return_status,
2409: x_msg_count => x_msg_count,
2410: x_msg_data => x_msg_data);
2411: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2412: raise FND_API.G_EXC_ERROR;
2413: END IF;
2414:
2415: Validate_RELATIONAL_OPERATOR(
2408: x_return_status => x_return_status,
2409: x_msg_count => x_msg_count,
2410: x_msg_data => x_msg_data);
2411: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2412: raise FND_API.G_EXC_ERROR;
2413: END IF;
2414:
2415: Validate_RELATIONAL_OPERATOR(
2416: p_init_msg_list => FND_API.G_FALSE,
2412: raise FND_API.G_EXC_ERROR;
2413: END IF;
2414:
2415: Validate_RELATIONAL_OPERATOR(
2416: p_init_msg_list => FND_API.G_FALSE,
2417: p_validation_mode => p_validation_mode,
2418: p_plan_id => P_CSC_PLAN_HEADERS_B_REC.PLAN_ID,
2419: p_RELATIONAL_OPERATOR => P_CSC_PLAN_HEADERS_B_REC.RELATIONAL_OPERATOR,
2420: p_OLD_RELATIONAL_OPERATOR => P_OLD_PLAN_HEADERS_B_REC.RELATIONAL_OPERATOR,
2420: p_OLD_RELATIONAL_OPERATOR => P_OLD_PLAN_HEADERS_B_REC.RELATIONAL_OPERATOR,
2421: x_return_status => x_return_status,
2422: x_msg_count => x_msg_count,
2423: x_msg_data => x_msg_data);
2424: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2425: raise FND_API.G_EXC_ERROR;
2426: END IF;
2427:
2428: Validate_Plan_Criteria (
2421: x_return_status => x_return_status,
2422: x_msg_count => x_msg_count,
2423: x_msg_data => x_msg_data);
2424: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2425: raise FND_API.G_EXC_ERROR;
2426: END IF;
2427:
2428: Validate_Plan_Criteria (
2429: P_Init_Msg_List => p_init_msg_list,
2434: P_CRITERIA_VALUE_HIGH => P_CSC_PLAN_HEADERS_B_REC.CRITERIA_VALUE_HIGH,
2435: X_Return_Status => x_return_status,
2436: X_Msg_Count => x_msg_count,
2437: X_Msg_Data => x_msg_data );
2438: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2439: raise FND_API.G_EXC_ERROR;
2440: END IF;
2441:
2442: END IF;
2435: X_Return_Status => x_return_status,
2436: X_Msg_Count => x_msg_count,
2437: X_Msg_Data => x_msg_data );
2438: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2439: raise FND_API.G_EXC_ERROR;
2440: END IF;
2441:
2442: END IF;
2443: