[Home] [Help]
53:
54: -- Initialize message list if p_init_msg_list is set to TRUE.
55: IF FND_API.to_Boolean( p_init_msg_list )
56: THEN
57: FND_MSG_PUB.initialize;
58: END IF;
59:
60:
61: -- Debug Message
58: END IF;
59:
60:
61: -- Debug Message
62: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'start');
63:
64:
65: -- Initialize API return status to SUCCESS
66: x_return_status := FND_API.G_RET_STS_SUCCESS;
91: -- ******************************************************************
92: /*
93: IF FND_GLOBAL.User_Id IS NULL
94: THEN
95: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
96: THEN
97: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
98: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
99: FND_MSG_PUB.ADD;
95: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
96: THEN
97: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
98: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
99: FND_MSG_PUB.ADD;
100: END IF;
101: RAISE FND_API.G_EXC_ERROR;
102: END IF;
103: */
117:
118: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
119: THEN
120: -- Debug message
121: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Validate_resource');
122:
123: -- Invoke validation procedures
124: Validate_resource(
125: p_init_msg_list => FND_API.G_FALSE,
137:
138: -- Hint: Add corresponding Master-Detail business logic here if necessary.
139:
140: -- Debug Message
141: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Calling create table handler');
142:
143: IF p_CSP_rec.created_by IS NULL THEN
144: l_created_by := G_USER_ID;
145: END IF;
201: END IF;
202:
203:
204: -- Debug Message
205: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'end');
206:
207:
208: -- Standard call to get message count and if count is 1, get message info.
209: FND_MSG_PUB.Count_And_Get
205: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'end');
206:
207:
208: -- Standard call to get message count and if count is 1, get message info.
209: FND_MSG_PUB.Count_And_Get
210: ( p_count => x_msg_count,
211: p_data => x_msg_data
212: );
213:
232: WHEN FND_API.G_EXC_ERROR THEN
233: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
234: P_API_NAME => L_API_NAME
235: ,P_PKG_NAME => G_PKG_NAME
236: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
237: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
238: ,X_MSG_COUNT => X_MSG_COUNT
239: ,X_MSG_DATA => X_MSG_DATA
240: ,X_RETURN_STATUS => X_RETURN_STATUS);
242: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
243: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
244: P_API_NAME => L_API_NAME
245: ,P_PKG_NAME => G_PKG_NAME
246: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
247: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
248: ,X_MSG_COUNT => X_MSG_COUNT
249: ,X_MSG_DATA => X_MSG_DATA
250: ,X_RETURN_STATUS => X_RETURN_STATUS);
335:
336: -- Initialize message list if p_init_msg_list is set to TRUE.
337: IF FND_API.to_Boolean( p_init_msg_list )
338: THEN
339: FND_MSG_PUB.initialize;
340: END IF;
341:
342:
343: -- Debug Message
340: END IF;
341:
342:
343: -- Debug Message
344: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'start');
345:
346:
347: -- Initialize API return status to SUCCESS
348: x_return_status := FND_API.G_RET_STS_SUCCESS;
381: RAISE FND_API.G_EXC_ERROR;
382: END IF;
383: */
384: -- Debug Message
385: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: - Open Cursor to Select');
386:
387: /*
388: Open C_Get_resource( l_tar_CSP_rec.CSP_INV_LOC_ASSIGNMENT_ID);
389:
420: l_ref_CSP_rec.ATTRIBUTE14,
421: l_ref_CSP_rec.ATTRIBUTE15;
422:
423: If ( C_Get_resource%NOTFOUND) Then
424: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
425: THEN
426: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_UPDATE_TARGET');
427: FND_MESSAGE.Set_Token ('INFO', 'resource', FALSE);
428: FND_MSG_PUB.Add;
424: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
425: THEN
426: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_UPDATE_TARGET');
427: FND_MESSAGE.Set_Token ('INFO', 'resource', FALSE);
428: FND_MSG_PUB.Add;
429: END IF;
430: raise FND_API.G_EXC_ERROR;
431: END IF;
432: -- Debug Message
429: END IF;
430: raise FND_API.G_EXC_ERROR;
431: END IF;
432: -- Debug Message
433: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: - Close Cursor');
434: Close C_Get_resource;
435: */
436:
437: /*
436:
437: /*
438: If (l_tar_CSP_rec.last_update_date is NULL or
439: l_tar_CSP_rec.last_update_date = FND_API.G_MISS_Date ) Then
440: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
441: THEN
442: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
443: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
444: FND_MSG_PUB.ADD;
440: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
441: THEN
442: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
443: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
444: FND_MSG_PUB.ADD;
445: END IF;
446: raise FND_API.G_EXC_ERROR;
447: End if;
448: */
448: */
449: /*
450: -- Check Whether record has been changed by someone else
451: If (l_tar_CSP_rec.last_update_date <> l_ref_CSP_rec.last_update_date) Then
452: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
453: THEN
454: FND_MESSAGE.Set_Name('CSP', 'API_RECORD_CHANGED');
455: FND_MESSAGE.Set_Token('INFO', 'resource', FALSE);
456: FND_MSG_PUB.ADD;
452: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
453: THEN
454: FND_MESSAGE.Set_Name('CSP', 'API_RECORD_CHANGED');
455: FND_MESSAGE.Set_Token('INFO', 'resource', FALSE);
456: FND_MSG_PUB.ADD;
457: END IF;
458: raise FND_API.G_EXC_ERROR;
459: End if;
460: */
460: */
461: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
462: THEN
463: -- Debug message
464: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Validate_resource');
465:
466: -- Invoke validation procedures
467: Validate_resource(
468: p_init_msg_list => FND_API.G_FALSE,
480:
481: -- Hint: Add corresponding Master-Detail business logic here if necessary.
482:
483: -- Debug Message
484: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Calling update table handler');
485:
486: -- Invoke table handler(CSP_INV_LOC_ASSIGNMENTS_PKG.Update_Row)
487: CSP_INV_LOC_ASSIGNMENTS_PKG.Update_Row(
488: p_CSP_INV_LOC_ASSIGNMENT_ID => p_CSP_rec.CSP_INV_LOC_ASSIGNMENT_ID,
527: END IF;
528:
529:
530: -- Debug Message
531: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'end');
532:
533:
534: -- Standard call to get message count and if count is 1, get message info.
535: FND_MSG_PUB.Count_And_Get
531: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'end');
532:
533:
534: -- Standard call to get message count and if count is 1, get message info.
535: FND_MSG_PUB.Count_And_Get
536: ( p_count => x_msg_count,
537: p_data => x_msg_data
538: );
539:
559: WHEN FND_API.G_EXC_ERROR THEN
560: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
561: P_API_NAME => L_API_NAME
562: ,P_PKG_NAME => G_PKG_NAME
563: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
564: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
565: ,X_MSG_COUNT => X_MSG_COUNT
566: ,X_MSG_DATA => X_MSG_DATA
567: ,X_RETURN_STATUS => X_RETURN_STATUS);
569: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
570: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
571: P_API_NAME => L_API_NAME
572: ,P_PKG_NAME => G_PKG_NAME
573: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
574: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
575: ,X_MSG_COUNT => X_MSG_COUNT
576: ,X_MSG_DATA => X_MSG_DATA
577: ,X_RETURN_STATUS => X_RETURN_STATUS);
623:
624: -- Initialize message list if p_init_msg_list is set to TRUE.
625: IF FND_API.to_Boolean( p_init_msg_list )
626: THEN
627: FND_MSG_PUB.initialize;
628: END IF;
629:
630:
631: -- Debug Message
628: END IF;
629:
630:
631: -- Debug Message
632: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'start');
633:
634:
635: -- Initialize API return status to SUCCESS
636: x_return_status := FND_API.G_RET_STS_SUCCESS;
669: RAISE FND_API.G_EXC_ERROR;
670: END IF;
671: */
672: -- Debug Message
673: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Calling delete table handler');
674:
675: -- Invoke table handler(CSP_INV_LOC_ASSIGNMENTS_PKG.Delete_Row)
676: CSP_INV_LOC_ASSIGNMENTS_PKG.Delete_Row(
677: p_CSP_INV_LOC_ASSIGNMENT_ID => p_CSP_rec.CSP_INV_LOC_ASSIGNMENT_ID);
686: END IF;
687:
688:
689: -- Debug Message
690: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'end');
691:
692:
693: -- Standard call to get message count and if count is 1, get message info.
694: FND_MSG_PUB.Count_And_Get
690: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'end');
691:
692:
693: -- Standard call to get message count and if count is 1, get message info.
694: FND_MSG_PUB.Count_And_Get
695: ( p_count => x_msg_count,
696: p_data => x_msg_data
697: );
698:
718: WHEN FND_API.G_EXC_ERROR THEN
719: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
720: P_API_NAME => L_API_NAME
721: ,P_PKG_NAME => G_PKG_NAME
722: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
723: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
724: ,X_MSG_COUNT => X_MSG_COUNT
725: ,X_MSG_DATA => X_MSG_DATA
726: ,X_RETURN_STATUS => X_RETURN_STATUS);
728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
729: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
730: P_API_NAME => L_API_NAME
731: ,P_PKG_NAME => G_PKG_NAME
732: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
733: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
734: ,X_MSG_COUNT => X_MSG_COUNT
735: ,X_MSG_DATA => X_MSG_DATA
736: ,X_RETURN_STATUS => X_RETURN_STATUS);
754: )
755: IS
756: BEGIN
757: -- Debug Message
758: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Define Columns Begins');
759:
760: -- define all columns for CSP_INV_LOC_ASSIGNMENTS_V view
761: dbms_sql.define_column(p_cur_get_CSP, 1, P_CSP_Rec.CSP_INV_LOC_ASSIGNMENT_ID);
762: dbms_sql.define_column(p_cur_get_CSP, 2, P_CSP_Rec.RESOURCE_ID);
768: dbms_sql.define_column(p_cur_get_CSP, 8, P_CSP_Rec.EFFECTIVE_DATE_END);
769: dbms_sql.define_column(p_cur_get_CSP, 9, P_CSP_Rec.DEFAULT_CODE, 30);
770:
771: -- Debug Message
772: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Define Columns Ends');
773: END Define_Columns;
774:
775: -- This procudure gets column values by the Dynamic SQL.
776: PROCEDURE Get_Column_Values(
779: )
780: IS
781: BEGIN
782: -- Debug Message
783: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Get Column Values Begins');
784:
785: -- get all column values for CSP_INV_LOC_ASSIGNMENTS_V table
786: dbms_sql.column_value(p_cur_get_CSP, 1, X_CSP_Rec.CSP_INV_LOC_ASSIGNMENT_ID);
787: dbms_sql.column_value(p_cur_get_CSP, 2, X_CSP_Rec.RESOURCE_ID);
793: dbms_sql.column_value(p_cur_get_CSP, 8, X_CSP_Rec.EFFECTIVE_DATE_END);
794: dbms_sql.column_value(p_cur_get_CSP, 9, X_CSP_Rec.DEFAULT_CODE);
795:
796: -- Debug Message
797: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Get Column Values Ends');
798: END Get_Column_Values;
799:
800: PROCEDURE Gen_CSP_order_cl(
801: p_order_by_rec IN CSP_RESOURCE_PUB.CSP_sort_rec_type,
808: l_order_by_cl VARCHAR2(1000) := NULL;
809: l_util_order_by_tbl JTF_PLSQL_API.Util_order_by_tbl_type;
810: BEGIN
811: -- Debug Message
812: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Generate Order by Begins');
813:
814: -- Hint: Developer should add more statements according to CSP_sort_rec_type
815: -- Ex:
816: -- l_util_order_by_tbl(1).col_choice := p_order_by_rec.customer_name;
816: -- l_util_order_by_tbl(1).col_choice := p_order_by_rec.customer_name;
817: -- l_util_order_by_tbl(1).col_name := 'Customer_Name';
818:
819: -- Debug Message
820: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Invoke JTF_PLSQL_API.Translate_OrderBy');
821:
822: JTF_PLSQL_API.Translate_OrderBy(
823: p_api_version_number => 1.0
824: ,p_init_msg_list => FND_API.G_FALSE
835: x_order_by_cl := NULL;
836: END IF;
837:
838: -- Debug Message
839: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Generate Order by Ends');
840: END Gen_CSP_order_cl;
841:
842: -- This procedure bind the variables for the Dynamic SQL
843: PROCEDURE Bind(
850:
851: -- Bind variables
852: -- Only those that are not NULL
853: -- Debug Message
854: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Bind Variables Begins');
855:
856: -- The following example applies to all columns,
857: -- developers can copy and paste them.
858: IF( (P_CSP_Rec.CSP_INV_LOC_ASSIGNMENT_ID IS NOT NULL) AND (P_CSP_Rec.CSP_INV_LOC_ASSIGNMENT_ID <> FND_API.G_MISS_NUM) )
860: DBMS_SQL.BIND_VARIABLE(p_cur_get_CSP, ':p_CSP_INV_LOC_ASSIGNMENT_ID', P_CSP_Rec.CSP_INV_LOC_ASSIGNMENT_ID);
861: END IF;
862:
863: -- Debug Message
864: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Bind Variables Ends');
865: END Bind;
866:
867: PROCEDURE Gen_Select(
868: x_select_cl OUT NOCOPY VARCHAR2
869: )
870: IS
871: BEGIN
872: -- Debug Message
873: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Generate Select Begins');
874:
875: x_select_cl := 'Select ' ||
876: 'CSP_INV_LOC_ASSIGNMENTS_V.CSP_INV_LOC_ASSIGNMENT_ID,' ||
877: 'CSP_INV_LOC_ASSIGNMENTS_V.CREATED_BY,' ||
888: 'CSP_INV_LOC_ASSIGNMENTS_V.EFFECTIVE_DATE_END,' ||
889: 'CSP_INV_LOC_ASSIGNMENTS_V.DEFAULT_CODE,' ||
890: 'from CSP_INV_LOC_ASSIGNMENTS_V';
891: -- Debug Message
892: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Generate Select Ends');
893:
894: END Gen_Select;
895:
896: PROCEDURE Gen_CSP_Where(
912: str_csr2 NUMBER;
913: l_operator VARCHAR2(10);
914: BEGIN
915: -- Debug Message
916: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Generate Where Begins');
917:
918: -- There are three examples for each kind of datatype:
919: -- NUMBER, DATE, VARCHAR2.
920: -- Developer can copy and paste the following codes for your own record.
998:
999: -- Add more IF statements for each column below
1000:
1001: -- Debug Message
1002: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Generate Where Ends');
1003:
1004: END Gen_CSP_Where;
1005:
1006: -- Item-level validation procedures
1018:
1019: -- Initialize message list if p_init_msg_list is set to TRUE.
1020: IF FND_API.to_Boolean( p_init_msg_list )
1021: THEN
1022: FND_MSG_PUB.initialize;
1023: END IF;
1024:
1025:
1026: -- Initialize API return status to SUCCESS
1028:
1029: -- validate NOT NULL column
1030: IF(p_CSP_INV_LOC_ASSIGNMENT_ID is NULL)
1031: THEN
1032: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'CSP', 'Private resource API: -Violate NOT NULL constraint(CSP_INV_LOC_ASSIGNMENT_ID)');
1033: x_return_status := FND_API.G_RET_STS_ERROR;
1034: END IF;
1035:
1036: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1049: NULL;
1050: END IF;
1051:
1052: -- Standard call to get message count and if count is 1, get message info.
1053: FND_MSG_PUB.Count_And_Get
1054: ( p_count => x_msg_count,
1055: p_data => x_msg_data
1056: );
1057:
1072:
1073: -- Initialize message list if p_init_msg_list is set to TRUE.
1074: IF FND_API.to_Boolean( p_init_msg_list )
1075: THEN
1076: FND_MSG_PUB.initialize;
1077: END IF;
1078:
1079:
1080: -- Initialize API return status to SUCCESS
1082:
1083: -- validate NOT NULL column
1084: IF(p_RESOURCE_ID is NULL)
1085: THEN
1086: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'CSP', 'Private resource API: -Violate NOT NULL constraint(RESOURCE_ID)');
1087: x_return_status := FND_API.G_RET_STS_ERROR;
1088: END IF;
1089:
1090: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1103: NULL;
1104: END IF;
1105:
1106: -- Standard call to get message count and if count is 1, get message info.
1107: FND_MSG_PUB.Count_And_Get
1108: ( p_count => x_msg_count,
1109: p_data => x_msg_data
1110: );
1111:
1126:
1127: -- Initialize message list if p_init_msg_list is set to TRUE.
1128: IF FND_API.to_Boolean( p_init_msg_list )
1129: THEN
1130: FND_MSG_PUB.initialize;
1131: END IF;
1132:
1133:
1134: -- Initialize API return status to SUCCESS
1136:
1137: -- validate NOT NULL column
1138: IF(p_ORGANIZATION_ID is NULL)
1139: THEN
1140: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'CSP', 'Private resource API: -Violate NOT NULL constraint(ORGANIZATION_ID)');
1141: x_return_status := FND_API.G_RET_STS_ERROR;
1142: END IF;
1143:
1144: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1157: NULL;
1158: END IF;
1159:
1160: -- Standard call to get message count and if count is 1, get message info.
1161: FND_MSG_PUB.Count_And_Get
1162: ( p_count => x_msg_count,
1163: p_data => x_msg_data
1164: );
1165:
1180:
1181: -- Initialize message list if p_init_msg_list is set to TRUE.
1182: IF FND_API.to_Boolean( p_init_msg_list )
1183: THEN
1184: FND_MSG_PUB.initialize;
1185: END IF;
1186:
1187:
1188: -- Initialize API return status to SUCCESS
1190:
1191: -- validate NOT NULL column
1192: IF(p_SUBINVENTORY_CODE is NULL)
1193: THEN
1194: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'CSP', 'Private resource API: -Violate NOT NULL constraint(SUBINVENTORY_CODE)');
1195: x_return_status := FND_API.G_RET_STS_ERROR;
1196: END IF;
1197:
1198: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1211: NULL;
1212: END IF;
1213:
1214: -- Standard call to get message count and if count is 1, get message info.
1215: FND_MSG_PUB.Count_And_Get
1216: ( p_count => x_msg_count,
1217: p_data => x_msg_data
1218: );
1219:
1234:
1235: -- Initialize message list if p_init_msg_list is set to TRUE.
1236: IF FND_API.to_Boolean( p_init_msg_list )
1237: THEN
1238: FND_MSG_PUB.initialize;
1239: END IF;
1240:
1241:
1242: -- Initialize API return status to SUCCESS
1258: NULL;
1259: END IF;
1260:
1261: -- Standard call to get message count and if count is 1, get message info.
1262: FND_MSG_PUB.Count_And_Get
1263: ( p_count => x_msg_count,
1264: p_data => x_msg_data
1265: );
1266:
1281:
1282: -- Initialize message list if p_init_msg_list is set to TRUE.
1283: IF FND_API.to_Boolean( p_init_msg_list )
1284: THEN
1285: FND_MSG_PUB.initialize;
1286: END IF;
1287:
1288:
1289: -- Initialize API return status to SUCCESS
1291:
1292: -- validate NOT NULL column
1293: IF(p_RESOURCE_TYPE is NULL)
1294: THEN
1295: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'CSP', 'Private resource API: -Violate NOT NULL constraint(RESOURCE_TYPE)');
1296: x_return_status := FND_API.G_RET_STS_ERROR;
1297: END IF;
1298:
1299: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1312: NULL;
1313: END IF;
1314:
1315: -- Standard call to get message count and if count is 1, get message info.
1316: FND_MSG_PUB.Count_And_Get
1317: ( p_count => x_msg_count,
1318: p_data => x_msg_data
1319: );
1320:
1335:
1336: -- Initialize message list if p_init_msg_list is set to TRUE.
1337: IF FND_API.to_Boolean( p_init_msg_list )
1338: THEN
1339: FND_MSG_PUB.initialize;
1340: END IF;
1341:
1342:
1343: -- Initialize API return status to SUCCESS
1345:
1346: -- validate NOT NULL column
1347: IF(p_EFFECTIVE_DATE_START is NULL)
1348: THEN
1349: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'CSP', 'Private resource API: -Violate NOT NULL constraint(EFFECTIVE_DATE_START)');
1350: x_return_status := FND_API.G_RET_STS_ERROR;
1351: END IF;
1352:
1353: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1366: NULL;
1367: END IF;
1368:
1369: -- Standard call to get message count and if count is 1, get message info.
1370: FND_MSG_PUB.Count_And_Get
1371: ( p_count => x_msg_count,
1372: p_data => x_msg_data
1373: );
1374:
1389:
1390: -- Initialize message list if p_init_msg_list is set to TRUE.
1391: IF FND_API.to_Boolean( p_init_msg_list )
1392: THEN
1393: FND_MSG_PUB.initialize;
1394: END IF;
1395:
1396:
1397: -- Initialize API return status to SUCCESS
1399:
1400: -- validate NOT NULL column
1401: IF(p_EFFECTIVE_DATE_END is NULL)
1402: THEN
1403: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'CSP', 'Private resource API: -Violate NOT NULL constraint(EFFECTIVE_DATE_END)');
1404: x_return_status := FND_API.G_RET_STS_ERROR;
1405: END IF;
1406:
1407: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1420: NULL;
1421: END IF;
1422:
1423: -- Standard call to get message count and if count is 1, get message info.
1424: FND_MSG_PUB.Count_And_Get
1425: ( p_count => x_msg_count,
1426: p_data => x_msg_data
1427: );
1428:
1443:
1444: -- Initialize message list if p_init_msg_list is set to TRUE.
1445: IF FND_API.to_Boolean( p_init_msg_list )
1446: THEN
1447: FND_MSG_PUB.initialize;
1448: END IF;
1449:
1450:
1451: -- Initialize API return status to SUCCESS
1467: NULL;
1468: END IF;
1469:
1470: -- Standard call to get message count and if count is 1, get message info.
1471: FND_MSG_PUB.Count_And_Get
1472: ( p_count => x_msg_count,
1473: p_data => x_msg_data
1474: );
1475:
1493:
1494: -- Initialize message list if p_init_msg_list is set to TRUE.
1495: IF FND_API.to_Boolean( p_init_msg_list )
1496: THEN
1497: FND_MSG_PUB.initialize;
1498: END IF;
1499:
1500:
1501: -- Initialize API return status to SUCCESS
1506: -- THEN
1507: -- x_return_status := FND_API.G_RET_STS_ERROR;
1508:
1509: -- Debug Message
1510: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'API_INVALID_RECORD');
1511:
1512: -- Standard call to get message count and if count is 1, get message info.
1513: FND_MSG_PUB.Count_And_Get
1514: ( p_count => x_msg_count,
1509: -- Debug Message
1510: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'API_INVALID_RECORD');
1511:
1512: -- Standard call to get message count and if count is 1, get message info.
1513: FND_MSG_PUB.Count_And_Get
1514: ( p_count => x_msg_count,
1515: p_data => x_msg_data
1516: );
1517:
1530: l_api_name CONSTANT VARCHAR2(30) := 'Validate_resource';
1531: BEGIN
1532:
1533: -- Debug Message
1534: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'start');
1535:
1536:
1537: -- Initialize API return status to SUCCESS
1538: x_return_status := FND_API.G_RET_STS_SUCCESS;
1677: END IF;
1678:
1679:
1680: -- Debug Message
1681: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'end');
1682:
1683: END Validate_resource;
1684:
1685: End CSP_RESOURCE_PVT;