[Home] [Help]
14:
15: -- Hint: Primary key needs to be returned.
16: PROCEDURE Create_requirement_headers(
17: P_Api_Version_Number IN NUMBER,
18: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
19: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
20: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
21: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type := G_MISS_REQUIREMENT_HEADER_REC,
22: X_REQUIREMENT_HEADER_ID OUT NOCOPY NUMBER,
15: -- Hint: Primary key needs to be returned.
16: PROCEDURE Create_requirement_headers(
17: P_Api_Version_Number IN NUMBER,
18: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
19: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
20: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
21: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type := G_MISS_REQUIREMENT_HEADER_REC,
22: X_REQUIREMENT_HEADER_ID OUT NOCOPY NUMBER,
23: X_Return_Status OUT NOCOPY VARCHAR2,
16: PROCEDURE Create_requirement_headers(
17: P_Api_Version_Number IN NUMBER,
18: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
19: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
20: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
21: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type := G_MISS_REQUIREMENT_HEADER_REC,
22: X_REQUIREMENT_HEADER_ID OUT NOCOPY NUMBER,
23: X_Return_Status OUT NOCOPY VARCHAR2,
24: X_Msg_Count OUT NOCOPY NUMBER,
34: -- Standard Start of API savepoint
35: SAVEPOINT CREATE_Requirement_headers_PUB;
36:
37: -- Standard call to check for call compatibility.
38: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
39: p_api_version_number,
40: l_api_name,
41: G_PKG_NAME)
42: THEN
39: p_api_version_number,
40: l_api_name,
41: G_PKG_NAME)
42: THEN
43: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
44: END IF;
45:
46: -- Initialize message list if p_init_msg_list is set to TRUE.
47: IF FND_API.to_Boolean( p_init_msg_list )
43: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
44: END IF;
45:
46: -- Initialize message list if p_init_msg_list is set to TRUE.
47: IF FND_API.to_Boolean( p_init_msg_list )
48: THEN
49: FND_MSG_PUB.initialize;
50: END IF;
51:
54: --JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
55:
56:
57: -- Initialize API return status to SUCCESS
58: x_return_status := FND_API.G_RET_STS_SUCCESS;
59:
60: --
61: -- API body
62: --
70: FND_MESSAGE.Set_Name('CSP', 'UT_CANNOT_GET_PROFILE_VALUE');
71: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
72: FND_MSG_PUB.ADD;
73: END IF;
74: RAISE FND_API.G_EXC_ERROR;
75: END IF;
76: */
77:
78: /* IF p_validation_level = FND_API.G_VALID_LEVEL_FULL
74: RAISE FND_API.G_EXC_ERROR;
75: END IF;
76: */
77:
78: /* IF p_validation_level = FND_API.G_VALID_LEVEL_FULL
79: THEN
80: JTF_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
81: p_api_version_number => 2.0
82: ,p_init_msg_list => p_init_msg_list
86: ,x_msg_data => x_msg_data
87: --,x_sales_member_rec => l_identity_sales_member_rec);
88:
89:
90: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
91: RAISE FND_API.G_EXC_ERROR;
92: END IF;
93: */
94: -- Debug message
87: --,x_sales_member_rec => l_identity_sales_member_rec);
88:
89:
90: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
91: RAISE FND_API.G_EXC_ERROR;
92: END IF;
93: */
94: -- Debug message
95: --JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_requirement_headers');
95: --JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_requirement_headers');
96:
97: -- Invoke validation procedures
98: /* Validate_requirement_headers(
99: p_init_msg_list => FND_API.G_FALSE,
100: p_validation_level => p_validation_level,
101: p_validation_mode => JTF_UTILITY_PVT.G_CREATE,
102: P_REQUIREMENT_HEADER_Rec => P_REQUIREMENT_HEADER_Rec,
103: x_return_status => x_return_status,
103: x_return_status => x_return_status,
104: x_msg_count => x_msg_count,
105: x_msg_data => x_msg_data);
106:
107: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
108: RAISE FND_API.G_EXC_ERROR;
109: END IF;
110: */
111: -- Debug Message
104: x_msg_count => x_msg_count,
105: x_msg_data => x_msg_data);
106:
107: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
108: RAISE FND_API.G_EXC_ERROR;
109: END IF;
110: */
111: -- Debug Message
112: --JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling create table handler');
155:
156: -- Hint: Primary key should be returned.
157: -- x_REQUIREMENT_HEADER_ID := px_REQUIREMENT_HEADER_ID;
158:
159: /* IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
160: RAISE FND_API.G_EXC_ERROR;
161: END IF;
162: */
163: --
156: -- Hint: Primary key should be returned.
157: -- x_REQUIREMENT_HEADER_ID := px_REQUIREMENT_HEADER_ID;
158:
159: /* IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
160: RAISE FND_API.G_EXC_ERROR;
161: END IF;
162: */
163: --
164: -- End of API body
164: -- End of API body
165: --
166:
167: -- Standard check for p_commit
168: IF FND_API.to_Boolean( p_commit )
169: THEN
170: COMMIT WORK;
171: END IF;
172:
181: p_data => x_msg_data
182: ); */
183:
184: EXCEPTION
185: WHEN FND_API.G_EXC_ERROR THEN
186: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
187: P_API_NAME => L_API_NAME
188: ,P_PKG_NAME => G_PKG_NAME
189: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
190: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
191: ,X_MSG_COUNT => X_MSG_COUNT
192: ,X_MSG_DATA => X_MSG_DATA
193: ,X_RETURN_STATUS => X_RETURN_STATUS);
194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
195: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
196: P_API_NAME => L_API_NAME
197: ,P_PKG_NAME => G_PKG_NAME
198: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
208: FND_MSG_PUB.ADD;
209: fnd_msg_pub.count_and_get
210: ( p_count => x_msg_count
211: , p_data => x_msg_data);
212: x_return_status := FND_API.G_RET_STS_ERROR;
213: End Create_requirement_headers;
214:
215:
216: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
215:
216: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
217: PROCEDURE Update_requirement_headers(
218: P_Api_Version_Number IN NUMBER,
219: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
220: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
221: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
222: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
223: X_Return_Status OUT NOCOPY VARCHAR2,
216: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
217: PROCEDURE Update_requirement_headers(
218: P_Api_Version_Number IN NUMBER,
219: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
220: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
221: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
222: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
223: X_Return_Status OUT NOCOPY VARCHAR2,
224: X_Msg_Count OUT NOCOPY NUMBER,
217: PROCEDURE Update_requirement_headers(
218: P_Api_Version_Number IN NUMBER,
219: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
220: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
221: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
222: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
223: X_Return_Status OUT NOCOPY VARCHAR2,
224: X_Msg_Count OUT NOCOPY NUMBER,
225: X_Msg_Data OUT NOCOPY VARCHAR2
273: -- Standard Start of API savepoint
274: SAVEPOINT UPDATE_Requirement_headers_PUB;
275:
276: -- Standard call to check for call compatibility.
277: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
278: p_api_version_number,
279: l_api_name,
280: G_PKG_NAME)
281: THEN
278: p_api_version_number,
279: l_api_name,
280: G_PKG_NAME)
281: THEN
282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
283: END IF;
284:
285:
286: -- Initialize message list if p_init_msg_list is set to TRUE.
283: END IF;
284:
285:
286: -- Initialize message list if p_init_msg_list is set to TRUE.
287: IF FND_API.to_Boolean( p_init_msg_list )
288: THEN
289: FND_MSG_PUB.initialize;
290: END IF;
291:
294: -- JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
295:
296:
297: -- Initialize API return status to SUCCESS
298: x_return_status := FND_API.G_RET_STS_SUCCESS;
299:
300: --
301: -- Api body
302: --
300: --
301: -- Api body
302: --
303:
304: /* IF p_validation_level = FND_API.G_VALID_LEVEL_FULL
305: THEN
306: JTF_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
307: p_api_version_number => 2.0
308: ,p_init_msg_list => p_init_msg_list
313: ,x_msg_data => x_msg_data
314: ,x_sales_member_rec => l_identity_sales_member_rec);
315:
316:
317: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
318: RAISE FND_API.G_EXC_ERROR;
319: END IF;
320:
321: END IF;
314: ,x_sales_member_rec => l_identity_sales_member_rec);
315:
316:
317: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
318: RAISE FND_API.G_EXC_ERROR;
319: END IF;
320:
321: END IF;
322: */
366: FND_MESSAGE.Set_Token ('INFO', 'requirement_headers', FALSE);
367: FND_MSG_PUB.Add;
368: END IF;
369: Close C_Get_requirement_headers;
370: raise FND_API.G_EXC_ERROR;
371: END IF;
372: -- Debug Message
373: JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
374: Close C_Get_requirement_headers;
375: */
376:
377:
378: /* If (l_tar_REQUIREMENT_HEADER_rec.last_update_date is NULL or
379: l_tar_REQUIREMENT_HEADER_rec.last_update_date = FND_API.G_MISS_Date ) Then
380: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
381: THEN
382: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
383: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
382: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
383: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
384: FND_MSG_PUB.ADD;
385: END IF;
386: raise FND_API.G_EXC_ERROR;
387: End if;
388: -- Check Whether record has been changed by someone else
389: If (l_tar_REQUIREMENT_HEADER_rec.last_update_date <> l_ref_REQUIREMENT_HEADER_rec.last_update_date) Then
390: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
392: FND_MESSAGE.Set_Name('CSP', 'API_RECORD_CHANGED');
393: FND_MESSAGE.Set_Token('INFO', 'requirement_headers', FALSE);
394: FND_MSG_PUB.ADD;
395: END IF;
396: raise FND_API.G_EXC_ERROR;
397: End if;
398:
399: -- Debug message
400: JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_requirement_headers');
400: JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_requirement_headers');
401:
402: -- Invoke validation procedures
403: Validate_requirement_headers(
404: p_init_msg_list => FND_API.G_FALSE,
405: p_validation_level => p_validation_level,
406: p_validation_mode => JTF_UTILITY_PVT.G_UPDATE,
407: P_REQUIREMENT_HEADER_Rec => P_REQUIREMENT_HEADER_Rec,
408: x_return_status => x_return_status,
408: x_return_status => x_return_status,
409: x_msg_count => x_msg_count,
410: x_msg_data => x_msg_data);
411:
412: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
413: RAISE FND_API.G_EXC_ERROR;
414: END IF;
415:
416: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
409: x_msg_count => x_msg_count,
410: x_msg_data => x_msg_data);
411:
412: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
413: RAISE FND_API.G_EXC_ERROR;
414: END IF;
415:
416: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
417: RAISE FND_API.G_EXC_ERROR;
412: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
413: RAISE FND_API.G_EXC_ERROR;
414: END IF;
415:
416: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
417: RAISE FND_API.G_EXC_ERROR;
418: END IF;
419: */
420:
413: RAISE FND_API.G_EXC_ERROR;
414: END IF;
415:
416: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
417: RAISE FND_API.G_EXC_ERROR;
418: END IF;
419: */
420:
421: -- Debug Message
423:
424: -- Invoke table handler(CSP_REQUIREMENT_HEADERS_PKG.Update_Row)
425: CSP_REQUIREMENT_HEADERS_PKG.Update_Row(
426: p_REQUIREMENT_HEADER_ID => p_REQUIREMENT_HEADER_rec.REQUIREMENT_HEADER_ID,
427: p_CREATED_BY => FND_API.G_MISS_NUM,
428: p_CREATION_DATE => FND_API.G_MISS_DATE,
429: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
430: p_LAST_UPDATE_DATE => SYSDATE,
431: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
424: -- Invoke table handler(CSP_REQUIREMENT_HEADERS_PKG.Update_Row)
425: CSP_REQUIREMENT_HEADERS_PKG.Update_Row(
426: p_REQUIREMENT_HEADER_ID => p_REQUIREMENT_HEADER_rec.REQUIREMENT_HEADER_ID,
427: p_CREATED_BY => FND_API.G_MISS_NUM,
428: p_CREATION_DATE => FND_API.G_MISS_DATE,
429: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
430: p_LAST_UPDATE_DATE => SYSDATE,
431: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
432: p_OPEN_REQUIREMENT => p_REQUIREMENT_HEADER_rec.OPEN_REQUIREMENT,
464: -- End of API body.
465: --
466:
467: -- Standard check for p_commit
468: IF FND_API.to_Boolean( p_commit )
469: THEN
470: COMMIT WORK;
471: END IF;
472:
481: p_data => x_msg_data
482: );
483:
484: EXCEPTION
485: WHEN FND_API.G_EXC_ERROR THEN
486: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
487: P_API_NAME => L_API_NAME
488: ,P_PKG_NAME => G_PKG_NAME
489: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
490: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
491: ,X_MSG_COUNT => X_MSG_COUNT
492: ,X_MSG_DATA => X_MSG_DATA
493: ,X_RETURN_STATUS => X_RETURN_STATUS);
494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
495: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
496: P_API_NAME => L_API_NAME
497: ,P_PKG_NAME => G_PKG_NAME
498: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
508: FND_MSG_PUB.ADD;
509: fnd_msg_pub.count_and_get
510: ( p_count => x_msg_count
511: , p_data => x_msg_data);
512: x_return_status := FND_API.G_RET_STS_ERROR;
513: End Update_requirement_headers;
514:
515:
516: -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
516: -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
517: -- The Master delete procedure may not be needed depends on different business requirements.
518: PROCEDURE Delete_requirement_headers(
519: P_Api_Version_Number IN NUMBER,
520: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
521: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
522: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
523: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
524: X_Return_Status OUT NOCOPY VARCHAR2,
517: -- The Master delete procedure may not be needed depends on different business requirements.
518: PROCEDURE Delete_requirement_headers(
519: P_Api_Version_Number IN NUMBER,
520: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
521: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
522: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
523: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
524: X_Return_Status OUT NOCOPY VARCHAR2,
525: X_Msg_Count OUT NOCOPY NUMBER,
518: PROCEDURE Delete_requirement_headers(
519: P_Api_Version_Number IN NUMBER,
520: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
521: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
522: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
523: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
524: X_Return_Status OUT NOCOPY VARCHAR2,
525: X_Msg_Count OUT NOCOPY NUMBER,
526: X_Msg_Data OUT NOCOPY VARCHAR2
533: -- Standard Start of API savepoint
534: SAVEPOINT DELETE_Requirement_headers_PUB;
535:
536: -- Standard call to check for call compatibility.
537: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
538: p_api_version_number,
539: l_api_name,
540: G_PKG_NAME)
541: THEN
538: p_api_version_number,
539: l_api_name,
540: G_PKG_NAME)
541: THEN
542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
543: END IF;
544:
545:
546: -- Initialize message list if p_init_msg_list is set to TRUE.
543: END IF;
544:
545:
546: -- Initialize message list if p_init_msg_list is set to TRUE.
547: IF FND_API.to_Boolean( p_init_msg_list )
548: THEN
549: FND_MSG_PUB.initialize;
550: END IF;
551:
554: --JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
555:
556:
557: -- Initialize API return status to SUCCESS
558: x_return_status := FND_API.G_RET_STS_SUCCESS;
559:
560: --
561: -- Api body
562: --
560: --
561: -- Api body
562: --
563:
564: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
565: RAISE FND_API.G_EXC_ERROR;
566: END IF;
567:
568: -- Debug Message
561: -- Api body
562: --
563:
564: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
565: RAISE FND_API.G_EXC_ERROR;
566: END IF;
567:
568: -- Debug Message
569: -- JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling delete table handler');
575: -- End of API body
576: --
577:
578: -- Standard check for p_commit
579: IF FND_API.to_Boolean( p_commit )
580: THEN
581: COMMIT WORK;
582: END IF;
583:
592: p_data => x_msg_data
593: );
594:
595: EXCEPTION
596: WHEN FND_API.G_EXC_ERROR THEN
597: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
598: P_API_NAME => L_API_NAME
599: ,P_PKG_NAME => G_PKG_NAME
600: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
601: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
602: ,X_MSG_COUNT => X_MSG_COUNT
603: ,X_MSG_DATA => X_MSG_DATA
604: ,X_RETURN_STATUS => X_RETURN_STATUS);
605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
606: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
607: P_API_NAME => L_API_NAME
608: ,P_PKG_NAME => G_PKG_NAME
609: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
619: FND_MSG_PUB.ADD;
620: fnd_msg_pub.count_and_get
621: ( p_count => x_msg_count
622: , p_data => x_msg_data);
623: x_return_status := FND_API.G_RET_STS_ERROR;
624: End Delete_requirement_headers;
625:
626: /*
627: -- This procudure defines the columns for the Dynamic SQL.
720: JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Bind Variables Begins');
721:
722: -- The following example applies to all columns,
723: -- developers can copy and paste them.
724: IF( (P_REQUIREMENT_HEADER_Rec.REQUIREMENT_HEADER_ID IS NOT NULL) AND (P_REQUIREMENT_HEADER_Rec.REQUIREMENT_HEADER_ID <> FND_API.G_MISS_NUM) )
725: THEN
726: DBMS_SQL.BIND_VARIABLE(p_cur_get_REQUIREMENT_HEADER, ':p_REQUIREMENT_HEADER_ID', P_REQUIREMENT_HEADER_Rec.REQUIREMENT_HEADER_ID);
727: END IF;
728:
801: -- NUMBER, DATE, VARCHAR2.
802: -- Developer can copy and paste the following codes for your own record.
803:
804: -- example for NUMBER datatype
805: IF( (P_REQUIREMENT_HEADER_Rec.REQUIREMENT_HEADER_ID IS NOT NULL) AND (P_REQUIREMENT_HEADER_Rec.REQUIREMENT_HEADER_ID <> FND_API.G_MISS_NUM) )
806: THEN
807: IF(x_REQUIREMENT_HEADER_where IS NULL) THEN
808: x_REQUIREMENT_HEADER_where := 'Where';
809: ELSE
812: x_REQUIREMENT_HEADER_where := x_REQUIREMENT_HEADER_where || 'P_REQUIREMENT_HEADER_Rec.REQUIREMENT_HEADER_ID = :p_REQUIREMENT_HEADER_ID';
813: END IF;
814:
815: -- example for DATE datatype
816: IF( (P_REQUIREMENT_HEADER_Rec.CREATION_DATE IS NOT NULL) AND (P_REQUIREMENT_HEADER_Rec.CREATION_DATE <> FND_API.G_MISS_DATE) )
817: THEN
818: -- check if item value contains '%' wildcard
819: OPEN c_chk_str1(P_REQUIREMENT_HEADER_Rec.CREATION_DATE);
820: FETCH c_chk_str1 INTO str_csr1;
845: x_REQUIREMENT_HEADER_where := x_REQUIREMENT_HEADER_where || 'P_REQUIREMENT_HEADER_Rec.CREATION_DATE ' || l_operator || ' :p_CREATION_DATE';
846: END IF;
847:
848: -- example for VARCHAR2 datatype
849: IF( (P_REQUIREMENT_HEADER_Rec.OPEN_REQUIREMENT IS NOT NULL) AND (P_REQUIREMENT_HEADER_Rec.OPEN_REQUIREMENT <> FND_API.G_MISS_CHAR) )
850: THEN
851: -- check if item value contains '%' wildcard
852: OPEN c_chk_str1(P_REQUIREMENT_HEADER_Rec.OPEN_REQUIREMENT);
853: FETCH c_chk_str1 INTO str_csr1;
886: END Gen_REQUIREMENT_HEADER_Where;
887:
888: -- Item-level validation procedures
889: PROCEDURE Validate_REQUIREMENT_HEADER_ID (
890: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
891: P_Validation_mode IN VARCHAR2,
892: P_REQUIREMENT_HEADER_ID IN NUMBER,
893: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
894: X_Return_Status OUT NOCOPY VARCHAR2,
898: IS
899: BEGIN
900:
901: -- Initialize message list if p_init_msg_list is set to TRUE.
902: IF FND_API.to_Boolean( p_init_msg_list )
903: THEN
904: FND_MSG_PUB.initialize;
905: END IF;
906:
905: END IF;
906:
907:
908: -- Initialize API return status to SUCCESS
909: x_return_status := FND_API.G_RET_STS_SUCCESS;
910:
911: -- validate NOT NULL column
912: IF(p_REQUIREMENT_HEADER_ID is NULL)
913: THEN
911: -- validate NOT NULL column
912: IF(p_REQUIREMENT_HEADER_ID is NULL)
913: THEN
914: JTF_UTILITY_PVT.Debug_Message('ERROR', 'Private requirement_headers API: -Violate NOT NULL constraint(REQUIREMENT_HEADER_ID)');
915: x_return_status := FND_API.G_RET_STS_ERROR;
916: END IF;
917:
918: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
919: THEN
919: THEN
920: -- Hint: Validate data
921: -- IF p_REQUIREMENT_HEADER_ID is not NULL and p_REQUIREMENT_HEADER_ID <> G_MISS_CHAR
922: -- verify if data is valid
923: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
924: NULL;
925: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
926: THEN
927: -- Hint: Validate data
926: THEN
927: -- Hint: Validate data
928: -- IF p_REQUIREMENT_HEADER_ID <> G_MISS_CHAR
929: -- verify if data is valid
930: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
931: NULL;
932: END IF;
933:
934: -- Standard call to get message count and if count is 1, get message info.
940: END Validate_REQUIREMENT_HEADER_ID;
941:
942:
943: PROCEDURE Validate_OPEN_REQUIREMENT (
944: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
945: P_Validation_mode IN VARCHAR2,
946: P_OPEN_REQUIREMENT IN VARCHAR2,
947: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
948: X_Return_Status OUT NOCOPY VARCHAR2,
952: IS
953: BEGIN
954:
955: -- Initialize message list if p_init_msg_list is set to TRUE.
956: IF FND_API.to_Boolean( p_init_msg_list )
957: THEN
958: FND_MSG_PUB.initialize;
959: END IF;
960:
959: END IF;
960:
961:
962: -- Initialize API return status to SUCCESS
963: x_return_status := FND_API.G_RET_STS_SUCCESS;
964:
965: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
966: THEN
967: -- Hint: Validate data
966: THEN
967: -- Hint: Validate data
968: -- IF p_OPEN_REQUIREMENT is not NULL and p_OPEN_REQUIREMENT <> G_MISS_CHAR
969: -- verify if data is valid
970: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
971: NULL;
972: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
973: THEN
974: -- Hint: Validate data
973: THEN
974: -- Hint: Validate data
975: -- IF p_OPEN_REQUIREMENT <> G_MISS_CHAR
976: -- verify if data is valid
977: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
978: NULL;
979: END IF;
980:
981: -- Standard call to get message count and if count is 1, get message info.
987: END Validate_OPEN_REQUIREMENT;
988:
989:
990: PROCEDURE Validate_SHIP_TO_LOCATION_ID (
991: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
992: P_Validation_mode IN VARCHAR2,
993: P_SHIP_TO_LOCATION_ID IN NUMBER,
994: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
995: X_Return_Status OUT NOCOPY VARCHAR2,
999: IS
1000: BEGIN
1001:
1002: -- Initialize message list if p_init_msg_list is set to TRUE.
1003: IF FND_API.to_Boolean( p_init_msg_list )
1004: THEN
1005: FND_MSG_PUB.initialize;
1006: END IF;
1007:
1006: END IF;
1007:
1008:
1009: -- Initialize API return status to SUCCESS
1010: x_return_status := FND_API.G_RET_STS_SUCCESS;
1011:
1012: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
1013: THEN
1014: -- Hint: Validate data
1013: THEN
1014: -- Hint: Validate data
1015: -- IF p_SHIP_TO_LOCATION_ID is not NULL and p_SHIP_TO_LOCATION_ID <> G_MISS_CHAR
1016: -- verify if data is valid
1017: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1018: NULL;
1019: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
1020: THEN
1021: -- Hint: Validate data
1020: THEN
1021: -- Hint: Validate data
1022: -- IF p_SHIP_TO_LOCATION_ID <> G_MISS_CHAR
1023: -- verify if data is valid
1024: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1025: NULL;
1026: END IF;
1027:
1028: -- Standard call to get message count and if count is 1, get message info.
1034: END Validate_SHIP_TO_LOCATION_ID;
1035:
1036:
1037: PROCEDURE Validate_TASK_ID (
1038: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1039: P_Validation_mode IN VARCHAR2,
1040: P_TASK_ID IN NUMBER,
1041: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1042: X_Return_Status OUT NOCOPY VARCHAR2,
1046: IS
1047: BEGIN
1048:
1049: -- Initialize message list if p_init_msg_list is set to TRUE.
1050: IF FND_API.to_Boolean( p_init_msg_list )
1051: THEN
1052: FND_MSG_PUB.initialize;
1053: END IF;
1054:
1053: END IF;
1054:
1055:
1056: -- Initialize API return status to SUCCESS
1057: x_return_status := FND_API.G_RET_STS_SUCCESS;
1058:
1059: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
1060: THEN
1061: -- Hint: Validate data
1060: THEN
1061: -- Hint: Validate data
1062: -- IF p_TASK_ID is not NULL and p_TASK_ID <> G_MISS_CHAR
1063: -- verify if data is valid
1064: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1065: NULL;
1066: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
1067: THEN
1068: -- Hint: Validate data
1067: THEN
1068: -- Hint: Validate data
1069: -- IF p_TASK_ID <> G_MISS_CHAR
1070: -- verify if data is valid
1071: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1072: NULL;
1073: END IF;
1074:
1075: -- Standard call to get message count and if count is 1, get message info.
1081: END Validate_TASK_ID;
1082:
1083:
1084: PROCEDURE Validate_TASK_ASSIGNMENT_ID (
1085: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1086: P_Validation_mode IN VARCHAR2,
1087: P_TASK_ASSIGNMENT_ID IN NUMBER,
1088: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1089: X_Return_Status OUT NOCOPY VARCHAR2,
1093: IS
1094: BEGIN
1095:
1096: -- Initialize message list if p_init_msg_list is set to TRUE.
1097: IF FND_API.to_Boolean( p_init_msg_list )
1098: THEN
1099: FND_MSG_PUB.initialize;
1100: END IF;
1101:
1100: END IF;
1101:
1102:
1103: -- Initialize API return status to SUCCESS
1104: x_return_status := FND_API.G_RET_STS_SUCCESS;
1105:
1106: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
1107: THEN
1108: -- Hint: Validate data
1107: THEN
1108: -- Hint: Validate data
1109: -- IF p_TASK_ASSIGNMENT_ID is not NULL and p_TASK_ASSIGNMENT_ID <> G_MISS_CHAR
1110: -- verify if data is valid
1111: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1112: NULL;
1113: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
1114: THEN
1115: -- Hint: Validate data
1114: THEN
1115: -- Hint: Validate data
1116: -- IF p_TASK_ASSIGNMENT_ID <> G_MISS_CHAR
1117: -- verify if data is valid
1118: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1119: NULL;
1120: END IF;
1121:
1122: -- Standard call to get message count and if count is 1, get message info.
1128: END Validate_TASK_ASSIGNMENT_ID;
1129:
1130:
1131: PROCEDURE Validate_SHIPPING_METHOD_CODE (
1132: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1133: P_Validation_mode IN VARCHAR2,
1134: P_SHIPPING_METHOD_CODE IN VARCHAR2,
1135: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1136: X_Return_Status OUT NOCOPY VARCHAR2,
1140: IS
1141: BEGIN
1142:
1143: -- Initialize message list if p_init_msg_list is set to TRUE.
1144: IF FND_API.to_Boolean( p_init_msg_list )
1145: THEN
1146: FND_MSG_PUB.initialize;
1147: END IF;
1148:
1147: END IF;
1148:
1149:
1150: -- Initialize API return status to SUCCESS
1151: x_return_status := FND_API.G_RET_STS_SUCCESS;
1152:
1153: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
1154: THEN
1155: -- Hint: Validate data
1154: THEN
1155: -- Hint: Validate data
1156: -- IF p_SHIPPING_METHOD_CODE is not NULL and p_SHIPPING_METHOD_CODE <> G_MISS_CHAR
1157: -- verify if data is valid
1158: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1159: NULL;
1160: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
1161: THEN
1162: -- Hint: Validate data
1161: THEN
1162: -- Hint: Validate data
1163: -- IF p_SHIPPING_METHOD_CODE <> G_MISS_CHAR
1164: -- verify if data is valid
1165: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1166: NULL;
1167: END IF;
1168:
1169: -- Standard call to get message count and if count is 1, get message info.
1175: END Validate_SHIPPING_METHOD_CODE;
1176:
1177:
1178: PROCEDURE Validate_NEED_BY_DATE (
1179: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1180: P_Validation_mode IN VARCHAR2,
1181: P_NEED_BY_DATE IN DATE,
1182: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1183: X_Return_Status OUT NOCOPY VARCHAR2,
1187: IS
1188: BEGIN
1189:
1190: -- Initialize message list if p_init_msg_list is set to TRUE.
1191: IF FND_API.to_Boolean( p_init_msg_list )
1192: THEN
1193: FND_MSG_PUB.initialize;
1194: END IF;
1195:
1194: END IF;
1195:
1196:
1197: -- Initialize API return status to SUCCESS
1198: x_return_status := FND_API.G_RET_STS_SUCCESS;
1199:
1200: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
1201: THEN
1202: -- Hint: Validate data
1201: THEN
1202: -- Hint: Validate data
1203: -- IF p_NEED_BY_DATE is not NULL and p_NEED_BY_DATE <> G_MISS_CHAR
1204: -- verify if data is valid
1205: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1206: NULL;
1207: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
1208: THEN
1209: -- Hint: Validate data
1208: THEN
1209: -- Hint: Validate data
1210: -- IF p_NEED_BY_DATE <> G_MISS_CHAR
1211: -- verify if data is valid
1212: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1213: NULL;
1214: END IF;
1215:
1216: -- Standard call to get message count and if count is 1, get message info.
1222: END Validate_NEED_BY_DATE;
1223:
1224:
1225: PROCEDURE Validate_DEST_ORGANIZATION_ID (
1226: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1227: P_Validation_mode IN VARCHAR2,
1228: P_DESTINATION_ORGANIZATION_ID IN NUMBER,
1229: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1230: X_Return_Status OUT NOCOPY VARCHAR2,
1234: IS
1235: BEGIN
1236:
1237: -- Initialize message list if p_init_msg_list is set to TRUE.
1238: IF FND_API.to_Boolean( p_init_msg_list )
1239: THEN
1240: FND_MSG_PUB.initialize;
1241: END IF;
1242:
1241: END IF;
1242:
1243:
1244: -- Initialize API return status to SUCCESS
1245: x_return_status := FND_API.G_RET_STS_SUCCESS;
1246:
1247: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
1248: THEN
1249: -- Hint: Validate data
1248: THEN
1249: -- Hint: Validate data
1250: -- IF p_DESTINATION_ORGANIZATION_ID is not NULL and p_DESTINATION_ORGANIZATION_ID <> G_MISS_CHAR
1251: -- verify if data is valid
1252: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1253: NULL;
1254: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
1255: THEN
1256: -- Hint: Validate data
1255: THEN
1256: -- Hint: Validate data
1257: -- IF p_DESTINATION_ORGANIZATION_ID <> G_MISS_CHAR
1258: -- verify if data is valid
1259: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1260: NULL;
1261: END IF;
1262:
1263: -- Standard call to get message count and if count is 1, get message info.
1269: END Validate_DEST_ORGANIZATION_ID;
1270:
1271:
1272: PROCEDURE Validate_PARTS_DEFINED (
1273: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1274: P_Validation_mode IN VARCHAR2,
1275: P_PARTS_DEFINED IN VARCHAR2,
1276: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY JTF_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1277: X_Return_Status OUT NOCOPY VARCHAR2,
1281: IS
1282: BEGIN
1283:
1284: -- Initialize message list if p_init_msg_list is set to TRUE.
1285: IF FND_API.to_Boolean( p_init_msg_list )
1286: THEN
1287: FND_MSG_PUB.initialize;
1288: END IF;
1289:
1288: END IF;
1289:
1290:
1291: -- Initialize API return status to SUCCESS
1292: x_return_status := FND_API.G_RET_STS_SUCCESS;
1293:
1294: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
1295: THEN
1296: -- Hint: Validate data
1295: THEN
1296: -- Hint: Validate data
1297: -- IF p_PARTS_DEFINED is not NULL and p_PARTS_DEFINED <> G_MISS_CHAR
1298: -- verify if data is valid
1299: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1300: NULL;
1301: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
1302: THEN
1303: -- Hint: Validate data
1302: THEN
1303: -- Hint: Validate data
1304: -- IF p_PARTS_DEFINED <> G_MISS_CHAR
1305: -- verify if data is valid
1306: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1307: NULL;
1308: END IF;
1309:
1310: -- Standard call to get message count and if count is 1, get message info.
1320: -- Hint: If p_validation_mode = JTF_UTILITY_PVT.G_VALIDATE_UPDATE, we should use cursor
1321: -- to get old values for all fields used in inter-field validation and set all G_MISS_XXX fields to original value
1322: -- stored in database table.
1323: PROCEDURE Validate_RQMT_HEADER_rec(
1324: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1325: P_Validation_mode IN VARCHAR2,
1326: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
1327: X_Return_Status OUT NOCOPY VARCHAR2,
1328: X_Msg_Count OUT NOCOPY NUMBER,
1331: IS
1332: BEGIN
1333:
1334: -- Initialize message list if p_init_msg_list is set to TRUE.
1335: IF FND_API.to_Boolean( p_init_msg_list )
1336: THEN
1337: FND_MSG_PUB.initialize;
1338: END IF;
1339:
1338: END IF;
1339:
1340:
1341: -- Initialize API return status to SUCCESS
1342: x_return_status := FND_API.G_RET_STS_SUCCESS;
1343:
1344: -- Hint: Validate data
1345: -- If data not valid
1346: -- THEN
1343:
1344: -- Hint: Validate data
1345: -- If data not valid
1346: -- THEN
1347: -- x_return_status := FND_API.G_RET_STS_ERROR;
1348:
1349: -- Debug Message
1350: JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'API_INVALID_RECORD');
1351:
1357:
1358: END Validate_RQMT_HEADER_Rec;
1359:
1360: PROCEDURE Validate_requirement_headers(
1361: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1362: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1363: P_Validation_mode IN VARCHAR2,
1364: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
1365: X_Return_Status OUT NOCOPY VARCHAR2,
1358: END Validate_RQMT_HEADER_Rec;
1359:
1360: PROCEDURE Validate_requirement_headers(
1361: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1362: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1363: P_Validation_mode IN VARCHAR2,
1364: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
1365: X_Return_Status OUT NOCOPY VARCHAR2,
1366: X_Msg_Count OUT NOCOPY NUMBER,
1374: JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
1375:
1376:
1377: -- Initialize API return status to SUCCESS
1378: x_return_status := FND_API.G_RET_STS_SUCCESS;
1379:
1380: IF (p_validation_level >= JTF_UTILITY_PVT.G_VALID_LEVEL_ITEM) THEN
1381: -- Hint: We provide validation procedure for every column. Developer should delete
1382: -- unnecessary validation procedures.
1380: IF (p_validation_level >= JTF_UTILITY_PVT.G_VALID_LEVEL_ITEM) THEN
1381: -- Hint: We provide validation procedure for every column. Developer should delete
1382: -- unnecessary validation procedures.
1383: Validate_REQUIREMENT_HEADER_ID(
1384: p_init_msg_list => FND_API.G_FALSE,
1385: p_validation_mode => p_validation_mode,
1386: p_REQUIREMENT_HEADER_ID => P_REQUIREMENT_HEADER_Rec.REQUIREMENT_HEADER_ID,
1387: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1388: x_return_status => x_return_status,
1387: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1388: x_return_status => x_return_status,
1389: x_msg_count => x_msg_count,
1390: x_msg_data => x_msg_data);
1391: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1392: raise FND_API.G_EXC_ERROR;
1393: END IF;
1394:
1395: Validate_OPEN_REQUIREMENT(
1388: x_return_status => x_return_status,
1389: x_msg_count => x_msg_count,
1390: x_msg_data => x_msg_data);
1391: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1392: raise FND_API.G_EXC_ERROR;
1393: END IF;
1394:
1395: Validate_OPEN_REQUIREMENT(
1396: p_init_msg_list => FND_API.G_FALSE,
1392: raise FND_API.G_EXC_ERROR;
1393: END IF;
1394:
1395: Validate_OPEN_REQUIREMENT(
1396: p_init_msg_list => FND_API.G_FALSE,
1397: p_validation_mode => p_validation_mode,
1398: p_OPEN_REQUIREMENT => P_REQUIREMENT_HEADER_Rec.OPEN_REQUIREMENT,
1399: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1400: x_return_status => x_return_status,
1399: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1400: x_return_status => x_return_status,
1401: x_msg_count => x_msg_count,
1402: x_msg_data => x_msg_data);
1403: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1404: raise FND_API.G_EXC_ERROR;
1405: END IF;
1406:
1407: Validate_SHIP_TO_LOCATION_ID(
1400: x_return_status => x_return_status,
1401: x_msg_count => x_msg_count,
1402: x_msg_data => x_msg_data);
1403: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1404: raise FND_API.G_EXC_ERROR;
1405: END IF;
1406:
1407: Validate_SHIP_TO_LOCATION_ID(
1408: p_init_msg_list => FND_API.G_FALSE,
1404: raise FND_API.G_EXC_ERROR;
1405: END IF;
1406:
1407: Validate_SHIP_TO_LOCATION_ID(
1408: p_init_msg_list => FND_API.G_FALSE,
1409: p_validation_mode => p_validation_mode,
1410: p_SHIP_TO_LOCATION_ID => P_REQUIREMENT_HEADER_Rec.SHIP_TO_LOCATION_ID,
1411: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1412: x_return_status => x_return_status,
1411: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1412: x_return_status => x_return_status,
1413: x_msg_count => x_msg_count,
1414: x_msg_data => x_msg_data);
1415: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1416: raise FND_API.G_EXC_ERROR;
1417: END IF;
1418:
1419: Validate_TASK_ID(
1412: x_return_status => x_return_status,
1413: x_msg_count => x_msg_count,
1414: x_msg_data => x_msg_data);
1415: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1416: raise FND_API.G_EXC_ERROR;
1417: END IF;
1418:
1419: Validate_TASK_ID(
1420: p_init_msg_list => FND_API.G_FALSE,
1416: raise FND_API.G_EXC_ERROR;
1417: END IF;
1418:
1419: Validate_TASK_ID(
1420: p_init_msg_list => FND_API.G_FALSE,
1421: p_validation_mode => p_validation_mode,
1422: p_TASK_ID => P_REQUIREMENT_HEADER_Rec.TASK_ID,
1423: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1424: x_return_status => x_return_status,
1423: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1424: x_return_status => x_return_status,
1425: x_msg_count => x_msg_count,
1426: x_msg_data => x_msg_data);
1427: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1428: raise FND_API.G_EXC_ERROR;
1429: END IF;
1430:
1431: Validate_TASK_ASSIGNMENT_ID(
1424: x_return_status => x_return_status,
1425: x_msg_count => x_msg_count,
1426: x_msg_data => x_msg_data);
1427: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1428: raise FND_API.G_EXC_ERROR;
1429: END IF;
1430:
1431: Validate_TASK_ASSIGNMENT_ID(
1432: p_init_msg_list => FND_API.G_FALSE,
1428: raise FND_API.G_EXC_ERROR;
1429: END IF;
1430:
1431: Validate_TASK_ASSIGNMENT_ID(
1432: p_init_msg_list => FND_API.G_FALSE,
1433: p_validation_mode => p_validation_mode,
1434: p_TASK_ASSIGNMENT_ID => P_REQUIREMENT_HEADER_Rec.TASK_ASSIGNMENT_ID,
1435: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1436: x_return_status => x_return_status,
1435: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1436: x_return_status => x_return_status,
1437: x_msg_count => x_msg_count,
1438: x_msg_data => x_msg_data);
1439: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1440: raise FND_API.G_EXC_ERROR;
1441: END IF;
1442:
1443: Validate_SHIPPING_METHOD_CODE(
1436: x_return_status => x_return_status,
1437: x_msg_count => x_msg_count,
1438: x_msg_data => x_msg_data);
1439: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1440: raise FND_API.G_EXC_ERROR;
1441: END IF;
1442:
1443: Validate_SHIPPING_METHOD_CODE(
1444: p_init_msg_list => FND_API.G_FALSE,
1440: raise FND_API.G_EXC_ERROR;
1441: END IF;
1442:
1443: Validate_SHIPPING_METHOD_CODE(
1444: p_init_msg_list => FND_API.G_FALSE,
1445: p_validation_mode => p_validation_mode,
1446: p_SHIPPING_METHOD_CODE => P_REQUIREMENT_HEADER_Rec.SHIPPING_METHOD_CODE,
1447: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1448: x_return_status => x_return_status,
1447: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1448: x_return_status => x_return_status,
1449: x_msg_count => x_msg_count,
1450: x_msg_data => x_msg_data);
1451: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1452: raise FND_API.G_EXC_ERROR;
1453: END IF;
1454:
1455: Validate_NEED_BY_DATE(
1448: x_return_status => x_return_status,
1449: x_msg_count => x_msg_count,
1450: x_msg_data => x_msg_data);
1451: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1452: raise FND_API.G_EXC_ERROR;
1453: END IF;
1454:
1455: Validate_NEED_BY_DATE(
1456: p_init_msg_list => FND_API.G_FALSE,
1452: raise FND_API.G_EXC_ERROR;
1453: END IF;
1454:
1455: Validate_NEED_BY_DATE(
1456: p_init_msg_list => FND_API.G_FALSE,
1457: p_validation_mode => p_validation_mode,
1458: p_NEED_BY_DATE => P_REQUIREMENT_HEADER_Rec.NEED_BY_DATE,
1459: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1460: x_return_status => x_return_status,
1459: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1460: x_return_status => x_return_status,
1461: x_msg_count => x_msg_count,
1462: x_msg_data => x_msg_data);
1463: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1464: raise FND_API.G_EXC_ERROR;
1465: END IF;
1466:
1467: Validate_DEST_ORGANIZATION_ID(
1460: x_return_status => x_return_status,
1461: x_msg_count => x_msg_count,
1462: x_msg_data => x_msg_data);
1463: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1464: raise FND_API.G_EXC_ERROR;
1465: END IF;
1466:
1467: Validate_DEST_ORGANIZATION_ID(
1468: p_init_msg_list => FND_API.G_FALSE,
1464: raise FND_API.G_EXC_ERROR;
1465: END IF;
1466:
1467: Validate_DEST_ORGANIZATION_ID(
1468: p_init_msg_list => FND_API.G_FALSE,
1469: p_validation_mode => p_validation_mode,
1470: p_DESTINATION_ORGANIZATION_ID => P_REQUIREMENT_HEADER_Rec.DESTINATION_ORGANIZATION_ID,
1471: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1472: x_return_status => x_return_status,
1471: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1472: x_return_status => x_return_status,
1473: x_msg_count => x_msg_count,
1474: x_msg_data => x_msg_data);
1475: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1476: raise FND_API.G_EXC_ERROR;
1477: END IF;
1478:
1479: Validate_PARTS_DEFINED(
1472: x_return_status => x_return_status,
1473: x_msg_count => x_msg_count,
1474: x_msg_data => x_msg_data);
1475: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1476: raise FND_API.G_EXC_ERROR;
1477: END IF;
1478:
1479: Validate_PARTS_DEFINED(
1480: p_init_msg_list => FND_API.G_FALSE,
1476: raise FND_API.G_EXC_ERROR;
1477: END IF;
1478:
1479: Validate_PARTS_DEFINED(
1480: p_init_msg_list => FND_API.G_FALSE,
1481: p_validation_mode => p_validation_mode,
1482: p_PARTS_DEFINED => P_REQUIREMENT_HEADER_Rec.PARTS_DEFINED,
1483: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1484: x_return_status => x_return_status,
1483: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1484: x_return_status => x_return_status,
1485: x_msg_count => x_msg_count,
1486: x_msg_data => x_msg_data);
1487: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1488: raise FND_API.G_EXC_ERROR;
1489: END IF;
1490:
1491: END IF;
1484: x_return_status => x_return_status,
1485: x_msg_count => x_msg_count,
1486: x_msg_data => x_msg_data);
1487: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1488: raise FND_API.G_EXC_ERROR;
1489: END IF;
1490:
1491: END IF;
1492:
1493: IF (p_validation_level >= JTF_UTILITY_PVT.G_VALID_LEVEL_RECORD) THEN
1494: -- Hint: Inter-field level validation can be added here
1495: -- invoke record level validation procedures
1496: Validate_RQMT_HEADER_Rec(
1497: p_init_msg_list => FND_API.G_FALSE,
1498: p_validation_mode => p_validation_mode,
1499: P_REQUIREMENT_HEADER_Rec => P_REQUIREMENT_HEADER_Rec,
1500: x_return_status => x_return_status,
1501: x_msg_count => x_msg_count,
1500: x_return_status => x_return_status,
1501: x_msg_count => x_msg_count,
1502: x_msg_data => x_msg_data);
1503:
1504: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1505: raise FND_API.G_EXC_ERROR;
1506: END IF;
1507: END IF;
1508:
1501: x_msg_count => x_msg_count,
1502: x_msg_data => x_msg_data);
1503:
1504: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1505: raise FND_API.G_EXC_ERROR;
1506: END IF;
1507: END IF;
1508:
1509: IF (p_validation_level >= JTF_UTILITY_PVT.G_VALID_LEVEL_INTER_RECORD) THEN