[Home] [Help]
55:
56: -- Initialize message list if p_init_msg_list is set to TRUE.
57: IF FND_API.to_Boolean( p_init_msg_list )
58: THEN
59: FND_MSG_PUB.initialize;
60: END IF;
61:
62:
63: -- Debug Message
60: END IF;
61:
62:
63: -- Debug Message
64: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'start');
65:
66:
67: -- Initialize API return status to SUCCESS
68: x_return_status := FND_API.G_RET_STS_SUCCESS;
92: -- Validate Environment
93: -- ******************************************************************
94: IF FND_GLOBAL.User_Id IS NULL
95: THEN
96: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
97: THEN
98: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
99: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
100: FND_MSG_PUB.ADD;
96: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
97: THEN
98: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
99: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
100: FND_MSG_PUB.ADD;
101: END IF;
102: RAISE FND_API.G_EXC_ERROR;
103: END IF;
104:
118:
119: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
120: THEN
121: -- Debug message
122: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Validate_pack_serial_lots');
123:
124: -- Invoke validation procedures
125: Validate_pack_serial_lots(
126: p_init_msg_list => FND_API.G_FALSE,
138:
139: -- Hint: Add corresponding Master-Detail business logic here if necessary.
140:
141: -- Debug Message
142: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Calling create table handler');
143:
144: IF l_created_by IS NULL THEN
145: l_created_by := G_USER_ID;
146: END IF;
189: END IF;
190:
191:
192: -- Debug Message
193: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'end');
194:
195:
196: -- Standard call to get message count and if count is 1, get message info.
197: FND_MSG_PUB.Count_And_Get
193: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'end');
194:
195:
196: -- Standard call to get message count and if count is 1, get message info.
197: FND_MSG_PUB.Count_And_Get
198: ( p_count => x_msg_count,
199: p_data => x_msg_data
200: );
201:
220: WHEN FND_API.G_EXC_ERROR THEN
221: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
222: P_API_NAME => L_API_NAME
223: ,P_PKG_NAME => G_PKG_NAME
224: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
225: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
226: ,X_MSG_COUNT => X_MSG_COUNT
227: ,X_MSG_DATA => X_MSG_DATA
228: ,X_RETURN_STATUS => X_RETURN_STATUS);
230: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
231: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
232: P_API_NAME => L_API_NAME
233: ,P_PKG_NAME => G_PKG_NAME
234: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
235: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
236: ,X_MSG_COUNT => X_MSG_COUNT
237: ,X_MSG_DATA => X_MSG_DATA
238: ,X_RETURN_STATUS => X_RETURN_STATUS);
305:
306: -- Initialize message list if p_init_msg_list is set to TRUE.
307: IF FND_API.to_Boolean( p_init_msg_list )
308: THEN
309: FND_MSG_PUB.initialize;
310: END IF;
311:
312:
313: -- Debug Message
310: END IF;
311:
312:
313: -- Debug Message
314: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'start');
315:
316:
317: -- Initialize API return status to SUCCESS
318: x_return_status := FND_API.G_RET_STS_SUCCESS;
353: RAISE FND_API.G_EXC_ERROR;
354: END IF;
355: */
356: -- Debug Message
357: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: - Open Cursor to Select');
358:
359: /*
360: Open C_Get_pack_serial_lots( l_tar_plsl_rec.PACKLIST_SERIAL_LOT_ID);
361:
374: l_ref_plsl_rec.LOT_NUMBER,
375: l_ref_plsl_rec.SERIAL_NUMBER;
376:
377: If ( C_Get_pack_serial_lots%NOTFOUND) Then
378: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
379: THEN
380: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_UPDATE_TARGET');
381: FND_MESSAGE.Set_Token ('INFO', 'pack_serial_lots', FALSE);
382: FND_MSG_PUB.Add;
378: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
379: THEN
380: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_UPDATE_TARGET');
381: FND_MESSAGE.Set_Token ('INFO', 'pack_serial_lots', FALSE);
382: FND_MSG_PUB.Add;
383: END IF;
384: raise FND_API.G_EXC_ERROR;
385: END IF;
386: -- Debug Message
383: END IF;
384: raise FND_API.G_EXC_ERROR;
385: END IF;
386: -- Debug Message
387: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: - Close Cursor');
388: Close C_Get_pack_serial_lots;
389: */
390:
391:
390:
391:
392: If (l_tar_plsl_rec.last_update_date is NULL or
393: l_tar_plsl_rec.last_update_date = FND_API.G_MISS_Date ) Then
394: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
395: THEN
396: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
397: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
398: FND_MSG_PUB.ADD;
394: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
395: THEN
396: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
397: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
398: FND_MSG_PUB.ADD;
399: END IF;
400: raise FND_API.G_EXC_ERROR;
401: End if;
402: -- Check Whether record has been changed by someone else
400: raise FND_API.G_EXC_ERROR;
401: End if;
402: -- Check Whether record has been changed by someone else
403: If (l_tar_plsl_rec.last_update_date <> l_ref_plsl_rec.last_update_date) 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_RECORD_CHANGED');
407: FND_MESSAGE.Set_Token('INFO', 'pack_serial_lots', 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_RECORD_CHANGED');
407: FND_MESSAGE.Set_Token('INFO', 'pack_serial_lots', FALSE);
408: FND_MSG_PUB.ADD;
409: END IF;
410: raise FND_API.G_EXC_ERROR;
411: End if;
412:
412:
413: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
414: THEN
415: -- Debug message
416: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Validate_pack_serial_lots');
417:
418: -- Invoke validation procedures
419: Validate_pack_serial_lots(
420: p_init_msg_list => FND_API.G_FALSE,
432:
433: -- Hint: Add corresponding Master-Detail business logic here if necessary.
434:
435: -- Debug Message
436: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Calling update table handler');
437:
438: -- Invoke table handler(CSP_PACKLIST_SERIAL_LOTS_PKG.Update_Row)
439: CSP_PACKLIST_SERIAL_LOTS_PKG.Update_Row(
440: p_PACKLIST_SERIAL_LOT_ID => p_plsl_rec.PACKLIST_SERIAL_LOT_ID,
460: END IF;
461:
462:
463: -- Debug Message
464: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'end');
465:
466:
467: -- Standard call to get message count and if count is 1, get message info.
468: FND_MSG_PUB.Count_And_Get
464: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'end');
465:
466:
467: -- Standard call to get message count and if count is 1, get message info.
468: FND_MSG_PUB.Count_And_Get
469: ( p_count => x_msg_count,
470: p_data => x_msg_data
471: );
472:
492: WHEN FND_API.G_EXC_ERROR THEN
493: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
494: P_API_NAME => L_API_NAME
495: ,P_PKG_NAME => G_PKG_NAME
496: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
497: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
498: ,X_MSG_COUNT => X_MSG_COUNT
499: ,X_MSG_DATA => X_MSG_DATA
500: ,X_RETURN_STATUS => X_RETURN_STATUS);
502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
503: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
504: P_API_NAME => L_API_NAME
505: ,P_PKG_NAME => G_PKG_NAME
506: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
507: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
508: ,X_MSG_COUNT => X_MSG_COUNT
509: ,X_MSG_DATA => X_MSG_DATA
510: ,X_RETURN_STATUS => X_RETURN_STATUS);
555:
556: -- Initialize message list if p_init_msg_list is set to TRUE.
557: IF FND_API.to_Boolean( p_init_msg_list )
558: THEN
559: FND_MSG_PUB.initialize;
560: END IF;
561:
562:
563: -- Debug Message
560: END IF;
561:
562:
563: -- Debug Message
564: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'start');
565:
566:
567: -- Initialize API return status to SUCCESS
568: x_return_status := FND_API.G_RET_STS_SUCCESS;
603: RAISE FND_API.G_EXC_ERROR;
604: END IF;
605: */
606: -- Debug Message
607: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Calling delete table handler');
608:
609: -- Invoke table handler(CSP_PACKLIST_SERIAL_LOTS_PKG.Delete_Row)
610: CSP_PACKLIST_SERIAL_LOTS_PKG.Delete_Row(
611: p_PACKLIST_SERIAL_LOT_ID => p_plsl_rec.PACKLIST_SERIAL_LOT_ID);
620: END IF;
621:
622:
623: -- Debug Message
624: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'end');
625:
626:
627: -- Standard call to get message count and if count is 1, get message info.
628: FND_MSG_PUB.Count_And_Get
624: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'end');
625:
626:
627: -- Standard call to get message count and if count is 1, get message info.
628: FND_MSG_PUB.Count_And_Get
629: ( p_count => x_msg_count,
630: p_data => x_msg_data
631: );
632:
652: WHEN FND_API.G_EXC_ERROR THEN
653: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
654: P_API_NAME => L_API_NAME
655: ,P_PKG_NAME => G_PKG_NAME
656: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
657: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
658: ,X_MSG_COUNT => X_MSG_COUNT
659: ,X_MSG_DATA => X_MSG_DATA
660: ,X_RETURN_STATUS => X_RETURN_STATUS);
662: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
663: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
664: P_API_NAME => L_API_NAME
665: ,P_PKG_NAME => G_PKG_NAME
666: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
667: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
668: ,X_MSG_COUNT => X_MSG_COUNT
669: ,X_MSG_DATA => X_MSG_DATA
670: ,X_RETURN_STATUS => X_RETURN_STATUS);
688: )
689: IS
690: BEGIN
691: -- Debug Message
692: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Define Columns Begins');
693:
694: -- define all columns for CSP_PACKLIST_SERIAL_LOTS_V view
695: dbms_sql.define_column(p_cur_get_plsl, 1, P_plsl_Rec.PACKLIST_SERIAL_LOT_ID);
696: dbms_sql.define_column(p_cur_get_plsl, 2, P_plsl_Rec.PACKLIST_LINE_ID);
700: dbms_sql.define_column(p_cur_get_plsl, 6, P_plsl_Rec.LOT_NUMBER, 240);
701: dbms_sql.define_column(p_cur_get_plsl, 7, P_plsl_Rec.SERIAL_NUMBER, 240);
702:
703: -- Debug Message
704: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Define Columns Ends');
705: END Define_Columns;
706:
707: -- This procudure gets column values by the Dynamic SQL.
708: PROCEDURE Get_Column_Values(
711: )
712: IS
713: BEGIN
714: -- Debug Message
715: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Get Column Values Begins');
716:
717: -- get all column values for CSP_PACKLIST_SERIAL_LOTS_V table
718: dbms_sql.column_value(p_cur_get_plsl, 1, X_plsl_Rec.ROW_ID);
719: dbms_sql.column_value(p_cur_get_plsl, 2, X_plsl_Rec.PACKLIST_SERIAL_LOT_ID);
724: dbms_sql.column_value(p_cur_get_plsl, 7, X_plsl_Rec.LOT_NUMBER);
725: dbms_sql.column_value(p_cur_get_plsl, 8, X_plsl_Rec.SERIAL_NUMBER);
726:
727: -- Debug Message
728: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Get Column Values Ends');
729: END Get_Column_Values;
730:
731: PROCEDURE Gen_plsl_order_cl(
732: p_order_by_rec IN CSP_Pack_Serial_Lots_PUB.plsl_sort_rec_type,
739: l_order_by_cl VARCHAR2(1000) := NULL;
740: l_util_order_by_tbl JTF_PLSQL_API.Util_order_by_tbl_type;
741: BEGIN
742: -- Debug Message
743: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Generate Order by Begins');
744:
745: -- Hint: Developer should add more statements according to CSP_sort_rec_type
746: -- Ex:
747: -- l_util_order_by_tbl(1).col_choice := p_order_by_rec.customer_name;
747: -- l_util_order_by_tbl(1).col_choice := p_order_by_rec.customer_name;
748: -- l_util_order_by_tbl(1).col_name := 'Customer_Name';
749:
750: -- Debug Message
751: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Invoke JTF_PLSQL_API.Translate_OrderBy');
752:
753: JTF_PLSQL_API.Translate_OrderBy(
754: p_api_version_number => 1.0
755: ,p_init_msg_list => FND_API.G_FALSE
766: x_order_by_cl := NULL;
767: END IF;
768:
769: -- Debug Message
770: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Generate Order by Ends');
771: END Gen_plsl_order_cl;
772:
773: -- This procedure bind the variables for the Dynamic SQL
774: PROCEDURE Bind(
780: BEGIN
781: -- Bind variables
782: -- Only those that are not NULL
783: -- Debug Message
784: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Bind Variables Begins');
785:
786: -- The following example applies to all columns,
787: -- developers can copy and paste them.
788: IF( (P_plsl_Rec.PACKLIST_SERIAL_LOT_ID IS NOT NULL) AND (P_plsl_Rec.PACKLIST_SERIAL_LOT_ID <> FND_API.G_MISS_NUM) )
790: DBMS_SQL.BIND_VARIABLE(p_cur_get_plsl, ':p_PACKLIST_SERIAL_LOT_ID', P_plsl_Rec.PACKLIST_SERIAL_LOT_ID);
791: END IF;
792:
793: -- Debug Message
794: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Bind Variables Ends');
795: END Bind;
796:
797: PROCEDURE Gen_Select(
798: x_select_cl OUT NOCOPY VARCHAR2
799: )
800: IS
801: BEGIN
802: -- Debug Message
803: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Generate Select Begins');
804:
805: x_select_cl := 'Select ' ||
806: 'CSP_PACKLIST_SERIAL_LOTS_V.ROW_ID,' ||
807: 'CSP_PACKLIST_SERIAL_LOTS_V.PACKLIST_SERIAL_LOT_ID,' ||
817: 'CSP_PACKLIST_SERIAL_LOTS_V.LOT_NUMBER,' ||
818: 'CSP_PACKLIST_SERIAL_LOTS_V.SERIAL_NUMBER,' ||
819: 'from CSP_PACKLIST_SERIAL_LOTS_V';
820: -- Debug Message
821: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Generate Select Ends');
822:
823: END Gen_Select;
824:
825: PROCEDURE Gen_plsl_Where(
841: str_csr2 NUMBER;
842: l_operator VARCHAR2(10);
843: BEGIN
844: -- Debug Message
845: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Generate Where Begins');
846:
847: -- There are three examples for each kind of datatype:
848: -- NUMBER, DATE, VARCHAR2.
849: -- Developer can copy and paste the following codes for your own record.
896:
897: -- Add more IF statements for each column below
898:
899: -- Debug Message
900: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Generate Where Ends');
901:
902: END Gen_plsl_Where;
903:
904: -- Item-level validation procedures
916:
917: -- Initialize message list if p_init_msg_list is set to TRUE.
918: IF FND_API.to_Boolean( p_init_msg_list )
919: THEN
920: FND_MSG_PUB.initialize;
921: END IF;
922:
923:
924: -- Initialize API return status to SUCCESS
926:
927: -- validate NOT NULL column
928: IF(p_PACKLIST_SERIAL_LOT_ID is NULL)
929: THEN
930: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'CSP', 'Private pack_serial_lots API: -Violate NOT NULL constraint(PACKLIST_SERIAL_LOT_ID)');
931: x_return_status := FND_API.G_RET_STS_ERROR;
932: END IF;
933:
934: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
947: NULL;
948: END IF;
949:
950: -- Standard call to get message count and if count is 1, get message info.
951: FND_MSG_PUB.Count_And_Get
952: ( p_count => x_msg_count,
953: p_data => x_msg_data
954: );
955:
970:
971: -- Initialize message list if p_init_msg_list is set to TRUE.
972: IF FND_API.to_Boolean( p_init_msg_list )
973: THEN
974: FND_MSG_PUB.initialize;
975: END IF;
976:
977:
978: -- Initialize API return status to SUCCESS
980:
981: -- validate NOT NULL column
982: IF(p_PACKLIST_LINE_ID is NULL)
983: THEN
984: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'CSP', 'Private pack_serial_lots API: -Violate NOT NULL constraint(PACKLIST_LINE_ID)');
985: x_return_status := FND_API.G_RET_STS_ERROR;
986: END IF;
987:
988: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1001: NULL;
1002: END IF;
1003:
1004: -- Standard call to get message count and if count is 1, get message info.
1005: FND_MSG_PUB.Count_And_Get
1006: ( p_count => x_msg_count,
1007: p_data => x_msg_data
1008: );
1009:
1024:
1025: -- Initialize message list if p_init_msg_list is set to TRUE.
1026: IF FND_API.to_Boolean( p_init_msg_list )
1027: THEN
1028: FND_MSG_PUB.initialize;
1029: END IF;
1030:
1031:
1032: -- Initialize API return status to SUCCESS
1034:
1035: -- validate NOT NULL column
1036: IF(p_ORGANIZATION_ID is NULL)
1037: THEN
1038: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'CSP', 'Private pack_serial_lots API: -Violate NOT NULL constraint(ORGANIZATION_ID)');
1039: x_return_status := FND_API.G_RET_STS_ERROR;
1040: END IF;
1041:
1042: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1055: NULL;
1056: END IF;
1057:
1058: -- Standard call to get message count and if count is 1, get message info.
1059: FND_MSG_PUB.Count_And_Get
1060: ( p_count => x_msg_count,
1061: p_data => x_msg_data
1062: );
1063:
1078:
1079: -- Initialize message list if p_init_msg_list is set to TRUE.
1080: IF FND_API.to_Boolean( p_init_msg_list )
1081: THEN
1082: FND_MSG_PUB.initialize;
1083: END IF;
1084:
1085:
1086: -- Initialize API return status to SUCCESS
1088:
1089: -- validate NOT NULL column
1090: IF(p_INVENTORY_ITEM_ID is NULL)
1091: THEN
1092: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'CSP', 'Private pack_serial_lots API: -Violate NOT NULL constraint(INVENTORY_ITEM_ID)');
1093: x_return_status := FND_API.G_RET_STS_ERROR;
1094: END IF;
1095:
1096: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1109: NULL;
1110: END IF;
1111:
1112: -- Standard call to get message count and if count is 1, get message info.
1113: FND_MSG_PUB.Count_And_Get
1114: ( p_count => x_msg_count,
1115: p_data => x_msg_data
1116: );
1117:
1132:
1133: -- Initialize message list if p_init_msg_list is set to TRUE.
1134: IF FND_API.to_Boolean( p_init_msg_list )
1135: THEN
1136: FND_MSG_PUB.initialize;
1137: END IF;
1138:
1139:
1140: -- Initialize API return status to SUCCESS
1142:
1143: -- validate NOT NULL column
1144: IF(p_QUANTITY is NULL)
1145: THEN
1146: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'CSP', 'Private pack_serial_lots API: -Violate NOT NULL constraint(QUANTITY)');
1147: x_return_status := FND_API.G_RET_STS_ERROR;
1148: END IF;
1149:
1150: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1163: NULL;
1164: END IF;
1165:
1166: -- Standard call to get message count and if count is 1, get message info.
1167: FND_MSG_PUB.Count_And_Get
1168: ( p_count => x_msg_count,
1169: p_data => x_msg_data
1170: );
1171:
1186:
1187: -- Initialize message list if p_init_msg_list is set to TRUE.
1188: IF FND_API.to_Boolean( p_init_msg_list )
1189: THEN
1190: FND_MSG_PUB.initialize;
1191: END IF;
1192:
1193:
1194: -- Initialize API return status to SUCCESS
1210: NULL;
1211: END IF;
1212:
1213: -- Standard call to get message count and if count is 1, get message info.
1214: FND_MSG_PUB.Count_And_Get
1215: ( p_count => x_msg_count,
1216: p_data => x_msg_data
1217: );
1218:
1233:
1234: -- Initialize message list if p_init_msg_list is set to TRUE.
1235: IF FND_API.to_Boolean( p_init_msg_list )
1236: THEN
1237: FND_MSG_PUB.initialize;
1238: END IF;
1239:
1240:
1241: -- Initialize API return status to SUCCESS
1257: NULL;
1258: END IF;
1259:
1260: -- Standard call to get message count and if count is 1, get message info.
1261: FND_MSG_PUB.Count_And_Get
1262: ( p_count => x_msg_count,
1263: p_data => x_msg_data
1264: );
1265:
1283:
1284: -- Initialize message list if p_init_msg_list is set to TRUE.
1285: IF FND_API.to_Boolean( p_init_msg_list )
1286: THEN
1287: FND_MSG_PUB.initialize;
1288: END IF;
1289:
1290:
1291: -- Initialize API return status to SUCCESS
1296: -- THEN
1297: -- x_return_status := FND_API.G_RET_STS_ERROR;
1298:
1299: -- Debug Message
1300: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'API_INVALID_RECORD');
1301:
1302: -- Standard call to get message count and if count is 1, get message info.
1303: FND_MSG_PUB.Count_And_Get
1304: ( p_count => x_msg_count,
1299: -- Debug Message
1300: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'API_INVALID_RECORD');
1301:
1302: -- Standard call to get message count and if count is 1, get message info.
1303: FND_MSG_PUB.Count_And_Get
1304: ( p_count => x_msg_count,
1305: p_data => x_msg_data
1306: );
1307:
1320: l_api_name CONSTANT VARCHAR2(30) := 'Validate_pack_serial_lots';
1321: BEGIN
1322:
1323: -- Debug Message
1324: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'start');
1325:
1326:
1327: -- Initialize API return status to SUCCESS
1328: x_return_status := FND_API.G_RET_STS_SUCCESS;
1443: END IF;
1444:
1445:
1446: -- Debug Message
1447: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'end');
1448:
1449: END Validate_pack_serial_lots;
1450:
1451: End CSP_Pack_Serial_Lots_PVT;