[Home] [Help]
22: TYPE NUMBER_TABLE IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
23:
24:
25: -- Hint: Primary key needs to be returned.
26: AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
27: AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
28: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
29:
30: PROCEDURE Create_process_rule(
23:
24:
25: -- Hint: Primary key needs to be returned.
26: AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
27: AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
28: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
29:
30: PROCEDURE Create_process_rule(
31: P_Api_Version_Number IN NUMBER,
24:
25: -- Hint: Primary key needs to be returned.
26: AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
27: AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
28: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
29:
30: PROCEDURE Create_process_rule(
31: P_Api_Version_Number IN NUMBER,
32: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
62:
63: -- Initialize message list if p_init_msg_list is set to TRUE.
64: IF FND_API.to_Boolean( p_init_msg_list )
65: THEN
66: FND_MSG_PUB.initialize;
67: END IF;
68:
69:
70: -- Debug Message
69:
70: -- Debug Message
71: IF (AS_DEBUG_HIGH_ON) THEN
72:
73: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
74: END IF;
75:
76:
77: -- Initialize API return status to SUCCESS
84: -- Validate Environment
85: -- ******************************************************************
86: IF FND_GLOBAL.User_Id IS NULL
87: THEN
88: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
89: THEN
90: FND_MESSAGE.Set_Name('PV', 'UT_CANNOT_GET_PROFILE_VALUE');
91: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
92: FND_MSG_PUB.ADD;
88: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
89: THEN
90: FND_MESSAGE.Set_Name('PV', 'UT_CANNOT_GET_PROFILE_VALUE');
91: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
92: FND_MSG_PUB.ADD;
93: END IF;
94: RAISE FND_API.G_EXC_ERROR;
95: END IF;
96:
96:
97: -- Debug message
98: IF (AS_DEBUG_HIGH_ON) THEN
99:
100: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_process_rule');
101: END IF;
102:
103: -- Invoke validation procedures
104: Validate_process_rule(
120: FND_MESSAGE.Set_Name('PV', 'UT_CANNOT_GET_PROFILE_VALUE');
121: FND_MESSAGE.Set_Token('TEXT', 'parent_rule_id:' || p_PROCESS_RULE_rec.PARENT_RULE_ID);
122: FND_MESSAGE.Set_Token('TEXT', 'child_rule_id:' || x_PROCESS_RULE_ID);
123: FND_MESSAGE.Set_Token('TEXT', 'rank:' || p_PROCESS_RULE_rec.rank);
124: FND_MSG_PUB.ADD;
125: RAISE FND_API.G_EXC_ERROR;
126: -- ========================================================================
127: */
128: Validate_rank(
180:
181: -- Debug Message
182: IF (AS_DEBUG_HIGH_ON) THEN
183:
184: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling create table handler');
185: END IF;
186:
187:
188: -- Invoke table handler(PV_PROCESS_RULES_B_PKG.Insert_Row)
245:
246: -- Debug Message
247: IF (AS_DEBUG_HIGH_ON) THEN
248:
249: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
250: END IF;
251:
252:
253: -- Standard call to get message count and if count is 1, get message info.
250: END IF;
251:
252:
253: -- Standard call to get message count and if count is 1, get message info.
254: FND_MSG_PUB.Count_And_Get
255: ( p_count => x_msg_count,
256: p_data => x_msg_data
257: );
258:
260: WHEN FND_API.G_EXC_ERROR THEN
261: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
262: P_API_NAME => L_API_NAME
263: ,P_PKG_NAME => G_PKG_NAME
264: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
265: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
266: ,X_MSG_COUNT => X_MSG_COUNT
267: ,X_MSG_DATA => X_MSG_DATA
268: ,X_RETURN_STATUS => X_RETURN_STATUS);
270: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
271: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
272: P_API_NAME => L_API_NAME
273: ,P_PKG_NAME => G_PKG_NAME
274: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
275: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
276: ,X_MSG_COUNT => X_MSG_COUNT
277: ,X_MSG_DATA => X_MSG_DATA
278: ,X_RETURN_STATUS => X_RETURN_STATUS);
333:
334: -- Initialize message list if p_init_msg_list is set to TRUE.
335: IF FND_API.to_Boolean( p_init_msg_list )
336: THEN
337: FND_MSG_PUB.initialize;
338: END IF;
339:
340:
341: -- Debug Message
340:
341: -- Debug Message
342: IF (AS_DEBUG_HIGH_ON) THEN
343:
344: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
345: END IF;
346:
347:
348: -- Initialize API return status to SUCCESS
354:
355: -- Debug Message
356: IF (AS_DEBUG_HIGH_ON) THEN
357:
358: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Open Cursor to Select');
359: END IF;
360:
361:
362: Open C_Get_process_rule( l_tar_PROCESS_RULE_rec.PROCESS_RULE_ID);
364: Fetch C_Get_process_rule into
365: l_ref_PROCESS_RULE_rec.OBJECT_VERSION_NUMBER;
366:
367: If ( C_Get_process_rule%NOTFOUND) Then
368: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
369: THEN
370: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
371: FND_MESSAGE.Set_Token ('INFO', 'process_rule', FALSE);
372: FND_MSG_PUB.Add;
368: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
369: THEN
370: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
371: FND_MESSAGE.Set_Token ('INFO', 'process_rule', FALSE);
372: FND_MSG_PUB.Add;
373: END IF;
374: Close C_Get_process_rule;
375: raise FND_API.G_EXC_ERROR;
376: END IF;
376: END IF;
377: -- Debug Message
378: IF (AS_DEBUG_HIGH_ON) THEN
379:
380: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
381: END IF;
382: Close C_Get_process_rule;
383:
384: If (l_tar_PROCESS_RULE_rec.object_version_number is NULL or
382: Close C_Get_process_rule;
383:
384: If (l_tar_PROCESS_RULE_rec.object_version_number is NULL or
385: l_tar_PROCESS_RULE_rec.object_version_number = FND_API.G_MISS_NUM ) Then
386: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
387: THEN
388: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
389: FND_MESSAGE.Set_Token('COLUMN', 'object_version_number', FALSE);
390: FND_MSG_PUB.ADD;
386: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
387: THEN
388: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
389: FND_MESSAGE.Set_Token('COLUMN', 'object_version_number', FALSE);
390: FND_MSG_PUB.ADD;
391: END IF;
392: raise FND_API.G_EXC_ERROR;
393: End if;
394: -- Check Whether record has been changed by someone else
392: raise FND_API.G_EXC_ERROR;
393: End if;
394: -- Check Whether record has been changed by someone else
395: If (l_tar_PROCESS_RULE_rec.object_version_number <> l_ref_PROCESS_RULE_rec.object_version_number) Then
396: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
397: THEN
398: FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
399: FND_MESSAGE.Set_Token('INFO', 'process_rule', FALSE);
400: FND_MSG_PUB.ADD;
396: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
397: THEN
398: FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
399: FND_MESSAGE.Set_Token('INFO', 'process_rule', FALSE);
400: FND_MSG_PUB.ADD;
401: END IF;
402: raise FND_API.G_EXC_ERROR;
403: End if;
404:
404:
405: -- Debug message
406: IF (AS_DEBUG_HIGH_ON) THEN
407:
408: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_process_rule');
409: END IF;
410:
411: -- Invoke validation procedures
412: Validate_process_rule(
483:
484: -- Debug Message
485: IF (AS_DEBUG_HIGH_ON) THEN
486:
487: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler');
488: END IF;
489:
490: -- Invoke table handler(PV_PROCESS_RULES_B_PKG.Update_Row)
491: PV_PROCESS_RULES_PKG.Update_Row(
541:
542: -- Debug Message
543: IF (AS_DEBUG_HIGH_ON) THEN
544:
545: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
546: END IF;
547:
548:
549: -- Standard call to get message count and if count is 1, get message info.
546: END IF;
547:
548:
549: -- Standard call to get message count and if count is 1, get message info.
550: FND_MSG_PUB.Count_And_Get
551: ( p_count => x_msg_count,
552: p_data => x_msg_data
553: );
554:
556: WHEN FND_API.G_EXC_ERROR THEN
557: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
558: P_API_NAME => L_API_NAME
559: ,P_PKG_NAME => G_PKG_NAME
560: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
561: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
562: ,X_MSG_COUNT => X_MSG_COUNT
563: ,X_MSG_DATA => X_MSG_DATA
564: ,X_RETURN_STATUS => X_RETURN_STATUS);
566: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
567: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
568: P_API_NAME => L_API_NAME
569: ,P_PKG_NAME => G_PKG_NAME
570: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
571: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
572: ,X_MSG_COUNT => X_MSG_COUNT
573: ,X_MSG_DATA => X_MSG_DATA
574: ,X_RETURN_STATUS => X_RETURN_STATUS);
707:
708: -- Initialize message list if p_init_msg_list is set to TRUE.
709: IF FND_API.to_Boolean( p_init_msg_list )
710: THEN
711: FND_MSG_PUB.initialize;
712: END IF;
713:
714:
715: -- Debug Message
714:
715: -- Debug Message
716: IF (AS_DEBUG_HIGH_ON) THEN
717:
718: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
719: END IF;
720:
721:
722: -- Initialize API return status to SUCCESS
749: close lc_validate_rule_profile_ref;
750:
751: if l_process_rule_name is not null then
752:
753: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
754: THEN
755: FND_MESSAGE.Set_Name('PV', 'PV_RULE_REF_BY_PROFILE');
756: FND_MESSAGE.Set_Token('PROCESS_RULE_NAME',l_process_rule_name);
757: FND_MSG_PUB.Add;
753: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
754: THEN
755: FND_MESSAGE.Set_Name('PV', 'PV_RULE_REF_BY_PROFILE');
756: FND_MESSAGE.Set_Token('PROCESS_RULE_NAME',l_process_rule_name);
757: FND_MSG_PUB.Add;
758: END IF;
759:
760: RAISE FND_API.G_EXC_ERROR;
761:
780: END IF;
781:
782: if l_process_rule_name is not null then
783:
784: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
785: THEN
786: FND_MESSAGE.Set_Name('PV', 'PV_RULE_REFERENCED');
787: FND_MESSAGE.Set_Token('PROCESS_RULE_NAME',l_process_rule_name);
788: FND_MSG_PUB.Add;
784: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
785: THEN
786: FND_MESSAGE.Set_Name('PV', 'PV_RULE_REFERENCED');
787: FND_MESSAGE.Set_Token('PROCESS_RULE_NAME',l_process_rule_name);
788: FND_MSG_PUB.Add;
789: END IF;
790:
791: RAISE FND_API.G_EXC_ERROR;
792:
906:
907: -- Debug Message
908: IF (AS_DEBUG_HIGH_ON) THEN
909:
910: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: PV_PROCESS_RULES_PKG.Delete_Row');
911: END IF;
912:
913: -- Invoke table handler(PV_PROCESS_RULES_B_PKG.Delete_Row)
914: PV_PROCESS_RULES_PKG.Delete_Row(
956:
957: -- Debug Message
958: IF (AS_DEBUG_HIGH_ON) THEN
959:
960: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
961: END IF;
962:
963:
964: -- Standard call to get message count and if count is 1, get message info.
961: END IF;
962:
963:
964: -- Standard call to get message count and if count is 1, get message info.
965: FND_MSG_PUB.Count_And_Get
966: ( p_count => x_msg_count,
967: p_data => x_msg_data
968: );
969:
971: WHEN FND_API.G_EXC_ERROR THEN
972: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
973: P_API_NAME => L_API_NAME
974: ,P_PKG_NAME => G_PKG_NAME
975: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
976: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
977: ,X_MSG_COUNT => X_MSG_COUNT
978: ,X_MSG_DATA => X_MSG_DATA
979: ,X_RETURN_STATUS => X_RETURN_STATUS);
981: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
982: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
983: P_API_NAME => L_API_NAME
984: ,P_PKG_NAME => G_PKG_NAME
985: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
986: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
987: ,X_MSG_COUNT => X_MSG_COUNT
988: ,X_MSG_DATA => X_MSG_DATA
989: ,X_RETURN_STATUS => X_RETURN_STATUS);
1114:
1115: -- Initialize message list if p_init_msg_list is set to TRUE.
1116: IF FND_API.to_Boolean( p_init_msg_list )
1117: THEN
1118: FND_MSG_PUB.initialize;
1119: END IF;
1120:
1121:
1122: -- Debug Message
1121:
1122: -- Debug Message
1123: IF (AS_DEBUG_HIGH_ON) THEN
1124:
1125: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
1126: END IF;
1127:
1128:
1129: -- Initialize API return status to SUCCESS
1136: -- Validate Environment
1137: -- ******************************************************************
1138: IF FND_GLOBAL.User_Id IS NULL
1139: THEN
1140: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1141: THEN
1142: FND_MESSAGE.Set_Name('PV', 'UT_CANNOT_GET_PROFILE_VALUE');
1143: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1144: FND_MSG_PUB.ADD;
1140: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1141: THEN
1142: FND_MESSAGE.Set_Name('PV', 'UT_CANNOT_GET_PROFILE_VALUE');
1143: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1144: FND_MSG_PUB.ADD;
1145: END IF;
1146: RAISE FND_API.G_EXC_ERROR;
1147: END IF;
1148:
1148:
1149: -- Debug message
1150: IF (AS_DEBUG_HIGH_ON) THEN
1151:
1152: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_process_rule');
1153: END IF;
1154:
1155: -- Invoke validation procedures
1156: Validate_process_rule(
1302:
1303: -- Debug Message
1304: IF (AS_DEBUG_HIGH_ON) THEN
1305:
1306: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
1307: END IF;
1308:
1309:
1310: -- Standard call to get message count and if count is 1, get message info.
1307: END IF;
1308:
1309:
1310: -- Standard call to get message count and if count is 1, get message info.
1311: FND_MSG_PUB.Count_And_Get
1312: ( p_count => x_msg_count,
1313: p_data => x_msg_data
1314: );
1315:
1317: WHEN FND_API.G_EXC_ERROR THEN
1318: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1319: P_API_NAME => L_API_NAME
1320: ,P_PKG_NAME => G_PKG_NAME
1321: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1322: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1323: ,X_MSG_COUNT => X_MSG_COUNT
1324: ,X_MSG_DATA => X_MSG_DATA
1325: ,X_RETURN_STATUS => X_RETURN_STATUS);
1327: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1328: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1329: P_API_NAME => L_API_NAME
1330: ,P_PKG_NAME => G_PKG_NAME
1331: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1332: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1333: ,X_MSG_COUNT => X_MSG_COUNT
1334: ,X_MSG_DATA => X_MSG_DATA
1335: ,X_RETURN_STATUS => X_RETURN_STATUS);
1368:
1369: -- Initialize message list if p_init_msg_list is set to TRUE.
1370: IF FND_API.to_Boolean( p_init_msg_list )
1371: THEN
1372: FND_MSG_PUB.initialize;
1373: END IF;
1374:
1375:
1376: -- Initialize API return status to SUCCESS
1386:
1387: IF C_Process_Rule_Id_Exists%NOTFOUND
1388: THEN
1389: AS_UTILITY_PVT.Set_Message(
1390: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1391: p_msg_name => 'API_INVALID_ID',
1392: p_token1 => 'COLUMN',
1393: p_token1_value => 'PROCESS_RULE_ID',
1394: p_token2 => 'VALUE',
1405: IF (p_process_rule_id IS NULL) OR
1406: (p_process_rule_id = FND_API.G_MISS_NUM)
1407: THEN
1408: AS_UTILITY_PVT.Set_Message(
1409: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1410: p_msg_name => 'API_MISSING_ID',
1411: p_token1 => 'COLUMN',
1412: p_token1_value => 'PROCESS_RULE_ID');
1413:
1418:
1419: IF C_Process_Rule_Id_Exists%NOTFOUND
1420: THEN
1421: AS_UTILITY_PVT.Set_Message(
1422: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1423: p_msg_name => 'API_INVALID_ID',
1424: p_token1 => 'COLUMN',
1425: p_token1_value => 'PROCESS_RULE_ID',
1426: p_token2 => 'VALUE',
1433: END IF;
1434: END IF;
1435:
1436: -- Standard call to get message count and if count is 1, get message info.
1437: FND_MSG_PUB.Count_And_Get
1438: ( p_count => x_msg_count,
1439: p_data => x_msg_data
1440: );
1441:
1461:
1462: -- Initialize message list if p_init_msg_list is set to TRUE.
1463: IF FND_API.to_Boolean( p_init_msg_list )
1464: THEN
1465: FND_MSG_PUB.initialize;
1466: END IF;
1467:
1468:
1469: -- Initialize API return status to SUCCESS
1477: FETCH C_Check_Resource_Id INTO l_val;
1478: IF (C_Check_Resource_Id%NOTFOUND)
1479: THEN
1480: AS_UTILITY_PVT.Set_Message(
1481: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1482: p_msg_name => 'API_INVALID_ID',
1483: p_token1 => 'COLUMN',
1484: p_token1_value => 'OWNER_RESOURCE_ID',
1485: p_token2 => 'VALUE',
1490: CLOSE C_Check_Resource_Id;
1491: END IF;
1492:
1493: -- Standard call to get message count and if count is 1, get message info.
1494: FND_MSG_PUB.Count_And_Get
1495: ( p_count => x_msg_count,
1496: p_data => x_msg_data
1497: );
1498:
1521:
1522: -- Initialize message list if p_init_msg_list is set to TRUE.
1523: IF FND_API.to_Boolean( p_init_msg_list )
1524: THEN
1525: FND_MSG_PUB.initialize;
1526: END IF;
1527:
1528: -- Initialize API return status to SUCCESS
1529: x_return_status := FND_API.G_RET_STS_SUCCESS;
1535: OPEN C_Currency_Exists ( p_currency_code );
1536: FETCH C_Currency_Exists into l_val;
1537: IF C_Currency_Exists%NOTFOUND THEN
1538: AS_UTILITY_PVT.Set_Message(
1539: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1540: p_msg_name => 'API_INVALID_ID',
1541: p_token1 => 'COLUMN',
1542: p_token1_value => 'CURRENCY',
1543: p_token2 => 'VALUE',
1548: CLOSE C_Currency_Exists;
1549: END IF;
1550:
1551: -- Standard call to get message count and if count is 1, get message info.
1552: FND_MSG_PUB.Count_And_Get
1553: ( p_count => x_msg_count,
1554: p_data => x_msg_data
1555: );
1556:
1585:
1586: -- Initialize message list if p_init_msg_list is set to TRUE.
1587: IF FND_API.to_Boolean( p_init_msg_list )
1588: THEN
1589: FND_MSG_PUB.initialize;
1590: END IF;
1591:
1592:
1593: -- Initialize API return status to SUCCESS
1597: p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1598: THEN
1599: IF (p_rank IS NULL) OR (p_rank = FND_API.G_MISS_NUM) THEN
1600: AS_UTILITY_PVT.Set_Message(
1601: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1602: p_msg_name => 'API_MISSING_RANK',
1603: p_token1 => 'RANK',
1604: p_token1_value => p_rank);
1605:
1614: Fetch lc_chk_criterion_dups into l_rank;
1615:
1616: IF (lc_chk_criterion_dups%FOUND) THEN
1617: FND_MESSAGE.Set_Name('PV', 'PV_DUPLICATE_CRITERION');
1618: FND_MSG_PUB.Add;
1619:
1620: CLOSE lc_chk_criterion_dups;
1621: RAISE FND_API.G_EXC_ERROR;
1622: END IF;
1623:
1624: -- Debug Message
1625: IF (AS_DEBUG_HIGH_ON) THEN
1626:
1627: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
1628: END IF;
1629: CLOSE lc_chk_criterion_dups;
1630: END IF;
1631: END IF;
1630: END IF;
1631: END IF;
1632:
1633: -- Standard call to get message count and if count is 1, get message info.
1634: FND_MSG_PUB.Count_And_Get
1635: ( p_count => x_msg_count,
1636: p_data => x_msg_data
1637: );
1638:
1653: BEGIN
1654: -- Initialize message list if p_init_msg_list is set to TRUE.
1655: IF FND_API.to_Boolean( p_init_msg_list )
1656: THEN
1657: FND_MSG_PUB.initialize;
1658: END IF;
1659:
1660: -- Initialize API return status to SUCCESS
1661: x_return_status := FND_API.G_RET_STS_SUCCESS;
1667: THEN
1668: IF P_END_DATE < P_START_DATE
1669: THEN
1670: FND_MESSAGE.Set_Name('PV', 'PV_END_DATE_GREATER_START_DATE');
1671: FND_MSG_PUB.Add;
1672: RAISE FND_API.G_EXC_ERROR;
1673: END IF;
1674: END IF;
1675: -- Debug Message
1673: END IF;
1674: END IF;
1675: -- Debug Message
1676: IF (AS_DEBUG_HIGH_ON) THEN
1677: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
1678: END IF;
1679: END IF;
1680:
1681: -- Standard call to get message count and if count is 1, get message info.
1678: END IF;
1679: END IF;
1680:
1681: -- Standard call to get message count and if count is 1, get message info.
1682: FND_MSG_PUB.Count_And_Get
1683: ( p_count => x_msg_count,
1684: p_data => x_msg_data
1685: );
1686: END Validate_enddate;
1700: BEGIN
1701: -- Initialize message list if p_init_msg_list is set to TRUE.
1702: IF FND_API.to_Boolean( p_init_msg_list )
1703: THEN
1704: FND_MSG_PUB.initialize;
1705: END IF;
1706:
1707: -- Initialize API return status to SUCCESS
1708: x_return_status := FND_API.G_RET_STS_SUCCESS;
1711: THEN
1712: IF (P_PARENT_RULE_ID is null or P_PARENT_RULE_ID = FND_API.G_MISS_NUM) then
1713: IF (P_START_DATE is null or P_START_DATE = FND_API.G_MISS_DATE) then
1714: FND_MESSAGE.Set_Name('PV', 'PV_STARTDATE_NOTNULL');
1715: FND_MSG_PUB.Add;
1716: RAISE FND_API.G_EXC_ERROR;
1717: END IF;
1718: END IF;
1719: IF (AS_DEBUG_HIGH_ON) THEN
1716: RAISE FND_API.G_EXC_ERROR;
1717: END IF;
1718: END IF;
1719: IF (AS_DEBUG_HIGH_ON) THEN
1720: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
1721: END IF;
1722: END IF;
1723: -- Standard call to get message count and if count is 1, get message info.
1724: FND_MSG_PUB.Count_And_Get
1720: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
1721: END IF;
1722: END IF;
1723: -- Standard call to get message count and if count is 1, get message info.
1724: FND_MSG_PUB.Count_And_Get
1725: ( p_count => x_msg_count,
1726: p_data => x_msg_data
1727: );
1728: END Validate_startdate;
1757:
1758: -- Initialize message list if p_init_msg_list is set to TRUE.
1759: IF FND_API.to_Boolean( p_init_msg_list )
1760: THEN
1761: FND_MSG_PUB.initialize;
1762: END IF;
1763:
1764: -- Initialize API return status to SUCCESS
1765: x_return_status := FND_API.G_RET_STS_SUCCESS;
1768: THEN
1769: IF (P_PARENT_RULE_ID is null or P_PARENT_RULE_ID = FND_API.G_MISS_NUM) then
1770: IF (P_STATUS is null or P_STATUS = FND_API.G_MISS_CHAR) then
1771: FND_MESSAGE.Set_Name('PV', 'PV_STATUS_NOTNULL');
1772: FND_MSG_PUB.Add;
1773: RAISE FND_API.G_EXC_ERROR;
1774: END IF;
1775: END IF;
1776: IF (AS_DEBUG_HIGH_ON) THEN
1773: RAISE FND_API.G_EXC_ERROR;
1774: END IF;
1775: END IF;
1776: IF (AS_DEBUG_HIGH_ON) THEN
1777: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
1778: END IF;
1779: END IF;
1780:
1781: -- ---------------------------------------------------------------------
1797: END LOOP;
1798:
1799: IF (l_previous_status = 'ACTIVE') THEN
1800: FND_MESSAGE.Set_Name('PV', 'PV_MONITOR_RULE_ACTIVE');
1801: FND_MSG_PUB.Add;
1802: RAISE FND_API.G_EXC_ERROR;
1803: END IF;
1804:
1805: ELSIF (G_PROCESS_TYPE = 'PARTNER_MATCHING' AND G_ACTION = 'UPDATE' AND
1810: END LOOP;
1811:
1812: IF l_result IS NOT NULL THEN
1813: FND_MESSAGE.Set_Name('PV', 'PV_RULE_REF_BY_PROFILE_STATUS');
1814: FND_MSG_PUB.Add;
1815: RAISE FND_API.G_EXC_ERROR;
1816: END IF;
1817: END IF;
1818:
1816: END IF;
1817: END IF;
1818:
1819: -- Standard call to get message count and if count is 1, get message info.
1820: FND_MSG_PUB.Count_And_Get
1821: ( p_count => x_msg_count,
1822: p_data => x_msg_data
1823: );
1824: END Validate_status;
1840:
1841: -- Debug Message
1842: IF (AS_DEBUG_HIGH_ON) THEN
1843:
1844: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
1845: END IF;
1846:
1847:
1848: -- Initialize API return status to SUCCESS
1947:
1948: -- Debug Message
1949: IF (AS_DEBUG_HIGH_ON) THEN
1950:
1951: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
1952: END IF;
1953:
1954: END Validate_process_rule;
1955: