[Home] [Help]
19: BEGIN
20: -- Initialize message list IF p_init_msg_list is set to TRUE.
21: IF FND_API.to_Boolean( p_init_msg_list )
22: THEN
23: FND_MSG_PUB.initialize;
24: END IF;
25:
26: Validate_Seed_Qual_ID(
27: P_Init_Msg_List => FND_API.G_FALSE,
85: BEGIN
86: -- Initialize message list IF p_init_msg_list is set to TRUE.
87: IF FND_API.to_Boolean( p_init_msg_list )
88: THEN
89: FND_MSG_PUB.initialize;
90: END IF;
91:
92: -- Initialize API return status to SUCCESS
93: x_return_status := FND_API.G_RET_STS_SUCCESS;
100: FETCH C_Get_Seed INTO l_SEED_QUAL_ID;
101:
102: IF (C_Get_Seed%NOTFOUND)
103: THEN
104: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
105: THEN
106: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
107: FND_MESSAGE.Set_Token('COLUMN', 'SEED_QUAL_ID', FALSE);
108: FND_MESSAGE.Set_Token('VALUE', p_seed_qual_id, FALSE);
105: THEN
106: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
107: FND_MESSAGE.Set_Token('COLUMN', 'SEED_QUAL_ID', FALSE);
108: FND_MESSAGE.Set_Token('VALUE', p_seed_qual_id, FALSE);
109: FND_MSG_PUB.Add;
110: END IF;
111: x_return_status := FND_API.G_RET_STS_ERROR;
112: END IF;
113: CLOSE C_GET_SEED;
113: CLOSE C_GET_SEED;
114: END IF;
115:
116: -- Standard call to get message count and IF count is 1, get message info.
117: FND_MSG_PUB.Count_And_Get
118: ( p_count => x_msg_count,
119: p_data => x_msg_data );
120:
121: END Validate_Seed_Qual_ID;
146: BEGIN
147: -- Initialize message list IF p_init_msg_list is set to TRUE.
148: IF FND_API.to_Boolean( p_init_msg_list )
149: THEN
150: FND_MSG_PUB.initialize;
151: END IF;
152:
153: -- Initialize API return status to SUCCESS
154: x_return_status := FND_API.G_RET_STS_SUCCESS;
170: l_RANGE_FLAG,
171: l_DATA_TYPE;
172:
173: IF l_DATA_TYPE <> 'NUMBER' THEN
174: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
175: THEN
176: FND_MESSAGE.Set_Name('AS', 'API_INVALID_DATA_TYPE');
177: FND_MESSAGE.Set_Token('COLUMN',
178: 'HIGH_VALUE_NUMBER or LOW_VALUE_NUMBER',
176: FND_MESSAGE.Set_Name('AS', 'API_INVALID_DATA_TYPE');
177: FND_MESSAGE.Set_Token('COLUMN',
178: 'HIGH_VALUE_NUMBER or LOW_VALUE_NUMBER',
179: FALSE);
180: FND_MSG_PUB.Add;
181: END IF;
182: x_return_status := FND_API.G_RET_STS_ERROR;
183: --
184: ELSE
185: IF (l_RANGE_FLAG = 'N') AND
186: (P_HIGH_VALUE_NUMBER is NULL or
187: P_High_Value_Number = FND_API.G_MISS_NUM )
188: THEN
189: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
190: THEN
191: FND_MESSAGE.Set_Name('AS', 'API_MISSING_VALUE');
192: FND_MESSAGE.Set_Token('COLUMN', 'HIGH_VALUE_NUMBER', FALSE);
193: FND_MSG_PUB.Add;
189: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
190: THEN
191: FND_MESSAGE.Set_Name('AS', 'API_MISSING_VALUE');
192: FND_MESSAGE.Set_Token('COLUMN', 'HIGH_VALUE_NUMBER', FALSE);
193: FND_MSG_PUB.Add;
194: END IF;
195: x_return_status := FND_API.G_RET_STS_ERROR;
196: --
197: ELSIF (l_RANGE_FLAG = 'Y') AND
197: ELSIF (l_RANGE_FLAG = 'Y') AND
198: (P_LOW_VALUE_NUMBER is NULL or
199: P_Low_Value_Number = FND_API.G_MISS_NUM )
200: THEN
201: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
202: THEN
203: FND_MESSAGE.Set_Name('AS', 'API_MISSING_VALUE');
204: FND_MESSAGE.Set_Token('COLUMN', 'LOW_VALUE_NUMBER', FALSE);
205: FND_MSG_PUB.Add;
201: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
202: THEN
203: FND_MESSAGE.Set_Name('AS', 'API_MISSING_VALUE');
204: FND_MESSAGE.Set_Token('COLUMN', 'LOW_VALUE_NUMBER', FALSE);
205: FND_MSG_PUB.Add;
206: END IF;
207: x_return_status := FND_API.G_RET_STS_ERROR;
208: END IF;
209: END IF;
211: CLOSE C_Get_Seed;
212: END IF;
213:
214: -- Standard call to get message count and IF count is 1, get message info.
215: FND_MSG_PUB.Count_And_Get
216: ( p_count => x_msg_count,
217: p_data => x_msg_data );
218:
219: END Validate_Seed_Qual_Value_Num;
244: BEGIN
245: -- Initialize message list IF p_init_msg_list is set to TRUE.
246: IF FND_API.to_Boolean( p_init_msg_list )
247: THEN
248: FND_MSG_PUB.initialize;
249: END IF;
250:
251: -- Initialize API return status to SUCCESS
252: x_return_status := FND_API.G_RET_STS_SUCCESS;
269: l_RANGE_FLAG,
270: l_DATA_TYPE;
271:
272: IF l_DATA_TYPE <> 'VARCHAR2' THEN
273: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
274: THEN
275: FND_MESSAGE.Set_Name('AS', 'API_INVALID_DATA_TYPE');
276: FND_MESSAGE.Set_Token('COLUMN',
277: 'HIGH_VALUE_CHAR or LOW_VALUE_CHAR',
275: FND_MESSAGE.Set_Name('AS', 'API_INVALID_DATA_TYPE');
276: FND_MESSAGE.Set_Token('COLUMN',
277: 'HIGH_VALUE_CHAR or LOW_VALUE_CHAR',
278: FALSE);
279: FND_MSG_PUB.Add;
280: END IF;
281: x_return_status := FND_API.G_RET_STS_ERROR;
282: --
283: ELSE
284: IF (l_RANGE_FLAG = 'N') AND
285: (P_HIGH_VALUE_CHAR is NULL or
286: P_High_Value_Char = FND_API.G_MISS_CHAR )
287: THEN
288: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
289: THEN
290: FND_MESSAGE.Set_Name('AS', 'API_MISSING_VALUE');
291: FND_MESSAGE.Set_Token('COLUMN', 'HIGH_VALUE_CHAR', FALSE);
292: FND_MSG_PUB.Add;
288: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
289: THEN
290: FND_MESSAGE.Set_Name('AS', 'API_MISSING_VALUE');
291: FND_MESSAGE.Set_Token('COLUMN', 'HIGH_VALUE_CHAR', FALSE);
292: FND_MSG_PUB.Add;
293: END IF;
294: x_return_status := FND_API.G_RET_STS_ERROR;
295:
296: ELSIF (l_RANGE_FLAG = 'Y') AND
296: ELSIF (l_RANGE_FLAG = 'Y') AND
297: (P_LOW_VALUE_CHAR is NULL or
298: P_Low_Value_Char = FND_API.G_MISS_CHAR )
299: THEN
300: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
301: THEN
302: FND_MESSAGE.Set_Name('AS', 'API_MISSING_VALUE');
303: FND_MESSAGE.Set_Token('COLUMN', 'LOW_VALUE_CHAR', FALSE);
304: FND_MSG_PUB.Add;
300: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
301: THEN
302: FND_MESSAGE.Set_Name('AS', 'API_MISSING_VALUE');
303: FND_MESSAGE.Set_Token('COLUMN', 'LOW_VALUE_CHAR', FALSE);
304: FND_MSG_PUB.Add;
305: END IF;
306: x_return_status := FND_API.G_RET_STS_ERROR;
307: END IF;
308: END IF;
310: CLOSE C_Get_Seed;
311: END IF;
312:
313: -- Standard call to get message count and IF count is 1, get message info.
314: FND_MSG_PUB.Count_And_Get
315: ( p_count => x_msg_count,
316: p_data => x_msg_data );
317:
318: END Validate_Seed_Qual_Value_Char;
343: BEGIN
344: -- Initialize message list IF p_init_msg_list is set to TRUE.
345: IF FND_API.to_Boolean( p_init_msg_list )
346: THEN
347: FND_MSG_PUB.initialize;
348: END IF;
349:
350: -- Initialize API return status to SUCCESS
351: x_return_status := FND_API.G_RET_STS_SUCCESS;
368: l_RANGE_FLAG,
369: l_DATA_TYPE;
370:
371: IF l_DATA_TYPE <> 'DATE' THEN
372: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
373: THEN
374: FND_MESSAGE.Set_Name('AS', 'API_INVALID_DATA_TYPE');
375: FND_MESSAGE.Set_Token('COLUMN',
376: 'HIGH_Value_Date or LOW_Value_Date',
374: FND_MESSAGE.Set_Name('AS', 'API_INVALID_DATA_TYPE');
375: FND_MESSAGE.Set_Token('COLUMN',
376: 'HIGH_Value_Date or LOW_Value_Date',
377: FALSE);
378: FND_MSG_PUB.Add;
379: END IF;
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: --
382: ELSE
383: IF (l_RANGE_FLAG = 'Y') AND
384: (P_HIGH_Value_Date is NULL or
385: P_High_Value_Date = FND_API.G_MISS_DATE )
386: THEN
387: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
388: THEN
389: FND_MESSAGE.Set_Name('AS', 'API_MISSING_VALUE');
390: FND_MESSAGE.Set_Token('COLUMN', 'HIGH_Value_Date', FALSE);
391: FND_MSG_PUB.Add;
387: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
388: THEN
389: FND_MESSAGE.Set_Name('AS', 'API_MISSING_VALUE');
390: FND_MESSAGE.Set_Token('COLUMN', 'HIGH_Value_Date', FALSE);
391: FND_MSG_PUB.Add;
392: END IF;
393: x_return_status := FND_API.G_RET_STS_ERROR;
394: --
395: ELSIF (l_RANGE_FLAG = 'N') AND
395: ELSIF (l_RANGE_FLAG = 'N') AND
396: (P_LOW_Value_Date is NULL or
397: P_LOW_Value_Date = FND_API.G_MISS_DATE )
398: THEN
399: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
400: THEN
401: FND_MESSAGE.Set_Name('AS', 'API_MISSING_VALUE');
402: FND_MESSAGE.Set_Token('COLUMN', 'LOW_Value_Date', FALSE);
403: FND_MSG_PUB.Add;
399: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
400: THEN
401: FND_MESSAGE.Set_Name('AS', 'API_MISSING_VALUE');
402: FND_MESSAGE.Set_Token('COLUMN', 'LOW_Value_Date', FALSE);
403: FND_MSG_PUB.Add;
404: END IF;
405: x_return_status := FND_API.G_RET_STS_ERROR;
406: END IF;
407: END IF;
409: CLOSE C_Get_Seed;
410: END IF;
411:
412: -- Standard call to get message count and IF count is 1, get message info.
413: FND_MSG_PUB.Count_And_Get
414: ( p_count => x_msg_count,
415: p_data => x_msg_data );
416:
417: END Validate_Seed_Qual_Value_Date;
457:
458: -- Initialize message list if p_init_msg_list is set to TRUE.
459: IF FND_API.to_Boolean( p_init_msg_list )
460: THEN
461: FND_MSG_PUB.initialize;
462: END IF;
463:
464: -- Debug Message
465: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
461: FND_MSG_PUB.initialize;
462: END IF;
463:
464: -- Debug Message
465: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
466: 'PVT: ' || l_api_name || ' start');
467:
468: -- Initialize API return status to SUCCESS
469: x_return_status := FND_API.G_RET_STS_SUCCESS;
472: -- API body
473: --
474: IF FND_GLOBAL.User_Id IS NULL
475: THEN
476: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
477: THEN
478: FND_MESSAGE.Set_Name('AS',
479: 'UT_CANNOT_GET_PROFILE_VALUE');
480: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
477: THEN
478: FND_MESSAGE.Set_Name('AS',
479: 'UT_CANNOT_GET_PROFILE_VALUE');
480: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
481: FND_MSG_PUB.ADD;
482: END IF;
483: RAISE FND_API.G_EXC_ERROR;
484: END IF;
485:
489: FETCH C_GET_SCORECARD_ID into l_scorecard_id;
490: CLOSE C_GET_SCORECARD_ID;
491:
492: -- Debug Message
493: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
494: 'Calling SCORECARDS_Insert_Row');
495:
496: -- disable all other scoreCards if this one has enabled_flag = 'Y'
497: if nvl(l_sales_lead_scorecard_rec.start_date_active, sysdate) < trunc(sysdate) then
496: -- disable all other scoreCards if this one has enabled_flag = 'Y'
497: if nvl(l_sales_lead_scorecard_rec.start_date_active, sysdate) < trunc(sysdate) then
498: -- Start Date should be today or in the future
499: AS_UTILITY_PVT.set_message(
500: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
501: p_msg_name => 'SCD_INVALID_START' );
502: x_return_status := FND_API.G_RET_STS_ERROR;
503:
504: elsif ((l_sales_lead_scorecard_rec.end_date_active <
505: l_sales_lead_scorecard_rec.start_date_active) or (l_sales_lead_scorecard_rec.end_date_active is not
506: null and l_sales_lead_scorecard_rec.start_date_active is null)) then
507: -- End Date should be greater than Start Date
508: AS_UTILITY_PVT.set_message(
509: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
510: p_msg_name => 'SCD_INVALID_END' );
511: x_return_status := FND_API.G_RET_STS_ERROR;
512:
513: else -- valid Start and End Dates for the scorecard
542: END IF;
543: end if; -- end of if-then-else checking for Start and End Dates
544:
545: -- Debug Message
546: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
547: 'PVT: ' || l_api_name || ' end');
548:
549:
550: -- Standard call to get message count and if count is 1, get message info.
547: 'PVT: ' || l_api_name || ' end');
548:
549:
550: -- Standard call to get message count and if count is 1, get message info.
551: FND_MSG_PUB.Count_And_Get
552: ( p_count => x_msg_count,
553: p_data => x_msg_data
554: );
555:
557: WHEN FND_API.G_EXC_ERROR THEN
558: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
559: P_API_NAME => L_API_NAME
560: ,P_PKG_NAME => G_PKG_NAME
561: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
562: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
563: ,X_MSG_COUNT => X_MSG_COUNT
564: ,X_MSG_DATA => X_MSG_DATA
565: ,X_RETURN_STATUS => X_RETURN_STATUS);
567: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
568: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
569: P_API_NAME => L_API_NAME
570: ,P_PKG_NAME => G_PKG_NAME
571: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
572: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
573: ,X_MSG_COUNT => X_MSG_COUNT
574: ,X_MSG_DATA => X_MSG_DATA
575: ,X_RETURN_STATUS => X_RETURN_STATUS);
658:
659: -- Initialize message list if p_init_msg_list is set to TRUE.
660: IF FND_API.to_Boolean( p_init_msg_list )
661: THEN
662: FND_MSG_PUB.initialize;
663: END IF;
664:
665: -- Debug Message
666: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
662: FND_MSG_PUB.initialize;
663: END IF;
664:
665: -- Debug Message
666: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
667: 'PVT: ' || l_api_name || ' start');
668:
669: -- Initialize API return status to SUCCESS
670: x_return_status := FND_API.G_RET_STS_SUCCESS;
680: RAISE FND_API.G_EXC_ERROR;
681: END IF;
682: */
683: -- Debug Message
684: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
685: 'Open C_Get_sales_lead_scorecard');
686:
687: Open C_Get_Lead_Scorecard(l_SALES_LEAD_SCORECARD_rec.SCORECARD_ID);
688: Fetch C_Get_Lead_Scorecard into
698: l_REF_SALES_LEAD_SCORECARD_rec.START_DATE_ACTIVE,
699: l_REF_SALES_LEAD_SCORECARD_rec.END_DATE_ACTIVE;
700:
701: If ( C_Get_Lead_Scorecard%NOTFOUND) Then
702: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
703: THEN
704: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
705: FND_MESSAGE.Set_Token ('INFO', 'sales_lead_scorecard', FALSE);
706: FND_MSG_PUB.Add;
702: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
703: THEN
704: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
705: FND_MESSAGE.Set_Token ('INFO', 'sales_lead_scorecard', FALSE);
706: FND_MSG_PUB.Add;
707: END IF;
708: raise FND_API.G_EXC_ERROR;
709: END IF;
710:
708: raise FND_API.G_EXC_ERROR;
709: END IF;
710:
711: -- Debug Message
712: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
713: 'Close C_Get_lead_Scorecard');
714: Close C_Get_Lead_Scorecard;
715:
716: -- Check Whether record has been changed by someone else
716: -- Check Whether record has been changed by someone else
717: If (l_SALES_LEAD_SCORECARD_rec.last_update_date is NULL or
718: l_SALES_LEAD_SCORECARD_rec.last_update_date = FND_API.G_MISS_Date )
719: Then
720: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
721: THEN
722: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
723: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
724: FND_MSG_PUB.ADD;
720: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
721: THEN
722: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
723: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
724: FND_MSG_PUB.ADD;
725: END IF;
726: raise FND_API.G_EXC_ERROR;
727: End if;
728:
732: (l_ref_sales_lead_scorecard_rec.start_date_active is null))) AND
733: l_sales_lead_scorecard_rec.start_date_active <> FND_API.G_MISS_DATE) then
734: -- new Start Date should be today or in the future if it has been changed
735: AS_UTILITY_PVT.set_message(
736: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
737: p_msg_name => 'SCD_INVALID_START' );
738: x_return_status := FND_API.G_RET_STS_ERROR;
739:
740: elsif (((l_sales_lead_scorecard_rec.end_date_active <
748: l_sales_lead_scorecard_rec.end_date_active <> FND_API.G_MISS_DATE)
749: then
750: -- new End Date should be greater than Start Date and in the future if it has been changed
751: AS_UTILITY_PVT.set_message(
752: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
753: p_msg_name => 'SCD_INVALID_END' );
754: x_return_status := FND_API.G_RET_STS_ERROR;
755:
756: else -- valid Start and End Dates for the scorecard
776: l_ref_SALES_LEAD_SCORECARD_rec.END_DATE_ACTIVE;
777: END IF;
778:
779: -- Debug Message
780: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
781: 'Calling _SCORECARDS_Update_Row');
782:
783: -- disable all other scoreCards if this one has enabled_flag = 'Y'
784: /* kmahajan 3/27/01 active_flag validation replaced by date validation
802: l_profile_option_nm,
803: l_user_profile_option_nm;
804:
805: If ( C_Chk_Scorecard_for_Disable%FOUND) Then
806: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
807: THEN
808: FND_MESSAGE.Set_Name('AS', 'SET_AS_DEFAULT_SCORECARD');
809: FND_MESSAGE.Set_Token('USERPROFILE',l_user_profile_option_nm, FALSE);
810: FND_MSG_PUB.Add;
806: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
807: THEN
808: FND_MESSAGE.Set_Name('AS', 'SET_AS_DEFAULT_SCORECARD');
809: FND_MESSAGE.Set_Token('USERPROFILE',l_user_profile_option_nm, FALSE);
810: FND_MSG_PUB.Add;
811: END IF;
812: Close C_Chk_Scorecard_for_Disable;
813: raise FND_API.G_EXC_ERROR;
814: END IF;
842:
843: end if; -- end of if-then-else for Start and End dates
844:
845: -- Debug Message
846: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
847: 'PVT: ' || l_api_name || ' end');
848:
849: -- Standard call to get message count and if count is 1, get message info.
850: FND_MSG_PUB.Count_And_Get
846: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
847: 'PVT: ' || l_api_name || ' end');
848:
849: -- Standard call to get message count and if count is 1, get message info.
850: FND_MSG_PUB.Count_And_Get
851: ( p_count => x_msg_count,
852: p_data => x_msg_data );
853:
854: EXCEPTION
855: WHEN FND_API.G_EXC_ERROR THEN
856: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
857: P_API_NAME => L_API_NAME
858: ,P_PKG_NAME => G_PKG_NAME
859: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
860: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
861: ,X_MSG_COUNT => X_MSG_COUNT
862: ,X_MSG_DATA => X_MSG_DATA
863: ,X_RETURN_STATUS => X_RETURN_STATUS);
865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
866: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
867: P_API_NAME => L_API_NAME
868: ,P_PKG_NAME => G_PKG_NAME
869: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
870: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
871: ,X_MSG_COUNT => X_MSG_COUNT
872: ,X_MSG_DATA => X_MSG_DATA
873: ,X_RETURN_STATUS => X_RETURN_STATUS);
931:
932: -- Initialize message list if p_init_msg_list is set to TRUE.
933: IF FND_API.to_Boolean( p_init_msg_list )
934: THEN
935: FND_MSG_PUB.initialize;
936: END IF;
937:
938: -- Debug Message
939: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
935: FND_MSG_PUB.initialize;
936: END IF;
937:
938: -- Debug Message
939: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
940: 'PVT:' || l_api_name || 'start');
941:
942: -- Initialize API return status to SUCCESS
943: x_return_status := FND_API.G_RET_STS_SUCCESS;
946: -- Api body
947: --
948: IF FND_GLOBAL.User_Id IS NULL
949: THEN
950: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
951: THEN
952: FND_MESSAGE.Set_Name('AS',
953: 'UT_CANNOT_GET_PROFILE_VALUE');
954: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
951: THEN
952: FND_MESSAGE.Set_Name('AS',
953: 'UT_CANNOT_GET_PROFILE_VALUE');
954: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
955: FND_MSG_PUB.ADD;
956: END IF;
957: RAISE FND_API.G_EXC_ERROR;
958: END IF;
959:
957: RAISE FND_API.G_EXC_ERROR;
958: END IF;
959:
960: -- Debug Message
961: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
962: 'Open C_Get_sales_lead_scorecard');
963:
964: Open C_Get_Lead_Scorecard(p_SCORECARD_ID);
965: Fetch C_Get_Lead_Scorecard into
965: Fetch C_Get_Lead_Scorecard into
966: l_SCORECARD_ID;
967:
968: If ( C_Get_Lead_Scorecard%NOTFOUND) Then
969: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
970: THEN
971: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
972: FND_MESSAGE.Set_Token ('INFO', 'sales_lead_scorecard', FALSE);
973: FND_MSG_PUB.Add;
969: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
970: THEN
971: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
972: FND_MESSAGE.Set_Token ('INFO', 'sales_lead_scorecard', FALSE);
973: FND_MSG_PUB.Add;
974: END IF;
975: raise FND_API.G_EXC_ERROR;
976: END IF;
977:
975: raise FND_API.G_EXC_ERROR;
976: END IF;
977:
978: -- Debug Message
979: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
980: 'Close C_Get_scorecard_del');
981: Close C_Get_Lead_Scorecard;
982:
983: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
979: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
980: 'Close C_Get_scorecard_del');
981: Close C_Get_Lead_Scorecard;
982:
983: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
984: 'Calling _SCORECARD_Delete_Row');
985:
986: -- Invoke table handler
987: AS_SALES_LEAD_SCORECARDS_PKG.Delete_Row(
997: COMMIT WORK;
998: END IF;
999:
1000: -- Debug Message
1001: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1002: 'PVT: ' || l_api_name || ' end');
1003: FND_MSG_PUB.Count_And_Get
1004: ( p_count => x_msg_count,
1005: p_data => x_msg_data );
999:
1000: -- Debug Message
1001: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1002: 'PVT: ' || l_api_name || ' end');
1003: FND_MSG_PUB.Count_And_Get
1004: ( p_count => x_msg_count,
1005: p_data => x_msg_data );
1006:
1007: EXCEPTION
1008: WHEN FND_API.G_EXC_ERROR THEN
1009: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1010: P_API_NAME => L_API_NAME
1011: ,P_PKG_NAME => G_PKG_NAME
1012: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1013: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1014: ,X_MSG_COUNT => X_MSG_COUNT
1015: ,X_MSG_DATA => X_MSG_DATA
1016: ,X_RETURN_STATUS => X_RETURN_STATUS);
1018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1019: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1020: P_API_NAME => L_API_NAME
1021: ,P_PKG_NAME => G_PKG_NAME
1022: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1023: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1024: ,X_MSG_COUNT => X_MSG_COUNT
1025: ,X_MSG_DATA => X_MSG_DATA
1026: ,X_RETURN_STATUS => X_RETURN_STATUS);
1078:
1079: -- Initialize message list if p_init_msg_list is set to TRUE.
1080: IF FND_API.to_Boolean( p_init_msg_list )
1081: THEN
1082: FND_MSG_PUB.initialize;
1083: END IF;
1084:
1085: -- Debug Message
1086: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1082: FND_MSG_PUB.initialize;
1083: END IF;
1084:
1085: -- Debug Message
1086: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1087: 'PVT: ' || l_api_name || ' start');
1088:
1089: -- Initialize API return status to SUCCESS
1090: x_return_status := FND_API.G_RET_STS_SUCCESS;
1093: -- API body
1094: --
1095: IF FND_GLOBAL.User_Id IS NULL
1096: THEN
1097: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1098: THEN
1099: FND_MESSAGE.Set_Name('AS',
1100: 'UT_CANNOT_GET_PROFILE_VALUE');
1101: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1098: THEN
1099: FND_MESSAGE.Set_Name('AS',
1100: 'UT_CANNOT_GET_PROFILE_VALUE');
1101: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1102: FND_MSG_PUB.ADD;
1103: END IF;
1104: RAISE FND_API.G_EXC_ERROR;
1105: END IF;
1106:
1106:
1107: IF ( P_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM)
1108: THEN
1109: -- Debug message
1110: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1111: 'Calling Validate_Seed_Qual');
1112:
1113: -- Invoke validation procedures
1114: Validate_Seed_Qual(
1128:
1129: OPEN C_GET_QUAL_VALUE_ID;
1130: FETCH C_GET_QUAL_VALUE_ID into l_qual_value_id;
1131: CLOSE C_GET_QUAL_VALUE_ID;
1132: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1133: 'seq card qual id'||l_qual_value_id);
1134: -- Debug Message
1135: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1136: 'Calling CARDRULE_QUAL_Insert_Row');
1131: CLOSE C_GET_QUAL_VALUE_ID;
1132: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1133: 'seq card qual id'||l_qual_value_id);
1134: -- Debug Message
1135: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1136: 'Calling CARDRULE_QUAL_Insert_Row');
1137:
1138: -- Invoke table handler(CARDRULE_QUAL_Insert_Row)
1139: AS_CARD_RULE_QUAL_VALUES_PKG.Insert_Row(
1163: RAISE FND_API.G_EXC_ERROR;
1164: END IF;
1165:
1166: X_QUAL_VALUE_ID := l_qual_value_id;
1167: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1168: 'after insert '||l_qual_value_id);
1169:
1170:
1171: --
1178: COMMIT WORK;
1179: END IF;
1180:
1181: -- Debug Message
1182: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1183: 'PVT: ' || l_api_name || ' end');
1184:
1185: -- Standard call to get message count and if count is 1, get message info.
1186: FND_MSG_PUB.Count_And_Get
1182: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1183: 'PVT: ' || l_api_name || ' end');
1184:
1185: -- Standard call to get message count and if count is 1, get message info.
1186: FND_MSG_PUB.Count_And_Get
1187: ( p_count => x_msg_count,
1188: p_data => x_msg_data
1189: );
1190:
1192: WHEN FND_API.G_EXC_ERROR THEN
1193: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1194: P_API_NAME => L_API_NAME
1195: ,P_PKG_NAME => G_PKG_NAME
1196: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1197: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1198: ,X_MSG_COUNT => X_MSG_COUNT
1199: ,X_MSG_DATA => X_MSG_DATA
1200: ,X_RETURN_STATUS => X_RETURN_STATUS);
1202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1203: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1204: P_API_NAME => L_API_NAME
1205: ,P_PKG_NAME => G_PKG_NAME
1206: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1207: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1208: ,X_MSG_COUNT => X_MSG_COUNT
1209: ,X_MSG_DATA => X_MSG_DATA
1210: ,X_RETURN_STATUS => X_RETURN_STATUS);
1267:
1268: -- Initialize message list if p_init_msg_list is set to TRUE.
1269: IF FND_API.to_Boolean( p_init_msg_list )
1270: THEN
1271: FND_MSG_PUB.initialize;
1272: END IF;
1273:
1274: -- Debug Message
1275: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1271: FND_MSG_PUB.initialize;
1272: END IF;
1273:
1274: -- Debug Message
1275: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1276: 'PVT: ' || l_api_name || ' start');
1277:
1278: -- Initialize API return status to SUCCESS
1279: x_return_status := FND_API.G_RET_STS_SUCCESS;
1282: -- Api body
1283: --
1284:
1285: -- Debug Message
1286: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1287: 'Open C_Get_CARDRULE_QUAL');
1288:
1289: -- dbms_output.put_line('in update_CardRule_Qual body');
1290:
1293: l_rowid,
1294: l_REF_CARDRULE_QUAL_rec.QUAL_VALUE_ID;
1295:
1296: If ( C_Get_CARDRULE_QUAL%NOTFOUND) Then
1297: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1298: THEN
1299: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
1300: FND_MESSAGE.Set_Token ('INFO', 'CARDRULE_QUAL', FALSE);
1301: FND_MSG_PUB.Add;
1297: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1298: THEN
1299: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
1300: FND_MESSAGE.Set_Token ('INFO', 'CARDRULE_QUAL', FALSE);
1301: FND_MSG_PUB.Add;
1302: END IF;
1303: raise FND_API.G_EXC_ERROR;
1304: END IF;
1305:
1303: raise FND_API.G_EXC_ERROR;
1304: END IF;
1305:
1306: -- Debug Message
1307: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1308: 'Close C_Get_CARDRULE_QUAL');
1309: Close C_Get_CARDRULE_QUAL;
1310:
1311:
1312: -- Check Whether record has been changed by someone else
1313: If (l_CARDRULE_QUAL_rec.last_update_date is NULL or
1314: l_CARDRULE_QUAL_rec.last_update_date = FND_API.G_MISS_Date )
1315: Then
1316: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1317: THEN
1318: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1319: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
1320: FND_MSG_PUB.ADD;
1316: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1317: THEN
1318: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1319: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
1320: FND_MSG_PUB.ADD;
1321: END IF;
1322: raise FND_API.G_EXC_ERROR;
1323: End if;
1324:
1380: -- Invoke validation procedures
1381: IF ( P_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM)
1382: THEN
1383: -- Debug message
1384: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1385: 'Calling Validate_Seed_Qual');
1386:
1387: -- Invoke validation procedures
1388: Validate_Seed_Qual(
1401:
1402:
1403:
1404: -- Debug Message
1405: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1406: 'Calling _CARDRULE_QUAL_Update_Row');
1407:
1408: -- Invoke table handler(CARDRULE_QUAL_Update_Row)
1409: AS_CARD_RULE_QUAL_VALUES_PKG.Update_Row(
1443: COMMIT WORK;
1444: END IF;
1445:
1446: -- Debug Message
1447: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1448: 'PVT: ' || l_api_name || ' end');
1449:
1450: -- Standard call to get message count and if count is 1, get message info.
1451: FND_MSG_PUB.Count_And_Get
1447: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1448: 'PVT: ' || l_api_name || ' end');
1449:
1450: -- Standard call to get message count and if count is 1, get message info.
1451: FND_MSG_PUB.Count_And_Get
1452: ( p_count => x_msg_count,
1453: p_data => x_msg_data );
1454:
1455: EXCEPTION
1456: WHEN FND_API.G_EXC_ERROR THEN
1457: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1458: P_API_NAME => L_API_NAME
1459: ,P_PKG_NAME => G_PKG_NAME
1460: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1461: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1462: ,X_MSG_COUNT => X_MSG_COUNT
1463: ,X_MSG_DATA => X_MSG_DATA
1464: ,X_RETURN_STATUS => X_RETURN_STATUS);
1466: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1467: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1468: P_API_NAME => L_API_NAME
1469: ,P_PKG_NAME => G_PKG_NAME
1470: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1471: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1472: ,X_MSG_COUNT => X_MSG_COUNT
1473: ,X_MSG_DATA => X_MSG_DATA
1474: ,X_RETURN_STATUS => X_RETURN_STATUS);
1525:
1526: -- Initialize message list if p_init_msg_list is set to TRUE.
1527: IF FND_API.to_Boolean( p_init_msg_list )
1528: THEN
1529: FND_MSG_PUB.initialize;
1530: END IF;
1531:
1532: -- Debug Message
1533: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1529: FND_MSG_PUB.initialize;
1530: END IF;
1531:
1532: -- Debug Message
1533: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1534: 'PVT:' || l_api_name || 'start');
1535:
1536: -- Initialize API return status to SUCCESS
1537: x_return_status := FND_API.G_RET_STS_SUCCESS;
1540: -- Api body
1541: --
1542: IF FND_GLOBAL.User_Id IS NULL
1543: THEN
1544: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1545: THEN
1546: FND_MESSAGE.Set_Name('AS',
1547: 'UT_CANNOT_GET_PROFILE_VALUE');
1548: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1545: THEN
1546: FND_MESSAGE.Set_Name('AS',
1547: 'UT_CANNOT_GET_PROFILE_VALUE');
1548: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1549: FND_MSG_PUB.ADD;
1550: END IF;
1551: RAISE FND_API.G_EXC_ERROR;
1552: END IF;
1553:
1551: RAISE FND_API.G_EXC_ERROR;
1552: END IF;
1553:
1554: -- Debug Message
1555: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1556: 'Open C_Get_CARDRULE_QUAL');
1557:
1558: Open C_Get_CARDRULE_QUAL(l_QUAL_VALUE_ID);
1559: Fetch C_Get_CARDRULE_QUAL into
1559: Fetch C_Get_CARDRULE_QUAL into
1560: l_REF_CARDRULE_QUAL_rec.QUAL_VALUE_ID;
1561:
1562: If ( C_Get_CARDRULE_QUAL%NOTFOUND) Then
1563: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1564: THEN
1565: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
1566: FND_MESSAGE.Set_Token ('INFO', 'CARDRULE_QUAL', FALSE);
1567: FND_MSG_PUB.Add;
1563: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1564: THEN
1565: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
1566: FND_MESSAGE.Set_Token ('INFO', 'CARDRULE_QUAL', FALSE);
1567: FND_MSG_PUB.Add;
1568: END IF;
1569: raise FND_API.G_EXC_ERROR;
1570: END IF;
1571:
1569: raise FND_API.G_EXC_ERROR;
1570: END IF;
1571:
1572: -- Debug Message
1573: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1574: 'Close C_Get_CARDRULE_QUAL_del');
1575: Close C_Get_CARDRULE_QUAL;
1576:
1577: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1573: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1574: 'Close C_Get_CARDRULE_QUAL_del');
1575: Close C_Get_CARDRULE_QUAL;
1576:
1577: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1578: 'Calling _CARDRULE_QUAL_Delete_Row');
1579:
1580: -- Invoke table handler
1581: AS_CARD_RULE_QUAL_VALUES_PKG.Delete_Row(
1591: COMMIT WORK;
1592: END IF;
1593:
1594: -- Debug Message
1595: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1596: 'PVT: ' || l_api_name || ' end');
1597: FND_MSG_PUB.Count_And_Get
1598: ( p_count => x_msg_count,
1599: p_data => x_msg_data );
1593:
1594: -- Debug Message
1595: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1596: 'PVT: ' || l_api_name || ' end');
1597: FND_MSG_PUB.Count_And_Get
1598: ( p_count => x_msg_count,
1599: p_data => x_msg_data );
1600:
1601: EXCEPTION
1602: WHEN FND_API.G_EXC_ERROR THEN
1603: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1604: P_API_NAME => L_API_NAME
1605: ,P_PKG_NAME => G_PKG_NAME
1606: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1607: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1608: ,X_MSG_COUNT => X_MSG_COUNT
1609: ,X_MSG_DATA => X_MSG_DATA
1610: ,X_RETURN_STATUS => X_RETURN_STATUS);
1612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1613: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1614: P_API_NAME => L_API_NAME
1615: ,P_PKG_NAME => G_PKG_NAME
1616: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1617: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1618: ,X_MSG_COUNT => X_MSG_COUNT
1619: ,X_MSG_DATA => X_MSG_DATA
1620: ,X_RETURN_STATUS => X_RETURN_STATUS);