[Home] [Help]
40: END IF;
41: -- Initialize message list if p_init_msg_list is set to TRUE.
42: IF FND_API.to_Boolean( p_init_msg_list )
43: THEN
44: FND_MSG_PUB.initialize;
45: END IF;
46: -- Debug Message
47: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: ' || l_api_name || 'start');
48: -- Initialize API return status to SUCCESS
43: THEN
44: FND_MSG_PUB.initialize;
45: END IF;
46: -- Debug Message
47: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: ' || l_api_name || 'start');
48: -- Initialize API return status to SUCCESS
49: x_return_status := FND_API.G_RET_STS_SUCCESS;
50: --
51: -- API body
54: -- Validate Environment
55: -- ******************************************************************
56: IF FND_GLOBAL.User_Id IS NULL
57: THEN
58: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
59: THEN
60: FND_MESSAGE.Set_Name('CSP', 'UT_CANNOT_GET_PROFILE_VALUE');
61: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
62: FND_MSG_PUB.ADD;
58: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
59: THEN
60: FND_MESSAGE.Set_Name('CSP', 'UT_CANNOT_GET_PROFILE_VALUE');
61: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
62: FND_MSG_PUB.ADD;
63: END IF;
64: RAISE FND_API.G_EXC_ERROR;
65: END IF;
66: -- Debug message
63: END IF;
64: RAISE FND_API.G_EXC_ERROR;
65: END IF;
66: -- Debug message
67: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Private API: Validate_task_part');
68: -- Invoke validation procedures
69: Validate_task_part(
70: p_init_msg_list => FND_API.G_FALSE,
71: p_validation_level => p_validation_level,
97: -- ,x_msg_count => x_msg_count
98: -- ,x_msg_data => x_msg_data
99: -- ,x_access_flag => l_access_flag);
100: -- IF l_access_flag <> 'Y' THEN
101: -- JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
102: -- 'API_NO_CREATE_PRIVILEGE');
103: -- END IF;
104: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
105: RAISE FND_API.G_EXC_ERROR;
107: END IF;
108: */
109: -- Hint: Add corresponding Master-Detail business logic here if necessary.
110: -- Debug Message
111: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: Calling create table handler');
112: -- Invoke table handler(CSP_TASK_PARTS_PKG.Insert_Row)
113: CSP_TASK_PARTS_PKG.Insert_Row(
114: px_TASK_PART_ID => x_TASK_PART_ID,
115: p_PRODUCT_TASK_ID => p_TASK_PART_rec.PRODUCT_TASK_ID,
159: THEN
160: COMMIT WORK;
161: END IF;
162: -- Debug Message
163: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: ' || l_api_name || 'end');
164: -- Standard call to get message count and if count is 1, get message info.
165: FND_MSG_PUB.Count_And_Get
166: ( p_count => x_msg_count,
167: p_data => x_msg_data
161: END IF;
162: -- Debug Message
163: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: ' || l_api_name || 'end');
164: -- Standard call to get message count and if count is 1, get message info.
165: FND_MSG_PUB.Count_And_Get
166: ( p_count => x_msg_count,
167: p_data => x_msg_data
168: );
169: EXCEPTION
170: WHEN FND_API.G_EXC_ERROR THEN
171: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
172: P_API_NAME => L_API_NAME
173: ,P_PKG_NAME => G_PKG_NAME
174: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
175: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
176: ,X_MSG_COUNT => X_MSG_COUNT
177: ,X_MSG_DATA => X_MSG_DATA
178: ,X_RETURN_STATUS => X_RETURN_STATUS);
179: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
180: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
181: P_API_NAME => L_API_NAME
182: ,P_PKG_NAME => G_PKG_NAME
183: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
184: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
185: ,X_MSG_COUNT => X_MSG_COUNT
186: ,X_MSG_DATA => X_MSG_DATA
187: ,X_RETURN_STATUS => X_RETURN_STATUS);
270: END IF;
271: -- Initialize message list if p_init_msg_list is set to TRUE.
272: IF FND_API.to_Boolean( p_init_msg_list )
273: THEN
274: FND_MSG_PUB.initialize;
275: END IF;
276: -- Debug Message
277: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: ' || l_api_name || 'start');
278: -- Initialize API return status to SUCCESS
273: THEN
274: FND_MSG_PUB.initialize;
275: END IF;
276: -- Debug Message
277: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: ' || l_api_name || 'start');
278: -- Initialize API return status to SUCCESS
279: x_return_status := FND_API.G_RET_STS_SUCCESS;
280: --
281: -- Api body
280: --
281: -- Api body
282: --
283: -- Debug Message
284: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Private API: - Open Cursor to Select');
285: /*
286: Open C_Get_task_part( l_tar_TASK_PART_rec.TASK_PART_ID);
287: Fetch C_Get_task_part into
288: l_rowid,
320: l_ref_TASK_PART_rec.REVISION,
321: l_ref_TASK_PART_rec.START_DATE,
322: l_ref_TASK_PART_rec.END_DATE;
323: If ( C_Get_task_part%NOTFOUND) Then
324: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
325: THEN
326: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_UPDATE_TARGET');
327: FND_MESSAGE.Set_Token ('INFO', 'task_part', FALSE);
328: FND_MSG_PUB.Add;
324: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
325: THEN
326: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_UPDATE_TARGET');
327: FND_MESSAGE.Set_Token ('INFO', 'task_part', FALSE);
328: FND_MSG_PUB.Add;
329: END IF;
330: Close C_Get_task_part;
331: raise FND_API.G_EXC_ERROR;
332: END IF;
330: Close C_Get_task_part;
331: raise FND_API.G_EXC_ERROR;
332: END IF;
333: -- Debug Message
334: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Private API: - Close Cursor');
335: Close C_Get_task_part;
336: If (l_tar_TASK_PART_rec.last_update_date is NULL or
337: l_tar_TASK_PART_rec.last_update_date = FND_API.G_MISS_Date ) Then
338: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
334: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Private API: - Close Cursor');
335: Close C_Get_task_part;
336: If (l_tar_TASK_PART_rec.last_update_date is NULL or
337: l_tar_TASK_PART_rec.last_update_date = FND_API.G_MISS_Date ) Then
338: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
339: THEN
340: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
341: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
342: FND_MSG_PUB.ADD;
338: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
339: THEN
340: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
341: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
342: FND_MSG_PUB.ADD;
343: END IF;
344: raise FND_API.G_EXC_ERROR;
345: End if;
346: -- Check Whether record has been changed by someone else
344: raise FND_API.G_EXC_ERROR;
345: End if;
346: -- Check Whether record has been changed by someone else
347: If (l_tar_TASK_PART_rec.last_update_date <> l_ref_TASK_PART_rec.last_update_date) Then
348: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
349: THEN
350: FND_MESSAGE.Set_Name('CSP', 'API_RECORD_CHANGED');
351: FND_MESSAGE.Set_Token('INFO', 'task_part', FALSE);
352: FND_MSG_PUB.ADD;
348: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
349: THEN
350: FND_MESSAGE.Set_Name('CSP', 'API_RECORD_CHANGED');
351: FND_MESSAGE.Set_Token('INFO', 'task_part', FALSE);
352: FND_MSG_PUB.ADD;
353: END IF;
354: raise FND_API.G_EXC_ERROR;
355: End if;
356: */
354: raise FND_API.G_EXC_ERROR;
355: End if;
356: */
357: -- Debug message
358: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Private API: Validate_task_part');
359: -- Invoke validation procedures
360: Validate_task_part(
361: p_init_msg_list => FND_API.G_FALSE,
362: p_validation_level => p_validation_level,
388: -- ,x_msg_count => x_msg_count
389: -- ,x_msg_data => x_msg_data
390: -- ,x_access_flag => l_access_flag);
391: -- IF l_access_flag <> 'Y' THEN
392: -- JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
393: -- 'API_NO_UPDATE_PRIVILEGE');
394: -- END IF;
395: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
396: RAISE FND_API.G_EXC_ERROR;
398: END IF;
399: */
400: -- Hint: Add corresponding Master-Detail business logic here if necessary.
401: -- Debug Message
402: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: Calling update table handler');
403: -- Invoke table handler(CSP_TASK_PARTS_PKG.Update_Row)
404: CSP_TASK_PARTS_PKG.Update_Row(
405: p_TASK_PART_ID => p_TASK_PART_rec.TASK_PART_ID,
406: p_PRODUCT_TASK_ID => p_TASK_PART_rec.PRODUCT_TASK_ID,
446: THEN
447: COMMIT WORK;
448: END IF;
449: -- Debug Message
450: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: ' || l_api_name || 'end');
451: -- Standard call to get message count and if count is 1, get message info.
452: FND_MSG_PUB.Count_And_Get
453: ( p_count => x_msg_count,
454: p_data => x_msg_data
448: END IF;
449: -- Debug Message
450: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: ' || l_api_name || 'end');
451: -- Standard call to get message count and if count is 1, get message info.
452: FND_MSG_PUB.Count_And_Get
453: ( p_count => x_msg_count,
454: p_data => x_msg_data
455: );
456: EXCEPTION
457: WHEN FND_API.G_EXC_ERROR THEN
458: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
459: P_API_NAME => L_API_NAME
460: ,P_PKG_NAME => G_PKG_NAME
461: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
462: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
463: ,X_MSG_COUNT => X_MSG_COUNT
464: ,X_MSG_DATA => X_MSG_DATA
465: ,X_RETURN_STATUS => X_RETURN_STATUS);
466: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
467: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
468: P_API_NAME => L_API_NAME
469: ,P_PKG_NAME => G_PKG_NAME
470: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
471: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
472: ,X_MSG_COUNT => X_MSG_COUNT
473: ,X_MSG_DATA => X_MSG_DATA
474: ,X_RETURN_STATUS => X_RETURN_STATUS);
513: END IF;
514: -- Initialize message list if p_init_msg_list is set to TRUE.
515: IF FND_API.to_Boolean( p_init_msg_list )
516: THEN
517: FND_MSG_PUB.initialize;
518: END IF;
519: -- Debug Message
520: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: ' || l_api_name || 'start');
521: -- Initialize API return status to SUCCESS
516: THEN
517: FND_MSG_PUB.initialize;
518: END IF;
519: -- Debug Message
520: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: ' || l_api_name || 'start');
521: -- Initialize API return status to SUCCESS
522: x_return_status := FND_API.G_RET_STS_SUCCESS;
523: --
524: -- Api body
543: -- ,x_msg_count => x_msg_count
544: -- ,x_msg_data => x_msg_data
545: -- ,x_access_flag => l_access_flag);
546: -- IF l_access_flag <> 'Y' THEN
547: -- JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
548: -- 'API_NO_DELETE_PRIVILEGE');
549: -- END IF;
550: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
551: RAISE FND_API.G_EXC_ERROR;
552: END IF;
553: END IF;
554: */
555: -- Debug Message
556: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: Calling delete table handler');
557: -- Invoke table handler(CSP_TASK_PARTS_PKG.Delete_Row)
558: CSP_TASK_PARTS_PKG.Delete_Row(
559: p_TASK_PART_ID => p_TASK_PART_rec.TASK_PART_ID);
560: --
565: THEN
566: COMMIT WORK;
567: END IF;
568: -- Debug Message
569: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: ' || l_api_name || 'end');
570: -- Standard call to get message count and if count is 1, get message info.
571: FND_MSG_PUB.Count_And_Get
572: ( p_count => x_msg_count,
573: p_data => x_msg_data
567: END IF;
568: -- Debug Message
569: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: ' || l_api_name || 'end');
570: -- Standard call to get message count and if count is 1, get message info.
571: FND_MSG_PUB.Count_And_Get
572: ( p_count => x_msg_count,
573: p_data => x_msg_data
574: );
575: EXCEPTION
576: WHEN FND_API.G_EXC_ERROR THEN
577: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
578: P_API_NAME => L_API_NAME
579: ,P_PKG_NAME => G_PKG_NAME
580: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
581: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
582: ,X_MSG_COUNT => X_MSG_COUNT
583: ,X_MSG_DATA => X_MSG_DATA
584: ,X_RETURN_STATUS => X_RETURN_STATUS);
585: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
586: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
587: P_API_NAME => L_API_NAME
588: ,P_PKG_NAME => G_PKG_NAME
589: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
590: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
591: ,X_MSG_COUNT => X_MSG_COUNT
592: ,X_MSG_DATA => X_MSG_DATA
593: ,X_RETURN_STATUS => X_RETURN_STATUS);
610: )
611: IS
612: BEGIN
613: -- Debug Message
614: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: Define Columns Begins');
615: -- define all columns for CSP_TASK_PARTS view
616: dbms_sql.define_column(p_cur_get_TASK_PART, 1, P_TASK_PART_Rec.TASK_PART_ID);
617: dbms_sql.define_column(p_cur_get_TASK_PART, 2, P_TASK_PART_Rec.PRODUCT_TASK_ID);
618: dbms_sql.define_column(p_cur_get_TASK_PART, 3, P_TASK_PART_Rec.INVENTORY_ITEM_ID);
643: dbms_sql.define_column(p_cur_get_TASK_PART, 29, P_TASK_PART_Rec.ROLLUP_QUANTITY_USED);
644: dbms_sql.define_column(p_cur_get_TASK_PART, 29, P_TASK_PART_Rec.ROLLUP_TIMES_USED);
645: dbms_sql.define_column(p_cur_get_TASK_PART, 30, p_TASK_PART_Rec.SUBSTITUTE_ITEM );
646: -- Debug Message
647: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: Define Columns Ends');
648: END Define_Columns;
649: -- This procudure gets column values by the Dynamic SQL.
650: PROCEDURE Get_Column_Values(
651: p_cur_get_TASK_PART IN NUMBER,
653: )
654: IS
655: BEGIN
656: -- Debug Message
657: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Private API: Get Column Values Begins');
658: -- get all column values for CSP_TASK_PARTS table
659: dbms_sql.column_value(p_cur_get_TASK_PART, 1, X_TASK_PART_Rec.TASK_PART_ID);
660: dbms_sql.column_value(p_cur_get_TASK_PART, 2, X_TASK_PART_Rec.PRODUCT_TASK_ID);
661: dbms_sql.column_value(p_cur_get_TASK_PART, 3, X_TASK_PART_Rec.INVENTORY_ITEM_ID);
687: dbms_sql.column_value(p_cur_get_TASK_PART, 29, X_TASK_PART_Rec.ROLLUP_TIMES_USED);
688: dbms_sql.column_value(p_cur_get_TASK_PART, 30, X_TASK_PART_Rec.SUBSTITUTE_ITEM );
689:
690: -- Debug Message
691: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Private API: Get Column Values Ends');
692: END Get_Column_Values;
693: PROCEDURE Gen_TASK_PART_order_cl(
694: p_order_by_rec IN CSP_TASK_PART_PUB.TASK_PART_sort_rec_type,
695: x_order_by_cl OUT NOCOPY VARCHAR2,
701: l_order_by_cl VARCHAR2(1000) := NULL;
702: l_util_order_by_tbl JTF_PLSQL_API.Util_order_by_tbl_type;
703: BEGIN
704: -- Debug Message
705: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Private API: Generate Order by Begins');
706: -- Hint: Developer should add more statements according to CSP_sort_rec_type
707: -- Ex:
708: -- l_util_order_by_tbl(1).col_choice := p_order_by_rec.customer_name;
709: -- l_util_order_by_tbl(1).col_name := 'Customer_Name';
707: -- Ex:
708: -- l_util_order_by_tbl(1).col_choice := p_order_by_rec.customer_name;
709: -- l_util_order_by_tbl(1).col_name := 'Customer_Name';
710: -- Debug Message
711: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Invoke JTF_PLSQL_API.Translate_OrderBy');
712: JTF_PLSQL_API.Translate_OrderBy(
713: p_api_version_number => 1.0
714: ,p_init_msg_list => FND_API.G_FALSE
715: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
723: ELSE
724: x_order_by_cl := NULL;
725: END IF;
726: -- Debug Message
727: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Private API: Generate Order by Ends');
728: END Gen_TASK_PART_order_cl;
729: -- This procedure bind the variables for the Dynamic SQL
730: PROCEDURE Bind(
731: P_TASK_PART_Rec IN CSP_TASK_PART_PUB.TASK_PART_Rec_Type,
736: BEGIN
737: -- Bind variables
738: -- Only those that are not NULL
739: -- Debug Message
740: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Private API: Bind Variables Begins');
741: -- The following example applies to all columns,
742: -- developers can copy and paste them.
743: IF( (P_TASK_PART_Rec.TASK_PART_ID IS NOT NULL) AND (P_TASK_PART_Rec.TASK_PART_ID <> FND_API.G_MISS_NUM) )
744: THEN
744: THEN
745: DBMS_SQL.BIND_VARIABLE(p_cur_get_TASK_PART, ':p_TASK_PART_ID', P_TASK_PART_Rec.TASK_PART_ID);
746: END IF;
747: -- Debug Message
748: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Private API: Bind Variables Ends');
749: END Bind;
750: PROCEDURE Gen_Select(
751: x_select_cl OUT NOCOPY VARCHAR2
752: )
752: )
753: IS
754: BEGIN
755: -- Debug Message
756: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: Generate Select Begins');
757: x_select_cl := 'Select ' ||
758: 'CSP_TASK_PARTS.TASK_PART_ID,' ||
759: 'CSP_TASK_PARTS.PRODUCT_TASK_ID,' ||
760: 'CSP_TASK_PARTS.INVENTORY_ITEM_ID,' ||
788: 'CSP_TASK_PARTS.START_DATE,' ||
789: 'CSP_TASK_PARTS.END_DATE,' ||
790: 'from CSP_TASK_PARTS';
791: -- Debug Message
792: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: Generate Select Ends');
793: END Gen_Select;
794: PROCEDURE Gen_TASK_PART_Where(
795: P_TASK_PART_Rec IN CSP_TASK_PART_PUB.TASK_PART_Rec_Type,
796: x_TASK_PART_where OUT NOCOPY VARCHAR2
809: str_csr2 NUMBER;
810: l_operator VARCHAR2(10);
811: BEGIN
812: -- Debug Message
813: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: Generate Where Begins');
814: -- There are three examples for each kind of datatype:
815: -- NUMBER, DATE, VARCHAR2.
816: -- Developer can copy and paste the following codes for your own record.
817: -- example for NUMBER datatype
881: x_TASK_PART_where := x_TASK_PART_where || 'P_TASK_PART_Rec.ATTRIBUTE_CATEGORY ' || l_operator || ' :p_ATTRIBUTE_CATEGORY';
882: END IF;
883: -- Add more IF statements for each column below
884: -- Debug Message
885: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: Generate Where Ends');
886: END Gen_TASK_PART_Where;
887:
888: -- Item-level validation procedures
889: PROCEDURE Validate_TASK_PART_ID (
899: BEGIN
900: -- Initialize message list if p_init_msg_list is set to TRUE.
901: IF FND_API.to_Boolean( p_init_msg_list )
902: THEN
903: FND_MSG_PUB.initialize;
904: END IF;
905: -- Initialize API return status to SUCCESS
906: x_return_status := FND_API.G_RET_STS_SUCCESS;
907: -- validate NOT NULL column
925: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
926: NULL;
927: END IF;
928: -- Standard call to get message count and if count is 1, get message info.
929: FND_MSG_PUB.Count_And_Get
930: ( p_count => x_msg_count,
931: p_data => x_msg_data
932: );
933: END Validate_TASK_PART_ID;
944: BEGIN
945: -- Initialize message list if p_init_msg_list is set to TRUE.
946: IF FND_API.to_Boolean( p_init_msg_list )
947: THEN
948: FND_MSG_PUB.initialize;
949: END IF;
950: -- Initialize API return status to SUCCESS
951: x_return_status := FND_API.G_RET_STS_SUCCESS;
952: -- validate NOT NULL column
970: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
971: NULL;
972: END IF;
973: -- Standard call to get message count and if count is 1, get message info.
974: FND_MSG_PUB.Count_And_Get
975: ( p_count => x_msg_count,
976: p_data => x_msg_data
977: );
978: END Validate_PRODUCT_TASK_ID;
989: BEGIN
990: -- Initialize message list if p_init_msg_list is set to TRUE.
991: IF FND_API.to_Boolean( p_init_msg_list )
992: THEN
993: FND_MSG_PUB.initialize;
994: END IF;
995: -- Initialize API return status to SUCCESS
996: x_return_status := FND_API.G_RET_STS_SUCCESS;
997: -- validate NOT NULL column
1015: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1016: NULL;
1017: END IF;
1018: -- Standard call to get message count and if count is 1, get message info.
1019: FND_MSG_PUB.Count_And_Get
1020: ( p_count => x_msg_count,
1021: p_data => x_msg_data
1022: );
1023: END Validate_INVENTORY_ITEM_ID;
1034: BEGIN
1035: -- Initialize message list if p_init_msg_list is set to TRUE.
1036: IF FND_API.to_Boolean( p_init_msg_list )
1037: THEN
1038: FND_MSG_PUB.initialize;
1039: END IF;
1040: -- Initialize API return status to SUCCESS
1041: x_return_status := FND_API.G_RET_STS_SUCCESS;
1042: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1054: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1055: NULL;
1056: END IF;
1057: -- Standard call to get message count and if count is 1, get message info.
1058: FND_MSG_PUB.Count_And_Get
1059: ( p_count => x_msg_count,
1060: p_data => x_msg_data
1061: );
1062: END Validate_MANUAL_QUANTITY;
1073: BEGIN
1074: -- Initialize message list if p_init_msg_list is set to TRUE.
1075: IF FND_API.to_Boolean( p_init_msg_list )
1076: THEN
1077: FND_MSG_PUB.initialize;
1078: END IF;
1079: -- Initialize API return status to SUCCESS
1080: x_return_status := FND_API.G_RET_STS_SUCCESS;
1081: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1093: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1094: NULL;
1095: END IF;
1096: -- Standard call to get message count and if count is 1, get message info.
1097: FND_MSG_PUB.Count_And_Get
1098: ( p_count => x_msg_count,
1099: p_data => x_msg_data
1100: );
1101: END Validate_MANUAL_PERCENTAGE;
1112: BEGIN
1113: -- Initialize message list if p_init_msg_list is set to TRUE.
1114: IF FND_API.to_Boolean( p_init_msg_list )
1115: THEN
1116: FND_MSG_PUB.initialize;
1117: END IF;
1118: -- Initialize API return status to SUCCESS
1119: x_return_status := FND_API.G_RET_STS_SUCCESS;
1120: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1132: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1133: NULL;
1134: END IF;
1135: -- Standard call to get message count and if count is 1, get message info.
1136: FND_MSG_PUB.Count_And_Get
1137: ( p_count => x_msg_count,
1138: p_data => x_msg_data
1139: );
1140: END Validate_QUANTITY_USED;
1151: BEGIN
1152: -- Initialize message list if p_init_msg_list is set to TRUE.
1153: IF FND_API.to_Boolean( p_init_msg_list )
1154: THEN
1155: FND_MSG_PUB.initialize;
1156: END IF;
1157: -- Initialize API return status to SUCCESS
1158: x_return_status := FND_API.G_RET_STS_SUCCESS;
1159: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1171: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1172: NULL;
1173: END IF;
1174: -- Standard call to get message count and if count is 1, get message info.
1175: FND_MSG_PUB.Count_And_Get
1176: ( p_count => x_msg_count,
1177: p_data => x_msg_data
1178: );
1179: END Validate_ACTUAL_TIMES_USED;
1191: BEGIN
1192: -- Initialize message list if p_init_msg_list is set to TRUE.
1193: IF FND_API.to_Boolean( p_init_msg_list )
1194: THEN
1195: FND_MSG_PUB.initialize;
1196: END IF;
1197: -- Initialize API return status to SUCCESS
1198: x_return_status := FND_API.G_RET_STS_SUCCESS;
1199: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1211: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1212: NULL;
1213: END IF;
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: END Validate_PRIMARY_UOM_CODE;
1230: BEGIN
1231: -- Initialize message list if p_init_msg_list is set to TRUE.
1232: IF FND_API.to_Boolean( p_init_msg_list )
1233: THEN
1234: FND_MSG_PUB.initialize;
1235: END IF;
1236: -- Initialize API return status to SUCCESS
1237: x_return_status := FND_API.G_RET_STS_SUCCESS;
1238: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1250: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1251: NULL;
1252: END IF;
1253: -- Standard call to get message count and if count is 1, get message info.
1254: FND_MSG_PUB.Count_And_Get
1255: ( p_count => x_msg_count,
1256: p_data => x_msg_data
1257: );
1258: END Validate_REVISION;
1269: BEGIN
1270: -- Initialize message list if p_init_msg_list is set to TRUE.
1271: IF FND_API.to_Boolean( p_init_msg_list )
1272: THEN
1273: FND_MSG_PUB.initialize;
1274: END IF;
1275: -- Initialize API return status to SUCCESS
1276: x_return_status := FND_API.G_RET_STS_SUCCESS;
1277: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1289: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1290: NULL;
1291: END IF;
1292: -- Standard call to get message count and if count is 1, get message info.
1293: FND_MSG_PUB.Count_And_Get
1294: ( p_count => x_msg_count,
1295: p_data => x_msg_data
1296: );
1297: END Validate_START_DATE;
1308: BEGIN
1309: -- Initialize message list if p_init_msg_list is set to TRUE.
1310: IF FND_API.to_Boolean( p_init_msg_list )
1311: THEN
1312: FND_MSG_PUB.initialize;
1313: END IF;
1314: -- Initialize API return status to SUCCESS
1315: x_return_status := FND_API.G_RET_STS_SUCCESS;
1316: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1328: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1329: NULL;
1330: END IF;
1331: -- Standard call to get message count and if count is 1, get message info.
1332: FND_MSG_PUB.Count_And_Get
1333: ( p_count => x_msg_count,
1334: p_data => x_msg_data
1335: );
1336: END Validate_END_DATE;
1348: BEGIN
1349: -- Initialize message list if p_init_msg_list is set to TRUE.
1350: IF FND_API.to_Boolean( p_init_msg_list )
1351: THEN
1352: FND_MSG_PUB.initialize;
1353: END IF;
1354: -- Initialize API return status to SUCCESS
1355: x_return_status := FND_API.G_RET_STS_SUCCESS;
1356: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1368: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1369: NULL;
1370: END IF;
1371: -- Standard call to get message count and if count is 1, get message info.
1372: FND_MSG_PUB.Count_And_Get
1373: ( p_count => x_msg_count,
1374: p_data => x_msg_data
1375: );
1376: END Validate_ROLLUP_QUANTITY_USED;
1388: BEGIN
1389: -- Initialize message list if p_init_msg_list is set to TRUE.
1390: IF FND_API.to_Boolean( p_init_msg_list )
1391: THEN
1392: FND_MSG_PUB.initialize;
1393: END IF;
1394: -- Initialize API return status to SUCCESS
1395: x_return_status := FND_API.G_RET_STS_SUCCESS;
1396: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1408: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1409: NULL;
1410: END IF;
1411: -- Standard call to get message count and if count is 1, get message info.
1412: FND_MSG_PUB.Count_And_Get
1413: ( p_count => x_msg_count,
1414: p_data => x_msg_data
1415: );
1416: END Validate_ROLLUP_TIMES_USED;
1428: BEGIN
1429: -- Initialize message list if p_init_msg_list is set to TRUE.
1430: IF FND_API.to_Boolean( p_init_msg_list )
1431: THEN
1432: FND_MSG_PUB.initialize;
1433: END IF;
1434: -- Initialize API return status to SUCCESS
1435: x_return_status := FND_API.G_RET_STS_SUCCESS;
1436: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1448: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1449: NULL;
1450: END IF;
1451: -- Standard call to get message count and if count is 1, get message info.
1452: FND_MSG_PUB.Count_And_Get
1453: ( p_count => x_msg_count,
1454: p_data => x_msg_data
1455: );
1456: END Validate_SUBSTITUTE_ITEM;
1472: BEGIN
1473: -- Initialize message list if p_init_msg_list is set to TRUE.
1474: IF FND_API.to_Boolean( p_init_msg_list )
1475: THEN
1476: FND_MSG_PUB.initialize;
1477: END IF;
1478: -- Initialize API return status to SUCCESS
1479: x_return_status := FND_API.G_RET_STS_SUCCESS;
1480: -- Hint: Validate data
1481: -- If data not valid
1482: -- THEN
1483: -- x_return_status := FND_API.G_RET_STS_ERROR;
1484: -- Debug Message
1485: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'API_INVALID_RECORD');
1486: -- Standard call to get message count and if count is 1, get message info.
1487: FND_MSG_PUB.Count_And_Get
1488: ( p_count => x_msg_count,
1489: p_data => x_msg_data
1483: -- x_return_status := FND_API.G_RET_STS_ERROR;
1484: -- Debug Message
1485: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'API_INVALID_RECORD');
1486: -- Standard call to get message count and if count is 1, get message info.
1487: FND_MSG_PUB.Count_And_Get
1488: ( p_count => x_msg_count,
1489: p_data => x_msg_data
1490: );
1491: END Validate_TASK_PART_Rec;
1501: IS
1502: l_api_name CONSTANT VARCHAR2(30) := 'Validate_task_part';
1503: BEGIN
1504: -- Debug Message
1505: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: ' || l_api_name || 'start');
1506: -- Initialize API return status to SUCCESS
1507: x_return_status := FND_API.G_RET_STS_SUCCESS;
1508: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_ITEM) THEN
1509: -- Hint: We provide validation procedure for every column. Developer should delete
1687: -- invoke inter-entity level validation procedures
1688: NULL;
1689: END IF;
1690: -- Debug Message
1691: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Private API: ' || l_api_name || 'end');
1692: END Validate_task_part;
1693: End CSP_TASK_PART_PVT;