[Home] [Help]
9:
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AML_MONITOR_CONDITIONS_PVT';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amlvlmcb.pls';
13: AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
14:
15: -- ********************************************************
16: -- PROCEDURE : Create_Monitor_Condition
17: --
51:
52: -- Initialize message list if p_init_msg_list is set to TRUE.
53: IF FND_API.to_Boolean( p_init_msg_list )
54: THEN
55: FND_MSG_PUB.initialize;
56: END IF;
57:
58: -- Debug Message
59: IF (AS_DEBUG_LOW_ON) THEN
56: END IF;
57:
58: -- Debug Message
59: IF (AS_DEBUG_LOW_ON) THEN
60: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
61: END IF;
62:
63:
64: -- Initialize API return status to SUCCESS
71: -- Validate Environment
72: -- ******************************************************************
73: IF FND_GLOBAL.User_Id IS NULL
74: THEN
75: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
76: THEN
77: FND_MESSAGE.Set_Name('AMS', 'UT_CANNOT_GET_PROFILE_VALUE');
78: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
79: FND_MSG_PUB.ADD;
75: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
76: THEN
77: FND_MESSAGE.Set_Name('AMS', 'UT_CANNOT_GET_PROFILE_VALUE');
78: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
79: FND_MSG_PUB.ADD;
80: END IF;
81: RAISE FND_API.G_EXC_ERROR;
82: END IF;
83:
82: END IF;
83:
84: -- Debug message
85: IF (AS_DEBUG_LOW_ON) THEN
86: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Validate_monitor_condition');
87: END IF;
88:
89: -- Invoke validation procedures
90: Validate_monitor_condition(
103:
104:
105: -- Debug Message
106: IF (AS_DEBUG_LOW_ON) THEN
107: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling create table handler');
108: END IF;
109:
110:
111: -- Invoke table handler(AML_MONITOR_CONDITIONS_PKG.Insert_Row)
172:
173:
174: -- Debug Message
175: IF (AS_DEBUG_LOW_ON) THEN
176: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
177: END IF;
178:
179:
180: -- Standard call to get message count and if count is 1, get message info.
177: END IF;
178:
179:
180: -- Standard call to get message count and if count is 1, get message info.
181: FND_MSG_PUB.Count_And_Get
182: ( p_count => x_msg_count,
183: p_data => x_msg_data
184: );
185:
187: WHEN FND_API.G_EXC_ERROR THEN
188: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
189: P_API_NAME => L_API_NAME
190: ,P_PKG_NAME => G_PKG_NAME
191: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
192: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
193: ,X_MSG_COUNT => X_MSG_COUNT
194: ,X_MSG_DATA => X_MSG_DATA
195: ,X_RETURN_STATUS => X_RETURN_STATUS);
197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
198: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
199: P_API_NAME => L_API_NAME
200: ,P_PKG_NAME => G_PKG_NAME
201: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
202: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
203: ,X_MSG_COUNT => X_MSG_COUNT
204: ,X_MSG_DATA => X_MSG_DATA
205: ,X_RETURN_STATUS => X_RETURN_STATUS);
305:
306: -- Initialize message list if p_init_msg_list is set to TRUE.
307: IF FND_API.to_Boolean( p_init_msg_list )
308: THEN
309: FND_MSG_PUB.initialize;
310: END IF;
311:
312:
313: -- Debug Message
311:
312:
313: -- Debug Message
314: IF (AS_DEBUG_LOW_ON) THEN
315: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
316: END IF;
317:
318: -- Initialize API return status to SUCCESS
319: x_return_status := FND_API.G_RET_STS_SUCCESS;
324:
325:
326: -- Debug Message
327: IF (AS_DEBUG_LOW_ON) THEN
328: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: - Open Cursor to Select');
329: END IF;
330:
331: Open C_Get_monitor_condition( l_tar_CONDITION_rec.MONITOR_CONDITION_ID);
332:
376: l_ref_CONDITION_rec.ATTRIBUTE14,
377: l_ref_CONDITION_rec.ATTRIBUTE15;
378:
379: If ( C_Get_monitor_condition%NOTFOUND) Then
380: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
381: THEN
382: FND_MESSAGE.Set_Name('AMS', 'API_MISSING_UPDATE_TARGET');
383: FND_MESSAGE.Set_Token ('INFO', 'monitor_condition', FALSE);
384: FND_MSG_PUB.Add;
380: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
381: THEN
382: FND_MESSAGE.Set_Name('AMS', 'API_MISSING_UPDATE_TARGET');
383: FND_MESSAGE.Set_Token ('INFO', 'monitor_condition', FALSE);
384: FND_MSG_PUB.Add;
385: END IF;
386: Close C_Get_monitor_condition;
387: raise FND_API.G_EXC_ERROR;
388: END IF;
388: END IF;
389:
390: -- Debug Message
391: IF (AS_DEBUG_LOW_ON) THEN
392: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: - Close Cursor');
393: END IF;
394:
395: Close C_Get_monitor_condition;
396:
397:
398:
399: If (l_tar_CONDITION_rec.last_update_date is NULL or
400: l_tar_CONDITION_rec.last_update_date = FND_API.G_MISS_Date ) Then
401: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
402: THEN
403: FND_MESSAGE.Set_Name('AMS', 'API_MISSING_ID');
404: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
405: FND_MSG_PUB.ADD;
401: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
402: THEN
403: FND_MESSAGE.Set_Name('AMS', 'API_MISSING_ID');
404: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
405: FND_MSG_PUB.ADD;
406: END IF;
407: raise FND_API.G_EXC_ERROR;
408: End if;
409: -- Check Whether record has been changed by someone else
407: raise FND_API.G_EXC_ERROR;
408: End if;
409: -- Check Whether record has been changed by someone else
410: If (l_tar_CONDITION_rec.last_update_date <> l_ref_CONDITION_rec.last_update_date) Then
411: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
412: THEN
413: FND_MESSAGE.Set_Name('AMS', 'API_RECORD_CHANGED');
414: FND_MESSAGE.Set_Token('INFO', 'monitor_condition', FALSE);
415: FND_MSG_PUB.ADD;
411: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
412: THEN
413: FND_MESSAGE.Set_Name('AMS', 'API_RECORD_CHANGED');
414: FND_MESSAGE.Set_Token('INFO', 'monitor_condition', FALSE);
415: FND_MSG_PUB.ADD;
416: END IF;
417: raise FND_API.G_EXC_ERROR;
418: End if;
419:
418: End if;
419:
420: -- Debug message
421: IF (AS_DEBUG_LOW_ON) THEN
422: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Validate_monitor_condition');
423: END IF;
424:
425: -- Invoke validation procedures
426: Validate_monitor_condition(
441: -- Hint: Add corresponding Master-Detail business logic here if necessary.
442:
443: -- Debug Message
444: IF (AS_DEBUG_LOW_ON) THEN
445: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler');
446: END IF;
447:
448: -- Invoke table handler(aml_MONITOR_CONDITIONS_PKG.Update_Row)
449: AML_MONITOR_CONDITIONS_PKG.Update_Row(
502:
503:
504: -- Debug Message
505: IF (AS_DEBUG_LOW_ON) THEN
506: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
507: END IF;
508:
509:
510: -- Standard call to get message count and if count is 1, get message info.
507: END IF;
508:
509:
510: -- Standard call to get message count and if count is 1, get message info.
511: FND_MSG_PUB.Count_And_Get
512: ( p_count => x_msg_count,
513: p_data => x_msg_data
514: );
515:
517: WHEN FND_API.G_EXC_ERROR THEN
518: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
519: P_API_NAME => L_API_NAME
520: ,P_PKG_NAME => G_PKG_NAME
521: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
522: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
523: ,X_MSG_COUNT => X_MSG_COUNT
524: ,X_MSG_DATA => X_MSG_DATA
525: ,X_RETURN_STATUS => X_RETURN_STATUS);
527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
528: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
529: P_API_NAME => L_API_NAME
530: ,P_PKG_NAME => G_PKG_NAME
531: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
532: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
533: ,X_MSG_COUNT => X_MSG_COUNT
534: ,X_MSG_DATA => X_MSG_DATA
535: ,X_RETURN_STATUS => X_RETURN_STATUS);
582:
583: -- Initialize message list if p_init_msg_list is set to TRUE.
584: IF FND_API.to_Boolean( p_init_msg_list )
585: THEN
586: FND_MSG_PUB.initialize;
587: END IF;
588:
589:
590: -- Debug Message
588:
589:
590: -- Debug Message
591: IF (AS_DEBUG_LOW_ON) THEN
592: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
593: END IF;
594:
595:
596: -- Initialize API return status to SUCCESS
601: --
602:
603: -- Debug Message
604: IF (AS_DEBUG_LOW_ON) THEN
605: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling delete table handler');
606: END IF;
607:
608: -- Invoke table handler(aml_MONITOR_CONDITIONS_PKG.Delete_Row)
609: AML_MONITOR_CONDITIONS_PKG.Delete_Row(
620:
621:
622: -- Debug Message
623: IF (AS_DEBUG_LOW_ON) THEN
624: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
625: END IF;
626:
627: -- Standard call to get message count and if count is 1, get message info.
628: FND_MSG_PUB.Count_And_Get
624: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
625: END IF;
626:
627: -- Standard call to get message count and if count is 1, get message info.
628: FND_MSG_PUB.Count_And_Get
629: ( p_count => x_msg_count,
630: p_data => x_msg_data
631: );
632:
634: WHEN FND_API.G_EXC_ERROR THEN
635: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
636: P_API_NAME => L_API_NAME
637: ,P_PKG_NAME => G_PKG_NAME
638: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
639: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
640: ,X_MSG_COUNT => X_MSG_COUNT
641: ,X_MSG_DATA => X_MSG_DATA
642: ,X_RETURN_STATUS => X_RETURN_STATUS);
644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
645: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
646: P_API_NAME => L_API_NAME
647: ,P_PKG_NAME => G_PKG_NAME
648: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
649: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
650: ,X_MSG_COUNT => X_MSG_COUNT
651: ,X_MSG_DATA => X_MSG_DATA
652: ,X_RETURN_STATUS => X_RETURN_STATUS);
684:
685: -- Initialize message list if p_init_msg_list is set to TRUE.
686: IF FND_API.to_Boolean( p_init_msg_list )
687: THEN
688: FND_MSG_PUB.initialize;
689: END IF;
690:
691:
692: -- Initialize API return status to SUCCESS
702:
703: IF C_condition_Id_Exists%NOTFOUND
704: THEN
705: AS_UTILITY_PVT.Set_Message(
706: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
707: p_msg_name => 'API_INVALID_ID',
708: p_token1 => 'COLUMN',
709: p_token1_value => 'MONITOR_CONDITION_ID',
710: p_token2 => 'VALUE',
721: IF (p_monitor_condition_id IS NULL) OR
722: (p_monitor_condition_id = FND_API.G_MISS_NUM)
723: THEN
724: AS_UTILITY_PVT.Set_Message(
725: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
726: p_msg_name => 'API_MISSING_ID',
727: p_token1 => 'COLUMN',
728: p_token1_value => 'MONITOR_CONDITION_ID');
729:
734:
735: IF C_condition_Id_Exists%NOTFOUND
736: THEN
737: AS_UTILITY_PVT.Set_Message(
738: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
739: p_msg_name => 'API_INVALID_ID',
740: p_token1 => 'COLUMN',
741: p_token1_value => 'MONITOR_CONDITION_ID',
742: p_token2 => 'VALUE',
749: END IF;
750: END IF;
751:
752: -- Standard call to get message count and if count is 1, get message info.
753: FND_MSG_PUB.Count_And_Get
754: ( p_count => x_msg_count,
755: p_data => x_msg_data
756: );
757:
789: BEGIN
790:
791: -- Debug Message
792: IF (AS_DEBUG_LOW_ON) THEN
793: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
794: END IF;
795:
796: -- Initialize API return status to SUCCESS
797: x_return_status := FND_API.G_RET_STS_SUCCESS;
912: OPEN C_time_lag_to_stage_exists(P_CONDITION_Rec.TIME_LAG_TO_STAGE);
913: FETCH C_time_lag_to_stage_exists INTO l_val;
914: IF C_time_lag_to_stage_exists%NOTFOUND THEN
915: AS_UTILITY_PVT.Set_Message(
916: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
917: p_msg_name => 'API_INVALID_ID',
918: p_token1 => 'COLUMN',
919: p_token1_value => 'TIME_LAG_TO_STAGE',
920: p_token2 => 'VALUE',
975: -- Added validation by Ajoy
976: IF ((P_CONDITION_Rec.Reminder_Defined = 'Y') AND
977: (P_CONDITION_Rec.Total_Reminders IS NULL OR P_CONDITION_Rec.Reminder_Frequency IS NULL)) THEN
978:
979: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
980: THEN
981: FND_MESSAGE.Set_Name('AS', 'AS_LEAD_MNTR_REMIND_REQD');
982: FND_MSG_PUB.Add;
983: END IF;
978:
979: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
980: THEN
981: FND_MESSAGE.Set_Name('AS', 'AS_LEAD_MNTR_REMIND_REQD');
982: FND_MSG_PUB.Add;
983: END IF;
984:
985: x_return_status := FND_API.G_RET_STS_ERROR;
986: -- raise FND_API.G_EXC_ERROR;
990: IF ((P_CONDITION_Rec.Reminder_Defined = 'N') AND
991: (P_CONDITION_Rec.Total_Reminders IS NOT NULL OR P_CONDITION_Rec.Reminder_Frequency IS NOT NULL)) THEN
992:
993: AS_UTILITY_PVT.Set_Message(
994: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
995: p_msg_name => 'AS_LEAD_MNTR_REMIND_CLR');
996:
997: x_return_status := FND_API.G_RET_STS_ERROR;
998: -- raise FND_API.G_EXC_ERROR;
1000:
1001: IF (P_CONDITION_Rec.Timeout_Defined = 'Y' AND P_CONDITION_Rec.Timeout_Duration IS NULL)
1002: OR (P_CONDITION_Rec.Timeout_Defined = 'Y' AND P_CONDITION_Rec.Timeout_Duration < 0) THEN
1003:
1004: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1005: THEN
1006: FND_MESSAGE.Set_Name('AS', 'AS_LEAD_MNTR_TMOUT_REQD');
1007: FND_MSG_PUB.Add;
1008: END IF;
1003:
1004: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1005: THEN
1006: FND_MESSAGE.Set_Name('AS', 'AS_LEAD_MNTR_TMOUT_REQD');
1007: FND_MSG_PUB.Add;
1008: END IF;
1009:
1010: x_return_status := FND_API.G_RET_STS_ERROR;
1011: --raise FND_API.G_EXC_ERROR;
1013:
1014: IF (P_CONDITION_Rec.Timeout_Defined = 'N' AND P_CONDITION_Rec.Timeout_Duration IS NOT NULL) THEN
1015:
1016: AS_UTILITY_PVT.Set_Message(
1017: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1018: p_msg_name => 'AS_LEAD_MNTR_TMOUT_CLR');
1019:
1020: x_return_status := FND_API.G_RET_STS_ERROR;
1021: --raise FND_API.G_EXC_ERROR;
1039:
1040:
1041: -- Debug Message
1042: IF (AS_DEBUG_LOW_ON) THEN
1043: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
1044: END IF;
1045:
1046: END Validate_monitor_condition;
1047: