[Home] [Help]
23: AMS_DEBUG_MEDIUM_ON constant boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
24:
25: PROCEDURE Create_Ps_Rule(
26: p_api_version_number IN NUMBER,
27: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
28: p_commit IN VARCHAR2 := FND_API.G_FALSE,
29: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
30:
31: x_return_status OUT NOCOPY VARCHAR2,
24:
25: PROCEDURE Create_Ps_Rule(
26: p_api_version_number IN NUMBER,
27: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
28: p_commit IN VARCHAR2 := FND_API.G_FALSE,
29: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
30:
31: x_return_status OUT NOCOPY VARCHAR2,
32: x_msg_count OUT NOCOPY NUMBER,
25: PROCEDURE Create_Ps_Rule(
26: p_api_version_number IN NUMBER,
27: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
28: p_commit IN VARCHAR2 := FND_API.G_FALSE,
29: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
30:
31: x_return_status OUT NOCOPY VARCHAR2,
32: x_msg_count OUT NOCOPY NUMBER,
33: x_msg_data OUT NOCOPY VARCHAR2,
48: TYPE vt_tab is TABLE OF VARCHAR2(10) INDEX BY BINARY_INTEGER;
49:
50: l_return_status_full VARCHAR2(1);
51: l_object_version_number NUMBER := 1;
52: --l_org_id NUMBER := FND_API.G_MISS_NUM;
53: l_org_id NUMBER;
54: l_RULE_ID NUMBER;
55: l_dummy NUMBER;
56: l_ii NUMBER;
90: SAVEPOINT CREATE_Ps_Rule_PVT;
91:
92: -- Standard call to check for call compatibility.
93:
94: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
95: p_api_version_number,
96: l_api_name,
97: G_PKG_NAME)
98:
96: l_api_name,
97: G_PKG_NAME)
98:
99: THEN
100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
101: END IF;
102:
103: -- Initialize message list if p_init_msg_list is set to TRUE.
104:
102:
103: -- Initialize message list if p_init_msg_list is set to TRUE.
104:
105:
106: IF FND_API.to_Boolean( p_init_msg_list )
107:
108: THEN
109: FND_MSG_PUB.initialize;
110: END IF;
126:
127:
128: -- Initialize API return status to SUCCESS
129:
130: x_return_status := FND_API.G_RET_STS_SUCCESS;
131:
132: -- Local variable initialization
133:
134: /*
131:
132: -- Local variable initialization
133:
134: /*
135: IF p_ps_rules_rec.RULE_ID IS NULL OR p_ps_rules_rec.RULE_ID = FND_API.g_miss_num THEN
136: LOOP
137: l_dummy := NULL;
138: OPEN c_id;
139: FETCH c_id INTO l_RULE_ID;
155:
156: THEN
157:
158: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
159: RAISE FND_API.G_EXC_ERROR;
160: END IF;
161:
162: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
163: THEN
158: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
159: RAISE FND_API.G_EXC_ERROR;
160: END IF;
161:
162: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
163: THEN
164: -- Debug message
165: IF (AMS_DEBUG_HIGH_ON) THEN
166:
171:
172: Validate_ps_rule(
173:
174: p_api_version_number => 1.0,
175: p_init_msg_list => FND_API.G_FALSE,
176: p_validation_level => p_validation_level,
177: p_ps_rules_rec => p_ps_rules_rec,
178: x_return_status => x_return_status,
179: x_msg_count => x_msg_count,
180: x_msg_data => x_msg_data);
181:
182: END IF;
183:
184: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
187:
188: -- patch Begin Bug 2225359
181:
182: END IF;
183:
184: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
187:
188: -- patch Begin Bug 2225359
189:
309: THEN
310:
311: -- Invoke table handler(AMS_IBA_PS_RULES_PKG.Insert_Row)
312:
313: IF p_ps_rules_rec.RULE_ID IS NULL OR p_ps_rules_rec.RULE_ID = FND_API.g_miss_num THEN
314:
315: LOOP
316: l_dummy := NULL;
317: OPEN c_id;
376:
377: FOR l_ii IN 1..3 LOOP
378: IF l_num(l_ii) = 1 THEN
379:
380: IF p_ps_rules_rec.RULE_ID IS NULL OR p_ps_rules_rec.RULE_ID = FND_API.g_miss_num THEN
381: LOOP
382: l_dummy := NULL;
383: OPEN c_id;
384: FETCH c_id INTO l_RULE_ID;
432: END LOOP;
433: END IF;
434:
435:
436: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
437: RAISE FND_API.G_EXC_ERROR;
438: END IF;
439: --
440: -- End of API body
433: END IF;
434:
435:
436: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
437: RAISE FND_API.G_EXC_ERROR;
438: END IF;
439: --
440: -- End of API body
441: --
442:
443:
444: -- Standard check for p_commit
445:
446: IF FND_API.to_Boolean( p_commit )
447:
448: THEN
449: COMMIT WORK;
450: END IF;
467:
468: EXCEPTION
469:
470: WHEN AMS_Utility_PVT.resource_locked THEN
471: x_return_status := FND_API.g_ret_sts_error;
472: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
473:
474: WHEN FND_API.G_EXC_ERROR THEN
475: ROLLBACK TO CREATE_Ps_Rule_PVT;
470: WHEN AMS_Utility_PVT.resource_locked THEN
471: x_return_status := FND_API.g_ret_sts_error;
472: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
473:
474: WHEN FND_API.G_EXC_ERROR THEN
475: ROLLBACK TO CREATE_Ps_Rule_PVT;
476: x_return_status := FND_API.G_RET_STS_ERROR;
477: -- Standard call to get message count and if count=1, get the message
478: FND_MSG_PUB.Count_And_Get (
472: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
473:
474: WHEN FND_API.G_EXC_ERROR THEN
475: ROLLBACK TO CREATE_Ps_Rule_PVT;
476: x_return_status := FND_API.G_RET_STS_ERROR;
477: -- Standard call to get message count and if count=1, get the message
478: FND_MSG_PUB.Count_And_Get (
479: p_encoded => FND_API.G_FALSE,
480: p_count => x_msg_count,
475: ROLLBACK TO CREATE_Ps_Rule_PVT;
476: x_return_status := FND_API.G_RET_STS_ERROR;
477: -- Standard call to get message count and if count=1, get the message
478: FND_MSG_PUB.Count_And_Get (
479: p_encoded => FND_API.G_FALSE,
480: p_count => x_msg_count,
481: p_data => x_msg_data
482: );
483:
480: p_count => x_msg_count,
481: p_data => x_msg_data
482: );
483:
484: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
485: ROLLBACK TO CREATE_Ps_Rule_PVT;
486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
487: -- Standard call to get message count and if count=1, get the message
488: FND_MSG_PUB.Count_And_Get (
482: );
483:
484: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
485: ROLLBACK TO CREATE_Ps_Rule_PVT;
486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
487: -- Standard call to get message count and if count=1, get the message
488: FND_MSG_PUB.Count_And_Get (
489: p_encoded => FND_API.G_FALSE,
490: p_count => x_msg_count,
485: ROLLBACK TO CREATE_Ps_Rule_PVT;
486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
487: -- Standard call to get message count and if count=1, get the message
488: FND_MSG_PUB.Count_And_Get (
489: p_encoded => FND_API.G_FALSE,
490: p_count => x_msg_count,
491: p_data => x_msg_data
492: );
493:
492: );
493:
494: WHEN OTHERS THEN
495: ROLLBACK TO CREATE_Ps_Rule_PVT;
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
498: THEN
499: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
500: END IF;
499: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
500: END IF;
501: -- Standard call to get message count and if count=1, get the message
502: FND_MSG_PUB.Count_And_Get (
503: p_encoded => FND_API.G_FALSE,
504: p_count => x_msg_count,
505: p_data => x_msg_data
506: );
507:
510:
511:
512: PROCEDURE Update_Ps_Rule(
513: p_api_version_number IN NUMBER,
514: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
515: p_commit IN VARCHAR2 := FND_API.G_FALSE,
516: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
517:
518: x_return_status OUT NOCOPY VARCHAR2,
511:
512: PROCEDURE Update_Ps_Rule(
513: p_api_version_number IN NUMBER,
514: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
515: p_commit IN VARCHAR2 := FND_API.G_FALSE,
516: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
517:
518: x_return_status OUT NOCOPY VARCHAR2,
519: x_msg_count OUT NOCOPY NUMBER,
512: PROCEDURE Update_Ps_Rule(
513: p_api_version_number IN NUMBER,
514: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
515: p_commit IN VARCHAR2 := FND_API.G_FALSE,
516: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
517:
518: x_return_status OUT NOCOPY VARCHAR2,
519: x_msg_count OUT NOCOPY NUMBER,
520: x_msg_data OUT NOCOPY VARCHAR2,
544: -- Standard Start of API savepoint
545: SAVEPOINT UPDATE_Ps_Rule_PVT;
546:
547: -- Standard call to check for call compatibility.
548: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
549: p_api_version_number,
550: l_api_name,
551: G_PKG_NAME)
552: THEN
549: p_api_version_number,
550: l_api_name,
551: G_PKG_NAME)
552: THEN
553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
554: END IF;
555:
556: -- Initialize message list if p_init_msg_list is set to TRUE.
557: IF FND_API.to_Boolean( p_init_msg_list )
553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
554: END IF;
555:
556: -- Initialize message list if p_init_msg_list is set to TRUE.
557: IF FND_API.to_Boolean( p_init_msg_list )
558: THEN
559: FND_MSG_PUB.initialize;
560: END IF;
561:
565: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
566: END IF;
567:
568: -- Initialize API return status to SUCCESS
569: x_return_status := FND_API.G_RET_STS_SUCCESS;
570:
571: -- Debug Message
572: IF (AMS_DEBUG_HIGH_ON) THEN
573:
581: If ( c_object_version%NOTFOUND) THEN
582: AMS_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
583: p_token_name => 'INFO',
584: p_token_value => 'Rule');
585: RAISE FND_API.G_EXC_ERROR;
586: END IF;
587: -- Debug Message
588:
589: IF (AMS_DEBUG_HIGH_ON) THEN
595: END IF;
596: CLOSE c_object_version;
597:
598: IF (p_ps_rules_rec.object_version_number is NULL or
599: p_ps_rules_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
600: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
601: p_token_name => 'COLUMN',
602: p_token_value => 'object_version_number') ;
603: raise FND_API.G_EXC_ERROR;
599: p_ps_rules_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
600: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
601: p_token_name => 'COLUMN',
602: p_token_value => 'object_version_number') ;
603: raise FND_API.G_EXC_ERROR;
604: END IF;
605:
606: -- Check Whether record has been changed by someone else
607: IF (p_ps_rules_rec.object_version_number <> l_object_version) THEN
607: IF (p_ps_rules_rec.object_version_number <> l_object_version) THEN
608: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
609: p_token_name => 'INFO',
610: p_token_value => 'Rule') ;
611: raise FND_API.G_EXC_ERROR;
612: END IF;
613:
614: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
615: THEN
610: p_token_value => 'Rule') ;
611: raise FND_API.G_EXC_ERROR;
612: END IF;
613:
614: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
615: THEN
616: -- Debug message
617: IF (AMS_DEBUG_HIGH_ON) THEN
618:
621:
622: -- Invoke validation procedures
623: Validate_ps_rule(
624: p_api_version_number => 1.0,
625: p_init_msg_list => FND_API.G_FALSE,
626: p_validation_level => p_validation_level,
627: p_ps_rules_rec => p_ps_rules_rec,
628: x_return_status => x_return_status,
629: x_msg_count => x_msg_count,
629: x_msg_count => x_msg_count,
630: x_msg_data => x_msg_data);
631: END IF;
632:
633: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
634: RAISE FND_API.G_EXC_ERROR;
635: END IF;
636:
637:
630: x_msg_data => x_msg_data);
631: END IF;
632:
633: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
634: RAISE FND_API.G_EXC_ERROR;
635: END IF;
636:
637:
638: update_filters(p_ps_rules_rec.rulegroup_id, p_ps_filter_tbl, x_return_status);
636:
637:
638: update_filters(p_ps_rules_rec.rulegroup_id, p_ps_filter_tbl, x_return_status);
639:
640: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
641: RAISE FND_API.G_EXC_ERROR;
642: END IF;
643:
644: update_strategy_params(p_ps_rules_rec.rulegroup_id, p_ps_strategy_tbl, x_return_status);
637:
638: update_filters(p_ps_rules_rec.rulegroup_id, p_ps_filter_tbl, x_return_status);
639:
640: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
641: RAISE FND_API.G_EXC_ERROR;
642: END IF;
643:
644: update_strategy_params(p_ps_rules_rec.rulegroup_id, p_ps_strategy_tbl, x_return_status);
645:
642: END IF;
643:
644: update_strategy_params(p_ps_rules_rec.rulegroup_id, p_ps_strategy_tbl, x_return_status);
645:
646: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
647: RAISE FND_API.G_EXC_ERROR;
648: END IF;
649:
650: -- Debug Message
643:
644: update_strategy_params(p_ps_rules_rec.rulegroup_id, p_ps_strategy_tbl, x_return_status);
645:
646: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
647: RAISE FND_API.G_EXC_ERROR;
648: END IF;
649:
650: -- Debug Message
651: IF (AMS_DEBUG_HIGH_ON) THEN
658: last_updated_by = FND_GLOBAL.user_id,
659: last_update_date = SYSDATE,
660: last_update_login = FND_GLOBAL.conc_login_id,
661: object_version_number = p_ps_rules_rec.object_version_number+1,
662: exec_priority = DECODE(p_ps_rules_rec.exec_priority,FND_API.g_miss_num,exec_priority,p_ps_rules_rec.exec_priority),--added this line to update priority of a rule also:anchaudh 2003/01/27.
663: strategy_id = DECODE( p_ps_rules_rec.strategy_id, FND_API.g_miss_num,strategy_id, p_ps_rules_rec.strategy_id),
664: bus_priority_code = DECODE( p_ps_rules_rec.bus_priority_code, FND_API.g_miss_char, bus_priority_code, p_ps_rules_rec.bus_priority_code),
665: bus_priority_disp_order = DECODE( p_ps_rules_rec.bus_priority_disp_order, FND_API.g_miss_char, bus_priority_disp_order, p_ps_rules_rec.bus_priority_disp_order),
666: clausevalue1 = DECODE( p_ps_rules_rec.clausevalue1, FND_API.g_miss_char, clausevalue1, p_ps_rules_rec.clausevalue1),
659: last_update_date = SYSDATE,
660: last_update_login = FND_GLOBAL.conc_login_id,
661: object_version_number = p_ps_rules_rec.object_version_number+1,
662: exec_priority = DECODE(p_ps_rules_rec.exec_priority,FND_API.g_miss_num,exec_priority,p_ps_rules_rec.exec_priority),--added this line to update priority of a rule also:anchaudh 2003/01/27.
663: strategy_id = DECODE( p_ps_rules_rec.strategy_id, FND_API.g_miss_num,strategy_id, p_ps_rules_rec.strategy_id),
664: bus_priority_code = DECODE( p_ps_rules_rec.bus_priority_code, FND_API.g_miss_char, bus_priority_code, p_ps_rules_rec.bus_priority_code),
665: bus_priority_disp_order = DECODE( p_ps_rules_rec.bus_priority_disp_order, FND_API.g_miss_char, bus_priority_disp_order, p_ps_rules_rec.bus_priority_disp_order),
666: clausevalue1 = DECODE( p_ps_rules_rec.clausevalue1, FND_API.g_miss_char, clausevalue1, p_ps_rules_rec.clausevalue1),
667: clausevalue2 = DECODE( p_ps_rules_rec.clausevalue2, FND_API.g_miss_num, clausevalue2, p_ps_rules_rec.clausevalue2),
660: last_update_login = FND_GLOBAL.conc_login_id,
661: object_version_number = p_ps_rules_rec.object_version_number+1,
662: exec_priority = DECODE(p_ps_rules_rec.exec_priority,FND_API.g_miss_num,exec_priority,p_ps_rules_rec.exec_priority),--added this line to update priority of a rule also:anchaudh 2003/01/27.
663: strategy_id = DECODE( p_ps_rules_rec.strategy_id, FND_API.g_miss_num,strategy_id, p_ps_rules_rec.strategy_id),
664: bus_priority_code = DECODE( p_ps_rules_rec.bus_priority_code, FND_API.g_miss_char, bus_priority_code, p_ps_rules_rec.bus_priority_code),
665: bus_priority_disp_order = DECODE( p_ps_rules_rec.bus_priority_disp_order, FND_API.g_miss_char, bus_priority_disp_order, p_ps_rules_rec.bus_priority_disp_order),
666: clausevalue1 = DECODE( p_ps_rules_rec.clausevalue1, FND_API.g_miss_char, clausevalue1, p_ps_rules_rec.clausevalue1),
667: clausevalue2 = DECODE( p_ps_rules_rec.clausevalue2, FND_API.g_miss_num, clausevalue2, p_ps_rules_rec.clausevalue2),
668: clausevalue3 = DECODE( p_ps_rules_rec.clausevalue3, FND_API.g_miss_char, clausevalue3, p_ps_rules_rec.clausevalue3),
661: object_version_number = p_ps_rules_rec.object_version_number+1,
662: exec_priority = DECODE(p_ps_rules_rec.exec_priority,FND_API.g_miss_num,exec_priority,p_ps_rules_rec.exec_priority),--added this line to update priority of a rule also:anchaudh 2003/01/27.
663: strategy_id = DECODE( p_ps_rules_rec.strategy_id, FND_API.g_miss_num,strategy_id, p_ps_rules_rec.strategy_id),
664: bus_priority_code = DECODE( p_ps_rules_rec.bus_priority_code, FND_API.g_miss_char, bus_priority_code, p_ps_rules_rec.bus_priority_code),
665: bus_priority_disp_order = DECODE( p_ps_rules_rec.bus_priority_disp_order, FND_API.g_miss_char, bus_priority_disp_order, p_ps_rules_rec.bus_priority_disp_order),
666: clausevalue1 = DECODE( p_ps_rules_rec.clausevalue1, FND_API.g_miss_char, clausevalue1, p_ps_rules_rec.clausevalue1),
667: clausevalue2 = DECODE( p_ps_rules_rec.clausevalue2, FND_API.g_miss_num, clausevalue2, p_ps_rules_rec.clausevalue2),
668: clausevalue3 = DECODE( p_ps_rules_rec.clausevalue3, FND_API.g_miss_char, clausevalue3, p_ps_rules_rec.clausevalue3),
669: clausevalue4 = DECODE( p_ps_rules_rec.clausevalue4, FND_API.g_miss_char, clausevalue4, p_ps_rules_rec.clausevalue4),
662: exec_priority = DECODE(p_ps_rules_rec.exec_priority,FND_API.g_miss_num,exec_priority,p_ps_rules_rec.exec_priority),--added this line to update priority of a rule also:anchaudh 2003/01/27.
663: strategy_id = DECODE( p_ps_rules_rec.strategy_id, FND_API.g_miss_num,strategy_id, p_ps_rules_rec.strategy_id),
664: bus_priority_code = DECODE( p_ps_rules_rec.bus_priority_code, FND_API.g_miss_char, bus_priority_code, p_ps_rules_rec.bus_priority_code),
665: bus_priority_disp_order = DECODE( p_ps_rules_rec.bus_priority_disp_order, FND_API.g_miss_char, bus_priority_disp_order, p_ps_rules_rec.bus_priority_disp_order),
666: clausevalue1 = DECODE( p_ps_rules_rec.clausevalue1, FND_API.g_miss_char, clausevalue1, p_ps_rules_rec.clausevalue1),
667: clausevalue2 = DECODE( p_ps_rules_rec.clausevalue2, FND_API.g_miss_num, clausevalue2, p_ps_rules_rec.clausevalue2),
668: clausevalue3 = DECODE( p_ps_rules_rec.clausevalue3, FND_API.g_miss_char, clausevalue3, p_ps_rules_rec.clausevalue3),
669: clausevalue4 = DECODE( p_ps_rules_rec.clausevalue4, FND_API.g_miss_char, clausevalue4, p_ps_rules_rec.clausevalue4),
670: clausevalue5 = DECODE( p_ps_rules_rec.clausevalue5, FND_API.g_miss_num, clausevalue5, p_ps_rules_rec.clausevalue5),
663: strategy_id = DECODE( p_ps_rules_rec.strategy_id, FND_API.g_miss_num,strategy_id, p_ps_rules_rec.strategy_id),
664: bus_priority_code = DECODE( p_ps_rules_rec.bus_priority_code, FND_API.g_miss_char, bus_priority_code, p_ps_rules_rec.bus_priority_code),
665: bus_priority_disp_order = DECODE( p_ps_rules_rec.bus_priority_disp_order, FND_API.g_miss_char, bus_priority_disp_order, p_ps_rules_rec.bus_priority_disp_order),
666: clausevalue1 = DECODE( p_ps_rules_rec.clausevalue1, FND_API.g_miss_char, clausevalue1, p_ps_rules_rec.clausevalue1),
667: clausevalue2 = DECODE( p_ps_rules_rec.clausevalue2, FND_API.g_miss_num, clausevalue2, p_ps_rules_rec.clausevalue2),
668: clausevalue3 = DECODE( p_ps_rules_rec.clausevalue3, FND_API.g_miss_char, clausevalue3, p_ps_rules_rec.clausevalue3),
669: clausevalue4 = DECODE( p_ps_rules_rec.clausevalue4, FND_API.g_miss_char, clausevalue4, p_ps_rules_rec.clausevalue4),
670: clausevalue5 = DECODE( p_ps_rules_rec.clausevalue5, FND_API.g_miss_num, clausevalue5, p_ps_rules_rec.clausevalue5),
671: clausevalue6 = DECODE( p_ps_rules_rec.clausevalue6, FND_API.g_miss_char, clausevalue6, p_ps_rules_rec.clausevalue6),
664: bus_priority_code = DECODE( p_ps_rules_rec.bus_priority_code, FND_API.g_miss_char, bus_priority_code, p_ps_rules_rec.bus_priority_code),
665: bus_priority_disp_order = DECODE( p_ps_rules_rec.bus_priority_disp_order, FND_API.g_miss_char, bus_priority_disp_order, p_ps_rules_rec.bus_priority_disp_order),
666: clausevalue1 = DECODE( p_ps_rules_rec.clausevalue1, FND_API.g_miss_char, clausevalue1, p_ps_rules_rec.clausevalue1),
667: clausevalue2 = DECODE( p_ps_rules_rec.clausevalue2, FND_API.g_miss_num, clausevalue2, p_ps_rules_rec.clausevalue2),
668: clausevalue3 = DECODE( p_ps_rules_rec.clausevalue3, FND_API.g_miss_char, clausevalue3, p_ps_rules_rec.clausevalue3),
669: clausevalue4 = DECODE( p_ps_rules_rec.clausevalue4, FND_API.g_miss_char, clausevalue4, p_ps_rules_rec.clausevalue4),
670: clausevalue5 = DECODE( p_ps_rules_rec.clausevalue5, FND_API.g_miss_num, clausevalue5, p_ps_rules_rec.clausevalue5),
671: clausevalue6 = DECODE( p_ps_rules_rec.clausevalue6, FND_API.g_miss_char, clausevalue6, p_ps_rules_rec.clausevalue6),
672: clausevalue7 = DECODE( p_ps_rules_rec.clausevalue7, FND_API.g_miss_char, clausevalue7, p_ps_rules_rec.clausevalue7),
665: bus_priority_disp_order = DECODE( p_ps_rules_rec.bus_priority_disp_order, FND_API.g_miss_char, bus_priority_disp_order, p_ps_rules_rec.bus_priority_disp_order),
666: clausevalue1 = DECODE( p_ps_rules_rec.clausevalue1, FND_API.g_miss_char, clausevalue1, p_ps_rules_rec.clausevalue1),
667: clausevalue2 = DECODE( p_ps_rules_rec.clausevalue2, FND_API.g_miss_num, clausevalue2, p_ps_rules_rec.clausevalue2),
668: clausevalue3 = DECODE( p_ps_rules_rec.clausevalue3, FND_API.g_miss_char, clausevalue3, p_ps_rules_rec.clausevalue3),
669: clausevalue4 = DECODE( p_ps_rules_rec.clausevalue4, FND_API.g_miss_char, clausevalue4, p_ps_rules_rec.clausevalue4),
670: clausevalue5 = DECODE( p_ps_rules_rec.clausevalue5, FND_API.g_miss_num, clausevalue5, p_ps_rules_rec.clausevalue5),
671: clausevalue6 = DECODE( p_ps_rules_rec.clausevalue6, FND_API.g_miss_char, clausevalue6, p_ps_rules_rec.clausevalue6),
672: clausevalue7 = DECODE( p_ps_rules_rec.clausevalue7, FND_API.g_miss_char, clausevalue7, p_ps_rules_rec.clausevalue7),
673: clausevalue8 = DECODE( p_ps_rules_rec.clausevalue8, FND_API.g_miss_char, clausevalue8, p_ps_rules_rec.clausevalue8),
666: clausevalue1 = DECODE( p_ps_rules_rec.clausevalue1, FND_API.g_miss_char, clausevalue1, p_ps_rules_rec.clausevalue1),
667: clausevalue2 = DECODE( p_ps_rules_rec.clausevalue2, FND_API.g_miss_num, clausevalue2, p_ps_rules_rec.clausevalue2),
668: clausevalue3 = DECODE( p_ps_rules_rec.clausevalue3, FND_API.g_miss_char, clausevalue3, p_ps_rules_rec.clausevalue3),
669: clausevalue4 = DECODE( p_ps_rules_rec.clausevalue4, FND_API.g_miss_char, clausevalue4, p_ps_rules_rec.clausevalue4),
670: clausevalue5 = DECODE( p_ps_rules_rec.clausevalue5, FND_API.g_miss_num, clausevalue5, p_ps_rules_rec.clausevalue5),
671: clausevalue6 = DECODE( p_ps_rules_rec.clausevalue6, FND_API.g_miss_char, clausevalue6, p_ps_rules_rec.clausevalue6),
672: clausevalue7 = DECODE( p_ps_rules_rec.clausevalue7, FND_API.g_miss_char, clausevalue7, p_ps_rules_rec.clausevalue7),
673: clausevalue8 = DECODE( p_ps_rules_rec.clausevalue8, FND_API.g_miss_char, clausevalue8, p_ps_rules_rec.clausevalue8),
674: clausevalue9 = DECODE( p_ps_rules_rec.clausevalue9, FND_API.g_miss_char, clausevalue9, p_ps_rules_rec.clausevalue9),
667: clausevalue2 = DECODE( p_ps_rules_rec.clausevalue2, FND_API.g_miss_num, clausevalue2, p_ps_rules_rec.clausevalue2),
668: clausevalue3 = DECODE( p_ps_rules_rec.clausevalue3, FND_API.g_miss_char, clausevalue3, p_ps_rules_rec.clausevalue3),
669: clausevalue4 = DECODE( p_ps_rules_rec.clausevalue4, FND_API.g_miss_char, clausevalue4, p_ps_rules_rec.clausevalue4),
670: clausevalue5 = DECODE( p_ps_rules_rec.clausevalue5, FND_API.g_miss_num, clausevalue5, p_ps_rules_rec.clausevalue5),
671: clausevalue6 = DECODE( p_ps_rules_rec.clausevalue6, FND_API.g_miss_char, clausevalue6, p_ps_rules_rec.clausevalue6),
672: clausevalue7 = DECODE( p_ps_rules_rec.clausevalue7, FND_API.g_miss_char, clausevalue7, p_ps_rules_rec.clausevalue7),
673: clausevalue8 = DECODE( p_ps_rules_rec.clausevalue8, FND_API.g_miss_char, clausevalue8, p_ps_rules_rec.clausevalue8),
674: clausevalue9 = DECODE( p_ps_rules_rec.clausevalue9, FND_API.g_miss_char, clausevalue9, p_ps_rules_rec.clausevalue9),
675: clausevalue10 = DECODE(p_ps_rules_rec.clausevalue10, FND_API.g_miss_char, clausevalue10, p_ps_rules_rec.clausevalue10),
668: clausevalue3 = DECODE( p_ps_rules_rec.clausevalue3, FND_API.g_miss_char, clausevalue3, p_ps_rules_rec.clausevalue3),
669: clausevalue4 = DECODE( p_ps_rules_rec.clausevalue4, FND_API.g_miss_char, clausevalue4, p_ps_rules_rec.clausevalue4),
670: clausevalue5 = DECODE( p_ps_rules_rec.clausevalue5, FND_API.g_miss_num, clausevalue5, p_ps_rules_rec.clausevalue5),
671: clausevalue6 = DECODE( p_ps_rules_rec.clausevalue6, FND_API.g_miss_char, clausevalue6, p_ps_rules_rec.clausevalue6),
672: clausevalue7 = DECODE( p_ps_rules_rec.clausevalue7, FND_API.g_miss_char, clausevalue7, p_ps_rules_rec.clausevalue7),
673: clausevalue8 = DECODE( p_ps_rules_rec.clausevalue8, FND_API.g_miss_char, clausevalue8, p_ps_rules_rec.clausevalue8),
674: clausevalue9 = DECODE( p_ps_rules_rec.clausevalue9, FND_API.g_miss_char, clausevalue9, p_ps_rules_rec.clausevalue9),
675: clausevalue10 = DECODE(p_ps_rules_rec.clausevalue10, FND_API.g_miss_char, clausevalue10, p_ps_rules_rec.clausevalue10),
676: use_clause6 = DECODE( p_ps_rules_rec.use_clause6, FND_API.g_miss_char, use_clause6, p_ps_rules_rec.use_clause6),
669: clausevalue4 = DECODE( p_ps_rules_rec.clausevalue4, FND_API.g_miss_char, clausevalue4, p_ps_rules_rec.clausevalue4),
670: clausevalue5 = DECODE( p_ps_rules_rec.clausevalue5, FND_API.g_miss_num, clausevalue5, p_ps_rules_rec.clausevalue5),
671: clausevalue6 = DECODE( p_ps_rules_rec.clausevalue6, FND_API.g_miss_char, clausevalue6, p_ps_rules_rec.clausevalue6),
672: clausevalue7 = DECODE( p_ps_rules_rec.clausevalue7, FND_API.g_miss_char, clausevalue7, p_ps_rules_rec.clausevalue7),
673: clausevalue8 = DECODE( p_ps_rules_rec.clausevalue8, FND_API.g_miss_char, clausevalue8, p_ps_rules_rec.clausevalue8),
674: clausevalue9 = DECODE( p_ps_rules_rec.clausevalue9, FND_API.g_miss_char, clausevalue9, p_ps_rules_rec.clausevalue9),
675: clausevalue10 = DECODE(p_ps_rules_rec.clausevalue10, FND_API.g_miss_char, clausevalue10, p_ps_rules_rec.clausevalue10),
676: use_clause6 = DECODE( p_ps_rules_rec.use_clause6, FND_API.g_miss_char, use_clause6, p_ps_rules_rec.use_clause6),
677: use_clause7 = DECODE( p_ps_rules_rec.use_clause7, FND_API.g_miss_char, use_clause7, p_ps_rules_rec.use_clause7),
670: clausevalue5 = DECODE( p_ps_rules_rec.clausevalue5, FND_API.g_miss_num, clausevalue5, p_ps_rules_rec.clausevalue5),
671: clausevalue6 = DECODE( p_ps_rules_rec.clausevalue6, FND_API.g_miss_char, clausevalue6, p_ps_rules_rec.clausevalue6),
672: clausevalue7 = DECODE( p_ps_rules_rec.clausevalue7, FND_API.g_miss_char, clausevalue7, p_ps_rules_rec.clausevalue7),
673: clausevalue8 = DECODE( p_ps_rules_rec.clausevalue8, FND_API.g_miss_char, clausevalue8, p_ps_rules_rec.clausevalue8),
674: clausevalue9 = DECODE( p_ps_rules_rec.clausevalue9, FND_API.g_miss_char, clausevalue9, p_ps_rules_rec.clausevalue9),
675: clausevalue10 = DECODE(p_ps_rules_rec.clausevalue10, FND_API.g_miss_char, clausevalue10, p_ps_rules_rec.clausevalue10),
676: use_clause6 = DECODE( p_ps_rules_rec.use_clause6, FND_API.g_miss_char, use_clause6, p_ps_rules_rec.use_clause6),
677: use_clause7 = DECODE( p_ps_rules_rec.use_clause7, FND_API.g_miss_char, use_clause7, p_ps_rules_rec.use_clause7),
678: use_clause8 = DECODE( p_ps_rules_rec.use_clause8, FND_API.g_miss_char, use_clause8, p_ps_rules_rec.use_clause8),
671: clausevalue6 = DECODE( p_ps_rules_rec.clausevalue6, FND_API.g_miss_char, clausevalue6, p_ps_rules_rec.clausevalue6),
672: clausevalue7 = DECODE( p_ps_rules_rec.clausevalue7, FND_API.g_miss_char, clausevalue7, p_ps_rules_rec.clausevalue7),
673: clausevalue8 = DECODE( p_ps_rules_rec.clausevalue8, FND_API.g_miss_char, clausevalue8, p_ps_rules_rec.clausevalue8),
674: clausevalue9 = DECODE( p_ps_rules_rec.clausevalue9, FND_API.g_miss_char, clausevalue9, p_ps_rules_rec.clausevalue9),
675: clausevalue10 = DECODE(p_ps_rules_rec.clausevalue10, FND_API.g_miss_char, clausevalue10, p_ps_rules_rec.clausevalue10),
676: use_clause6 = DECODE( p_ps_rules_rec.use_clause6, FND_API.g_miss_char, use_clause6, p_ps_rules_rec.use_clause6),
677: use_clause7 = DECODE( p_ps_rules_rec.use_clause7, FND_API.g_miss_char, use_clause7, p_ps_rules_rec.use_clause7),
678: use_clause8 = DECODE( p_ps_rules_rec.use_clause8, FND_API.g_miss_char, use_clause8, p_ps_rules_rec.use_clause8),
679: use_clause9 = DECODE( p_ps_rules_rec.use_clause9, FND_API.g_miss_char, use_clause9, p_ps_rules_rec.use_clause9),
672: clausevalue7 = DECODE( p_ps_rules_rec.clausevalue7, FND_API.g_miss_char, clausevalue7, p_ps_rules_rec.clausevalue7),
673: clausevalue8 = DECODE( p_ps_rules_rec.clausevalue8, FND_API.g_miss_char, clausevalue8, p_ps_rules_rec.clausevalue8),
674: clausevalue9 = DECODE( p_ps_rules_rec.clausevalue9, FND_API.g_miss_char, clausevalue9, p_ps_rules_rec.clausevalue9),
675: clausevalue10 = DECODE(p_ps_rules_rec.clausevalue10, FND_API.g_miss_char, clausevalue10, p_ps_rules_rec.clausevalue10),
676: use_clause6 = DECODE( p_ps_rules_rec.use_clause6, FND_API.g_miss_char, use_clause6, p_ps_rules_rec.use_clause6),
677: use_clause7 = DECODE( p_ps_rules_rec.use_clause7, FND_API.g_miss_char, use_clause7, p_ps_rules_rec.use_clause7),
678: use_clause8 = DECODE( p_ps_rules_rec.use_clause8, FND_API.g_miss_char, use_clause8, p_ps_rules_rec.use_clause8),
679: use_clause9 = DECODE( p_ps_rules_rec.use_clause9, FND_API.g_miss_char, use_clause9, p_ps_rules_rec.use_clause9),
680: use_clause10 = DECODE( p_ps_rules_rec.use_clause10, FND_API.g_miss_char, use_clause10, p_ps_rules_rec.use_clause10)
673: clausevalue8 = DECODE( p_ps_rules_rec.clausevalue8, FND_API.g_miss_char, clausevalue8, p_ps_rules_rec.clausevalue8),
674: clausevalue9 = DECODE( p_ps_rules_rec.clausevalue9, FND_API.g_miss_char, clausevalue9, p_ps_rules_rec.clausevalue9),
675: clausevalue10 = DECODE(p_ps_rules_rec.clausevalue10, FND_API.g_miss_char, clausevalue10, p_ps_rules_rec.clausevalue10),
676: use_clause6 = DECODE( p_ps_rules_rec.use_clause6, FND_API.g_miss_char, use_clause6, p_ps_rules_rec.use_clause6),
677: use_clause7 = DECODE( p_ps_rules_rec.use_clause7, FND_API.g_miss_char, use_clause7, p_ps_rules_rec.use_clause7),
678: use_clause8 = DECODE( p_ps_rules_rec.use_clause8, FND_API.g_miss_char, use_clause8, p_ps_rules_rec.use_clause8),
679: use_clause9 = DECODE( p_ps_rules_rec.use_clause9, FND_API.g_miss_char, use_clause9, p_ps_rules_rec.use_clause9),
680: use_clause10 = DECODE( p_ps_rules_rec.use_clause10, FND_API.g_miss_char, use_clause10, p_ps_rules_rec.use_clause10)
681:
674: clausevalue9 = DECODE( p_ps_rules_rec.clausevalue9, FND_API.g_miss_char, clausevalue9, p_ps_rules_rec.clausevalue9),
675: clausevalue10 = DECODE(p_ps_rules_rec.clausevalue10, FND_API.g_miss_char, clausevalue10, p_ps_rules_rec.clausevalue10),
676: use_clause6 = DECODE( p_ps_rules_rec.use_clause6, FND_API.g_miss_char, use_clause6, p_ps_rules_rec.use_clause6),
677: use_clause7 = DECODE( p_ps_rules_rec.use_clause7, FND_API.g_miss_char, use_clause7, p_ps_rules_rec.use_clause7),
678: use_clause8 = DECODE( p_ps_rules_rec.use_clause8, FND_API.g_miss_char, use_clause8, p_ps_rules_rec.use_clause8),
679: use_clause9 = DECODE( p_ps_rules_rec.use_clause9, FND_API.g_miss_char, use_clause9, p_ps_rules_rec.use_clause9),
680: use_clause10 = DECODE( p_ps_rules_rec.use_clause10, FND_API.g_miss_char, use_clause10, p_ps_rules_rec.use_clause10)
681:
682: WHERE RULEGROUP_ID = p_ps_rules_rec.RULEGROUP_ID;
675: clausevalue10 = DECODE(p_ps_rules_rec.clausevalue10, FND_API.g_miss_char, clausevalue10, p_ps_rules_rec.clausevalue10),
676: use_clause6 = DECODE( p_ps_rules_rec.use_clause6, FND_API.g_miss_char, use_clause6, p_ps_rules_rec.use_clause6),
677: use_clause7 = DECODE( p_ps_rules_rec.use_clause7, FND_API.g_miss_char, use_clause7, p_ps_rules_rec.use_clause7),
678: use_clause8 = DECODE( p_ps_rules_rec.use_clause8, FND_API.g_miss_char, use_clause8, p_ps_rules_rec.use_clause8),
679: use_clause9 = DECODE( p_ps_rules_rec.use_clause9, FND_API.g_miss_char, use_clause9, p_ps_rules_rec.use_clause9),
680: use_clause10 = DECODE( p_ps_rules_rec.use_clause10, FND_API.g_miss_char, use_clause10, p_ps_rules_rec.use_clause10)
681:
682: WHERE RULEGROUP_ID = p_ps_rules_rec.RULEGROUP_ID;
683:
676: use_clause6 = DECODE( p_ps_rules_rec.use_clause6, FND_API.g_miss_char, use_clause6, p_ps_rules_rec.use_clause6),
677: use_clause7 = DECODE( p_ps_rules_rec.use_clause7, FND_API.g_miss_char, use_clause7, p_ps_rules_rec.use_clause7),
678: use_clause8 = DECODE( p_ps_rules_rec.use_clause8, FND_API.g_miss_char, use_clause8, p_ps_rules_rec.use_clause8),
679: use_clause9 = DECODE( p_ps_rules_rec.use_clause9, FND_API.g_miss_char, use_clause9, p_ps_rules_rec.use_clause9),
680: use_clause10 = DECODE( p_ps_rules_rec.use_clause10, FND_API.g_miss_char, use_clause10, p_ps_rules_rec.use_clause10)
681:
682: WHERE RULEGROUP_ID = p_ps_rules_rec.RULEGROUP_ID;
683:
684: IF (SQL%NOTFOUND) THEN
681:
682: WHERE RULEGROUP_ID = p_ps_rules_rec.RULEGROUP_ID;
683:
684: IF (SQL%NOTFOUND) THEN
685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
686: END IF;
687:
688: --
689: -- End of API body.
689: -- End of API body.
690: --
691:
692: -- Standard check for p_commit
693: IF FND_API.to_Boolean( p_commit )
694: THEN
695: COMMIT WORK;
696: END IF;
697:
708: );
709: EXCEPTION
710:
711: WHEN AMS_Utility_PVT.resource_locked THEN
712: x_return_status := FND_API.g_ret_sts_error;
713: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
714:
715: WHEN FND_API.G_EXC_ERROR THEN
716: ROLLBACK TO UPDATE_Ps_Rule_PVT;
711: WHEN AMS_Utility_PVT.resource_locked THEN
712: x_return_status := FND_API.g_ret_sts_error;
713: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
714:
715: WHEN FND_API.G_EXC_ERROR THEN
716: ROLLBACK TO UPDATE_Ps_Rule_PVT;
717: x_return_status := FND_API.G_RET_STS_ERROR;
718: -- Standard call to get message count and if count=1, get the message
719: FND_MSG_PUB.Count_And_Get (
713: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
714:
715: WHEN FND_API.G_EXC_ERROR THEN
716: ROLLBACK TO UPDATE_Ps_Rule_PVT;
717: x_return_status := FND_API.G_RET_STS_ERROR;
718: -- Standard call to get message count and if count=1, get the message
719: FND_MSG_PUB.Count_And_Get (
720: p_encoded => FND_API.G_FALSE,
721: p_count => x_msg_count,
716: ROLLBACK TO UPDATE_Ps_Rule_PVT;
717: x_return_status := FND_API.G_RET_STS_ERROR;
718: -- Standard call to get message count and if count=1, get the message
719: FND_MSG_PUB.Count_And_Get (
720: p_encoded => FND_API.G_FALSE,
721: p_count => x_msg_count,
722: p_data => x_msg_data
723: );
724:
721: p_count => x_msg_count,
722: p_data => x_msg_data
723: );
724:
725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
726: ROLLBACK TO UPDATE_Ps_Rule_PVT;
727: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
728: -- Standard call to get message count and if count=1, get the message
729: FND_MSG_PUB.Count_And_Get (
723: );
724:
725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
726: ROLLBACK TO UPDATE_Ps_Rule_PVT;
727: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
728: -- Standard call to get message count and if count=1, get the message
729: FND_MSG_PUB.Count_And_Get (
730: p_encoded => FND_API.G_FALSE,
731: p_count => x_msg_count,
726: ROLLBACK TO UPDATE_Ps_Rule_PVT;
727: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
728: -- Standard call to get message count and if count=1, get the message
729: FND_MSG_PUB.Count_And_Get (
730: p_encoded => FND_API.G_FALSE,
731: p_count => x_msg_count,
732: p_data => x_msg_data
733: );
734:
733: );
734:
735: WHEN OTHERS THEN
736: ROLLBACK TO UPDATE_Ps_Rule_PVT;
737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
738: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
739: THEN
740: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
741: END IF;
740: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
741: END IF;
742: -- Standard call to get message count and if count=1, get the message
743: FND_MSG_PUB.Count_And_Get (
744: p_encoded => FND_API.G_FALSE,
745: p_count => x_msg_count,
746: p_data => x_msg_data
747: );
748:
758:
759:
760: PROCEDURE Update_Ps_Rule_Alt(
761: p_api_version_number IN NUMBER,
762: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
763: p_commit IN VARCHAR2 := FND_API.G_FALSE,
764: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
765:
766: x_return_status OUT NOCOPY VARCHAR2,
759:
760: PROCEDURE Update_Ps_Rule_Alt(
761: p_api_version_number IN NUMBER,
762: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
763: p_commit IN VARCHAR2 := FND_API.G_FALSE,
764: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
765:
766: x_return_status OUT NOCOPY VARCHAR2,
767: x_msg_count OUT NOCOPY NUMBER,
760: PROCEDURE Update_Ps_Rule_Alt(
761: p_api_version_number IN NUMBER,
762: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
763: p_commit IN VARCHAR2 := FND_API.G_FALSE,
764: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
765:
766: x_return_status OUT NOCOPY VARCHAR2,
767: x_msg_count OUT NOCOPY NUMBER,
768: x_msg_data OUT NOCOPY VARCHAR2,
829: -- Standard Start of API savepoint
830: SAVEPOINT UPDATE_Ps_Rule_PVT;
831:
832: -- Standard call to check for call compatibility.
833: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
834: p_api_version_number,
835: l_api_name,
836: G_PKG_NAME)
837: THEN
834: p_api_version_number,
835: l_api_name,
836: G_PKG_NAME)
837: THEN
838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
839: END IF;
840:
841: -- Initialize message list if p_init_msg_list is set to TRUE.
842: IF FND_API.to_Boolean( p_init_msg_list )
838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
839: END IF;
840:
841: -- Initialize message list if p_init_msg_list is set to TRUE.
842: IF FND_API.to_Boolean( p_init_msg_list )
843: THEN
844: FND_MSG_PUB.initialize;
845: END IF;
846:
850: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
851: END IF;
852:
853: -- Initialize API return status to SUCCESS
854: x_return_status := FND_API.G_RET_STS_SUCCESS;
855:
856: IF p_vistype_change THEN
857: -- oe_debug_pub.add('Vistor type change condition');
858:
1036:
1037:
1038: PROCEDURE Delete_Ps_Rule(
1039: p_api_version_number IN NUMBER,
1040: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1041: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1042: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1043: x_return_status OUT NOCOPY VARCHAR2,
1044: x_msg_count OUT NOCOPY NUMBER,
1037:
1038: PROCEDURE Delete_Ps_Rule(
1039: p_api_version_number IN NUMBER,
1040: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1041: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1042: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1043: x_return_status OUT NOCOPY VARCHAR2,
1044: x_msg_count OUT NOCOPY NUMBER,
1045: x_msg_data OUT NOCOPY VARCHAR2,
1038: PROCEDURE Delete_Ps_Rule(
1039: p_api_version_number IN NUMBER,
1040: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1041: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1042: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1043: x_return_status OUT NOCOPY VARCHAR2,
1044: x_msg_count OUT NOCOPY NUMBER,
1045: x_msg_data OUT NOCOPY VARCHAR2,
1046: p_rule_id IN NUMBER,
1056: -- Standard Start of API savepoint
1057: SAVEPOINT DELETE_Ps_Rule_PVT;
1058:
1059: -- Standard call to check for call compatibility.
1060: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1061: p_api_version_number,
1062: l_api_name,
1063: G_PKG_NAME)
1064: THEN
1061: p_api_version_number,
1062: l_api_name,
1063: G_PKG_NAME)
1064: THEN
1065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1066: END IF;
1067:
1068: -- Initialize message list if p_init_msg_list is set to TRUE.
1069: IF FND_API.to_Boolean( p_init_msg_list )
1065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1066: END IF;
1067:
1068: -- Initialize message list if p_init_msg_list is set to TRUE.
1069: IF FND_API.to_Boolean( p_init_msg_list )
1070: THEN
1071: FND_MSG_PUB.initialize;
1072: END IF;
1073:
1077: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1078: END IF;
1079:
1080: -- Initialize API return status to SUCCESS
1081: x_return_status := FND_API.G_RET_STS_SUCCESS;
1082:
1083: --
1084: -- Api body
1085: --
1096: -- End of API body
1097: --
1098:
1099: -- Standard check for p_commit
1100: IF FND_API.to_Boolean( p_commit )
1101: THEN
1102: COMMIT WORK;
1103: END IF;
1104:
1115: );
1116: EXCEPTION
1117:
1118: WHEN AMS_Utility_PVT.resource_locked THEN
1119: x_return_status := FND_API.g_ret_sts_error;
1120: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1121:
1122: WHEN FND_API.G_EXC_ERROR THEN
1123: ROLLBACK TO DELETE_Ps_Rule_PVT;
1118: WHEN AMS_Utility_PVT.resource_locked THEN
1119: x_return_status := FND_API.g_ret_sts_error;
1120: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1121:
1122: WHEN FND_API.G_EXC_ERROR THEN
1123: ROLLBACK TO DELETE_Ps_Rule_PVT;
1124: x_return_status := FND_API.G_RET_STS_ERROR;
1125: -- Standard call to get message count and if count=1, get the message
1126: FND_MSG_PUB.Count_And_Get (
1120: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1121:
1122: WHEN FND_API.G_EXC_ERROR THEN
1123: ROLLBACK TO DELETE_Ps_Rule_PVT;
1124: x_return_status := FND_API.G_RET_STS_ERROR;
1125: -- Standard call to get message count and if count=1, get the message
1126: FND_MSG_PUB.Count_And_Get (
1127: p_encoded => FND_API.G_FALSE,
1128: p_count => x_msg_count,
1123: ROLLBACK TO DELETE_Ps_Rule_PVT;
1124: x_return_status := FND_API.G_RET_STS_ERROR;
1125: -- Standard call to get message count and if count=1, get the message
1126: FND_MSG_PUB.Count_And_Get (
1127: p_encoded => FND_API.G_FALSE,
1128: p_count => x_msg_count,
1129: p_data => x_msg_data
1130: );
1131:
1128: p_count => x_msg_count,
1129: p_data => x_msg_data
1130: );
1131:
1132: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1133: ROLLBACK TO DELETE_Ps_Rule_PVT;
1134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1135: -- Standard call to get message count and if count=1, get the message
1136: FND_MSG_PUB.Count_And_Get (
1130: );
1131:
1132: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1133: ROLLBACK TO DELETE_Ps_Rule_PVT;
1134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1135: -- Standard call to get message count and if count=1, get the message
1136: FND_MSG_PUB.Count_And_Get (
1137: p_encoded => FND_API.G_FALSE,
1138: p_count => x_msg_count,
1133: ROLLBACK TO DELETE_Ps_Rule_PVT;
1134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1135: -- Standard call to get message count and if count=1, get the message
1136: FND_MSG_PUB.Count_And_Get (
1137: p_encoded => FND_API.G_FALSE,
1138: p_count => x_msg_count,
1139: p_data => x_msg_data
1140: );
1141:
1140: );
1141:
1142: WHEN OTHERS THEN
1143: ROLLBACK TO DELETE_Ps_Rule_PVT;
1144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1145: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1146: THEN
1147: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1148: END IF;
1147: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1148: END IF;
1149: -- Standard call to get message count and if count=1, get the message
1150: FND_MSG_PUB.Count_And_Get (
1151: p_encoded => FND_API.G_FALSE,
1152: p_count => x_msg_count,
1153: p_data => x_msg_data
1154: );
1155: End Delete_Ps_Rule;
1155: End Delete_Ps_Rule;
1156:
1157: PROCEDURE Delete_Ps_Rule_Alt(
1158: p_api_version_number IN NUMBER,
1159: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1160: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1161: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1162: x_return_status OUT NOCOPY VARCHAR2,
1163: x_msg_count OUT NOCOPY NUMBER,
1156:
1157: PROCEDURE Delete_Ps_Rule_Alt(
1158: p_api_version_number IN NUMBER,
1159: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1160: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1161: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1162: x_return_status OUT NOCOPY VARCHAR2,
1163: x_msg_count OUT NOCOPY NUMBER,
1164: x_msg_data OUT NOCOPY VARCHAR2,
1157: PROCEDURE Delete_Ps_Rule_Alt(
1158: p_api_version_number IN NUMBER,
1159: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1160: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1161: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1162: x_return_status OUT NOCOPY VARCHAR2,
1163: x_msg_count OUT NOCOPY NUMBER,
1164: x_msg_data OUT NOCOPY VARCHAR2,
1165: p_ps_rules_rec IN ps_rules_rec_type,
1175: -- Standard Start of API savepoint
1176: SAVEPOINT DELETE_Ps_Rule_PVT;
1177:
1178: -- Standard call to check for call compatibility.
1179: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1180: p_api_version_number,
1181: l_api_name,
1182: G_PKG_NAME)
1183: THEN
1180: p_api_version_number,
1181: l_api_name,
1182: G_PKG_NAME)
1183: THEN
1184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1185: END IF;
1186:
1187: -- Initialize message list if p_init_msg_list is set to TRUE.
1188: IF FND_API.to_Boolean( p_init_msg_list )
1184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1185: END IF;
1186:
1187: -- Initialize message list if p_init_msg_list is set to TRUE.
1188: IF FND_API.to_Boolean( p_init_msg_list )
1189: THEN
1190: FND_MSG_PUB.initialize;
1191: END IF;
1192:
1196: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1197: END IF;
1198:
1199: -- Initialize API return status to SUCCESS
1200: x_return_status := FND_API.G_RET_STS_SUCCESS;
1201:
1202: --
1203: -- Api body
1204: --
1218: -- End of API body
1219: --
1220:
1221: -- Standard check for p_commit
1222: IF FND_API.to_Boolean( p_commit )
1223: THEN
1224: COMMIT WORK;
1225: END IF;
1226:
1237: );
1238: EXCEPTION
1239:
1240: WHEN AMS_Utility_PVT.resource_locked THEN
1241: x_return_status := FND_API.g_ret_sts_error;
1242: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1243:
1244: WHEN FND_API.G_EXC_ERROR THEN
1245: ROLLBACK TO DELETE_Ps_Rule_PVT;
1240: WHEN AMS_Utility_PVT.resource_locked THEN
1241: x_return_status := FND_API.g_ret_sts_error;
1242: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1243:
1244: WHEN FND_API.G_EXC_ERROR THEN
1245: ROLLBACK TO DELETE_Ps_Rule_PVT;
1246: x_return_status := FND_API.G_RET_STS_ERROR;
1247: -- Standard call to get message count and if count=1, get the message
1248: FND_MSG_PUB.Count_And_Get (
1242: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1243:
1244: WHEN FND_API.G_EXC_ERROR THEN
1245: ROLLBACK TO DELETE_Ps_Rule_PVT;
1246: x_return_status := FND_API.G_RET_STS_ERROR;
1247: -- Standard call to get message count and if count=1, get the message
1248: FND_MSG_PUB.Count_And_Get (
1249: p_encoded => FND_API.G_FALSE,
1250: p_count => x_msg_count,
1245: ROLLBACK TO DELETE_Ps_Rule_PVT;
1246: x_return_status := FND_API.G_RET_STS_ERROR;
1247: -- Standard call to get message count and if count=1, get the message
1248: FND_MSG_PUB.Count_And_Get (
1249: p_encoded => FND_API.G_FALSE,
1250: p_count => x_msg_count,
1251: p_data => x_msg_data
1252: );
1253:
1250: p_count => x_msg_count,
1251: p_data => x_msg_data
1252: );
1253:
1254: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1255: ROLLBACK TO DELETE_Ps_Rule_PVT;
1256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1257: -- Standard call to get message count and if count=1, get the message
1258: FND_MSG_PUB.Count_And_Get (
1252: );
1253:
1254: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1255: ROLLBACK TO DELETE_Ps_Rule_PVT;
1256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1257: -- Standard call to get message count and if count=1, get the message
1258: FND_MSG_PUB.Count_And_Get (
1259: p_encoded => FND_API.G_FALSE,
1260: p_count => x_msg_count,
1255: ROLLBACK TO DELETE_Ps_Rule_PVT;
1256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1257: -- Standard call to get message count and if count=1, get the message
1258: FND_MSG_PUB.Count_And_Get (
1259: p_encoded => FND_API.G_FALSE,
1260: p_count => x_msg_count,
1261: p_data => x_msg_data
1262: );
1263:
1262: );
1263:
1264: WHEN OTHERS THEN
1265: ROLLBACK TO DELETE_Ps_Rule_PVT;
1266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1267: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1268: THEN
1269: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1270: END IF;
1269: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1270: END IF;
1271: -- Standard call to get message count and if count=1, get the message
1272: FND_MSG_PUB.Count_And_Get (
1273: p_encoded => FND_API.G_FALSE,
1274: p_count => x_msg_count,
1275: p_data => x_msg_data
1276: );
1277: End Delete_Ps_Rule_Alt;
1278:
1279: -- Hint: Primary key needs to be returned.
1280: PROCEDURE Lock_Ps_Rule(
1281: p_api_version_number IN NUMBER,
1282: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1283:
1284: x_return_status OUT NOCOPY VARCHAR2,
1285: x_msg_count OUT NOCOPY NUMBER,
1286: x_msg_data OUT NOCOPY VARCHAR2,
1310: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1311: END IF;
1312:
1313: -- Initialize message list if p_init_msg_list is set to TRUE.
1314: IF FND_API.to_Boolean( p_init_msg_list )
1315: THEN
1316: FND_MSG_PUB.initialize;
1317: END IF;
1318:
1316: FND_MSG_PUB.initialize;
1317: END IF;
1318:
1319: -- Standard call to check for call compatibility.
1320: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1321: p_api_version_number,
1322: l_api_name,
1323: G_PKG_NAME)
1324: THEN
1321: p_api_version_number,
1322: l_api_name,
1323: G_PKG_NAME)
1324: THEN
1325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1326: END IF;
1327:
1328:
1329: -- Initialize API return status to SUCCESS
1326: END IF;
1327:
1328:
1329: -- Initialize API return status to SUCCESS
1330: x_return_status := FND_API.G_RET_STS_SUCCESS;
1331:
1332:
1333: ------------------------ lock -------------------------
1334:
1348: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1349: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1350: FND_MSG_PUB.add;
1351: END IF;
1352: RAISE FND_API.g_exc_error;
1353: END IF;
1354:
1355: CLOSE c_Ps_Rule;
1356:
1355: CLOSE c_Ps_Rule;
1356:
1357: -------------------- finish --------------------------
1358: FND_MSG_PUB.count_and_get(
1359: p_encoded => FND_API.g_false,
1360: p_count => x_msg_count,
1361: p_data => x_msg_data);
1362: IF (AMS_DEBUG_HIGH_ON) THEN
1363:
1365: END IF;
1366: EXCEPTION
1367:
1368: WHEN AMS_Utility_PVT.resource_locked THEN
1369: x_return_status := FND_API.g_ret_sts_error;
1370: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1371:
1372: WHEN FND_API.G_EXC_ERROR THEN
1373: ROLLBACK TO LOCK_Ps_Rule_PVT;
1368: WHEN AMS_Utility_PVT.resource_locked THEN
1369: x_return_status := FND_API.g_ret_sts_error;
1370: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1371:
1372: WHEN FND_API.G_EXC_ERROR THEN
1373: ROLLBACK TO LOCK_Ps_Rule_PVT;
1374: x_return_status := FND_API.G_RET_STS_ERROR;
1375: -- Standard call to get message count and if count=1, get the message
1376: FND_MSG_PUB.Count_And_Get (
1370: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1371:
1372: WHEN FND_API.G_EXC_ERROR THEN
1373: ROLLBACK TO LOCK_Ps_Rule_PVT;
1374: x_return_status := FND_API.G_RET_STS_ERROR;
1375: -- Standard call to get message count and if count=1, get the message
1376: FND_MSG_PUB.Count_And_Get (
1377: p_encoded => FND_API.G_FALSE,
1378: p_count => x_msg_count,
1373: ROLLBACK TO LOCK_Ps_Rule_PVT;
1374: x_return_status := FND_API.G_RET_STS_ERROR;
1375: -- Standard call to get message count and if count=1, get the message
1376: FND_MSG_PUB.Count_And_Get (
1377: p_encoded => FND_API.G_FALSE,
1378: p_count => x_msg_count,
1379: p_data => x_msg_data
1380: );
1381:
1378: p_count => x_msg_count,
1379: p_data => x_msg_data
1380: );
1381:
1382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1383: ROLLBACK TO LOCK_Ps_Rule_PVT;
1384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1385: -- Standard call to get message count and if count=1, get the message
1386: FND_MSG_PUB.Count_And_Get (
1380: );
1381:
1382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1383: ROLLBACK TO LOCK_Ps_Rule_PVT;
1384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1385: -- Standard call to get message count and if count=1, get the message
1386: FND_MSG_PUB.Count_And_Get (
1387: p_encoded => FND_API.G_FALSE,
1388: p_count => x_msg_count,
1383: ROLLBACK TO LOCK_Ps_Rule_PVT;
1384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1385: -- Standard call to get message count and if count=1, get the message
1386: FND_MSG_PUB.Count_And_Get (
1387: p_encoded => FND_API.G_FALSE,
1388: p_count => x_msg_count,
1389: p_data => x_msg_data
1390: );
1391:
1390: );
1391:
1392: WHEN OTHERS THEN
1393: ROLLBACK TO LOCK_Ps_Rule_PVT;
1394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1395: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1396: THEN
1397: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1398: END IF;
1397: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1398: END IF;
1399: -- Standard call to get message count and if count=1, get the message
1400: FND_MSG_PUB.Count_And_Get (
1401: p_encoded => FND_API.G_FALSE,
1402: p_count => x_msg_count,
1403: p_data => x_msg_data
1404: );
1405: End Lock_Ps_Rule;
1412: IS
1413: l_valid_flag VARCHAR2(1);
1414:
1415: BEGIN
1416: x_return_status := FND_API.g_ret_sts_success;
1417: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1418: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
1419: 'AMS_IBA_PS_RULES',
1420: 'RULE_ID = ''' || p_ps_rules_rec.RULE_ID ||''''
1426: ''' AND RULE_ID <> ' || p_ps_rules_rec.RULE_ID
1427: );
1428: END IF;
1429:
1430: IF l_valid_flag = FND_API.g_false THEN
1431: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_RULE_ID_DUPLICATE');
1432: x_return_status := FND_API.g_ret_sts_error;
1433: RETURN;
1434: END IF;
1428: END IF;
1429:
1430: IF l_valid_flag = FND_API.g_false THEN
1431: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_RULE_ID_DUPLICATE');
1432: x_return_status := FND_API.g_ret_sts_error;
1433: RETURN;
1434: END IF;
1435:
1436: END check_ps_rules_uk_items;
1441: x_return_status OUT NOCOPY VARCHAR2
1442: )
1443: IS
1444: BEGIN
1445: x_return_status := FND_API.g_ret_sts_success;
1446:
1447: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1448:
1449:
1446:
1447: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1448:
1449:
1450: IF p_ps_rules_rec.created_by = FND_API.g_miss_num OR p_ps_rules_rec.created_by IS NULL THEN
1451: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_created_by');
1452: x_return_status := FND_API.g_ret_sts_error;
1453: RETURN;
1454: END IF;
1448:
1449:
1450: IF p_ps_rules_rec.created_by = FND_API.g_miss_num OR p_ps_rules_rec.created_by IS NULL THEN
1451: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_created_by');
1452: x_return_status := FND_API.g_ret_sts_error;
1453: RETURN;
1454: END IF;
1455:
1456:
1453: RETURN;
1454: END IF;
1455:
1456:
1457: IF p_ps_rules_rec.creation_date = FND_API.g_miss_date OR p_ps_rules_rec.creation_date IS NULL THEN
1458: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_creation_date');
1459: x_return_status := FND_API.g_ret_sts_error;
1460: RETURN;
1461: END IF;
1455:
1456:
1457: IF p_ps_rules_rec.creation_date = FND_API.g_miss_date OR p_ps_rules_rec.creation_date IS NULL THEN
1458: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_creation_date');
1459: x_return_status := FND_API.g_ret_sts_error;
1460: RETURN;
1461: END IF;
1462:
1463:
1460: RETURN;
1461: END IF;
1462:
1463:
1464: IF p_ps_rules_rec.last_updated_by = FND_API.g_miss_num OR p_ps_rules_rec.last_updated_by IS NULL THEN
1465: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_last_updated_by');
1466: x_return_status := FND_API.g_ret_sts_error;
1467: RETURN;
1468: END IF;
1462:
1463:
1464: IF p_ps_rules_rec.last_updated_by = FND_API.g_miss_num OR p_ps_rules_rec.last_updated_by IS NULL THEN
1465: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_last_updated_by');
1466: x_return_status := FND_API.g_ret_sts_error;
1467: RETURN;
1468: END IF;
1469:
1470:
1467: RETURN;
1468: END IF;
1469:
1470:
1471: IF p_ps_rules_rec.last_update_date = FND_API.g_miss_date OR p_ps_rules_rec.last_update_date IS NULL THEN
1472: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_last_update_date');
1473: x_return_status := FND_API.g_ret_sts_error;
1474: RETURN;
1475: END IF;
1469:
1470:
1471: IF p_ps_rules_rec.last_update_date = FND_API.g_miss_date OR p_ps_rules_rec.last_update_date IS NULL THEN
1472: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_last_update_date');
1473: x_return_status := FND_API.g_ret_sts_error;
1474: RETURN;
1475: END IF;
1476:
1477:
1474: RETURN;
1475: END IF;
1476:
1477:
1478: IF p_ps_rules_rec.rule_id = FND_API.g_miss_num OR p_ps_rules_rec.rule_id IS NULL THEN
1479: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_rule_id');
1480: x_return_status := FND_API.g_ret_sts_error;
1481: RETURN;
1482: END IF;
1476:
1477:
1478: IF p_ps_rules_rec.rule_id = FND_API.g_miss_num OR p_ps_rules_rec.rule_id IS NULL THEN
1479: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_rule_id');
1480: x_return_status := FND_API.g_ret_sts_error;
1481: RETURN;
1482: END IF;
1483:
1484:
1481: RETURN;
1482: END IF;
1483:
1484:
1485: IF p_ps_rules_rec.rulegroup_id = FND_API.g_miss_num OR p_ps_rules_rec.rulegroup_id IS NULL THEN
1486: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_rulegroup_id');
1487: x_return_status := FND_API.g_ret_sts_error;
1488: RETURN;
1489: END IF;
1483:
1484:
1485: IF p_ps_rules_rec.rulegroup_id = FND_API.g_miss_num OR p_ps_rules_rec.rulegroup_id IS NULL THEN
1486: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_rulegroup_id');
1487: x_return_status := FND_API.g_ret_sts_error;
1488: RETURN;
1489: END IF;
1490:
1491:
1488: RETURN;
1489: END IF;
1490:
1491:
1492: IF p_ps_rules_rec.posting_id = FND_API.g_miss_num OR p_ps_rules_rec.posting_id IS NULL THEN
1493: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_posting_id');
1494: x_return_status := FND_API.g_ret_sts_error;
1495: RETURN;
1496: END IF;
1490:
1491:
1492: IF p_ps_rules_rec.posting_id = FND_API.g_miss_num OR p_ps_rules_rec.posting_id IS NULL THEN
1493: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_posting_id');
1494: x_return_status := FND_API.g_ret_sts_error;
1495: RETURN;
1496: END IF;
1497:
1498:
1495: RETURN;
1496: END IF;
1497:
1498:
1499: IF p_ps_rules_rec.strategy_id = FND_API.g_miss_num OR p_ps_rules_rec.strategy_id IS NULL THEN
1500: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_strategy_id');
1501: x_return_status := FND_API.g_ret_sts_error;
1502: RETURN;
1503: END IF;
1497:
1498:
1499: IF p_ps_rules_rec.strategy_id = FND_API.g_miss_num OR p_ps_rules_rec.strategy_id IS NULL THEN
1500: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_strategy_id');
1501: x_return_status := FND_API.g_ret_sts_error;
1502: RETURN;
1503: END IF;
1504: ELSE
1505:
1505:
1506:
1507: IF p_ps_rules_rec.created_by IS NULL THEN
1508: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_created_by');
1509: x_return_status := FND_API.g_ret_sts_error;
1510: RETURN;
1511: END IF;
1512:
1513:
1512:
1513:
1514: IF p_ps_rules_rec.creation_date IS NULL THEN
1515: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_creation_date');
1516: x_return_status := FND_API.g_ret_sts_error;
1517: RETURN;
1518: END IF;
1519:
1520:
1519:
1520:
1521: IF p_ps_rules_rec.last_updated_by IS NULL THEN
1522: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_last_updated_by');
1523: x_return_status := FND_API.g_ret_sts_error;
1524: RETURN;
1525: END IF;
1526:
1527:
1526:
1527:
1528: IF p_ps_rules_rec.last_update_date IS NULL THEN
1529: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_last_update_date');
1530: x_return_status := FND_API.g_ret_sts_error;
1531: RETURN;
1532: END IF;
1533:
1534:
1533:
1534:
1535: IF p_ps_rules_rec.rule_id IS NULL THEN
1536: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_rule_id');
1537: x_return_status := FND_API.g_ret_sts_error;
1538: RETURN;
1539: END IF;
1540:
1541:
1540:
1541:
1542: IF p_ps_rules_rec.rulegroup_id IS NULL THEN
1543: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_rulegroup_id');
1544: x_return_status := FND_API.g_ret_sts_error;
1545: RETURN;
1546: END IF;
1547:
1548:
1547:
1548:
1549: IF p_ps_rules_rec.posting_id IS NULL THEN
1550: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_posting_id');
1551: x_return_status := FND_API.g_ret_sts_error;
1552: RETURN;
1553: END IF;
1554:
1555:
1554:
1555:
1556: IF p_ps_rules_rec.strategy_id IS NULL THEN
1557: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_rules_NO_strategy_id');
1558: x_return_status := FND_API.g_ret_sts_error;
1559: RETURN;
1560: END IF;
1561: END IF;
1562:
1567: x_return_status OUT NOCOPY VARCHAR2
1568: )
1569: IS
1570: BEGIN
1571: x_return_status := FND_API.g_ret_sts_success;
1572:
1573: -- Enter custom code here
1574:
1575: END check_ps_rules_FK_items;
1579: x_return_status OUT NOCOPY VARCHAR2
1580: )
1581: IS
1582: BEGIN
1583: x_return_status := FND_API.g_ret_sts_success;
1584:
1585: -- Enter custom code here
1586:
1587: END check_ps_rules_Lookup_items;
1592: x_return_status OUT NOCOPY VARCHAR2
1593: )
1594: IS
1595: BEGIN
1596: x_return_status := FND_API.g_ret_sts_success;
1597:
1598: END Check_ps_rules_Items;
1599:
1600:
1620: FROM AMS_IBA_PS_RL_ST_FLTRS
1621: WHERE RULE_STRAT_FILTER_ID = l_id;
1622:
1623: BEGIN
1624: x_return_status := FND_API.g_ret_sts_success;
1625:
1626: --deletes existing filters
1627:
1628: IF (AMS_DEBUG_HIGH_ON) THEN
1693: SYSDATE,
1694: FND_GLOBAL.CONC_LOGIN_ID,
1695: 1,
1696: l_id,
1697: DECODE( p_rulegroup_id, FND_API.g_miss_num, NULL, p_rulegroup_id),
1698: DECODE( to_number(l_tuple.name), FND_API.g_miss_num, NULL, to_number(l_tuple.name)),
1699: DECODE( l_tuple.value, FND_API.g_miss_char, NULL, l_tuple.value));
1700:
1701: l_index := p_ps_filter_tbl.NEXT(l_index);
1694: FND_GLOBAL.CONC_LOGIN_ID,
1695: 1,
1696: l_id,
1697: DECODE( p_rulegroup_id, FND_API.g_miss_num, NULL, p_rulegroup_id),
1698: DECODE( to_number(l_tuple.name), FND_API.g_miss_num, NULL, to_number(l_tuple.name)),
1699: DECODE( l_tuple.value, FND_API.g_miss_char, NULL, l_tuple.value));
1700:
1701: l_index := p_ps_filter_tbl.NEXT(l_index);
1702: END LOOP;
1695: 1,
1696: l_id,
1697: DECODE( p_rulegroup_id, FND_API.g_miss_num, NULL, p_rulegroup_id),
1698: DECODE( to_number(l_tuple.name), FND_API.g_miss_num, NULL, to_number(l_tuple.name)),
1699: DECODE( l_tuple.value, FND_API.g_miss_char, NULL, l_tuple.value));
1700:
1701: l_index := p_ps_filter_tbl.NEXT(l_index);
1702: END LOOP;
1703:
1734: FROM AMS_IBA_PS_RL_ST_PARAMS
1735: WHERE RULE_STRAT_PARAM_ID = l_id;
1736:
1737: BEGIN
1738: x_return_status := FND_API.g_ret_sts_success;
1739:
1740: --deletes existing strategy params
1741:
1742: IF (AMS_DEBUG_HIGH_ON) THEN
1809: SYSDATE,
1810: FND_GLOBAL.CONC_LOGIN_ID,
1811: 1,
1812: l_id,
1813: DECODE( p_rulegroup_id, FND_API.g_miss_num, NULL, p_rulegroup_id),
1814: DECODE( l_tuple.name, FND_API.g_miss_char, NULL, l_tuple.name),
1815: DECODE( l_tuple.value, FND_API.g_miss_char, NULL, l_tuple.value));
1816: END IF;
1817:
1810: FND_GLOBAL.CONC_LOGIN_ID,
1811: 1,
1812: l_id,
1813: DECODE( p_rulegroup_id, FND_API.g_miss_num, NULL, p_rulegroup_id),
1814: DECODE( l_tuple.name, FND_API.g_miss_char, NULL, l_tuple.name),
1815: DECODE( l_tuple.value, FND_API.g_miss_char, NULL, l_tuple.value));
1816: END IF;
1817:
1818: l_index := p_ps_strategy_tbl.NEXT(l_index);
1811: 1,
1812: l_id,
1813: DECODE( p_rulegroup_id, FND_API.g_miss_num, NULL, p_rulegroup_id),
1814: DECODE( l_tuple.name, FND_API.g_miss_char, NULL, l_tuple.name),
1815: DECODE( l_tuple.value, FND_API.g_miss_char, NULL, l_tuple.value));
1816: END IF;
1817:
1818: l_index := p_ps_strategy_tbl.NEXT(l_index);
1819: END LOOP;
1848: FETCH c_complete INTO l_ps_rules_rec;
1849: CLOSE c_complete;
1850:
1851: -- created_by
1852: IF p_ps_rules_rec.created_by = FND_API.g_miss_num THEN
1853: x_complete_rec.created_by := l_ps_rules_rec.created_by;
1854: END IF;
1855:
1856: -- creation_date
1853: x_complete_rec.created_by := l_ps_rules_rec.created_by;
1854: END IF;
1855:
1856: -- creation_date
1857: IF p_ps_rules_rec.creation_date = FND_API.g_miss_date THEN
1858: x_complete_rec.creation_date := l_ps_rules_rec.creation_date;
1859: END IF;
1860:
1861: -- last_updated_by
1858: x_complete_rec.creation_date := l_ps_rules_rec.creation_date;
1859: END IF;
1860:
1861: -- last_updated_by
1862: IF p_ps_rules_rec.last_updated_by = FND_API.g_miss_num THEN
1863: x_complete_rec.last_updated_by := l_ps_rules_rec.last_updated_by;
1864: END IF;
1865:
1866: -- last_update_date
1863: x_complete_rec.last_updated_by := l_ps_rules_rec.last_updated_by;
1864: END IF;
1865:
1866: -- last_update_date
1867: IF p_ps_rules_rec.last_update_date = FND_API.g_miss_date THEN
1868: x_complete_rec.last_update_date := l_ps_rules_rec.last_update_date;
1869: END IF;
1870:
1871: -- last_update_login
1868: x_complete_rec.last_update_date := l_ps_rules_rec.last_update_date;
1869: END IF;
1870:
1871: -- last_update_login
1872: IF p_ps_rules_rec.last_update_login = FND_API.g_miss_num THEN
1873: x_complete_rec.last_update_login := l_ps_rules_rec.last_update_login;
1874: END IF;
1875:
1876: -- object_version_number
1873: x_complete_rec.last_update_login := l_ps_rules_rec.last_update_login;
1874: END IF;
1875:
1876: -- object_version_number
1877: IF p_ps_rules_rec.object_version_number = FND_API.g_miss_num THEN
1878: x_complete_rec.object_version_number := l_ps_rules_rec.object_version_number;
1879: END IF;
1880:
1881: -- rule_id
1878: x_complete_rec.object_version_number := l_ps_rules_rec.object_version_number;
1879: END IF;
1880:
1881: -- rule_id
1882: IF p_ps_rules_rec.rule_id = FND_API.g_miss_num THEN
1883: x_complete_rec.rule_id := l_ps_rules_rec.rule_id;
1884: END IF;
1885:
1886: -- rulegroup_id
1883: x_complete_rec.rule_id := l_ps_rules_rec.rule_id;
1884: END IF;
1885:
1886: -- rulegroup_id
1887: IF p_ps_rules_rec.rulegroup_id = FND_API.g_miss_num THEN
1888: x_complete_rec.rulegroup_id := l_ps_rules_rec.rulegroup_id;
1889: END IF;
1890:
1891: -- posting_id
1888: x_complete_rec.rulegroup_id := l_ps_rules_rec.rulegroup_id;
1889: END IF;
1890:
1891: -- posting_id
1892: IF p_ps_rules_rec.posting_id = FND_API.g_miss_num THEN
1893: x_complete_rec.posting_id := l_ps_rules_rec.posting_id;
1894: END IF;
1895:
1896: -- strategy_id
1893: x_complete_rec.posting_id := l_ps_rules_rec.posting_id;
1894: END IF;
1895:
1896: -- strategy_id
1897: IF p_ps_rules_rec.strategy_id = FND_API.g_miss_num THEN
1898: x_complete_rec.strategy_id := l_ps_rules_rec.strategy_id;
1899: END IF;
1900:
1901: -- bus_priority_code
1898: x_complete_rec.strategy_id := l_ps_rules_rec.strategy_id;
1899: END IF;
1900:
1901: -- bus_priority_code
1902: IF p_ps_rules_rec.bus_priority_code = FND_API.g_miss_char THEN
1903: x_complete_rec.bus_priority_code := l_ps_rules_rec.bus_priority_code;
1904: END IF;
1905:
1906: -- bus_priority_disp_order
1903: x_complete_rec.bus_priority_code := l_ps_rules_rec.bus_priority_code;
1904: END IF;
1905:
1906: -- bus_priority_disp_order
1907: IF p_ps_rules_rec.bus_priority_disp_order = FND_API.g_miss_char THEN
1908: x_complete_rec.bus_priority_disp_order := l_ps_rules_rec.bus_priority_disp_order;
1909: END IF;
1910:
1911: -- clausevalue1
1908: x_complete_rec.bus_priority_disp_order := l_ps_rules_rec.bus_priority_disp_order;
1909: END IF;
1910:
1911: -- clausevalue1
1912: IF p_ps_rules_rec.clausevalue1 = FND_API.g_miss_char THEN
1913: x_complete_rec.clausevalue1 := l_ps_rules_rec.clausevalue1;
1914: END IF;
1915:
1916: -- clausevalue2
1913: x_complete_rec.clausevalue1 := l_ps_rules_rec.clausevalue1;
1914: END IF;
1915:
1916: -- clausevalue2
1917: IF p_ps_rules_rec.clausevalue2 = FND_API.g_miss_num THEN
1918: x_complete_rec.clausevalue2 := l_ps_rules_rec.clausevalue2;
1919: END IF;
1920:
1921: -- clausevalue3
1918: x_complete_rec.clausevalue2 := l_ps_rules_rec.clausevalue2;
1919: END IF;
1920:
1921: -- clausevalue3
1922: IF p_ps_rules_rec.clausevalue3 = FND_API.g_miss_char THEN
1923: x_complete_rec.clausevalue3 := l_ps_rules_rec.clausevalue3;
1924: END IF;
1925:
1926: -- clausevalue4
1923: x_complete_rec.clausevalue3 := l_ps_rules_rec.clausevalue3;
1924: END IF;
1925:
1926: -- clausevalue4
1927: IF p_ps_rules_rec.clausevalue4 = FND_API.g_miss_char THEN
1928: x_complete_rec.clausevalue4 := l_ps_rules_rec.clausevalue4;
1929: END IF;
1930:
1931: -- clausevalue5
1928: x_complete_rec.clausevalue4 := l_ps_rules_rec.clausevalue4;
1929: END IF;
1930:
1931: -- clausevalue5
1932: IF p_ps_rules_rec.clausevalue5 = FND_API.g_miss_num THEN
1933: x_complete_rec.clausevalue5 := l_ps_rules_rec.clausevalue5;
1934: END IF;
1935:
1936: -- clausevalue6
1933: x_complete_rec.clausevalue5 := l_ps_rules_rec.clausevalue5;
1934: END IF;
1935:
1936: -- clausevalue6
1937: IF p_ps_rules_rec.clausevalue6 = FND_API.g_miss_char THEN
1938: x_complete_rec.clausevalue6 := l_ps_rules_rec.clausevalue6;
1939: END IF;
1940:
1941: -- clausevalue7
1938: x_complete_rec.clausevalue6 := l_ps_rules_rec.clausevalue6;
1939: END IF;
1940:
1941: -- clausevalue7
1942: IF p_ps_rules_rec.clausevalue7 = FND_API.g_miss_char THEN
1943: x_complete_rec.clausevalue7 := l_ps_rules_rec.clausevalue7;
1944: END IF;
1945:
1946: -- clausevalue8
1943: x_complete_rec.clausevalue7 := l_ps_rules_rec.clausevalue7;
1944: END IF;
1945:
1946: -- clausevalue8
1947: IF p_ps_rules_rec.clausevalue8 = FND_API.g_miss_char THEN
1948: x_complete_rec.clausevalue8 := l_ps_rules_rec.clausevalue8;
1949: END IF;
1950:
1951: -- clausevalue9
1948: x_complete_rec.clausevalue8 := l_ps_rules_rec.clausevalue8;
1949: END IF;
1950:
1951: -- clausevalue9
1952: IF p_ps_rules_rec.clausevalue9 = FND_API.g_miss_char THEN
1953: x_complete_rec.clausevalue9 := l_ps_rules_rec.clausevalue9;
1954: END IF;
1955:
1956: -- clausevalue10
1953: x_complete_rec.clausevalue9 := l_ps_rules_rec.clausevalue9;
1954: END IF;
1955:
1956: -- clausevalue10
1957: IF p_ps_rules_rec.clausevalue10 = FND_API.g_miss_char THEN
1958: x_complete_rec.clausevalue10 := l_ps_rules_rec.clausevalue10;
1959: END IF;
1960: -- Note: Developers need to modify the procedure
1961: -- to handle any business specific requirements.
1962: END Complete_ps_rules_Rec;
1963:
1964: PROCEDURE Validate_ps_rule(
1965: p_api_version_number IN NUMBER,
1966: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1967: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1968: p_ps_rules_rec IN ps_rules_rec_type,
1969: x_return_status OUT NOCOPY VARCHAR2,
1970: x_msg_count OUT NOCOPY NUMBER,
1963:
1964: PROCEDURE Validate_ps_rule(
1965: p_api_version_number IN NUMBER,
1966: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1967: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1968: p_ps_rules_rec IN ps_rules_rec_type,
1969: x_return_status OUT NOCOPY VARCHAR2,
1970: x_msg_count OUT NOCOPY NUMBER,
1971: x_msg_data OUT NOCOPY VARCHAR2
1980: -- Standard Start of API savepoint
1981: SAVEPOINT VALIDATE_Ps_Rule_;
1982:
1983: -- Standard call to check for call compatibility.
1984: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1985: p_api_version_number,
1986: l_api_name,
1987: G_PKG_NAME)
1988: THEN
1985: p_api_version_number,
1986: l_api_name,
1987: G_PKG_NAME)
1988: THEN
1989: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1990: END IF;
1991:
1992: -- Initialize message list if p_init_msg_list is set to TRUE.
1993: IF FND_API.to_Boolean( p_init_msg_list )
1989: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1990: END IF;
1991:
1992: -- Initialize message list if p_init_msg_list is set to TRUE.
1993: IF FND_API.to_Boolean( p_init_msg_list )
1994: THEN
1995: FND_MSG_PUB.initialize;
1996: END IF;
1997: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2000: p_validation_mode => JTF_PLSQL_API.g_update,
2001: x_return_status => x_return_status
2002: );
2003:
2004: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2005: RAISE FND_API.G_EXC_ERROR;
2006: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2008: END IF;
2001: x_return_status => x_return_status
2002: );
2003:
2004: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2005: RAISE FND_API.G_EXC_ERROR;
2006: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2008: END IF;
2009: END IF;
2002: );
2003:
2004: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2005: RAISE FND_API.G_EXC_ERROR;
2006: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2008: END IF;
2009: END IF;
2010:
2003:
2004: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2005: RAISE FND_API.G_EXC_ERROR;
2006: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2008: END IF;
2009: END IF;
2010:
2011: -- Debug Message
2014: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
2015: END IF;
2016:
2017: -- Initialize API return status to SUCCESS
2018: x_return_status := FND_API.G_RET_STS_SUCCESS;
2019:
2020: -- Debug Message
2021: IF (AMS_DEBUG_HIGH_ON) THEN
2022:
2030: );
2031: EXCEPTION
2032:
2033: WHEN AMS_Utility_PVT.resource_locked THEN
2034: x_return_status := FND_API.g_ret_sts_error;
2035: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2036:
2037: WHEN FND_API.G_EXC_ERROR THEN
2038: ROLLBACK TO VALIDATE_Ps_Rule_;
2033: WHEN AMS_Utility_PVT.resource_locked THEN
2034: x_return_status := FND_API.g_ret_sts_error;
2035: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2036:
2037: WHEN FND_API.G_EXC_ERROR THEN
2038: ROLLBACK TO VALIDATE_Ps_Rule_;
2039: x_return_status := FND_API.G_RET_STS_ERROR;
2040: -- Standard call to get message count and if count=1, get the message
2041: FND_MSG_PUB.Count_And_Get (
2035: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2036:
2037: WHEN FND_API.G_EXC_ERROR THEN
2038: ROLLBACK TO VALIDATE_Ps_Rule_;
2039: x_return_status := FND_API.G_RET_STS_ERROR;
2040: -- Standard call to get message count and if count=1, get the message
2041: FND_MSG_PUB.Count_And_Get (
2042: p_encoded => FND_API.G_FALSE,
2043: p_count => x_msg_count,
2038: ROLLBACK TO VALIDATE_Ps_Rule_;
2039: x_return_status := FND_API.G_RET_STS_ERROR;
2040: -- Standard call to get message count and if count=1, get the message
2041: FND_MSG_PUB.Count_And_Get (
2042: p_encoded => FND_API.G_FALSE,
2043: p_count => x_msg_count,
2044: p_data => x_msg_data
2045: );
2046:
2043: p_count => x_msg_count,
2044: p_data => x_msg_data
2045: );
2046:
2047: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2048: ROLLBACK TO VALIDATE_Ps_Rule_;
2049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2050: -- Standard call to get message count and if count=1, get the message
2051: FND_MSG_PUB.Count_And_Get (
2045: );
2046:
2047: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2048: ROLLBACK TO VALIDATE_Ps_Rule_;
2049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2050: -- Standard call to get message count and if count=1, get the message
2051: FND_MSG_PUB.Count_And_Get (
2052: p_encoded => FND_API.G_FALSE,
2053: p_count => x_msg_count,
2048: ROLLBACK TO VALIDATE_Ps_Rule_;
2049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2050: -- Standard call to get message count and if count=1, get the message
2051: FND_MSG_PUB.Count_And_Get (
2052: p_encoded => FND_API.G_FALSE,
2053: p_count => x_msg_count,
2054: p_data => x_msg_data
2055: );
2056:
2055: );
2056:
2057: WHEN OTHERS THEN
2058: ROLLBACK TO VALIDATE_Ps_Rule_;
2059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2060: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2061: THEN
2062: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2063: END IF;
2062: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2063: END IF;
2064: -- Standard call to get message count and if count=1, get the message
2065: FND_MSG_PUB.Count_And_Get (
2066: p_encoded => FND_API.G_FALSE,
2067: p_count => x_msg_count,
2068: p_data => x_msg_data
2069: );
2070: End Validate_Ps_Rule;
2071:
2072:
2073: PROCEDURE Validate_ps_rules_rec(
2074: p_api_version_number IN NUMBER,
2075: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2076: x_return_status OUT NOCOPY VARCHAR2,
2077: x_msg_count OUT NOCOPY NUMBER,
2078: x_msg_data OUT NOCOPY VARCHAR2,
2079: p_ps_rules_rec IN ps_rules_rec_type
2080: )
2081: IS
2082: BEGIN
2083: -- Initialize message list if p_init_msg_list is set to TRUE.
2084: IF FND_API.to_Boolean( p_init_msg_list )
2085: THEN
2086: FND_MSG_PUB.initialize;
2087: END IF;
2088:
2086: FND_MSG_PUB.initialize;
2087: END IF;
2088:
2089: -- Initialize API return status to SUCCESS
2090: x_return_status := FND_API.G_RET_STS_SUCCESS;
2091:
2092: -- Hint: Validate data
2093: -- If data not valid
2094: -- THEN
2091:
2092: -- Hint: Validate data
2093: -- If data not valid
2094: -- THEN
2095: -- x_return_status := FND_API.G_RET_STS_ERROR;
2096:
2097: -- Debug Message
2098: IF (AMS_DEBUG_HIGH_ON) THEN
2099: