[Home] [Help]
49:
50: -- Initialize message list if p_init_msg_list is set to TRUE.
51: IF FND_API.to_Boolean( p_init_msg_list )
52: THEN
53: FND_MSG_PUB.initialize;
54: END IF;
55:
56:
57: -- Debug Message
54: END IF;
55:
56:
57: -- Debug Message
58: --JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
59:
60:
61: -- Initialize API return status to SUCCESS
62: x_return_status := FND_API.G_RET_STS_SUCCESS;
86: -- Validate Environment
87: -- ******************************************************************
88: IF FND_GLOBAL.User_Id IS NULL
89: THEN
90: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
91: THEN
92: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
93: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
94: FND_MSG_PUB.ADD;
90: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
91: THEN
92: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
93: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
94: FND_MSG_PUB.ADD;
95: END IF;
96: RAISE FND_API.G_EXC_ERROR;
97: END IF;
98:
112: */
113: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
114: THEN
115: -- Debug message
116: -- JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_picklist_header');
117:
118: -- Invoke validation procedures
119: Validate_picklist_header(
120: p_init_msg_list => FND_API.G_FALSE,
133:
134: -- Hint: Add corresponding Master-Detail business logic here if necessary.
135:
136: -- Debug Message
137: --JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling create table handler');
138:
139:
140: -- assign p_pick_header_rec.picklist_header_id to x_picklist_header_id
141: x_picklist_header_id := p_pick_header_rec.picklist_header_id;
187: END IF;
188:
189:
190: -- Debug Message
191: --JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
192:
193:
194: -- Standard call to get message count and if count is 1, get message info.
195: FND_MSG_PUB.Count_And_Get
191: --JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
192:
193:
194: -- Standard call to get message count and if count is 1, get message info.
195: FND_MSG_PUB.Count_And_Get
196: ( p_count => x_msg_count,
197: p_data => x_msg_data
198: );
199:
218: WHEN FND_API.G_EXC_ERROR THEN
219: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
220: P_API_NAME => L_API_NAME
221: ,P_PKG_NAME => G_PKG_NAME
222: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
223: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
224: ,X_MSG_COUNT => X_MSG_COUNT
225: ,X_MSG_DATA => X_MSG_DATA
226: ,X_RETURN_STATUS => X_RETURN_STATUS);
228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
229: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
230: P_API_NAME => L_API_NAME
231: ,P_PKG_NAME => G_PKG_NAME
232: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
233: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
234: ,X_MSG_COUNT => X_MSG_COUNT
235: ,X_MSG_DATA => X_MSG_DATA
236: ,X_RETURN_STATUS => X_RETURN_STATUS);
318:
319: -- Initialize message list if p_init_msg_list is set to TRUE.
320: IF FND_API.to_Boolean( p_init_msg_list )
321: THEN
322: FND_MSG_PUB.initialize;
323: END IF;
324:
325:
326: -- Debug Message
323: END IF;
324:
325:
326: -- Debug Message
327: --JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
328:
329:
330: -- Initialize API return status to SUCCESS
331: x_return_status := FND_API.G_RET_STS_SUCCESS;
364: RAISE FND_API.G_EXC_ERROR;
365: END IF;
366:
367: -- Debug Message
368: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Open Cursor to Select');
369:
370: /*
371: Open C_Get_picklist_header( l_tar_PICK_HEADER_rec.picklist_header_id);
372:
400: l_ref_PICK_HEADER_rec.ATTRIBUTE14,
401: l_ref_PICK_HEADER_rec.ATTRIBUTE15;
402:
403: If ( C_Get_picklist_header%NOTFOUND) Then
404: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
405: THEN
406: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_UPDATE_TARGET');
407: FND_MESSAGE.Set_Token ('INFO', 'picklist_header', FALSE);
408: FND_MSG_PUB.Add;
404: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
405: THEN
406: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_UPDATE_TARGET');
407: FND_MESSAGE.Set_Token ('INFO', 'picklist_header', FALSE);
408: FND_MSG_PUB.Add;
409: END IF;
410: raise FND_API.G_EXC_ERROR;
411: END IF;
412: -- Debug Message
409: END IF;
410: raise FND_API.G_EXC_ERROR;
411: END IF;
412: -- Debug Message
413: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
414: Close C_Get_picklist_header;
415: */
416:
417:
416:
417:
418: /* If (l_tar_PICK_HEADER_rec.last_update_date is NULL or
419: l_tar_PICK_HEADER_rec.last_update_date = FND_API.G_MISS_Date ) Then
420: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
421: THEN
422: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
423: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
424: FND_MSG_PUB.ADD;
420: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
421: THEN
422: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
423: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
424: FND_MSG_PUB.ADD;
425: END IF;
426: raise FND_API.G_EXC_ERROR;
427: End if;
428: -- Check Whether record has been changed by someone else
426: raise FND_API.G_EXC_ERROR;
427: End if;
428: -- Check Whether record has been changed by someone else
429: If (l_tar_PICK_HEADER_rec.last_update_date <> l_ref_PICK_HEADER_rec.last_update_date) Then
430: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
431: THEN
432: FND_MESSAGE.Set_Name('CSP', 'API_RECORD_CHANGED');
433: FND_MESSAGE.Set_Token('INFO', 'picklist_header', FALSE);
434: FND_MSG_PUB.ADD;
430: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
431: THEN
432: FND_MESSAGE.Set_Name('CSP', 'API_RECORD_CHANGED');
433: FND_MESSAGE.Set_Token('INFO', 'picklist_header', FALSE);
434: FND_MSG_PUB.ADD;
435: END IF;
436: raise FND_API.G_EXC_ERROR;
437: End if;
438: */
439:
440: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
441: THEN
442: -- Debug message
443: --JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_picklist_header');
444:
445: -- Invoke validation procedures
446: Validate_picklist_header(
447: p_init_msg_list => FND_API.G_FALSE,
459:
460: -- Hint: Add corresponding Master-Detail business logic here if necessary.
461:
462: -- Debug Message
463: --JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler');
464:
465: -- Invoke table handler(CSP_PICKLIST_HEADERS_PKG.Update_Row)
466: CSP_PICKLIST_HEADERS_PKG.Update_Row(
467: p_picklist_header_id => p_PICK_HEADER_rec.picklist_header_id,
502: END IF;
503:
504:
505: -- Debug Message
506: --JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
507:
508:
509: -- Standard call to get message count and if count is 1, get message info.
510: FND_MSG_PUB.Count_And_Get
506: --JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
507:
508:
509: -- Standard call to get message count and if count is 1, get message info.
510: FND_MSG_PUB.Count_And_Get
511: ( p_count => x_msg_count,
512: p_data => x_msg_data
513: );
514:
534: WHEN FND_API.G_EXC_ERROR THEN
535: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
536: P_API_NAME => L_API_NAME
537: ,P_PKG_NAME => G_PKG_NAME
538: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
539: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
540: ,X_MSG_COUNT => X_MSG_COUNT
541: ,X_MSG_DATA => X_MSG_DATA
542: ,X_RETURN_STATUS => X_RETURN_STATUS);
544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
545: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
546: P_API_NAME => L_API_NAME
547: ,P_PKG_NAME => G_PKG_NAME
548: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
549: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
550: ,X_MSG_COUNT => X_MSG_COUNT
551: ,X_MSG_DATA => X_MSG_DATA
552: ,X_RETURN_STATUS => X_RETURN_STATUS);
597:
598: -- Initialize message list if p_init_msg_list is set to TRUE.
599: IF FND_API.to_Boolean( p_init_msg_list )
600: THEN
601: FND_MSG_PUB.initialize;
602: END IF;
603:
604:
605: -- Debug Message
602: END IF;
603:
604:
605: -- Debug Message
606: --JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
607:
608:
609: -- Initialize API return status to SUCCESS
610: x_return_status := FND_API.G_RET_STS_SUCCESS;
643: RAISE FND_API.G_EXC_ERROR;
644: END IF;
645: */
646: -- Debug Message
647: --JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling delete table handler');
648:
649: -- Invoke table handler(CSP_PICKLIST_HEADERS_PKG.Delete_Row)
650: CSP_PICKLIST_HEADERS_PKG.Delete_Row(
651: p_picklist_header_id => p_PICK_HEADER_rec.picklist_header_id);
660: END IF;
661:
662:
663: -- Debug Message
664: --JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
665:
666:
667: -- Standard call to get message count and if count is 1, get message info.
668: FND_MSG_PUB.Count_And_Get
664: --JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
665:
666:
667: -- Standard call to get message count and if count is 1, get message info.
668: FND_MSG_PUB.Count_And_Get
669: ( p_count => x_msg_count,
670: p_data => x_msg_data
671: );
672:
692: WHEN FND_API.G_EXC_ERROR THEN
693: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
694: P_API_NAME => L_API_NAME
695: ,P_PKG_NAME => G_PKG_NAME
696: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
697: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
698: ,X_MSG_COUNT => X_MSG_COUNT
699: ,X_MSG_DATA => X_MSG_DATA
700: ,X_RETURN_STATUS => X_RETURN_STATUS);
702: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
703: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
704: P_API_NAME => L_API_NAME
705: ,P_PKG_NAME => G_PKG_NAME
706: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
707: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
708: ,X_MSG_COUNT => X_MSG_COUNT
709: ,X_MSG_DATA => X_MSG_DATA
710: ,X_RETURN_STATUS => X_RETURN_STATUS);
728: )
729: IS
730: BEGIN
731: -- Debug Message
732: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Define Columns Begins');
733:
734: -- define all columns for CSP_PICKLIST_HEADERS_V view
735: dbms_sql.define_column(p_cur_get_PICK_HEADER, 1, P_PICK_HEADER_Rec.picklist_header_id);
736: dbms_sql.define_column(p_cur_get_PICK_HEADER, 2, P_PICK_HEADER_Rec.ORGANIZATION_ID);
755: dbms_sql.define_column(p_cur_get_PICK_HEADER, 21, P_PICK_HEADER_Rec.ATTRIBUTE14, 240);
756: dbms_sql.define_column(p_cur_get_PICK_HEADER, 22, P_PICK_HEADER_Rec.ATTRIBUTE15, 240);
757:
758: -- Debug Message
759: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Define Columns Ends');
760: END Define_Columns;
761:
762: -- This procudure gets column values by the Dynamic SQL.
763: PROCEDURE Get_Column_Values(
766: )
767: IS
768: BEGIN
769: -- Debug Message
770: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Get Column Values Begins');
771:
772: -- get all column values for CSP_PICKLIST_HEADERS_V table
773: dbms_sql.column_value(p_cur_get_PICK_HEADER, 1, X_PICK_HEADER_Rec.picklist_header_id);
774: dbms_sql.column_value(p_cur_get_PICK_HEADER, 2, X_PICK_HEADER_Rec.ORGANIZATION_ID);
793: dbms_sql.column_value(p_cur_get_PICK_HEADER, 21, X_PICK_HEADER_Rec.ATTRIBUTE14);
794: dbms_sql.column_value(p_cur_get_PICK_HEADER, 22, X_PICK_HEADER_Rec.ATTRIBUTE15);
795:
796: -- Debug Message
797: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Get Column Values Ends');
798: END Get_Column_Values;
799:
800: PROCEDURE Gen_PICK_HEADER_order_cl(
801: p_order_by_rec IN CSP_picklist_header_PUB.PICK_HEADER_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, '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, '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, 'Private API: Generate Order by Ends');
840: END Gen_PICK_HEADER_order_cl;
841:
842: -- This procedure bind the variables for the Dynamic SQL
843: PROCEDURE Bind(
849: BEGIN
850: -- Bind variables
851: -- Only those that are not NULL
852: -- Debug Message
853: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Bind Variables Begins');
854:
855: -- The following example applies to all columns,
856: -- developers can copy and paste them.
857: IF( (P_PICK_HEADER_Rec.picklist_header_id IS NOT NULL) AND (P_PICK_HEADER_Rec.picklist_header_id <> FND_API.G_MISS_NUM) )
859: DBMS_SQL.BIND_VARIABLE(p_cur_get_PICK_HEADER, ':p_picklist_header_id', P_PICK_HEADER_Rec.picklist_header_id);
860: END IF;
861:
862: -- Debug Message
863: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Bind Variables Ends');
864: END Bind;
865:
866: PROCEDURE Gen_Select(
867: x_select_cl OUT NOCOPY VARCHAR2
868: )
869: IS
870: BEGIN
871: -- Debug Message
872: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Generate Select Begins');
873:
874: x_select_cl := 'Select ' ||
875: 'CSP_PICKLIST_HEADERS_V.picklist_header_id,' ||
876: 'CSP_PICKLIST_HEADERS_V.CREATED_BY,' ||
900: 'CSP_PICKLIST_HEADERS_V.ATTRIBUTE14,' ||
901: 'CSP_PICKLIST_HEADERS_V.ATTRIBUTE15,' ||
902: 'from CSP_PICKLIST_HEADERS_V';
903: -- Debug Message
904: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Generate Select Ends');
905:
906: END Gen_Select;
907:
908: PROCEDURE Gen_PICK_HEADER_Where(
924: str_csr2 NUMBER;
925: l_operator VARCHAR2(10);
926: BEGIN
927: -- Debug Message
928: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Generate Where Begins');
929:
930: -- There are three examples for each kind of datatype:
931: -- NUMBER, DATE, VARCHAR2.
932: -- Developer can copy and paste the following codes for your own record.
1010:
1011: -- Add more IF statements for each column below
1012:
1013: -- Debug Message
1014: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Generate Where Ends');
1015:
1016: END Gen_PICK_HEADER_Where;
1017:
1018: */
1031:
1032: -- Initialize message list if p_init_msg_list is set to TRUE.
1033: IF FND_API.to_Boolean( p_init_msg_list )
1034: THEN
1035: FND_MSG_PUB.initialize;
1036: END IF;
1037:
1038:
1039: -- Initialize API return status to SUCCESS
1043: IF(p_picklist_header_id is NULL)
1044: THEN
1045: --JTF_PLSQL_API.Debug_Message('ERROR', 'Private picklist_header API: -Violate NOT NULL constraint(picklist_header_id)');
1046:
1047: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ERROR', 'Private picklist_header API: -Violate NOT NULL constraint(picklist_header_id)');
1048: x_return_status := FND_API.G_RET_STS_ERROR;
1049: END IF;
1050:
1051: IF(p_validation_mode =JTF_PLSQL_API.G_CREATE)
1064: NULL;
1065: END IF;
1066:
1067: -- Standard call to get message count and if count is 1, get message info.
1068: FND_MSG_PUB.Count_And_Get
1069: ( p_count => x_msg_count,
1070: p_data => x_msg_data
1071: );
1072:
1087:
1088: -- Initialize message list if p_init_msg_list is set to TRUE.
1089: IF FND_API.to_Boolean( p_init_msg_list )
1090: THEN
1091: FND_MSG_PUB.initialize;
1092: END IF;
1093:
1094:
1095: -- Initialize API return status to SUCCESS
1097:
1098: -- validate NOT NULL column
1099: IF(p_ORGANIZATION_ID is NULL)
1100: THEN
1101: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'ERROR', 'Private picklist_header API: -Violate NOT NULL constraint(ORGANIZATION_ID)');
1102: x_return_status := FND_API.G_RET_STS_ERROR;
1103: END IF;
1104:
1105: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1118: NULL;
1119: END IF;
1120:
1121: -- Standard call to get message count and if count is 1, get message info.
1122: FND_MSG_PUB.Count_And_Get
1123: ( p_count => x_msg_count,
1124: p_data => x_msg_data
1125: );
1126:
1141:
1142: -- Initialize message list if p_init_msg_list is set to TRUE.
1143: IF FND_API.to_Boolean( p_init_msg_list )
1144: THEN
1145: FND_MSG_PUB.initialize;
1146: END IF;
1147:
1148:
1149: -- Initialize API return status to SUCCESS
1165: NULL;
1166: END IF;
1167:
1168: -- Standard call to get message count and if count is 1, get message info.
1169: FND_MSG_PUB.Count_And_Get
1170: ( p_count => x_msg_count,
1171: p_data => x_msg_data
1172: );
1173:
1188:
1189: -- Initialize message list if p_init_msg_list is set to TRUE.
1190: IF FND_API.to_Boolean( p_init_msg_list )
1191: THEN
1192: FND_MSG_PUB.initialize;
1193: END IF;
1194:
1195:
1196: -- Initialize API return status to SUCCESS
1198:
1199: -- validate NOT NULL column
1200: IF(p_PICKLIST_STATUS is NULL)
1201: THEN
1202: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'ERROR', 'Private picklist_header API: -Violate NOT NULL constraint(PICKLIST_STATUS)');
1203: x_return_status := FND_API.G_RET_STS_ERROR;
1204: END IF;
1205:
1206: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1219: NULL;
1220: END IF;
1221:
1222: -- Standard call to get message count and if count is 1, get message info.
1223: FND_MSG_PUB.Count_And_Get
1224: ( p_count => x_msg_count,
1225: p_data => x_msg_data
1226: );
1227:
1242:
1243: -- Initialize message list if p_init_msg_list is set to TRUE.
1244: IF FND_API.to_Boolean( p_init_msg_list )
1245: THEN
1246: FND_MSG_PUB.initialize;
1247: END IF;
1248:
1249:
1250: -- Initialize API return status to SUCCESS
1266: NULL;
1267: END IF;
1268:
1269: -- Standard call to get message count and if count is 1, get message info.
1270: FND_MSG_PUB.Count_And_Get
1271: ( p_count => x_msg_count,
1272: p_data => x_msg_data
1273: );
1274:
1289:
1290: -- Initialize message list if p_init_msg_list is set to TRUE.
1291: IF FND_API.to_Boolean( p_init_msg_list )
1292: THEN
1293: FND_MSG_PUB.initialize;
1294: END IF;
1295:
1296:
1297: -- Initialize API return status to SUCCESS
1313: NULL;
1314: END IF;
1315:
1316: -- Standard call to get message count and if count is 1, get message info.
1317: FND_MSG_PUB.Count_And_Get
1318: ( p_count => x_msg_count,
1319: p_data => x_msg_data
1320: );
1321:
1339:
1340: -- Initialize message list if p_init_msg_list is set to TRUE.
1341: IF FND_API.to_Boolean( p_init_msg_list )
1342: THEN
1343: FND_MSG_PUB.initialize;
1344: END IF;
1345:
1346:
1347: -- Initialize API return status to SUCCESS
1352: -- THEN
1353: -- x_return_status := FND_API.G_RET_STS_ERROR;
1354:
1355: -- Debug Message
1356: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Error', 'API_INVALID_RECORD');
1357:
1358: -- Standard call to get message count and if count is 1, get message info.
1359: FND_MSG_PUB.Count_And_Get
1360: ( p_count => x_msg_count,
1355: -- Debug Message
1356: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Error', 'API_INVALID_RECORD');
1357:
1358: -- Standard call to get message count and if count is 1, get message info.
1359: FND_MSG_PUB.Count_And_Get
1360: ( p_count => x_msg_count,
1361: p_data => x_msg_data
1362: );
1363:
1376: l_api_name CONSTANT VARCHAR2(30) := 'Validate_picklist_header';
1377: BEGIN
1378:
1379: -- Debug Message
1380: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Error', 'Private API: ' || l_api_name || 'start');
1381:
1382:
1383: -- Initialize API return status to SUCCESS
1384: x_return_status := FND_API.G_RET_STS_SUCCESS;
1487: END IF;
1488:
1489:
1490: -- Debug Message
1491: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Error', 'Private API: ' || l_api_name || 'end');
1492:
1493: END Validate_picklist_header;
1494:
1495: End CSP_picklist_header_PVT;