[Home] [Help]
16:
17: -- Hint: Primary key needs to be returned.
18: PROCEDURE Create_resource(
19: P_Api_Version_Number IN NUMBER,
20: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
21: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
22: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
23: P_CSP_Rec IN CSP_Rec_Type := G_MISS_CSP_REC,
24: --Hint: Add detail tables as parameter lists if it's master-detail relationship.
17: -- Hint: Primary key needs to be returned.
18: PROCEDURE Create_resource(
19: P_Api_Version_Number IN NUMBER,
20: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
21: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
22: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
23: P_CSP_Rec IN CSP_Rec_Type := G_MISS_CSP_REC,
24: --Hint: Add detail tables as parameter lists if it's master-detail relationship.
25: X_CSP_INV_LOC_ASSIGNMENT_ID OUT NOCOPY NUMBER,
18: PROCEDURE Create_resource(
19: P_Api_Version_Number IN NUMBER,
20: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
21: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
22: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
23: P_CSP_Rec IN CSP_Rec_Type := G_MISS_CSP_REC,
24: --Hint: Add detail tables as parameter lists if it's master-detail relationship.
25: X_CSP_INV_LOC_ASSIGNMENT_ID OUT NOCOPY NUMBER,
26: X_Return_Status OUT NOCOPY VARCHAR2,
41: -- Standard Start of API savepoint
42: SAVEPOINT CREATE_RESOURCE_PVT;
43:
44: -- Standard call to check for call compatibility.
45: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
46: p_api_version_number,
47: l_api_name,
48: G_PKG_NAME)
49: THEN
46: p_api_version_number,
47: l_api_name,
48: G_PKG_NAME)
49: THEN
50: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
51: END IF;
52:
53:
54: -- Initialize message list if p_init_msg_list is set to TRUE.
51: END IF;
52:
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:
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;
67:
68: --
69: -- API body
70: --
75: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
76: THEN
77: AS_CALLOUT_PKG.Create_resource_BC(
78: p_api_version_number => 2.0,
79: p_init_msg_list => FND_API.G_FALSE,
80: p_commit => FND_API.G_FALSE,
81: p_validation_level => p_validation_level,
82: P_CSP_Rec => P_CSP_Rec,
83: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
76: THEN
77: AS_CALLOUT_PKG.Create_resource_BC(
78: p_api_version_number => 2.0,
79: p_init_msg_list => FND_API.G_FALSE,
80: p_commit => FND_API.G_FALSE,
81: p_validation_level => p_validation_level,
82: P_CSP_Rec => P_CSP_Rec,
83: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
84: x_return_status => x_return_status,
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: */
104: /*
105: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
109: ,x_msg_count => x_msg_count
110: ,x_msg_data => x_msg_data
111: ,x_sales_member_rec => l_identity_sales_member_rec);
112:
113: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
114: RAISE FND_API.G_EXC_ERROR;
115: END IF;
116: */
117:
110: ,x_msg_data => x_msg_data
111: ,x_sales_member_rec => l_identity_sales_member_rec);
112:
113: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
114: RAISE FND_API.G_EXC_ERROR;
115: END IF;
116: */
117:
118: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
114: RAISE FND_API.G_EXC_ERROR;
115: END IF;
116: */
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:
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,
126: p_validation_level => p_validation_level,
127: p_validation_mode => JTF_PLSQL_API.G_CREATE,
128: P_CSP_Rec => P_CSP_Rec,
129: x_return_status => x_return_status,
130: x_msg_count => x_msg_count,
131: x_msg_data => x_msg_data);
132: END IF;
133:
134: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
135: RAISE FND_API.G_EXC_ERROR;
136: END IF;
137:
138: -- Hint: Add corresponding Master-Detail business logic here if necessary.
131: x_msg_data => x_msg_data);
132: END IF;
133:
134: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
135: RAISE FND_API.G_EXC_ERROR;
136: END IF;
137:
138: -- Hint: Add corresponding Master-Detail business logic here if necessary.
139:
186: p_ATTRIBUTE15 => p_CSP_rec.ATTRIBUTE15);
187: -- Hint: Primary key should be returned.
188: -- x_CSP_INV_LOC_ASSIGNMENT_ID := px_CSP_INV_LOC_ASSIGNMENT_ID;
189:
190: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
191: RAISE FND_API.G_EXC_ERROR;
192: END IF;
193:
194: --
187: -- Hint: Primary key should be returned.
188: -- x_CSP_INV_LOC_ASSIGNMENT_ID := px_CSP_INV_LOC_ASSIGNMENT_ID;
189:
190: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
191: RAISE FND_API.G_EXC_ERROR;
192: END IF;
193:
194: --
195: -- End of API body
194: --
195: -- End of API body
196: --
197: -- Standard check for p_commit
198: IF FND_API.to_Boolean( p_commit )
199: THEN
200: COMMIT WORK;
201: END IF;
202:
217: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
218: THEN
219: AS_CALLOUT_PKG.Create_resource_AC(
220: p_api_version_number => 2.0,
221: p_init_msg_list => FND_API.G_FALSE,
222: p_commit => FND_API.G_FALSE,
223: p_validation_level => p_validation_level,
224: P_CSP_Rec => P_CSP_Rec,
225: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
218: THEN
219: AS_CALLOUT_PKG.Create_resource_AC(
220: p_api_version_number => 2.0,
221: p_init_msg_list => FND_API.G_FALSE,
222: p_commit => FND_API.G_FALSE,
223: p_validation_level => p_validation_level,
224: P_CSP_Rec => P_CSP_Rec,
225: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
226: x_return_status => x_return_status,
228: x_msg_data => x_msg_data);
229: END IF;
230: */
231: EXCEPTION
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
238: ,X_MSG_COUNT => X_MSG_COUNT
239: ,X_MSG_DATA => X_MSG_DATA
240: ,X_RETURN_STATUS => X_RETURN_STATUS);
241:
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
263:
264: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
265: PROCEDURE Update_resource(
266: P_Api_Version_Number IN NUMBER,
267: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
268: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
269: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
270: P_Identity_Salesforce_Id IN NUMBER := NULL,
271: P_CSP_Rec IN CSP_Rec_Type,
264: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
265: PROCEDURE Update_resource(
266: P_Api_Version_Number IN NUMBER,
267: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
268: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
269: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
270: P_Identity_Salesforce_Id IN NUMBER := NULL,
271: P_CSP_Rec IN CSP_Rec_Type,
272: X_Return_Status OUT NOCOPY VARCHAR2,
265: PROCEDURE Update_resource(
266: P_Api_Version_Number IN NUMBER,
267: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
268: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
269: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
270: P_Identity_Salesforce_Id IN NUMBER := NULL,
271: P_CSP_Rec IN CSP_Rec_Type,
272: X_Return_Status OUT NOCOPY VARCHAR2,
273: X_Msg_Count OUT NOCOPY NUMBER,
323: -- Standard Start of API savepoint
324: SAVEPOINT UPDATE_RESOURCE_PVT;
325:
326: -- Standard call to check for call compatibility.
327: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
328: p_api_version_number,
329: l_api_name,
330: G_PKG_NAME)
331: THEN
328: p_api_version_number,
329: l_api_name,
330: G_PKG_NAME)
331: THEN
332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
333: END IF;
334:
335:
336: -- Initialize message list if p_init_msg_list is set to TRUE.
333: END IF;
334:
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:
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;
349:
350: --
351: -- Api body
352: --
356: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
357: THEN
358: AS_CALLOUT_PKG.Update_resource_BU(
359: p_api_version_number => 2.0,
360: p_init_msg_list => FND_API.G_FALSE,
361: p_commit => FND_API.G_FALSE,
362: p_validation_level => p_validation_level,
363: p_identity_salesforce_id => p_identity_salesforce_id,
364: P_CSP_Rec => P_CSP_Rec,
357: THEN
358: AS_CALLOUT_PKG.Update_resource_BU(
359: p_api_version_number => 2.0,
360: p_init_msg_list => FND_API.G_FALSE,
361: p_commit => FND_API.G_FALSE,
362: p_validation_level => p_validation_level,
363: p_identity_salesforce_id => p_identity_salesforce_id,
364: P_CSP_Rec => P_CSP_Rec,
365: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
376: ,x_msg_count => x_msg_count
377: ,x_msg_data => x_msg_data
378: ,x_sales_member_rec => l_identity_sales_member_rec);
379:
380: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
381: RAISE FND_API.G_EXC_ERROR;
382: END IF;
383: */
384: -- Debug Message
377: ,x_msg_data => x_msg_data
378: ,x_sales_member_rec => l_identity_sales_member_rec);
379:
380: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
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');
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
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: /*
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);
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: */
449: /*
450: -- Check Whether record has been changed by someone else
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: */
461: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
462: THEN
457: END IF;
458: raise FND_API.G_EXC_ERROR;
459: End if;
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:
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,
469: p_validation_level => p_validation_level,
470: p_validation_mode => JTF_PLSQL_API.G_UPDATE,
471: P_CSP_Rec => P_CSP_Rec,
472: x_return_status => x_return_status,
473: x_msg_count => x_msg_count,
474: x_msg_data => x_msg_data);
475: END IF;
476:
477: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
478: RAISE FND_API.G_EXC_ERROR;
479: END IF;
480:
481: -- Hint: Add corresponding Master-Detail business logic here if necessary.
474: x_msg_data => x_msg_data);
475: END IF;
476:
477: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
478: RAISE FND_API.G_EXC_ERROR;
479: END IF;
480:
481: -- Hint: Add corresponding Master-Detail business logic here if necessary.
482:
520: --
521:
522:
523: -- Standard check for p_commit
524: IF FND_API.to_Boolean( p_commit )
525: THEN
526: COMMIT WORK;
527: END IF;
528:
543: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
544: THEN
545: AS_CALLOUT_PKG.Update_resource_AU(
546: p_api_version_number => 2.0,
547: p_init_msg_list => FND_API.G_FALSE,
548: p_commit => FND_API.G_FALSE,
549: p_validation_level => p_validation_level,
550: p_identity_salesforce_id => p_identity_salesforce_id,
551: P_CSP_Rec => P_CSP_Rec,
544: THEN
545: AS_CALLOUT_PKG.Update_resource_AU(
546: p_api_version_number => 2.0,
547: p_init_msg_list => FND_API.G_FALSE,
548: p_commit => FND_API.G_FALSE,
549: p_validation_level => p_validation_level,
550: p_identity_salesforce_id => p_identity_salesforce_id,
551: P_CSP_Rec => P_CSP_Rec,
552: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
555: x_msg_data => x_msg_data);
556: END IF;
557: */
558: EXCEPTION
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
565: ,X_MSG_COUNT => X_MSG_COUNT
566: ,X_MSG_DATA => X_MSG_DATA
567: ,X_RETURN_STATUS => X_RETURN_STATUS);
568:
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
592: -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
593: -- The Master delete procedure may not be needed depends on different business requirements.
594: PROCEDURE Delete_resource(
595: P_Api_Version_Number IN NUMBER,
596: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
597: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
598: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
599: P_identity_salesforce_id IN NUMBER := NULL,
600: P_CSP_Rec IN CSP_Rec_Type,
593: -- The Master delete procedure may not be needed depends on different business requirements.
594: PROCEDURE Delete_resource(
595: P_Api_Version_Number IN NUMBER,
596: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
597: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
598: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
599: P_identity_salesforce_id IN NUMBER := NULL,
600: P_CSP_Rec IN CSP_Rec_Type,
601: X_Return_Status OUT NOCOPY VARCHAR2,
594: PROCEDURE Delete_resource(
595: P_Api_Version_Number IN NUMBER,
596: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
597: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
598: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
599: P_identity_salesforce_id IN NUMBER := NULL,
600: P_CSP_Rec IN CSP_Rec_Type,
601: X_Return_Status OUT NOCOPY VARCHAR2,
602: X_Msg_Count OUT NOCOPY NUMBER,
611: -- Standard Start of API savepoint
612: SAVEPOINT DELETE_RESOURCE_PVT;
613:
614: -- Standard call to check for call compatibility.
615: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
616: p_api_version_number,
617: l_api_name,
618: G_PKG_NAME)
619: THEN
616: p_api_version_number,
617: l_api_name,
618: G_PKG_NAME)
619: THEN
620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
621: END IF;
622:
623:
624: -- Initialize message list if p_init_msg_list is set to TRUE.
621: END IF;
622:
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:
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;
637:
638: --
639: -- Api body
640: --
644: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
645: THEN
646: AS_CALLOUT_PKG.Delete_resource_BD(
647: p_api_version_number => 1.0,
648: p_init_msg_list => FND_API.G_FALSE,
649: p_commit => FND_API.G_FALSE,
650: p_validation_level => p_validation_level,
651: p_identity_salesforce_id => p_identity_salesforce_id,
652: P_CSP_Rec => P_CSP_Rec,
645: THEN
646: AS_CALLOUT_PKG.Delete_resource_BD(
647: p_api_version_number => 1.0,
648: p_init_msg_list => FND_API.G_FALSE,
649: p_commit => FND_API.G_FALSE,
650: p_validation_level => p_validation_level,
651: p_identity_salesforce_id => p_identity_salesforce_id,
652: P_CSP_Rec => P_CSP_Rec,
653: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
664: ,x_msg_count => x_msg_count
665: ,x_msg_data => x_msg_data
666: ,x_sales_member_rec => l_identity_sales_member_rec);
667:
668: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
669: RAISE FND_API.G_EXC_ERROR;
670: END IF;
671: */
672: -- Debug Message
665: ,x_msg_data => x_msg_data
666: ,x_sales_member_rec => l_identity_sales_member_rec);
667:
668: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
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');
679: -- End of API body
680: --
681:
682: -- Standard check for p_commit
683: IF FND_API.to_Boolean( p_commit )
684: THEN
685: COMMIT WORK;
686: END IF;
687:
702: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
703: THEN
704: AS_CALLOUT_PKG.Delete_resource_AD(
705: p_api_version_number => 1.0,
706: p_init_msg_list => FND_API.G_FALSE,
707: p_commit => FND_API.G_FALSE,
708: p_validation_level => p_validation_level,
709: p_identity_salesforce_id => p_identity_salesforce_id,
710: P_CSP_Rec => P_CSP_Rec,
703: THEN
704: AS_CALLOUT_PKG.Delete_resource_AD(
705: p_api_version_number => 1.0,
706: p_init_msg_list => FND_API.G_FALSE,
707: p_commit => FND_API.G_FALSE,
708: p_validation_level => p_validation_level,
709: p_identity_salesforce_id => p_identity_salesforce_id,
710: P_CSP_Rec => P_CSP_Rec,
711: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
714: x_msg_data => x_msg_data);
715: END IF;
716: */
717: EXCEPTION
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
724: ,X_MSG_COUNT => X_MSG_COUNT
725: ,X_MSG_DATA => X_MSG_DATA
726: ,X_RETURN_STATUS => X_RETURN_STATUS);
727:
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
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
825: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
826: ,p_order_by_tbl => l_util_order_by_tbl
827: ,x_order_by_clause => l_order_by_cl
828: ,x_return_status => x_return_status
821:
822: JTF_PLSQL_API.Translate_OrderBy(
823: p_api_version_number => 1.0
824: ,p_init_msg_list => FND_API.G_FALSE
825: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
826: ,p_order_by_tbl => l_util_order_by_tbl
827: ,x_order_by_clause => l_order_by_cl
828: ,x_return_status => x_return_status
829: ,x_msg_count => x_msg_count
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) )
859: THEN
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:
919: -- NUMBER, DATE, VARCHAR2.
920: -- Developer can copy and paste the following codes for your own record.
921:
922: -- example for NUMBER datatype
923: 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) )
924: THEN
925: IF(x_CSP_where IS NULL) THEN
926: x_CSP_where := 'Where';
927: ELSE
930: x_CSP_where := x_CSP_where || 'P_CSP_Rec.CSP_INV_LOC_ASSIGNMENT_ID = :p_CSP_INV_LOC_ASSIGNMENT_ID';
931: END IF;
932:
933: -- example for DATE datatype
934: IF( (P_CSP_Rec.CREATION_DATE IS NOT NULL) AND (P_CSP_Rec.CREATION_DATE <> FND_API.G_MISS_DATE) )
935: THEN
936: -- check if item value contains '%' wildcard
937: OPEN c_chk_str1(P_CSP_Rec.CREATION_DATE);
938: FETCH c_chk_str1 INTO str_csr1;
963: x_CSP_where := x_CSP_where || 'P_CSP_Rec.CREATION_DATE ' || l_operator || ' :p_CREATION_DATE';
964: END IF;
965:
966: -- example for VARCHAR2 datatype
967: IF( (P_CSP_Rec.SUBINVENTORY_CODE IS NOT NULL) AND (P_CSP_Rec.SUBINVENTORY_CODE <> FND_API.G_MISS_CHAR) )
968: THEN
969: -- check if item value contains '%' wildcard
970: OPEN c_chk_str1(P_CSP_Rec.SUBINVENTORY_CODE);
971: FETCH c_chk_str1 INTO str_csr1;
1004: END Gen_CSP_Where;
1005:
1006: -- Item-level validation procedures
1007: PROCEDURE Validate_CILA (
1008: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1009: P_Validation_mode IN VARCHAR2,
1010: P_CSP_INV_LOC_ASSIGNMENT_ID IN NUMBER,
1011: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_PLSQL_API.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1012: X_Return_Status OUT NOCOPY VARCHAR2,
1016: IS
1017: BEGIN
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:
1023: END IF;
1024:
1025:
1026: -- Initialize API return status to SUCCESS
1027: x_return_status := FND_API.G_RET_STS_SUCCESS;
1028:
1029: -- validate NOT NULL column
1030: IF(p_CSP_INV_LOC_ASSIGNMENT_ID is NULL)
1031: THEN
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)
1037: THEN
1037: THEN
1038: -- Hint: Validate data
1039: -- IF p_CSP_INV_LOC_ASSIGNMENT_ID is not NULL and p_CSP_INV_LOC_ASSIGNMENT_ID <> G_MISS_CHAR
1040: -- verify if data is valid
1041: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1042: NULL;
1043: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1044: THEN
1045: -- Hint: Validate data
1044: THEN
1045: -- Hint: Validate data
1046: -- IF p_CSP_INV_LOC_ASSIGNMENT_ID <> G_MISS_CHAR
1047: -- verify if data is valid
1048: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1049: NULL;
1050: END IF;
1051:
1052: -- Standard call to get message count and if count is 1, get message info.
1058: END Validate_CILA;
1059:
1060:
1061: PROCEDURE Validate_RESOURCE_ID (
1062: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1063: P_Validation_mode IN VARCHAR2,
1064: P_RESOURCE_ID IN NUMBER,
1065: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_PLSQL_API.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1066: X_Return_Status OUT NOCOPY VARCHAR2,
1070: IS
1071: BEGIN
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:
1077: END IF;
1078:
1079:
1080: -- Initialize API return status to SUCCESS
1081: x_return_status := FND_API.G_RET_STS_SUCCESS;
1082:
1083: -- validate NOT NULL column
1084: IF(p_RESOURCE_ID is NULL)
1085: THEN
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)
1091: THEN
1091: THEN
1092: -- Hint: Validate data
1093: -- IF p_RESOURCE_ID is not NULL and p_RESOURCE_ID <> G_MISS_CHAR
1094: -- verify if data is valid
1095: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1096: NULL;
1097: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1098: THEN
1099: -- Hint: Validate data
1098: THEN
1099: -- Hint: Validate data
1100: -- IF p_RESOURCE_ID <> G_MISS_CHAR
1101: -- verify if data is valid
1102: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1103: NULL;
1104: END IF;
1105:
1106: -- Standard call to get message count and if count is 1, get message info.
1112: END Validate_RESOURCE_ID;
1113:
1114:
1115: PROCEDURE Validate_ORGANIZATION_ID (
1116: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1117: P_Validation_mode IN VARCHAR2,
1118: P_ORGANIZATION_ID IN NUMBER,
1119: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_PLSQL_API.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1120: X_Return_Status OUT NOCOPY VARCHAR2,
1124: IS
1125: BEGIN
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:
1131: END IF;
1132:
1133:
1134: -- Initialize API return status to SUCCESS
1135: x_return_status := FND_API.G_RET_STS_SUCCESS;
1136:
1137: -- validate NOT NULL column
1138: IF(p_ORGANIZATION_ID is NULL)
1139: THEN
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)
1145: THEN
1145: THEN
1146: -- Hint: Validate data
1147: -- IF p_ORGANIZATION_ID is not NULL and p_ORGANIZATION_ID <> G_MISS_CHAR
1148: -- verify if data is valid
1149: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1150: NULL;
1151: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1152: THEN
1153: -- Hint: Validate data
1152: THEN
1153: -- Hint: Validate data
1154: -- IF p_ORGANIZATION_ID <> G_MISS_CHAR
1155: -- verify if data is valid
1156: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1157: NULL;
1158: END IF;
1159:
1160: -- Standard call to get message count and if count is 1, get message info.
1166: END Validate_ORGANIZATION_ID;
1167:
1168:
1169: PROCEDURE Validate_SUBINVENTORY_CODE (
1170: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1171: P_Validation_mode IN VARCHAR2,
1172: P_SUBINVENTORY_CODE IN VARCHAR2,
1173: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_PLSQL_API.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1174: X_Return_Status OUT NOCOPY VARCHAR2,
1178: IS
1179: BEGIN
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:
1185: END IF;
1186:
1187:
1188: -- Initialize API return status to SUCCESS
1189: x_return_status := FND_API.G_RET_STS_SUCCESS;
1190:
1191: -- validate NOT NULL column
1192: IF(p_SUBINVENTORY_CODE is NULL)
1193: THEN
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)
1199: THEN
1199: THEN
1200: -- Hint: Validate data
1201: -- IF p_SUBINVENTORY_CODE is not NULL and p_SUBINVENTORY_CODE <> G_MISS_CHAR
1202: -- verify if data is valid
1203: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1204: NULL;
1205: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1206: THEN
1207: -- Hint: Validate data
1206: THEN
1207: -- Hint: Validate data
1208: -- IF p_SUBINVENTORY_CODE <> G_MISS_CHAR
1209: -- verify if data is valid
1210: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1211: NULL;
1212: END IF;
1213:
1214: -- Standard call to get message count and if count is 1, get message info.
1220: END Validate_SUBINVENTORY_CODE;
1221:
1222:
1223: PROCEDURE Validate_LOCATOR_ID (
1224: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1225: P_Validation_mode IN VARCHAR2,
1226: P_LOCATOR_ID IN NUMBER,
1227: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_PLSQL_API.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1228: X_Return_Status OUT NOCOPY VARCHAR2,
1232: IS
1233: BEGIN
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:
1239: END IF;
1240:
1241:
1242: -- Initialize API return status to SUCCESS
1243: x_return_status := FND_API.G_RET_STS_SUCCESS;
1244:
1245: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1246: THEN
1247: -- Hint: Validate data
1246: THEN
1247: -- Hint: Validate data
1248: -- IF p_LOCATOR_ID is not NULL and p_LOCATOR_ID <> G_MISS_CHAR
1249: -- verify if data is valid
1250: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1251: NULL;
1252: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1253: THEN
1254: -- Hint: Validate data
1253: THEN
1254: -- Hint: Validate data
1255: -- IF p_LOCATOR_ID <> G_MISS_CHAR
1256: -- verify if data is valid
1257: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1258: NULL;
1259: END IF;
1260:
1261: -- Standard call to get message count and if count is 1, get message info.
1267: END Validate_LOCATOR_ID;
1268:
1269:
1270: PROCEDURE Validate_RESOURCE_TYPE (
1271: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1272: P_Validation_mode IN VARCHAR2,
1273: P_RESOURCE_TYPE IN VARCHAR2,
1274: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_PLSQL_API.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1275: X_Return_Status OUT NOCOPY VARCHAR2,
1279: IS
1280: BEGIN
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:
1286: END IF;
1287:
1288:
1289: -- Initialize API return status to SUCCESS
1290: x_return_status := FND_API.G_RET_STS_SUCCESS;
1291:
1292: -- validate NOT NULL column
1293: IF(p_RESOURCE_TYPE is NULL)
1294: THEN
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)
1300: THEN
1300: THEN
1301: -- Hint: Validate data
1302: -- IF p_RESOURCE_TYPE is not NULL and p_RESOURCE_TYPE <> G_MISS_CHAR
1303: -- verify if data is valid
1304: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1305: NULL;
1306: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1307: THEN
1308: -- Hint: Validate data
1307: THEN
1308: -- Hint: Validate data
1309: -- IF p_RESOURCE_TYPE <> G_MISS_CHAR
1310: -- verify if data is valid
1311: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1312: NULL;
1313: END IF;
1314:
1315: -- Standard call to get message count and if count is 1, get message info.
1321: END Validate_RESOURCE_TYPE;
1322:
1323:
1324: PROCEDURE Validate_EFFECTIVE_DATE_START (
1325: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1326: P_Validation_mode IN VARCHAR2,
1327: P_EFFECTIVE_DATE_START IN DATE,
1328: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_PLSQL_API.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1329: X_Return_Status OUT NOCOPY VARCHAR2,
1333: IS
1334: BEGIN
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:
1340: END IF;
1341:
1342:
1343: -- Initialize API return status to SUCCESS
1344: x_return_status := FND_API.G_RET_STS_SUCCESS;
1345:
1346: -- validate NOT NULL column
1347: IF(p_EFFECTIVE_DATE_START is NULL)
1348: THEN
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)
1354: THEN
1354: THEN
1355: -- Hint: Validate data
1356: -- IF p_EFFECTIVE_DATE_START is not NULL and p_EFFECTIVE_DATE_START <> G_MISS_CHAR
1357: -- verify if data is valid
1358: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1359: NULL;
1360: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1361: THEN
1362: -- Hint: Validate data
1361: THEN
1362: -- Hint: Validate data
1363: -- IF p_EFFECTIVE_DATE_START <> G_MISS_CHAR
1364: -- verify if data is valid
1365: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1366: NULL;
1367: END IF;
1368:
1369: -- Standard call to get message count and if count is 1, get message info.
1375: END Validate_EFFECTIVE_DATE_START;
1376:
1377:
1378: PROCEDURE Validate_EFFECTIVE_DATE_END (
1379: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1380: P_Validation_mode IN VARCHAR2,
1381: P_EFFECTIVE_DATE_END IN DATE,
1382: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_PLSQL_API.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1383: X_Return_Status OUT NOCOPY VARCHAR2,
1387: IS
1388: BEGIN
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:
1394: END IF;
1395:
1396:
1397: -- Initialize API return status to SUCCESS
1398: x_return_status := FND_API.G_RET_STS_SUCCESS;
1399:
1400: -- validate NOT NULL column
1401: IF(p_EFFECTIVE_DATE_END is NULL)
1402: THEN
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)
1408: THEN
1408: THEN
1409: -- Hint: Validate data
1410: -- IF p_EFFECTIVE_DATE_END is not NULL and p_EFFECTIVE_DATE_END <> G_MISS_CHAR
1411: -- verify if data is valid
1412: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1413: NULL;
1414: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1415: THEN
1416: -- Hint: Validate data
1415: THEN
1416: -- Hint: Validate data
1417: -- IF p_EFFECTIVE_DATE_END <> G_MISS_CHAR
1418: -- verify if data is valid
1419: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1420: NULL;
1421: END IF;
1422:
1423: -- Standard call to get message count and if count is 1, get message info.
1429: END Validate_EFFECTIVE_DATE_END;
1430:
1431:
1432: PROCEDURE Validate_DEFAULT_CODE (
1433: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1434: P_Validation_mode IN VARCHAR2,
1435: P_DEFAULT_CODE IN VARCHAR2,
1436: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_PLSQL_API.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1437: X_Return_Status OUT NOCOPY VARCHAR2,
1441: IS
1442: BEGIN
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:
1448: END IF;
1449:
1450:
1451: -- Initialize API return status to SUCCESS
1452: x_return_status := FND_API.G_RET_STS_SUCCESS;
1453:
1454: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1455: THEN
1456: -- Hint: Validate data
1455: THEN
1456: -- Hint: Validate data
1457: -- IF p_DEFAULT_CODE is not NULL and p_DEFAULT_CODE <> G_MISS_CHAR
1458: -- verify if data is valid
1459: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1460: NULL;
1461: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1462: THEN
1463: -- Hint: Validate data
1462: THEN
1463: -- Hint: Validate data
1464: -- IF p_DEFAULT_CODE <> G_MISS_CHAR
1465: -- verify if data is valid
1466: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1467: NULL;
1468: END IF;
1469:
1470: -- Standard call to get message count and if count is 1, get message info.
1480: -- Hint: If p_validation_mode = JTF_PLSQL_API.G_VALIDATE_UPDATE, we should use cursor
1481: -- to get old values for all fields used in inter-field validation and set all G_MISS_XXX fields to original value
1482: -- stored in database table.
1483: PROCEDURE Validate_CSP_rec(
1484: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1485: P_Validation_mode IN VARCHAR2,
1486: P_CSP_Rec IN CSP_Rec_Type,
1487: X_Return_Status OUT NOCOPY VARCHAR2,
1488: X_Msg_Count OUT NOCOPY NUMBER,
1491: IS
1492: BEGIN
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:
1498: END IF;
1499:
1500:
1501: -- Initialize API return status to SUCCESS
1502: x_return_status := FND_API.G_RET_STS_SUCCESS;
1503:
1504: -- Hint: Validate data
1505: -- If data not valid
1506: -- THEN
1503:
1504: -- Hint: Validate data
1505: -- If data not valid
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:
1517:
1518: END Validate_CSP_Rec;
1519:
1520: PROCEDURE Validate_resource(
1521: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1522: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1523: P_Validation_mode IN VARCHAR2,
1524: P_CSP_Rec IN CSP_Rec_Type,
1525: X_Return_Status OUT NOCOPY VARCHAR2,
1518: END Validate_CSP_Rec;
1519:
1520: PROCEDURE Validate_resource(
1521: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1522: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1523: P_Validation_mode IN VARCHAR2,
1524: P_CSP_Rec IN CSP_Rec_Type,
1525: X_Return_Status OUT NOCOPY VARCHAR2,
1526: X_Msg_Count OUT NOCOPY NUMBER,
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;
1539:
1540: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_ITEM) THEN
1541: -- Hint: We provide validation procedure for every column. Developer should delete
1542: -- unnecessary validation procedures.
1540: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_ITEM) THEN
1541: -- Hint: We provide validation procedure for every column. Developer should delete
1542: -- unnecessary validation procedures.
1543: Validate_CILA(
1544: p_init_msg_list => FND_API.G_FALSE,
1545: p_validation_mode => p_validation_mode,
1546: p_CSP_INV_LOC_ASSIGNMENT_ID => P_CSP_Rec.CSP_INV_LOC_ASSIGNMENT_ID,
1547: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1548: x_return_status => x_return_status,
1547: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1548: x_return_status => x_return_status,
1549: x_msg_count => x_msg_count,
1550: x_msg_data => x_msg_data);
1551: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1552: raise FND_API.G_EXC_ERROR;
1553: END IF;
1554:
1555: Validate_RESOURCE_ID(
1548: x_return_status => x_return_status,
1549: x_msg_count => x_msg_count,
1550: x_msg_data => x_msg_data);
1551: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1552: raise FND_API.G_EXC_ERROR;
1553: END IF;
1554:
1555: Validate_RESOURCE_ID(
1556: p_init_msg_list => FND_API.G_FALSE,
1552: raise FND_API.G_EXC_ERROR;
1553: END IF;
1554:
1555: Validate_RESOURCE_ID(
1556: p_init_msg_list => FND_API.G_FALSE,
1557: p_validation_mode => p_validation_mode,
1558: p_RESOURCE_ID => P_CSP_Rec.RESOURCE_ID,
1559: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1560: x_return_status => x_return_status,
1559: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1560: x_return_status => x_return_status,
1561: x_msg_count => x_msg_count,
1562: x_msg_data => x_msg_data);
1563: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1564: raise FND_API.G_EXC_ERROR;
1565: END IF;
1566:
1567: Validate_ORGANIZATION_ID(
1560: x_return_status => x_return_status,
1561: x_msg_count => x_msg_count,
1562: x_msg_data => x_msg_data);
1563: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1564: raise FND_API.G_EXC_ERROR;
1565: END IF;
1566:
1567: Validate_ORGANIZATION_ID(
1568: p_init_msg_list => FND_API.G_FALSE,
1564: raise FND_API.G_EXC_ERROR;
1565: END IF;
1566:
1567: Validate_ORGANIZATION_ID(
1568: p_init_msg_list => FND_API.G_FALSE,
1569: p_validation_mode => p_validation_mode,
1570: p_ORGANIZATION_ID => P_CSP_Rec.ORGANIZATION_ID,
1571: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1572: x_return_status => x_return_status,
1571: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1572: x_return_status => x_return_status,
1573: x_msg_count => x_msg_count,
1574: x_msg_data => x_msg_data);
1575: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1576: raise FND_API.G_EXC_ERROR;
1577: END IF;
1578:
1579: Validate_SUBINVENTORY_CODE(
1572: x_return_status => x_return_status,
1573: x_msg_count => x_msg_count,
1574: x_msg_data => x_msg_data);
1575: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1576: raise FND_API.G_EXC_ERROR;
1577: END IF;
1578:
1579: Validate_SUBINVENTORY_CODE(
1580: p_init_msg_list => FND_API.G_FALSE,
1576: raise FND_API.G_EXC_ERROR;
1577: END IF;
1578:
1579: Validate_SUBINVENTORY_CODE(
1580: p_init_msg_list => FND_API.G_FALSE,
1581: p_validation_mode => p_validation_mode,
1582: p_SUBINVENTORY_CODE => P_CSP_Rec.SUBINVENTORY_CODE,
1583: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1584: x_return_status => x_return_status,
1583: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1584: x_return_status => x_return_status,
1585: x_msg_count => x_msg_count,
1586: x_msg_data => x_msg_data);
1587: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1588: raise FND_API.G_EXC_ERROR;
1589: END IF;
1590:
1591: Validate_LOCATOR_ID(
1584: x_return_status => x_return_status,
1585: x_msg_count => x_msg_count,
1586: x_msg_data => x_msg_data);
1587: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1588: raise FND_API.G_EXC_ERROR;
1589: END IF;
1590:
1591: Validate_LOCATOR_ID(
1592: p_init_msg_list => FND_API.G_FALSE,
1588: raise FND_API.G_EXC_ERROR;
1589: END IF;
1590:
1591: Validate_LOCATOR_ID(
1592: p_init_msg_list => FND_API.G_FALSE,
1593: p_validation_mode => p_validation_mode,
1594: p_LOCATOR_ID => P_CSP_Rec.LOCATOR_ID,
1595: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1596: x_return_status => x_return_status,
1595: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1596: x_return_status => x_return_status,
1597: x_msg_count => x_msg_count,
1598: x_msg_data => x_msg_data);
1599: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1600: raise FND_API.G_EXC_ERROR;
1601: END IF;
1602:
1603: Validate_RESOURCE_TYPE(
1596: x_return_status => x_return_status,
1597: x_msg_count => x_msg_count,
1598: x_msg_data => x_msg_data);
1599: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1600: raise FND_API.G_EXC_ERROR;
1601: END IF;
1602:
1603: Validate_RESOURCE_TYPE(
1604: p_init_msg_list => FND_API.G_FALSE,
1600: raise FND_API.G_EXC_ERROR;
1601: END IF;
1602:
1603: Validate_RESOURCE_TYPE(
1604: p_init_msg_list => FND_API.G_FALSE,
1605: p_validation_mode => p_validation_mode,
1606: p_RESOURCE_TYPE => P_CSP_Rec.RESOURCE_TYPE,
1607: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1608: x_return_status => x_return_status,
1607: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1608: x_return_status => x_return_status,
1609: x_msg_count => x_msg_count,
1610: x_msg_data => x_msg_data);
1611: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1612: raise FND_API.G_EXC_ERROR;
1613: END IF;
1614:
1615: Validate_EFFECTIVE_DATE_START(
1608: x_return_status => x_return_status,
1609: x_msg_count => x_msg_count,
1610: x_msg_data => x_msg_data);
1611: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1612: raise FND_API.G_EXC_ERROR;
1613: END IF;
1614:
1615: Validate_EFFECTIVE_DATE_START(
1616: p_init_msg_list => FND_API.G_FALSE,
1612: raise FND_API.G_EXC_ERROR;
1613: END IF;
1614:
1615: Validate_EFFECTIVE_DATE_START(
1616: p_init_msg_list => FND_API.G_FALSE,
1617: p_validation_mode => p_validation_mode,
1618: p_EFFECTIVE_DATE_START => P_CSP_Rec.EFFECTIVE_DATE_START,
1619: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1620: x_return_status => x_return_status,
1619: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1620: x_return_status => x_return_status,
1621: x_msg_count => x_msg_count,
1622: x_msg_data => x_msg_data);
1623: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1624: raise FND_API.G_EXC_ERROR;
1625: END IF;
1626:
1627: Validate_EFFECTIVE_DATE_END(
1620: x_return_status => x_return_status,
1621: x_msg_count => x_msg_count,
1622: x_msg_data => x_msg_data);
1623: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1624: raise FND_API.G_EXC_ERROR;
1625: END IF;
1626:
1627: Validate_EFFECTIVE_DATE_END(
1628: p_init_msg_list => FND_API.G_FALSE,
1624: raise FND_API.G_EXC_ERROR;
1625: END IF;
1626:
1627: Validate_EFFECTIVE_DATE_END(
1628: p_init_msg_list => FND_API.G_FALSE,
1629: p_validation_mode => p_validation_mode,
1630: p_EFFECTIVE_DATE_END => P_CSP_Rec.EFFECTIVE_DATE_END,
1631: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1632: x_return_status => x_return_status,
1631: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1632: x_return_status => x_return_status,
1633: x_msg_count => x_msg_count,
1634: x_msg_data => x_msg_data);
1635: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1636: raise FND_API.G_EXC_ERROR;
1637: END IF;
1638:
1639: Validate_DEFAULT_CODE(
1632: x_return_status => x_return_status,
1633: x_msg_count => x_msg_count,
1634: x_msg_data => x_msg_data);
1635: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1636: raise FND_API.G_EXC_ERROR;
1637: END IF;
1638:
1639: Validate_DEFAULT_CODE(
1640: p_init_msg_list => FND_API.G_FALSE,
1636: raise FND_API.G_EXC_ERROR;
1637: END IF;
1638:
1639: Validate_DEFAULT_CODE(
1640: p_init_msg_list => FND_API.G_FALSE,
1641: p_validation_mode => p_validation_mode,
1642: p_DEFAULT_CODE => P_CSP_Rec.DEFAULT_CODE,
1643: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1644: x_return_status => x_return_status,
1643: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1644: x_return_status => x_return_status,
1645: x_msg_count => x_msg_count,
1646: x_msg_data => x_msg_data);
1647: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1648: raise FND_API.G_EXC_ERROR;
1649: END IF;
1650:
1651: END IF;
1644: x_return_status => x_return_status,
1645: x_msg_count => x_msg_count,
1646: x_msg_data => x_msg_data);
1647: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1648: raise FND_API.G_EXC_ERROR;
1649: END IF;
1650:
1651: END IF;
1652:
1653: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_RECORD) THEN
1654: -- Hint: Inter-field level validation can be added here
1655: -- invoke record level validation procedures
1656: Validate_CSP_Rec(
1657: p_init_msg_list => FND_API.G_FALSE,
1658: p_validation_mode => p_validation_mode,
1659: P_CSP_Rec => P_CSP_Rec,
1660: x_return_status => x_return_status,
1661: x_msg_count => x_msg_count,
1660: x_return_status => x_return_status,
1661: x_msg_count => x_msg_count,
1662: x_msg_data => x_msg_data);
1663:
1664: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1665: raise FND_API.G_EXC_ERROR;
1666: END IF;
1667: END IF;
1668:
1661: x_msg_count => x_msg_count,
1662: x_msg_data => x_msg_data);
1663:
1664: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1665: raise FND_API.G_EXC_ERROR;
1666: END IF;
1667: END IF;
1668:
1669: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_INTER_RECORD) THEN