[Home] [Help]
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AS_SCORECARD_RULES_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(16) := 'asxvscdb.pls';
6:
7: Procedure Validate_Seed_Qual(
8: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
9: P_Validation_mode IN VARCHAR2,
10: P_CARDRULE_QUAL_rec IN AS_SCORECARD_RULES_PUB.CARDRULE_QUAL_REC_TYPE,
11: X_Return_Status OUT NOCOPY VARCHAR2,
12: X_Msg_Count OUT NOCOPY NUMBER,
17: := p_cardrule_qual_rec;
18:
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:
23: FND_MSG_PUB.initialize;
24: END IF;
25:
26: Validate_Seed_Qual_ID(
27: P_Init_Msg_List => FND_API.G_FALSE,
28: P_Validation_mode => P_Validation_mode,
29: P_SEED_QUAL_ID => l_cardrule_qual_rec.seed_qual_id,
30: X_Return_Status => x_return_status,
31: X_Msg_Count => x_msg_count,
30: X_Return_Status => x_return_status,
31: X_Msg_Count => x_msg_count,
32: X_Msg_Data => x_msg_data
33: );
34: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
35: raise FND_API.G_EXC_ERROR;
36: END IF;
37:
38: Validate_Seed_Qual_Value_Num(
31: X_Msg_Count => x_msg_count,
32: X_Msg_Data => x_msg_data
33: );
34: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
35: raise FND_API.G_EXC_ERROR;
36: END IF;
37:
38: Validate_Seed_Qual_Value_Num(
39: P_Init_Msg_List => FND_API.G_FALSE,
35: raise FND_API.G_EXC_ERROR;
36: END IF;
37:
38: Validate_Seed_Qual_Value_Num(
39: P_Init_Msg_List => FND_API.G_FALSE,
40: P_Validation_mode => P_Validation_mode,
41: P_SEED_QUAL_ID => l_cardrule_qual_rec.seed_qual_id,
42: P_High_value_number => l_cardrule_qual_rec.high_value_number,
43: P_Low_value_number => l_cardrule_qual_rec.low_value_number,
44: X_Return_Status => x_return_status,
45: X_Msg_Count => x_msg_count,
46: X_Msg_Data => x_msg_data
47: );
48: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
49: raise FND_API.G_EXC_ERROR;
50: END IF;
51:
52: Validate_Seed_Qual_Value_Char(
45: X_Msg_Count => x_msg_count,
46: X_Msg_Data => x_msg_data
47: );
48: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
49: raise FND_API.G_EXC_ERROR;
50: END IF;
51:
52: Validate_Seed_Qual_Value_Char(
53: P_Init_Msg_List => FND_API.G_FALSE,
49: raise FND_API.G_EXC_ERROR;
50: END IF;
51:
52: Validate_Seed_Qual_Value_Char(
53: P_Init_Msg_List => FND_API.G_FALSE,
54: P_Validation_mode => P_Validation_mode,
55: P_SEED_QUAL_ID => l_cardrule_qual_rec.seed_qual_id,
56: P_high_value_char => l_cardrule_qual_rec.high_value_char,
57: P_low_value_char => l_cardrule_qual_rec.low_value_char,
58: X_Return_Status => x_return_status,
59: X_Msg_Count => x_msg_count,
60: X_Msg_Data => x_msg_data
61: );
62: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
63: raise FND_API.G_EXC_ERROR;
64: END IF;
65:
66: END Validate_Seed_Qual;
59: X_Msg_Count => x_msg_count,
60: X_Msg_Data => x_msg_data
61: );
62: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
63: raise FND_API.G_EXC_ERROR;
64: END IF;
65:
66: END Validate_Seed_Qual;
67:
65:
66: END Validate_Seed_Qual;
67:
68: Procedure Validate_Seed_Qual_ID(
69: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
70: P_Validation_mode IN VARCHAR2,
71: P_SEED_QUAL_ID IN NUMBER,
72: X_Return_Status OUT NOCOPY VARCHAR2,
73: X_Msg_Count OUT NOCOPY NUMBER,
83: l_SEED_QUAL_ID NUMBER;
84:
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:
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;
94:
95: -- Validate P_SEED_QUAL_ID
96: IF P_SEED_QUAL_ID is NOT NULL
97: and P_SEED_QUAL_ID <> FND_API.G_MISS_NUM
93: x_return_status := FND_API.G_RET_STS_SUCCESS;
94:
95: -- Validate P_SEED_QUAL_ID
96: IF P_SEED_QUAL_ID is NOT NULL
97: and P_SEED_QUAL_ID <> FND_API.G_MISS_NUM
98: THEN
99: OPEN C_Get_Seed (p_seed_qual_id);
100: FETCH C_Get_Seed INTO l_SEED_QUAL_ID;
101:
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;
114: END IF;
115:
120:
121: END Validate_Seed_Qual_ID;
122:
123: Procedure Validate_Seed_Qual_Value_Num(
124: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
125: P_Validation_mode IN VARCHAR2,
126: P_SEED_QUAL_ID IN NUMBER,
127: P_High_Value_Number IN NUMBER,
128: P_Low_Value_Number IN NUMBER,
144: l_DATA_TYPE VARCHAR2(10);
145:
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:
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;
155:
156: -- Validate P_High_Value_Number and P_Low_Value_Number
157: /* Data_Type must be 'NUMBER';
158: * If Range_Flag = 'Y',
160: * If Range_Flag = 'N',
161: * then input value should be stored in LOW_VALUE_NUMBER;
162: */
163: IF ( P_High_Value_Number is NOT NULL
164: and P_High_Value_Number <> FND_API.G_MISS_NUM ) OR
165: ( P_Low_Value_Number is NOT NULL
166: and P_Low_Value_Number <> FND_API.G_MISS_NUM )
167: THEN
168: OPEN C_Get_Seed (p_seed_qual_id);
162: */
163: IF ( P_High_Value_Number is NOT NULL
164: and P_High_Value_Number <> FND_API.G_MISS_NUM ) OR
165: ( P_Low_Value_Number is NOT NULL
166: and P_Low_Value_Number <> FND_API.G_MISS_NUM )
167: THEN
168: OPEN C_Get_Seed (p_seed_qual_id);
169: FETCH C_Get_Seed INTO l_SEED_QUAL_ID,
170: l_RANGE_FLAG,
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
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');
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
198: (P_LOW_VALUE_NUMBER is NULL or
199: P_Low_Value_Number = FND_API.G_MISS_NUM )
195: x_return_status := FND_API.G_RET_STS_ERROR;
196: --
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');
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;
210:
211: CLOSE C_Get_Seed;
218:
219: END Validate_Seed_Qual_Value_Num;
220:
221: Procedure Validate_Seed_Qual_Value_Char(
222: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
223: P_Validation_mode IN VARCHAR2,
224: P_SEED_QUAL_ID IN NUMBER,
225: P_High_Value_Char IN VARCHAR2,
226: P_Low_Value_Char IN VARCHAR2,
242: l_DATA_TYPE VARCHAR2(10);
243:
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:
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;
253:
254: -- Validate P_High_Value_Char and P_Low_Value_Char
255: /* Data_Type must be 'CHAR';
256: * If Range_Flag = 'Y',
258: * If Range_Flag = 'N',
259: * then input value should be stored in LOW_VALUE_CHAR;
260: */
261: IF ( P_High_Value_Char is NOT NULL
262: and P_High_Value_Char <> FND_API.G_MISS_CHAR ) OR
263: ( P_Low_Value_Char is NOT NULL
264: and P_Low_Value_Char <> FND_API.G_MISS_CHAR )
265: THEN
266:
260: */
261: IF ( P_High_Value_Char is NOT NULL
262: and P_High_Value_Char <> FND_API.G_MISS_CHAR ) OR
263: ( P_Low_Value_Char is NOT NULL
264: and P_Low_Value_Char <> FND_API.G_MISS_CHAR )
265: THEN
266:
267: OPEN C_Get_Seed (p_seed_qual_id);
268: FETCH C_Get_Seed INTO l_SEED_QUAL_ID,
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
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');
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
297: (P_LOW_VALUE_CHAR is NULL or
298: P_Low_Value_Char = FND_API.G_MISS_CHAR )
294: x_return_status := FND_API.G_RET_STS_ERROR;
295:
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');
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;
309:
310: CLOSE C_Get_Seed;
317:
318: END Validate_Seed_Qual_Value_Char;
319:
320: Procedure Validate_Seed_Qual_Value_Date(
321: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
322: P_Validation_mode IN VARCHAR2,
323: P_SEED_QUAL_ID IN NUMBER,
324: P_High_Value_Date IN DATE,
325: P_Low_Value_Date IN DATE,
341: l_DATA_TYPE VARCHAR2(10);
342:
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:
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;
352:
353: -- Validate P_High_Value_Date and P_Low_Value_Date
354: /* Data_Type must be 'DATE';
355: * If Range_Flag = 'Y',
358: * then input value should be stored in LOW_Value_Date;
359: */
360:
361: IF ( P_High_Value_Date is NOT NULL
362: and P_High_Value_Date <> FND_API.G_MISS_DATE ) OR
363: ( P_Low_Value_Date is NOT NULL
364: and P_Low_Value_Date <> FND_API.G_MISS_DATE )
365: THEN
366: OPEN C_Get_Seed (p_seed_qual_id);
360:
361: IF ( P_High_Value_Date is NOT NULL
362: and P_High_Value_Date <> FND_API.G_MISS_DATE ) OR
363: ( P_Low_Value_Date is NOT NULL
364: and P_Low_Value_Date <> FND_API.G_MISS_DATE )
365: THEN
366: OPEN C_Get_Seed (p_seed_qual_id);
367: FETCH C_Get_Seed INTO l_SEED_QUAL_ID,
368: l_RANGE_FLAG,
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
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');
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
396: (P_LOW_Value_Date is NULL or
397: P_LOW_Value_Date = FND_API.G_MISS_DATE )
393: x_return_status := FND_API.G_RET_STS_ERROR;
394: --
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');
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;
408:
409: CLOSE C_Get_Seed;
417: END Validate_Seed_Qual_Value_Date;
418:
419: Procedure Create_ScoreCard (
420: p_api_version IN NUMBER := 2.0,
421: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
422: p_commit IN VARCHAR2 := FND_API.G_FALSE,
423: p_validation_level IN NUMBER := AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
424: x_return_status OUT NOCOPY VARCHAR2,
425: x_msg_count OUT NOCOPY NUMBER,
418:
419: Procedure Create_ScoreCard (
420: p_api_version IN NUMBER := 2.0,
421: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
422: p_commit IN VARCHAR2 := FND_API.G_FALSE,
423: p_validation_level IN NUMBER := AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
424: x_return_status OUT NOCOPY VARCHAR2,
425: x_msg_count OUT NOCOPY NUMBER,
426: x_msg_data OUT NOCOPY VARCHAR2,
445: -- Standard Start of API savepoint
446: SAVEPOINT CREATE_SCORECARD_PVT;
447:
448: -- Standard call to check for call compatibility.
449: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
450: p_api_version,
451: l_api_name,
452: G_PKG_NAME)
453: THEN
450: p_api_version,
451: l_api_name,
452: G_PKG_NAME)
453: THEN
454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
455: END IF;
456:
457:
458: -- Initialize message list if p_init_msg_list is set to TRUE.
455: END IF;
456:
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:
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;
470:
471: --
472: -- API body
473: --
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:
486: l_SALES_LEAD_SCORECARD_rec := p_scorecard_rec;
487:
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
514:
515: -- Invoke table handler(Sales_Lead_Insert_Row)
526: , x_start_date_active => l_SALES_LEAD_SCORECARD_rec.start_date_active
527: , x_end_date_active => l_SALES_LEAD_SCORECARD_rec.end_date_active
528: );
529:
530: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
531: RAISE FND_API.G_EXC_ERROR;
532: END IF;
533:
534: X_SCORECARD_ID := l_scorecard_id;
527: , x_end_date_active => l_SALES_LEAD_SCORECARD_rec.end_date_active
528: );
529:
530: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
531: RAISE FND_API.G_EXC_ERROR;
532: END IF;
533:
534: X_SCORECARD_ID := l_scorecard_id;
535: -- End of API body
535: -- End of API body
536: --
537:
538: -- Standard check for p_commit
539: IF FND_API.to_Boolean( p_commit )
540: THEN
541: COMMIT WORK;
542: END IF;
543: end if; -- end of if-then-else checking for Start and End Dates
553: p_data => x_msg_data
554: );
555:
556: EXCEPTION
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
563: ,X_MSG_COUNT => X_MSG_COUNT
564: ,X_MSG_DATA => X_MSG_DATA
565: ,X_RETURN_STATUS => X_RETURN_STATUS);
566:
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
588: END CREATE_SCORECARD;
589:
590: Procedure Update_ScoreCard (
591: p_api_version IN NUMBER := 2.0,
592: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
593: p_commit IN VARCHAR2 := FND_API.G_FALSE,
594: p_validation_level IN NUMBER := AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
595: x_return_status OUT NOCOPY VARCHAR2,
596: x_msg_count OUT NOCOPY NUMBER,
589:
590: Procedure Update_ScoreCard (
591: p_api_version IN NUMBER := 2.0,
592: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
593: p_commit IN VARCHAR2 := FND_API.G_FALSE,
594: p_validation_level IN NUMBER := AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
595: x_return_status OUT NOCOPY VARCHAR2,
596: x_msg_count OUT NOCOPY NUMBER,
597: x_msg_data OUT NOCOPY VARCHAR2,
647: -- Standard Start of API savepoint
648: SAVEPOINT UPDATE_SCORECARD_PVT;
649:
650: -- Standard call to check for call compatibility.
651: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
652: p_api_version,
653: l_api_name,
654: G_PKG_NAME)
655: THEN
652: p_api_version,
653: l_api_name,
654: G_PKG_NAME)
655: THEN
656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
657: END IF;
658:
659: -- Initialize message list if p_init_msg_list is set to TRUE.
660: IF FND_API.to_Boolean( p_init_msg_list )
656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
657: END IF;
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:
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;
671:
672: --
673: -- Api body
674: --
675: /*
676: IF(P_Check_Access_Flag = 'Y') THEN
677: END IF;
678:
679: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
680: RAISE FND_API.G_EXC_ERROR;
681: END IF;
682: */
683: -- Debug Message
676: IF(P_Check_Access_Flag = 'Y') THEN
677: END IF;
678:
679: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
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,
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:
711: -- Debug Message
712: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
714: Close C_Get_Lead_Scorecard;
715:
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');
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:
729: if (((l_sales_lead_scorecard_rec.start_date_active < trunc(sysdate)) and
730: ((l_sales_lead_scorecard_rec.start_date_active <>
729: if (((l_sales_lead_scorecard_rec.start_date_active < trunc(sysdate)) and
730: ((l_sales_lead_scorecard_rec.start_date_active <>
731: l_ref_sales_lead_scorecard_rec.start_date_active) or
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' );
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 <
741: l_sales_lead_scorecard_rec.start_date_active) or
742: (l_sales_lead_scorecard_rec.end_date_active is not null and
744: ((l_sales_lead_scorecard_rec.end_date_active < trunc(sysdate)) and
745: ((l_sales_lead_scorecard_rec.end_date_active <>
746: l_ref_sales_lead_scorecard_rec.end_date_active) or
747: (l_ref_sales_lead_scorecard_rec.end_date_active is null)))) AND
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,
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
757:
758: -- Transfer Data into target record
759: l_SALES_LEAD_SCORECARD_rec.CREATION_DATE :=
760: l_ref_SALES_LEAD_SCORECARD_rec.CREATION_DATE;
761: l_SALES_LEAD_SCORECARD_rec.CREATED_BY :=
762: l_ref_SALES_LEAD_SCORECARD_rec.CREATED_BY;
763: IF (l_SALES_LEAD_SCORECARD_rec.DESCRIPTION = FND_API.G_MISS_CHAR) Then
764: l_SALES_LEAD_SCORECARD_rec.DESCRIPTION :=
765: l_ref_SALES_LEAD_SCORECARD_rec.DESCRIPTION;
766: END IF;
767:
766: END IF;
767:
768:
769:
770: IF (l_SALES_LEAD_SCORECARD_rec.START_DATE_ACTIVE = FND_API.G_MISS_DATE) Then
771: l_SALES_LEAD_SCORECARD_rec.START_DATE_ACTIVE :=
772: l_ref_SALES_LEAD_SCORECARD_rec.START_DATE_ACTIVE;
773: END IF;
774: IF (l_SALES_LEAD_SCORECARD_rec.END_DATE_ACTIVE = FND_API.G_MISS_DATE) Then
770: IF (l_SALES_LEAD_SCORECARD_rec.START_DATE_ACTIVE = FND_API.G_MISS_DATE) Then
771: l_SALES_LEAD_SCORECARD_rec.START_DATE_ACTIVE :=
772: l_ref_SALES_LEAD_SCORECARD_rec.START_DATE_ACTIVE;
773: END IF;
774: IF (l_SALES_LEAD_SCORECARD_rec.END_DATE_ACTIVE = FND_API.G_MISS_DATE) Then
775: l_SALES_LEAD_SCORECARD_rec.END_DATE_ACTIVE :=
776: l_ref_SALES_LEAD_SCORECARD_rec.END_DATE_ACTIVE;
777: END IF;
778:
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;
815: Close C_Chk_Scorecard_for_Disable;
816: END IF;
817:
829: , x_start_date_active => l_SALES_LEAD_SCORECARD_rec.start_date_active
830: , x_end_date_active => l_SALES_LEAD_SCORECARD_rec.end_date_active
831: );
832:
833: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
834: RAISE FND_API.G_EXC_ERROR;
835: END IF;
836:
837: -- Standard check for p_commit
830: , x_end_date_active => l_SALES_LEAD_SCORECARD_rec.end_date_active
831: );
832:
833: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
834: RAISE FND_API.G_EXC_ERROR;
835: END IF;
836:
837: -- Standard check for p_commit
838: IF FND_API.to_Boolean( p_commit )
834: RAISE FND_API.G_EXC_ERROR;
835: END IF;
836:
837: -- Standard check for p_commit
838: IF FND_API.to_Boolean( p_commit )
839: THEN
840: COMMIT WORK;
841: END IF;
842:
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
861: ,X_MSG_COUNT => X_MSG_COUNT
862: ,X_MSG_DATA => X_MSG_DATA
863: ,X_RETURN_STATUS => X_RETURN_STATUS);
864:
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
890: not delete records from as_sales_lead_card_rules;
891: */
892: Procedure Delete_ScoreCard (
893: p_api_version IN NUMBER := 2.0,
894: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
895: p_commit IN VARCHAR2 := FND_API.G_FALSE,
896: p_validation_level IN NUMBER := AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
897: x_return_status OUT NOCOPY VARCHAR2,
898: x_msg_count OUT NOCOPY NUMBER,
891: */
892: Procedure Delete_ScoreCard (
893: p_api_version IN NUMBER := 2.0,
894: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
895: p_commit IN VARCHAR2 := FND_API.G_FALSE,
896: p_validation_level IN NUMBER := AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
897: x_return_status OUT NOCOPY VARCHAR2,
898: x_msg_count OUT NOCOPY NUMBER,
899: x_msg_data OUT NOCOPY VARCHAR2,
920: -- Standard Start of API savepoint
921: SAVEPOINT DELETE_SCORECARD_PVT;
922:
923: -- Standard call to check for call compatibility.
924: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
925: p_api_version,
926: l_api_name,
927: G_PKG_NAME)
928: THEN
925: p_api_version,
926: l_api_name,
927: G_PKG_NAME)
928: THEN
929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
930: END IF;
931:
932: -- Initialize message list if p_init_msg_list is set to TRUE.
933: IF FND_API.to_Boolean( p_init_msg_list )
929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
930: END IF;
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:
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;
944:
945: --
946: -- Api body
947: --
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:
960: -- Debug Message
961: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
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:
978: -- Debug Message
979: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
991: -- End of API body
992: --
993:
994: -- Standard check for p_commit
995: IF FND_API.to_Boolean( p_commit )
996: THEN
997: COMMIT WORK;
998: END IF;
999:
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
1014: ,X_MSG_COUNT => X_MSG_COUNT
1015: ,X_MSG_DATA => X_MSG_DATA
1016: ,X_RETURN_STATUS => X_RETURN_STATUS);
1017:
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
1039:
1040:
1041: Procedure Create_CardRule_QUAL
1042: (p_api_version IN NUMBER := 2.0,
1043: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1044: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1045: p_validation_level IN NUMBER :=
1046: AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
1047: x_return_status OUT NOCOPY VARCHAR2,
1040:
1041: Procedure Create_CardRule_QUAL
1042: (p_api_version IN NUMBER := 2.0,
1043: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1044: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1045: p_validation_level IN NUMBER :=
1046: AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
1047: x_return_status OUT NOCOPY VARCHAR2,
1048: x_msg_count OUT NOCOPY NUMBER,
1066: -- Standard Start of API savepoint
1067: SAVEPOINT CREATE_CARDRULE_qual_pvt;
1068:
1069: -- Standard call to check for call compatibility.
1070: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1071: p_api_version,
1072: l_api_name,
1073: G_PKG_NAME)
1074: THEN
1071: p_api_version,
1072: l_api_name,
1073: G_PKG_NAME)
1074: THEN
1075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1076: END IF;
1077:
1078:
1079: -- Initialize message list if p_init_msg_list is set to TRUE.
1076: END IF;
1077:
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:
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;
1091:
1092: --
1093: -- API body
1094: --
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:
1107: IF ( P_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM)
1108: THEN
1111: 'Calling Validate_Seed_Qual');
1112:
1113: -- Invoke validation procedures
1114: Validate_Seed_Qual(
1115: P_Init_Msg_List => FND_API.G_FALSE,
1116: P_Validation_mode => AS_UTILITY_PVT.G_CREATE,
1117: P_CARDRULE_QUAL_rec => l_cardrule_qual_rec,
1118: X_Return_Status => x_return_status,
1119: X_Msg_Count => x_msg_count,
1120: X_Msg_Data => x_msg_data
1121: );
1122: END IF;
1123:
1124: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1125: RAISE FND_API.G_EXC_ERROR;
1126: END IF;
1127:
1128:
1121: );
1122: END IF;
1123:
1124: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1125: RAISE FND_API.G_EXC_ERROR;
1126: END IF;
1127:
1128:
1129: OPEN C_GET_QUAL_VALUE_ID;
1158: , x_start_date_active => l_CARDRULE_QUAL_rec.start_date_active
1159: , x_end_date_active => l_CARDRULE_QUAL_rec.end_date_active
1160: );
1161:
1162: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1163: RAISE FND_API.G_EXC_ERROR;
1164: END IF;
1165:
1166: X_QUAL_VALUE_ID := l_qual_value_id;
1159: , x_end_date_active => l_CARDRULE_QUAL_rec.end_date_active
1160: );
1161:
1162: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
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,
1172: -- End of API body
1173: --
1174:
1175: -- Standard check for p_commit
1176: IF FND_API.to_Boolean( p_commit )
1177: THEN
1178: COMMIT WORK;
1179: END IF;
1180:
1188: p_data => x_msg_data
1189: );
1190:
1191: EXCEPTION
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
1198: ,X_MSG_COUNT => X_MSG_COUNT
1199: ,X_MSG_DATA => X_MSG_DATA
1200: ,X_RETURN_STATUS => X_RETURN_STATUS);
1201:
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
1224:
1225:
1226: Procedure Update_CardRule_QUAL
1227: (p_api_version IN NUMBER := 2.0,
1228: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1229: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1230: p_validation_level IN NUMBER :=
1231: AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
1232: x_return_status OUT NOCOPY VARCHAR2,
1225:
1226: Procedure Update_CardRule_QUAL
1227: (p_api_version IN NUMBER := 2.0,
1228: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1229: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1230: p_validation_level IN NUMBER :=
1231: AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
1232: x_return_status OUT NOCOPY VARCHAR2,
1233: x_msg_count OUT NOCOPY NUMBER,
1256: -- Standard Start of API savepoint
1257: SAVEPOINT UPDATE_CARDRULE_QUAL_PVT;
1258:
1259: -- Standard call to check for call compatibility.
1260: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1261: p_api_version,
1262: l_api_name,
1263: G_PKG_NAME)
1264: THEN
1261: p_api_version,
1262: l_api_name,
1263: G_PKG_NAME)
1264: THEN
1265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1266: END IF;
1267:
1268: -- Initialize message list if p_init_msg_list is set to TRUE.
1269: IF FND_API.to_Boolean( p_init_msg_list )
1265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1266: END IF;
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:
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;
1280:
1281: --
1282: -- Api body
1283: --
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:
1306: -- Debug Message
1307: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
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');
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:
1325: -- Transfer Data into target record
1326: IF (l_CARDRULE_QUAL_rec.CARD_RULE_ID = FND_API.G_MISS_NUM) Then
1322: raise FND_API.G_EXC_ERROR;
1323: End if;
1324:
1325: -- Transfer Data into target record
1326: IF (l_CARDRULE_QUAL_rec.CARD_RULE_ID = FND_API.G_MISS_NUM) Then
1327: l_CARDRULE_QUAL_rec.CARD_RULE_ID :=
1328: l_ref_CARDRULE_QUAL_rec.CARD_RULE_ID;
1329: END IF;
1330: IF (l_CARDRULE_QUAL_rec.SEED_QUAL_ID = FND_API.G_MISS_NUM) Then
1326: IF (l_CARDRULE_QUAL_rec.CARD_RULE_ID = FND_API.G_MISS_NUM) Then
1327: l_CARDRULE_QUAL_rec.CARD_RULE_ID :=
1328: l_ref_CARDRULE_QUAL_rec.CARD_RULE_ID;
1329: END IF;
1330: IF (l_CARDRULE_QUAL_rec.SEED_QUAL_ID = FND_API.G_MISS_NUM) Then
1331: l_CARDRULE_QUAL_rec.SEED_QUAL_ID :=
1332: l_ref_CARDRULE_QUAL_rec.SEED_QUAL_ID;
1333: END IF;
1334: IF (l_CARDRULE_QUAL_rec.LOW_VALUE_NUMBER = FND_API.G_MISS_NUM) Then
1330: IF (l_CARDRULE_QUAL_rec.SEED_QUAL_ID = FND_API.G_MISS_NUM) Then
1331: l_CARDRULE_QUAL_rec.SEED_QUAL_ID :=
1332: l_ref_CARDRULE_QUAL_rec.SEED_QUAL_ID;
1333: END IF;
1334: IF (l_CARDRULE_QUAL_rec.LOW_VALUE_NUMBER = FND_API.G_MISS_NUM) Then
1335: l_CARDRULE_QUAL_rec.LOW_VALUE_NUMBER :=
1336: l_ref_CARDRULE_QUAL_rec.LOW_VALUE_NUMBER;
1337: END IF;
1338: IF (l_CARDRULE_QUAL_rec.HIGH_VALUE_NUMBER = FND_API.G_MISS_NUM) Then
1334: IF (l_CARDRULE_QUAL_rec.LOW_VALUE_NUMBER = FND_API.G_MISS_NUM) Then
1335: l_CARDRULE_QUAL_rec.LOW_VALUE_NUMBER :=
1336: l_ref_CARDRULE_QUAL_rec.LOW_VALUE_NUMBER;
1337: END IF;
1338: IF (l_CARDRULE_QUAL_rec.HIGH_VALUE_NUMBER = FND_API.G_MISS_NUM) Then
1339: l_CARDRULE_QUAL_rec.HIGH_VALUE_NUMBER :=
1340: l_ref_CARDRULE_QUAL_rec.HIGH_VALUE_NUMBER;
1341: END IF;
1342: IF (l_CARDRULE_QUAL_rec.HIGH_VALUE_CHAR = FND_API.G_MISS_CHAR) Then
1338: IF (l_CARDRULE_QUAL_rec.HIGH_VALUE_NUMBER = FND_API.G_MISS_NUM) Then
1339: l_CARDRULE_QUAL_rec.HIGH_VALUE_NUMBER :=
1340: l_ref_CARDRULE_QUAL_rec.HIGH_VALUE_NUMBER;
1341: END IF;
1342: IF (l_CARDRULE_QUAL_rec.HIGH_VALUE_CHAR = FND_API.G_MISS_CHAR) Then
1343: l_CARDRULE_QUAL_rec.HIGH_VALUE_CHAR :=
1344: l_ref_CARDRULE_QUAL_rec.HIGH_VALUE_CHAR;
1345: END IF;
1346: IF (l_CARDRULE_QUAL_rec.LOW_VALUE_CHAR = FND_API.G_MISS_CHAR) Then
1342: IF (l_CARDRULE_QUAL_rec.HIGH_VALUE_CHAR = FND_API.G_MISS_CHAR) Then
1343: l_CARDRULE_QUAL_rec.HIGH_VALUE_CHAR :=
1344: l_ref_CARDRULE_QUAL_rec.HIGH_VALUE_CHAR;
1345: END IF;
1346: IF (l_CARDRULE_QUAL_rec.LOW_VALUE_CHAR = FND_API.G_MISS_CHAR) Then
1347: l_CARDRULE_QUAL_rec.LOW_VALUE_CHAR :=
1348: l_ref_CARDRULE_QUAL_rec.LOW_VALUE_CHAR;
1349: END IF;
1350: IF (l_CARDRULE_QUAL_rec.CURRENCY_CODE= FND_API.G_MISS_CHAR) Then
1346: IF (l_CARDRULE_QUAL_rec.LOW_VALUE_CHAR = FND_API.G_MISS_CHAR) Then
1347: l_CARDRULE_QUAL_rec.LOW_VALUE_CHAR :=
1348: l_ref_CARDRULE_QUAL_rec.LOW_VALUE_CHAR;
1349: END IF;
1350: IF (l_CARDRULE_QUAL_rec.CURRENCY_CODE= FND_API.G_MISS_CHAR) Then
1351: l_CARDRULE_QUAL_rec.CURRENCY_CODE :=
1352: l_ref_CARDRULE_QUAL_rec.CURRENCY_CODE;
1353: END IF;
1354: IF (l_CARDRULE_QUAL_rec.HIGH_VALUE_DATE = FND_API.G_MISS_DATE) Then
1350: IF (l_CARDRULE_QUAL_rec.CURRENCY_CODE= FND_API.G_MISS_CHAR) Then
1351: l_CARDRULE_QUAL_rec.CURRENCY_CODE :=
1352: l_ref_CARDRULE_QUAL_rec.CURRENCY_CODE;
1353: END IF;
1354: IF (l_CARDRULE_QUAL_rec.HIGH_VALUE_DATE = FND_API.G_MISS_DATE) Then
1355: l_CARDRULE_QUAL_rec.HIGH_VALUE_DATE :=
1356: l_ref_CARDRULE_QUAL_rec.HIGH_VALUE_DATE;
1357: END IF;
1358: IF (l_CARDRULE_QUAL_rec.LOW_VALUE_DATE = FND_API.G_MISS_DATE) Then
1354: IF (l_CARDRULE_QUAL_rec.HIGH_VALUE_DATE = FND_API.G_MISS_DATE) Then
1355: l_CARDRULE_QUAL_rec.HIGH_VALUE_DATE :=
1356: l_ref_CARDRULE_QUAL_rec.HIGH_VALUE_DATE;
1357: END IF;
1358: IF (l_CARDRULE_QUAL_rec.LOW_VALUE_DATE = FND_API.G_MISS_DATE) Then
1359: l_CARDRULE_QUAL_rec.LOW_VALUE_DATE :=
1360: l_ref_CARDRULE_QUAL_rec.LOW_VALUE_DATE;
1361: END IF;
1362: IF (l_CARDRULE_QUAL_rec.START_DATE_ACTIVE = FND_API.G_MISS_DATE) Then
1358: IF (l_CARDRULE_QUAL_rec.LOW_VALUE_DATE = FND_API.G_MISS_DATE) Then
1359: l_CARDRULE_QUAL_rec.LOW_VALUE_DATE :=
1360: l_ref_CARDRULE_QUAL_rec.LOW_VALUE_DATE;
1361: END IF;
1362: IF (l_CARDRULE_QUAL_rec.START_DATE_ACTIVE = FND_API.G_MISS_DATE) Then
1363: l_CARDRULE_QUAL_rec.START_DATE_ACTIVE :=
1364: l_ref_CARDRULE_QUAL_rec.START_DATE_ACTIVE;
1365: END IF;
1366: IF (l_CARDRULE_QUAL_rec.END_DATE_ACTIVE = FND_API.G_MISS_DATE) Then
1362: IF (l_CARDRULE_QUAL_rec.START_DATE_ACTIVE = FND_API.G_MISS_DATE) Then
1363: l_CARDRULE_QUAL_rec.START_DATE_ACTIVE :=
1364: l_ref_CARDRULE_QUAL_rec.START_DATE_ACTIVE;
1365: END IF;
1366: IF (l_CARDRULE_QUAL_rec.END_DATE_ACTIVE = FND_API.G_MISS_DATE) Then
1367: l_CARDRULE_QUAL_rec.END_DATE_ACTIVE :=
1368: l_ref_CARDRULE_QUAL_rec.END_DATE_ACTIVE;
1369: END IF;
1370: IF (l_CARDRULE_QUAL_rec.SCORE = FND_API.G_MISS_NUM) Then
1366: IF (l_CARDRULE_QUAL_rec.END_DATE_ACTIVE = FND_API.G_MISS_DATE) Then
1367: l_CARDRULE_QUAL_rec.END_DATE_ACTIVE :=
1368: l_ref_CARDRULE_QUAL_rec.END_DATE_ACTIVE;
1369: END IF;
1370: IF (l_CARDRULE_QUAL_rec.SCORE = FND_API.G_MISS_NUM) Then
1371: l_CARDRULE_QUAL_rec.SCORE :=
1372: l_CARDRULE_QUAL_rec.SCORE;
1373: END IF;
1374: IF (l_CARDRULE_QUAL_rec.SCORECARD_ID = FND_API.G_MISS_NUM) Then
1370: IF (l_CARDRULE_QUAL_rec.SCORE = FND_API.G_MISS_NUM) Then
1371: l_CARDRULE_QUAL_rec.SCORE :=
1372: l_CARDRULE_QUAL_rec.SCORE;
1373: END IF;
1374: IF (l_CARDRULE_QUAL_rec.SCORECARD_ID = FND_API.G_MISS_NUM) Then
1375: l_CARDRULE_QUAL_rec.SCORECARD_ID :=
1376: l_CARDRULE_QUAL_rec.SCORECARD_ID;
1377: END IF;
1378:
1385: 'Calling Validate_Seed_Qual');
1386:
1387: -- Invoke validation procedures
1388: Validate_Seed_Qual(
1389: P_Init_Msg_List => FND_API.G_FALSE,
1390: P_Validation_mode => AS_UTILITY_PVT.G_CREATE,
1391: P_CARDRULE_QUAL_rec => l_cardrule_qual_rec,
1392: X_Return_Status => x_return_status,
1393: X_Msg_Count => x_msg_count,
1394: X_Msg_Data => x_msg_data
1395: );
1396: END IF;
1397:
1398: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1399: RAISE FND_API.G_EXC_ERROR;
1400: END IF;
1401:
1402:
1395: );
1396: END IF;
1397:
1398: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1399: RAISE FND_API.G_EXC_ERROR;
1400: END IF;
1401:
1402:
1403:
1426: , x_start_date_active => l_CARDRULE_QUAL_rec.start_date_active
1427: , x_end_date_active => l_CARDRULE_QUAL_rec.end_date_active
1428: );
1429:
1430: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1431: RAISE FND_API.G_EXC_ERROR;
1432: END IF;
1433:
1434: -- X_QUAL_VALUE_ID := l_CARDRULE_QUAL_rec.qual_value_id;
1427: , x_end_date_active => l_CARDRULE_QUAL_rec.end_date_active
1428: );
1429:
1430: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1431: RAISE FND_API.G_EXC_ERROR;
1432: END IF;
1433:
1434: -- X_QUAL_VALUE_ID := l_CARDRULE_QUAL_rec.qual_value_id;
1435:
1437: -- End of API body.
1438: --
1439:
1440: -- Standard check for p_commit
1441: IF FND_API.to_Boolean( p_commit )
1442: THEN
1443: COMMIT WORK;
1444: END IF;
1445:
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
1462: ,X_MSG_COUNT => X_MSG_COUNT
1463: ,X_MSG_DATA => X_MSG_DATA
1464: ,X_RETURN_STATUS => X_RETURN_STATUS);
1465:
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
1488:
1489: -- pass in the qual value Id
1490: Procedure Delete_CardRule_QUAL
1491: (p_api_version IN NUMBER := 2.0,
1492: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1493: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1494: p_validation_level IN NUMBER :=
1495: AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
1496: x_return_status OUT NOCOPY VARCHAR2,
1489: -- pass in the qual value Id
1490: Procedure Delete_CardRule_QUAL
1491: (p_api_version IN NUMBER := 2.0,
1492: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1493: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1494: p_validation_level IN NUMBER :=
1495: AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
1496: x_return_status OUT NOCOPY VARCHAR2,
1497: x_msg_count OUT NOCOPY NUMBER,
1514: -- Standard Start of API savepoint
1515: SAVEPOINT DELETE_CARD_RULE_PVT;
1516:
1517: -- Standard call to check for call compatibility.
1518: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1519: p_api_version,
1520: l_api_name,
1521: G_PKG_NAME)
1522: THEN
1519: p_api_version,
1520: l_api_name,
1521: G_PKG_NAME)
1522: THEN
1523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1524: END IF;
1525:
1526: -- Initialize message list if p_init_msg_list is set to TRUE.
1527: IF FND_API.to_Boolean( p_init_msg_list )
1523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1524: END IF;
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:
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;
1538:
1539: --
1540: -- Api body
1541: --
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:
1554: -- Debug Message
1555: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
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:
1572: -- Debug Message
1573: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1585: -- End of API body
1586: --
1587:
1588: -- Standard check for p_commit
1589: IF FND_API.to_Boolean( p_commit )
1590: THEN
1591: COMMIT WORK;
1592: END IF;
1593:
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
1608: ,X_MSG_COUNT => X_MSG_COUNT
1609: ,X_MSG_DATA => X_MSG_DATA
1610: ,X_RETURN_STATUS => X_RETURN_STATUS);
1611:
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