[Home] [Help]
16:
17: -- Hint: Primary key needs to be returned.
18: PROCEDURE Create_orderlines(
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_mol_Rec IN mol_Rec_Type := G_MISS_mol_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_orderlines(
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_mol_Rec IN mol_Rec_Type := G_MISS_mol_REC,
24: --Hint: Add detail tables as parameter lists if it's master-detail relationship.
25: X_LINE_ID OUT NOCOPY NUMBER,
18: PROCEDURE Create_orderlines(
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_mol_Rec IN mol_Rec_Type := G_MISS_mol_REC,
24: --Hint: Add detail tables as parameter lists if it's master-detail relationship.
25: X_LINE_ID OUT NOCOPY NUMBER,
26: X_Return_Status OUT NOCOPY VARCHAR2,
37: -- Standard Start of API savepoint
38: SAVEPOINT CREATE_ORDERLINES_PVT;
39:
40: -- Standard call to check for call compatibility.
41: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
42: p_api_version_number,
43: l_api_name,
44: G_PKG_NAME)
45: THEN
42: p_api_version_number,
43: l_api_name,
44: G_PKG_NAME)
45: THEN
46: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
47: END IF;
48:
49:
50: -- Initialize message list if p_init_msg_list is set to TRUE.
47: END IF;
48:
49:
50: -- Initialize message list if p_init_msg_list is set to TRUE.
51: IF FND_API.to_Boolean( p_init_msg_list )
52: THEN
53: FND_MSG_PUB.initialize;
54: END IF;
55:
58: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'start');
59:
60:
61: -- Initialize API return status to SUCCESS
62: x_return_status := FND_API.G_RET_STS_SUCCESS;
63:
64: --
65: -- API body
66: --
71: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
72: THEN
73: AS_CALLOUT_PKG.Create_orderlines_BC(
74: p_api_version_number => 2.0,
75: p_init_msg_list => FND_API.G_FALSE,
76: p_commit => FND_API.G_FALSE,
77: p_validation_level => p_validation_level,
78: P_mol_Rec => P_mol_Rec,
79: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
72: THEN
73: AS_CALLOUT_PKG.Create_orderlines_BC(
74: p_api_version_number => 2.0,
75: p_init_msg_list => FND_API.G_FALSE,
76: p_commit => FND_API.G_FALSE,
77: p_validation_level => p_validation_level,
78: P_mol_Rec => P_mol_Rec,
79: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
80: x_return_status => x_return_status,
92: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
93: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
94: FND_MSG_PUB.ADD;
95: END IF;
96: RAISE FND_API.G_EXC_ERROR;
97: END IF;
98:
99: /* commented out by CSP DEC 06, 1999.
100:
105: ,x_msg_count => x_msg_count
106: ,x_msg_data => x_msg_data
107: ,x_sales_member_rec => l_identity_sales_member_rec);
108:
109: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
110: RAISE FND_API.G_EXC_ERROR;
111: END IF;
112:
113: */
106: ,x_msg_data => x_msg_data
107: ,x_sales_member_rec => l_identity_sales_member_rec);
108:
109: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
110: RAISE FND_API.G_EXC_ERROR;
111: END IF;
112:
113: */
114: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
110: RAISE FND_API.G_EXC_ERROR;
111: END IF;
112:
113: */
114: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
115: THEN
116: -- Debug message
117: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Validate_orderlines');
118:
117: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Validate_orderlines');
118:
119: -- Invoke validation procedures
120: Validate_orderlines(
121: p_init_msg_list => FND_API.G_FALSE,
122: p_validation_level => p_validation_level,
123: p_validation_mode => JTF_PLSQL_API.G_CREATE,
124: P_mol_Rec => P_mol_Rec,
125: x_return_status => x_return_status,
126: x_msg_count => x_msg_count,
127: x_msg_data => x_msg_data);
128: END IF;
129:
130: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
131: RAISE FND_API.G_EXC_ERROR;
132: END IF;
133:
134: -- Hint: Add corresponding Master-Detail business logic here if necessary.
127: x_msg_data => x_msg_data);
128: END IF;
129:
130: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
131: RAISE FND_API.G_EXC_ERROR;
132: END IF;
133:
134: -- Hint: Add corresponding Master-Detail business logic here if necessary.
135:
169: -- Hint: Primary key should be returned.
170: -- x_LINE_ID := px_LINE_ID;
171: x_LINE_ID := p_mol_rec.LINE_ID;
172:
173: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
174: RAISE FND_API.G_EXC_ERROR;
175: END IF;
176:
177: --
170: -- x_LINE_ID := px_LINE_ID;
171: x_LINE_ID := p_mol_rec.LINE_ID;
172:
173: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
174: RAISE FND_API.G_EXC_ERROR;
175: END IF;
176:
177: --
178: -- End of API body
178: -- End of API body
179: --
180:
181: -- Standard check for p_commit
182: IF FND_API.to_Boolean( p_commit )
183: THEN
184: COMMIT WORK;
185: END IF;
186:
201: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
202: THEN
203: AS_CALLOUT_PKG.Create_orderlines_AC(
204: p_api_version_number => 2.0,
205: p_init_msg_list => FND_API.G_FALSE,
206: p_commit => FND_API.G_FALSE,
207: p_validation_level => p_validation_level,
208: P_mol_Rec => P_mol_Rec,
209: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
202: THEN
203: AS_CALLOUT_PKG.Create_orderlines_AC(
204: p_api_version_number => 2.0,
205: p_init_msg_list => FND_API.G_FALSE,
206: p_commit => FND_API.G_FALSE,
207: p_validation_level => p_validation_level,
208: P_mol_Rec => P_mol_Rec,
209: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
210: x_return_status => x_return_status,
212: x_msg_data => x_msg_data);
213: END IF;
214: */
215: EXCEPTION
216: WHEN FND_API.G_EXC_ERROR THEN
217: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
218: P_API_NAME => L_API_NAME
219: ,P_PKG_NAME => G_PKG_NAME
220: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
222: ,X_MSG_COUNT => X_MSG_COUNT
223: ,X_MSG_DATA => X_MSG_DATA
224: ,X_RETURN_STATUS => X_RETURN_STATUS);
225:
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
227: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
228: P_API_NAME => L_API_NAME
229: ,P_PKG_NAME => G_PKG_NAME
230: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
247:
248: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
249: PROCEDURE Update_orderlines(
250: P_Api_Version_Number IN NUMBER,
251: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
252: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
253: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
254: P_Identity_Salesforce_Id IN NUMBER := NULL,
255: P_mol_Rec IN mol_Rec_Type,
248: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
249: PROCEDURE Update_orderlines(
250: P_Api_Version_Number IN NUMBER,
251: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
252: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
253: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
254: P_Identity_Salesforce_Id IN NUMBER := NULL,
255: P_mol_Rec IN mol_Rec_Type,
256: X_Return_Status OUT NOCOPY VARCHAR2,
249: PROCEDURE Update_orderlines(
250: P_Api_Version_Number IN NUMBER,
251: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
252: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
253: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
254: P_Identity_Salesforce_Id IN NUMBER := NULL,
255: P_mol_Rec IN mol_Rec_Type,
256: X_Return_Status OUT NOCOPY VARCHAR2,
257: X_Msg_Count OUT NOCOPY NUMBER,
305: -- Standard Start of API savepoint
306: SAVEPOINT UPDATE_ORDERLINES_PVT;
307:
308: -- Standard call to check for call compatibility.
309: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
310: p_api_version_number,
311: l_api_name,
312: G_PKG_NAME)
313: THEN
310: p_api_version_number,
311: l_api_name,
312: G_PKG_NAME)
313: THEN
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: END IF;
316:
317:
318: -- Initialize message list if p_init_msg_list is set to TRUE.
315: END IF;
316:
317:
318: -- Initialize message list if p_init_msg_list is set to TRUE.
319: IF FND_API.to_Boolean( p_init_msg_list )
320: THEN
321: FND_MSG_PUB.initialize;
322: END IF;
323:
326: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'start');
327:
328:
329: -- Initialize API return status to SUCCESS
330: x_return_status := FND_API.G_RET_STS_SUCCESS;
331:
332: --
333: -- Api body
334: --
338: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
339: THEN
340: AS_CALLOUT_PKG.Update_orderlines_BU(
341: p_api_version_number => 2.0,
342: p_init_msg_list => FND_API.G_FALSE,
343: p_commit => FND_API.G_FALSE,
344: p_validation_level => p_validation_level,
345: p_identity_salesforce_id => p_identity_salesforce_id,
346: P_mol_Rec => P_mol_Rec,
339: THEN
340: AS_CALLOUT_PKG.Update_orderlines_BU(
341: p_api_version_number => 2.0,
342: p_init_msg_list => FND_API.G_FALSE,
343: p_commit => FND_API.G_FALSE,
344: p_validation_level => p_validation_level,
345: p_identity_salesforce_id => p_identity_salesforce_id,
346: P_mol_Rec => P_mol_Rec,
347: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
359: ,x_msg_count => x_msg_count
360: ,x_msg_data => x_msg_data
361: ,x_sales_member_rec => l_identity_sales_member_rec);
362:
363: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
364: RAISE FND_API.G_EXC_ERROR;
365: END IF;
366:
367: */
360: ,x_msg_data => x_msg_data
361: ,x_sales_member_rec => l_identity_sales_member_rec);
362:
363: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
364: RAISE FND_API.G_EXC_ERROR;
365: END IF;
366:
367: */
368:
409: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_UPDATE_TARGET');
410: FND_MESSAGE.Set_Token ('INFO', 'orderlines', FALSE);
411: FND_MSG_PUB.Add;
412: END IF;
413: raise FND_API.G_EXC_ERROR;
414: END IF;
415: -- Debug Message
416: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: - Close Cursor');
417: Close C_Get_orderlines;
418: */
419:
420: /* commented out by klou, 01/07/00
421: If (l_tar_mol_rec.last_update_date is NULL or
422: l_tar_mol_rec.last_update_date = FND_API.G_MISS_Date ) Then
423: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
424: THEN
425: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
426: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
425: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
426: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
427: FND_MSG_PUB.ADD;
428: END IF;
429: raise FND_API.G_EXC_ERROR;
430: End if;
431:
432: -- Check Whether record has been changed by someone else
433: If (l_tar_mol_rec.last_update_date <> l_ref_mol_rec.last_update_date) Then
436: FND_MESSAGE.Set_Name('CSP', 'API_RECORD_CHANGED');
437: FND_MESSAGE.Set_Token('INFO', 'orderlines', FALSE);
438: FND_MSG_PUB.ADD;
439: END IF;
440: raise FND_API.G_EXC_ERROR;
441: End if;
442: */
443: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
444: THEN
439: END IF;
440: raise FND_API.G_EXC_ERROR;
441: End if;
442: */
443: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
444: THEN
445: -- Debug message
446: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Validate_orderlines');
447:
446: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Validate_orderlines');
447:
448: -- Invoke validation procedures
449: Validate_orderlines(
450: p_init_msg_list => FND_API.G_FALSE,
451: p_validation_level => p_validation_level,
452: p_validation_mode => JTF_PLSQL_API.G_UPDATE,
453: P_mol_Rec => P_mol_Rec,
454: x_return_status => x_return_status,
455: x_msg_count => x_msg_count,
456: x_msg_data => x_msg_data);
457: END IF;
458:
459: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
460: RAISE FND_API.G_EXC_ERROR;
461: END IF;
462:
463: -- Hint: Add corresponding Master-Detail business logic here if necessary.
456: x_msg_data => x_msg_data);
457: END IF;
458:
459: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
460: RAISE FND_API.G_EXC_ERROR;
461: END IF;
462:
463: -- Hint: Add corresponding Master-Detail business logic here if necessary.
464:
499: -- End of API body.
500: --
501:
502: -- Standard check for p_commit
503: IF FND_API.to_Boolean( p_commit )
504: THEN
505: COMMIT WORK;
506: END IF;
507:
522: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
523: THEN
524: AS_CALLOUT_PKG.Update_orderlines_AU(
525: p_api_version_number => 2.0,
526: p_init_msg_list => FND_API.G_FALSE,
527: p_commit => FND_API.G_FALSE,
528: p_validation_level => p_validation_level,
529: p_identity_salesforce_id => p_identity_salesforce_id,
530: P_mol_Rec => P_mol_Rec,
523: THEN
524: AS_CALLOUT_PKG.Update_orderlines_AU(
525: p_api_version_number => 2.0,
526: p_init_msg_list => FND_API.G_FALSE,
527: p_commit => FND_API.G_FALSE,
528: p_validation_level => p_validation_level,
529: p_identity_salesforce_id => p_identity_salesforce_id,
530: P_mol_Rec => P_mol_Rec,
531: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
534: x_msg_data => x_msg_data);
535: END IF;
536: */
537: EXCEPTION
538: WHEN FND_API.G_EXC_ERROR THEN
539: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
540: P_API_NAME => L_API_NAME
541: ,P_PKG_NAME => G_PKG_NAME
542: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
544: ,X_MSG_COUNT => X_MSG_COUNT
545: ,X_MSG_DATA => X_MSG_DATA
546: ,X_RETURN_STATUS => X_RETURN_STATUS);
547:
548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
549: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
550: P_API_NAME => L_API_NAME
551: ,P_PKG_NAME => G_PKG_NAME
552: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
570: -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
571: -- The Master delete procedure may not be needed depends on different business requirements.
572: PROCEDURE Delete_orderlines(
573: P_Api_Version_Number IN NUMBER,
574: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
575: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
576: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
577: P_identity_salesforce_id IN NUMBER := NULL,
578: P_mol_Rec IN mol_Rec_Type,
571: -- The Master delete procedure may not be needed depends on different business requirements.
572: PROCEDURE Delete_orderlines(
573: P_Api_Version_Number IN NUMBER,
574: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
575: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
576: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
577: P_identity_salesforce_id IN NUMBER := NULL,
578: P_mol_Rec IN mol_Rec_Type,
579: X_Return_Status OUT NOCOPY VARCHAR2,
572: PROCEDURE Delete_orderlines(
573: P_Api_Version_Number IN NUMBER,
574: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
575: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
576: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
577: P_identity_salesforce_id IN NUMBER := NULL,
578: P_mol_Rec IN mol_Rec_Type,
579: X_Return_Status OUT NOCOPY VARCHAR2,
580: X_Msg_Count OUT NOCOPY NUMBER,
589: -- Standard Start of API savepoint
590: SAVEPOINT DELETE_ORDERLINES_PVT;
591:
592: -- Standard call to check for call compatibility.
593: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
594: p_api_version_number,
595: l_api_name,
596: G_PKG_NAME)
597: THEN
594: p_api_version_number,
595: l_api_name,
596: G_PKG_NAME)
597: THEN
598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
599: END IF;
600:
601:
602: -- Initialize message list if p_init_msg_list is set to TRUE.
599: END IF;
600:
601:
602: -- Initialize message list if p_init_msg_list is set to TRUE.
603: IF FND_API.to_Boolean( p_init_msg_list )
604: THEN
605: FND_MSG_PUB.initialize;
606: END IF;
607:
610: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'start');
611:
612:
613: -- Initialize API return status to SUCCESS
614: x_return_status := FND_API.G_RET_STS_SUCCESS;
615:
616: --
617: -- Api body
618: --
622: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
623: THEN
624: AS_CALLOUT_PKG.Delete_orderlines_BD(
625: p_api_version_number => 2.0,
626: p_init_msg_list => FND_API.G_FALSE,
627: p_commit => FND_API.G_FALSE,
628: p_validation_level => p_validation_level,
629: p_identity_salesforce_id => p_identity_salesforce_id,
630: P_mol_Rec => P_mol_Rec,
623: THEN
624: AS_CALLOUT_PKG.Delete_orderlines_BD(
625: p_api_version_number => 2.0,
626: p_init_msg_list => FND_API.G_FALSE,
627: p_commit => FND_API.G_FALSE,
628: p_validation_level => p_validation_level,
629: p_identity_salesforce_id => p_identity_salesforce_id,
630: P_mol_Rec => P_mol_Rec,
631: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
643: ,x_msg_count => x_msg_count
644: ,x_msg_data => x_msg_data
645: ,x_sales_member_rec => l_identity_sales_member_rec);
646:
647: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
648: RAISE FND_API.G_EXC_ERROR;
649: END IF;
650: */
651: -- Debug Message
644: ,x_msg_data => x_msg_data
645: ,x_sales_member_rec => l_identity_sales_member_rec);
646:
647: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
648: RAISE FND_API.G_EXC_ERROR;
649: END IF;
650: */
651: -- Debug Message
652: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Calling delete table handler');
658: -- End of API body
659: --
660:
661: -- Standard check for p_commit
662: IF FND_API.to_Boolean( p_commit )
663: THEN
664: COMMIT WORK;
665: END IF;
666:
681: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
682: THEN
683: AS_CALLOUT_PKG.Delete_orderlines_AD(
684: p_api_version_number => 2.0,
685: p_init_msg_list => FND_API.G_FALSE,
686: p_commit => FND_API.G_FALSE,
687: p_validation_level => p_validation_level,
688: p_identity_salesforce_id => p_identity_salesforce_id,
689: P_mol_Rec => P_mol_Rec,
682: THEN
683: AS_CALLOUT_PKG.Delete_orderlines_AD(
684: p_api_version_number => 2.0,
685: p_init_msg_list => FND_API.G_FALSE,
686: p_commit => FND_API.G_FALSE,
687: p_validation_level => p_validation_level,
688: p_identity_salesforce_id => p_identity_salesforce_id,
689: P_mol_Rec => P_mol_Rec,
690: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
693: x_msg_data => x_msg_data);
694: END IF;
695: */
696: EXCEPTION
697: WHEN FND_API.G_EXC_ERROR THEN
698: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
699: P_API_NAME => L_API_NAME
700: ,P_PKG_NAME => G_PKG_NAME
701: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
703: ,X_MSG_COUNT => X_MSG_COUNT
704: ,X_MSG_DATA => X_MSG_DATA
705: ,X_RETURN_STATUS => X_RETURN_STATUS);
706:
707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
708: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
709: P_API_NAME => L_API_NAME
710: ,P_PKG_NAME => G_PKG_NAME
711: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
829: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Invoke JTF_PLSQL_API.Translate_OrderBy');
830:
831: JTF_PLSQL_API.Translate_OrderBy(
832: p_api_version_number => 1.0
833: ,p_init_msg_list => FND_API.G_FALSE
834: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
835: ,p_order_by_tbl => l_util_order_by_tbl
836: ,x_order_by_clause => l_order_by_cl
837: ,x_return_status => x_return_status
830:
831: JTF_PLSQL_API.Translate_OrderBy(
832: p_api_version_number => 1.0
833: ,p_init_msg_list => FND_API.G_FALSE
834: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
835: ,p_order_by_tbl => l_util_order_by_tbl
836: ,x_order_by_clause => l_order_by_cl
837: ,x_return_status => x_return_status
838: ,x_msg_count => x_msg_count
862: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Bind Variables Begins');
863:
864: -- The following example applies to all columns,
865: -- developers can copy and paste them.
866: IF( (P_mol_Rec.LINE_ID IS NOT NULL) AND (P_mol_Rec.LINE_ID <> FND_API.G_MISS_NUM) )
867: THEN
868: DBMS_SQL.BIND_VARIABLE(p_cur_get_mol, ':p_LINE_ID', P_mol_Rec.LINE_ID);
869: END IF;
870:
941: -- NUMBER, DATE, VARCHAR2.
942: -- Developer can copy and paste the following codes for your own record.
943:
944: -- example for NUMBER datatype
945: IF( (P_mol_Rec.LINE_ID IS NOT NULL) AND (P_mol_Rec.LINE_ID <> FND_API.G_MISS_NUM) )
946: THEN
947: IF(x_mol_where IS NULL) THEN
948: x_mol_where := 'Where';
949: ELSE
952: x_mol_where := x_mol_where || 'P_mol_Rec.LINE_ID = :p_LINE_ID';
953: END IF;
954:
955: -- example for DATE datatype
956: IF( (P_mol_Rec.CREATION_DATE IS NOT NULL) AND (P_mol_Rec.CREATION_DATE <> FND_API.G_MISS_DATE) )
957: THEN
958: -- check if item value contains '%' wildcard
959: OPEN c_chk_str1(P_mol_Rec.CREATION_DATE);
960: FETCH c_chk_str1 INTO str_csr1;
985: x_mol_where := x_mol_where || 'P_mol_Rec.CREATION_DATE ' || l_operator || ' :p_CREATION_DATE';
986: END IF;
987:
988: -- example for VARCHAR2 datatype
989: IF( (P_mol_Rec.CUSTOMER_PO IS NOT NULL) AND (P_mol_Rec.CUSTOMER_PO <> FND_API.G_MISS_CHAR) )
990: THEN
991: -- check if item value contains '%' wildcard
992: OPEN c_chk_str1(P_mol_Rec.CUSTOMER_PO);
993: FETCH c_chk_str1 INTO str_csr1;
1026: END Gen_mol_Where;
1027:
1028: -- Item-level validation procedures
1029: PROCEDURE Validate_LINE_ID (
1030: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1031: P_Validation_mode IN VARCHAR2,
1032: P_LINE_ID IN NUMBER,
1033: P_HEADER_ID IN NUMBER, -- added for valiation of line_id 06-DEC-99, VL.
1034: -- 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.
1040: l_check_line_id NUMBER;
1041: BEGIN
1042:
1043: -- Initialize message list if p_init_msg_list is set to TRUE.
1044: IF FND_API.to_Boolean( p_init_msg_list )
1045: THEN
1046: FND_MSG_PUB.initialize;
1047: END IF;
1048:
1047: END IF;
1048:
1049:
1050: -- Initialize API return status to SUCCESS
1051: x_return_status := FND_API.G_RET_STS_SUCCESS;
1052:
1053: -- validate NOT NULL column
1054: IF(p_LINE_ID is NULL)
1055: THEN
1053: -- validate NOT NULL column
1054: IF(p_LINE_ID is NULL)
1055: THEN
1056: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'CSP', 'Private orderlines API: -Violate NOT NULL constraint(LINE_ID)');
1057: x_return_status := FND_API.G_RET_STS_ERROR;
1058: END IF;
1059:
1060: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1061: THEN
1062: NULL;
1063: -- Hint: Validate data
1064: -- IF p_LINE_ID is not NULL and p_LINE_ID <> G_MISS_CHAR
1065: -- verify if data is valid
1066: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1067: /* Removed by klou. This block of validations is moved to the csp_to_form_molines.validate_and_write.
1068: -- CSP line_id validation
1069: BEGIN
1070: SELECT organization_id into l_check_line_id
1073: and line_id = p_line_id;
1074:
1075: EXCEPTION
1076: WHEN NO_DATA_FOUND THEN
1077: x_return_status := FND_API.G_RET_STS_ERROR;
1078: x_msg_count := x_msg_count + 1;
1079: x_msg_data := 'The Line ID is not valid for the Header ID. Or Header ID does not exists.';
1080: WHEN OTHERS THEN
1081: x_return_status := FND_API.G_RET_STS_ERROR;
1077: x_return_status := FND_API.G_RET_STS_ERROR;
1078: x_msg_count := x_msg_count + 1;
1079: x_msg_data := 'The Line ID is not valid for the Header ID. Or Header ID does not exists.';
1080: WHEN OTHERS THEN
1081: x_return_status := FND_API.G_RET_STS_ERROR;
1082: x_msg_count := x_msg_count + 1;
1083: x_msg_data := 'Unexpected errors found. Please check the Line ID and Header ID.';
1084: END;
1085: */
1087: THEN
1088: -- Hint: Validate data
1089: -- IF p_LINE_ID <> G_MISS_CHAR
1090: -- verify if data is valid
1091: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1092: NULL;
1093: END IF;
1094:
1095: -- Standard call to get message count and if count is 1, get message info.
1101: END Validate_LINE_ID;
1102:
1103:
1104: PROCEDURE Validate_LAST_UPDATED_LOGIN (
1105: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1106: P_Validation_mode IN VARCHAR2,
1107: P_LAST_UPDATED_LOGIN IN NUMBER,
1108: -- 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.
1109: X_Return_Status OUT NOCOPY VARCHAR2,
1113: IS
1114: BEGIN
1115:
1116: -- Initialize message list if p_init_msg_list is set to TRUE.
1117: IF FND_API.to_Boolean( p_init_msg_list )
1118: THEN
1119: FND_MSG_PUB.initialize;
1120: END IF;
1121:
1120: END IF;
1121:
1122:
1123: -- Initialize API return status to SUCCESS
1124: x_return_status := FND_API.G_RET_STS_SUCCESS;
1125:
1126: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1127: THEN
1128: -- Hint: Validate data
1127: THEN
1128: -- Hint: Validate data
1129: -- IF p_LAST_UPDATED_LOGIN is not NULL and p_LAST_UPDATED_LOGIN <> G_MISS_CHAR
1130: -- verify if data is valid
1131: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1132: NULL;
1133: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1134: THEN
1135: -- Hint: Validate data
1134: THEN
1135: -- Hint: Validate data
1136: -- IF p_LAST_UPDATED_LOGIN <> G_MISS_CHAR
1137: -- verify if data is valid
1138: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1139: NULL;
1140: END IF;
1141:
1142: -- Standard call to get message count and if count is 1, get message info.
1148: END Validate_LAST_UPDATED_LOGIN;
1149:
1150:
1151: PROCEDURE Validate_HEADER_ID (
1152: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1153: P_Validation_mode IN VARCHAR2,
1154: P_HEADER_ID IN NUMBER,
1155: -- 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.
1156: X_Return_Status OUT NOCOPY VARCHAR2,
1160: IS
1161: BEGIN
1162:
1163: -- Initialize message list if p_init_msg_list is set to TRUE.
1164: IF FND_API.to_Boolean( p_init_msg_list )
1165: THEN
1166: FND_MSG_PUB.initialize;
1167: END IF;
1168:
1167: END IF;
1168:
1169:
1170: -- Initialize API return status to SUCCESS
1171: x_return_status := FND_API.G_RET_STS_SUCCESS;
1172:
1173: -- validate NOT NULL column
1174: IF(p_HEADER_ID is NULL)
1175: THEN
1173: -- validate NOT NULL column
1174: IF(p_HEADER_ID is NULL)
1175: THEN
1176: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'CSP', 'Private orderlines API: -Violate NOT NULL constraint(HEADER_ID)');
1177: x_return_status := FND_API.G_RET_STS_ERROR;
1178: END IF;
1179:
1180: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1181: THEN
1181: THEN
1182: -- Hint: Validate data
1183: -- IF p_HEADER_ID is not NULL and p_HEADER_ID <> G_MISS_CHAR
1184: -- verify if data is valid
1185: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1186: NULL;
1187: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1188: THEN
1189: -- Hint: Validate data
1188: THEN
1189: -- Hint: Validate data
1190: -- IF p_HEADER_ID <> G_MISS_CHAR
1191: -- verify if data is valid
1192: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1193: NULL;
1194: END IF;
1195:
1196: -- Standard call to get message count and if count is 1, get message info.
1202: END Validate_HEADER_ID;
1203:
1204:
1205: PROCEDURE Validate_CUSTOMER_PO (
1206: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1207: P_Validation_mode IN VARCHAR2,
1208: P_CUSTOMER_PO IN VARCHAR2,
1209: -- 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.
1210: X_Return_Status OUT NOCOPY VARCHAR2,
1214: IS
1215: BEGIN
1216:
1217: -- Initialize message list if p_init_msg_list is set to TRUE.
1218: IF FND_API.to_Boolean( p_init_msg_list )
1219: THEN
1220: FND_MSG_PUB.initialize;
1221: END IF;
1222:
1221: END IF;
1222:
1223:
1224: -- Initialize API return status to SUCCESS
1225: x_return_status := FND_API.G_RET_STS_SUCCESS;
1226:
1227: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1228: THEN
1229: -- Hint: Validate data
1228: THEN
1229: -- Hint: Validate data
1230: -- IF p_CUSTOMER_PO is not NULL and p_CUSTOMER_PO <> G_MISS_CHAR
1231: -- verify if data is valid
1232: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1233: NULL;
1234: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1235: THEN
1236: -- Hint: Validate data
1235: THEN
1236: -- Hint: Validate data
1237: -- IF p_CUSTOMER_PO <> G_MISS_CHAR
1238: -- verify if data is valid
1239: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1240: NULL;
1241: END IF;
1242:
1243: -- Standard call to get message count and if count is 1, get message info.
1249: END Validate_CUSTOMER_PO;
1250:
1251:
1252: PROCEDURE Validate_INCIDENT_ID (
1253: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1254: P_Validation_mode IN VARCHAR2,
1255: P_INCIDENT_ID IN NUMBER,
1256: -- 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.
1257: X_Return_Status OUT NOCOPY VARCHAR2,
1261: IS
1262: BEGIN
1263:
1264: -- Initialize message list if p_init_msg_list is set to TRUE.
1265: IF FND_API.to_Boolean( p_init_msg_list )
1266: THEN
1267: FND_MSG_PUB.initialize;
1268: END IF;
1269:
1268: END IF;
1269:
1270:
1271: -- Initialize API return status to SUCCESS
1272: x_return_status := FND_API.G_RET_STS_SUCCESS;
1273:
1274: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1275: THEN
1276: -- Hint: Validate data
1275: THEN
1276: -- Hint: Validate data
1277: -- IF p_INCIDENT_ID is not NULL and p_INCIDENT_ID <> G_MISS_CHAR
1278: -- verify if data is valid
1279: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1280: NULL;
1281: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1282: THEN
1283: -- Hint: Validate data
1282: THEN
1283: -- Hint: Validate data
1284: -- IF p_INCIDENT_ID <> G_MISS_CHAR
1285: -- verify if data is valid
1286: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1287: NULL;
1288: END IF;
1289:
1290: -- Standard call to get message count and if count is 1, get message info.
1296: END Validate_INCIDENT_ID;
1297:
1298:
1299: PROCEDURE Validate_TASK_ID (
1300: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1301: P_Validation_mode IN VARCHAR2,
1302: P_TASK_ID IN NUMBER,
1303: -- 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.
1304: X_Return_Status OUT NOCOPY VARCHAR2,
1308: IS
1309: BEGIN
1310:
1311: -- Initialize message list if p_init_msg_list is set to TRUE.
1312: IF FND_API.to_Boolean( p_init_msg_list )
1313: THEN
1314: FND_MSG_PUB.initialize;
1315: END IF;
1316:
1315: END IF;
1316:
1317:
1318: -- Initialize API return status to SUCCESS
1319: x_return_status := FND_API.G_RET_STS_SUCCESS;
1320:
1321: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1322: THEN
1323: -- Hint: Validate data
1322: THEN
1323: -- Hint: Validate data
1324: -- IF p_TASK_ID is not NULL and p_TASK_ID <> G_MISS_CHAR
1325: -- verify if data is valid
1326: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1327: NULL;
1328: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1329: THEN
1330: -- Hint: Validate data
1329: THEN
1330: -- Hint: Validate data
1331: -- IF p_TASK_ID <> G_MISS_CHAR
1332: -- verify if data is valid
1333: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1334: NULL;
1335: END IF;
1336:
1337: -- Standard call to get message count and if count is 1, get message info.
1343: END Validate_TASK_ID;
1344:
1345:
1346: PROCEDURE Validate_TASK_ASSIGNMENT_ID (
1347: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1348: P_Validation_mode IN VARCHAR2,
1349: P_TASK_ASSIGNMENT_ID IN NUMBER,
1350: -- 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.
1351: X_Return_Status OUT NOCOPY VARCHAR2,
1355: IS
1356: BEGIN
1357:
1358: -- Initialize message list if p_init_msg_list is set to TRUE.
1359: IF FND_API.to_Boolean( p_init_msg_list )
1360: THEN
1361: FND_MSG_PUB.initialize;
1362: END IF;
1363:
1362: END IF;
1363:
1364:
1365: -- Initialize API return status to SUCCESS
1366: x_return_status := FND_API.G_RET_STS_SUCCESS;
1367:
1368: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1369: THEN
1370: -- Hint: Validate data
1369: THEN
1370: -- Hint: Validate data
1371: -- IF p_TASK_ASSIGNMENT_ID is not NULL and p_TASK_ASSIGNMENT_ID <> G_MISS_CHAR
1372: -- verify if data is valid
1373: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1374: NULL;
1375: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1376: THEN
1377: -- Hint: Validate data
1376: THEN
1377: -- Hint: Validate data
1378: -- IF p_TASK_ASSIGNMENT_ID <> G_MISS_CHAR
1379: -- verify if data is valid
1380: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1381: NULL;
1382: END IF;
1383:
1384: -- Standard call to get message count and if count is 1, get message info.
1390: END Validate_TASK_ASSIGNMENT_ID;
1391:
1392:
1393: PROCEDURE Validate_COMMENTS (
1394: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1395: P_Validation_mode IN VARCHAR2,
1396: P_COMMENTS IN VARCHAR2,
1397: -- 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.
1398: X_Return_Status OUT NOCOPY VARCHAR2,
1402: IS
1403: BEGIN
1404:
1405: -- Initialize message list if p_init_msg_list is set to TRUE.
1406: IF FND_API.to_Boolean( p_init_msg_list )
1407: THEN
1408: FND_MSG_PUB.initialize;
1409: END IF;
1410:
1409: END IF;
1410:
1411:
1412: -- Initialize API return status to SUCCESS
1413: x_return_status := FND_API.G_RET_STS_SUCCESS;
1414:
1415: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1416: THEN
1417: -- Hint: Validate data
1416: THEN
1417: -- Hint: Validate data
1418: -- IF p_COMMENTS is not NULL and p_COMMENTS <> G_MISS_CHAR
1419: -- verify if data is valid
1420: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1421: NULL;
1422: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1423: THEN
1424: -- Hint: Validate data
1423: THEN
1424: -- Hint: Validate data
1425: -- IF p_COMMENTS <> G_MISS_CHAR
1426: -- verify if data is valid
1427: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1428: NULL;
1429: END IF;
1430:
1431: -- Standard call to get message count and if count is 1, get message info.
1441: -- Hint: If p_validation_mode = JTF_PLSQL_API.G_VALIDATE_UPDATE, we should use cursor
1442: -- to get old values for all fields used in inter-field validation and set all G_MISS_XXX fields to original value
1443: -- stored in database table.
1444: PROCEDURE Validate_mol_rec(
1445: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1446: P_Validation_mode IN VARCHAR2,
1447: P_mol_Rec IN mol_Rec_Type,
1448: X_Return_Status OUT NOCOPY VARCHAR2,
1449: X_Msg_Count OUT NOCOPY NUMBER,
1452: IS
1453: BEGIN
1454:
1455: -- Initialize message list if p_init_msg_list is set to TRUE.
1456: IF FND_API.to_Boolean( p_init_msg_list )
1457: THEN
1458: FND_MSG_PUB.initialize;
1459: END IF;
1460:
1459: END IF;
1460:
1461:
1462: -- Initialize API return status to SUCCESS
1463: x_return_status := FND_API.G_RET_STS_SUCCESS;
1464:
1465: -- Hint: Validate data
1466: -- If data not valid
1467: -- THEN
1464:
1465: -- Hint: Validate data
1466: -- If data not valid
1467: -- THEN
1468: -- x_return_status := FND_API.G_RET_STS_ERROR;
1469:
1470: -- Debug Message
1471: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'API_INVALID_RECORD');
1472:
1478:
1479: END Validate_mol_Rec;
1480:
1481: PROCEDURE Validate_orderlines(
1482: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1483: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1484: P_Validation_mode IN VARCHAR2,
1485: P_mol_Rec IN mol_Rec_Type,
1486: X_Return_Status OUT NOCOPY VARCHAR2,
1479: END Validate_mol_Rec;
1480:
1481: PROCEDURE Validate_orderlines(
1482: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1483: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1484: P_Validation_mode IN VARCHAR2,
1485: P_mol_Rec IN mol_Rec_Type,
1486: X_Return_Status OUT NOCOPY VARCHAR2,
1487: X_Msg_Count OUT NOCOPY NUMBER,
1495: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: ' || l_api_name || 'start');
1496:
1497:
1498: -- Initialize API return status to SUCCESS
1499: x_return_status := FND_API.G_RET_STS_SUCCESS;
1500:
1501: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_ITEM) THEN
1502: -- Hint: We provide validation procedure for every column. Developer should delete
1503: -- unnecessary validation procedures.
1501: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_ITEM) THEN
1502: -- Hint: We provide validation procedure for every column. Developer should delete
1503: -- unnecessary validation procedures.
1504: Validate_LINE_ID(
1505: p_init_msg_list => FND_API.G_FALSE,
1506: p_validation_mode => p_validation_mode,
1507: p_LINE_ID => P_mol_Rec.LINE_ID,
1508: P_HEADER_ID => P_mol_Rec.HEADER_ID,
1509: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1509: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1510: x_return_status => x_return_status,
1511: x_msg_count => x_msg_count,
1512: x_msg_data => x_msg_data);
1513: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1514: raise FND_API.G_EXC_ERROR;
1515: END IF;
1516:
1517: Validate_LAST_UPDATED_LOGIN(
1510: x_return_status => x_return_status,
1511: x_msg_count => x_msg_count,
1512: x_msg_data => x_msg_data);
1513: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1514: raise FND_API.G_EXC_ERROR;
1515: END IF;
1516:
1517: Validate_LAST_UPDATED_LOGIN(
1518: p_init_msg_list => FND_API.G_FALSE,
1514: raise FND_API.G_EXC_ERROR;
1515: END IF;
1516:
1517: Validate_LAST_UPDATED_LOGIN(
1518: p_init_msg_list => FND_API.G_FALSE,
1519: p_validation_mode => p_validation_mode,
1520: p_LAST_UPDATED_LOGIN => P_mol_Rec.LAST_UPDATED_LOGIN,
1521: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1522: x_return_status => x_return_status,
1521: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1522: x_return_status => x_return_status,
1523: x_msg_count => x_msg_count,
1524: x_msg_data => x_msg_data);
1525: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1526: raise FND_API.G_EXC_ERROR;
1527: END IF;
1528:
1529: Validate_HEADER_ID(
1522: x_return_status => x_return_status,
1523: x_msg_count => x_msg_count,
1524: x_msg_data => x_msg_data);
1525: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1526: raise FND_API.G_EXC_ERROR;
1527: END IF;
1528:
1529: Validate_HEADER_ID(
1530: p_init_msg_list => FND_API.G_FALSE,
1526: raise FND_API.G_EXC_ERROR;
1527: END IF;
1528:
1529: Validate_HEADER_ID(
1530: p_init_msg_list => FND_API.G_FALSE,
1531: p_validation_mode => p_validation_mode,
1532: p_HEADER_ID => P_mol_Rec.HEADER_ID,
1533: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1534: x_return_status => x_return_status,
1533: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1534: x_return_status => x_return_status,
1535: x_msg_count => x_msg_count,
1536: x_msg_data => x_msg_data);
1537: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1538: raise FND_API.G_EXC_ERROR;
1539: END IF;
1540:
1541: Validate_CUSTOMER_PO(
1534: x_return_status => x_return_status,
1535: x_msg_count => x_msg_count,
1536: x_msg_data => x_msg_data);
1537: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1538: raise FND_API.G_EXC_ERROR;
1539: END IF;
1540:
1541: Validate_CUSTOMER_PO(
1542: p_init_msg_list => FND_API.G_FALSE,
1538: raise FND_API.G_EXC_ERROR;
1539: END IF;
1540:
1541: Validate_CUSTOMER_PO(
1542: p_init_msg_list => FND_API.G_FALSE,
1543: p_validation_mode => p_validation_mode,
1544: p_CUSTOMER_PO => P_mol_Rec.CUSTOMER_PO,
1545: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1546: x_return_status => x_return_status,
1545: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1546: x_return_status => x_return_status,
1547: x_msg_count => x_msg_count,
1548: x_msg_data => x_msg_data);
1549: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1550: raise FND_API.G_EXC_ERROR;
1551: END IF;
1552:
1553: Validate_INCIDENT_ID(
1546: x_return_status => x_return_status,
1547: x_msg_count => x_msg_count,
1548: x_msg_data => x_msg_data);
1549: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1550: raise FND_API.G_EXC_ERROR;
1551: END IF;
1552:
1553: Validate_INCIDENT_ID(
1554: p_init_msg_list => FND_API.G_FALSE,
1550: raise FND_API.G_EXC_ERROR;
1551: END IF;
1552:
1553: Validate_INCIDENT_ID(
1554: p_init_msg_list => FND_API.G_FALSE,
1555: p_validation_mode => p_validation_mode,
1556: p_INCIDENT_ID => P_mol_Rec.INCIDENT_ID,
1557: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1558: x_return_status => x_return_status,
1557: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1558: x_return_status => x_return_status,
1559: x_msg_count => x_msg_count,
1560: x_msg_data => x_msg_data);
1561: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1562: raise FND_API.G_EXC_ERROR;
1563: END IF;
1564:
1565: Validate_TASK_ID(
1558: x_return_status => x_return_status,
1559: x_msg_count => x_msg_count,
1560: x_msg_data => x_msg_data);
1561: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1562: raise FND_API.G_EXC_ERROR;
1563: END IF;
1564:
1565: Validate_TASK_ID(
1566: p_init_msg_list => FND_API.G_FALSE,
1562: raise FND_API.G_EXC_ERROR;
1563: END IF;
1564:
1565: Validate_TASK_ID(
1566: p_init_msg_list => FND_API.G_FALSE,
1567: p_validation_mode => p_validation_mode,
1568: p_TASK_ID => P_mol_Rec.TASK_ID,
1569: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1570: x_return_status => x_return_status,
1569: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1570: x_return_status => x_return_status,
1571: x_msg_count => x_msg_count,
1572: x_msg_data => x_msg_data);
1573: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1574: raise FND_API.G_EXC_ERROR;
1575: END IF;
1576:
1577: Validate_TASK_ASSIGNMENT_ID(
1570: x_return_status => x_return_status,
1571: x_msg_count => x_msg_count,
1572: x_msg_data => x_msg_data);
1573: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1574: raise FND_API.G_EXC_ERROR;
1575: END IF;
1576:
1577: Validate_TASK_ASSIGNMENT_ID(
1578: p_init_msg_list => FND_API.G_FALSE,
1574: raise FND_API.G_EXC_ERROR;
1575: END IF;
1576:
1577: Validate_TASK_ASSIGNMENT_ID(
1578: p_init_msg_list => FND_API.G_FALSE,
1579: p_validation_mode => p_validation_mode,
1580: p_TASK_ASSIGNMENT_ID => P_mol_Rec.TASK_ASSIGNMENT_ID,
1581: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1582: x_return_status => x_return_status,
1581: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1582: x_return_status => x_return_status,
1583: x_msg_count => x_msg_count,
1584: x_msg_data => x_msg_data);
1585: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1586: raise FND_API.G_EXC_ERROR;
1587: END IF;
1588:
1589: Validate_COMMENTS(
1582: x_return_status => x_return_status,
1583: x_msg_count => x_msg_count,
1584: x_msg_data => x_msg_data);
1585: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1586: raise FND_API.G_EXC_ERROR;
1587: END IF;
1588:
1589: Validate_COMMENTS(
1590: p_init_msg_list => FND_API.G_FALSE,
1586: raise FND_API.G_EXC_ERROR;
1587: END IF;
1588:
1589: Validate_COMMENTS(
1590: p_init_msg_list => FND_API.G_FALSE,
1591: p_validation_mode => p_validation_mode,
1592: p_COMMENTS => P_mol_Rec.COMMENTS,
1593: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1594: x_return_status => x_return_status,
1593: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1594: x_return_status => x_return_status,
1595: x_msg_count => x_msg_count,
1596: x_msg_data => x_msg_data);
1597: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1598: raise FND_API.G_EXC_ERROR;
1599: END IF;
1600:
1601: END IF;
1594: x_return_status => x_return_status,
1595: x_msg_count => x_msg_count,
1596: x_msg_data => x_msg_data);
1597: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1598: raise FND_API.G_EXC_ERROR;
1599: END IF;
1600:
1601: END IF;
1602:
1603: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_RECORD) THEN
1604: -- Hint: Inter-field level validation can be added here
1605: -- invoke record level validation procedures
1606: Validate_mol_Rec(
1607: p_init_msg_list => FND_API.G_FALSE,
1608: p_validation_mode => p_validation_mode,
1609: P_mol_Rec => P_mol_Rec,
1610: x_return_status => x_return_status,
1611: x_msg_count => x_msg_count,
1610: x_return_status => x_return_status,
1611: x_msg_count => x_msg_count,
1612: x_msg_data => x_msg_data);
1613:
1614: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1615: raise FND_API.G_EXC_ERROR;
1616: END IF;
1617: END IF;
1618:
1611: x_msg_count => x_msg_count,
1612: x_msg_data => x_msg_data);
1613:
1614: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1615: raise FND_API.G_EXC_ERROR;
1616: END IF;
1617: END IF;
1618:
1619: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_INTER_RECORD) THEN