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');
156:
157: -- Hint: Primary key should be returned.
158: -- x_REQUIREMENT_HEADER_ID := px_REQUIREMENT_HEADER_ID;
159:
160: /* IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
161: RAISE FND_API.G_EXC_ERROR;
162: END IF;
163: */
164: --
157: -- Hint: Primary key should be returned.
158: -- x_REQUIREMENT_HEADER_ID := px_REQUIREMENT_HEADER_ID;
159:
160: /* IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
161: RAISE FND_API.G_EXC_ERROR;
162: END IF;
163: */
164: --
165: -- End of API body
165: -- End of API body
166: --
167:
168: -- Standard check for p_commit
169: IF FND_API.to_Boolean( p_commit )
170: THEN
171: COMMIT WORK;
172: END IF;
173:
182: p_data => x_msg_data
183: ); */
184:
185: EXCEPTION
186: WHEN FND_API.G_EXC_ERROR THEN
187: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
188: P_API_NAME => L_API_NAME
189: ,P_PKG_NAME => G_PKG_NAME
190: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
191: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
192: ,X_MSG_COUNT => X_MSG_COUNT
193: ,X_MSG_DATA => X_MSG_DATA
194: ,X_RETURN_STATUS => X_RETURN_STATUS);
195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
196: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
197: P_API_NAME => L_API_NAME
198: ,P_PKG_NAME => G_PKG_NAME
199: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
209: FND_MSG_PUB.ADD;
210: fnd_msg_pub.count_and_get
211: ( p_count => x_msg_count
212: , p_data => x_msg_data);
213: x_return_status := FND_API.G_RET_STS_ERROR;
214: End Create_requirement_headers;
215:
216:
217: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
216:
217: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
218: PROCEDURE Update_requirement_headers(
219: P_Api_Version_Number IN NUMBER,
220: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
221: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
222: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
223: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
224: X_Return_Status OUT NOCOPY VARCHAR2,
217: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
218: PROCEDURE Update_requirement_headers(
219: P_Api_Version_Number IN NUMBER,
220: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
221: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
222: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
223: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
224: X_Return_Status OUT NOCOPY VARCHAR2,
225: X_Msg_Count OUT NOCOPY NUMBER,
218: PROCEDURE Update_requirement_headers(
219: P_Api_Version_Number IN NUMBER,
220: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
221: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
222: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
223: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
224: X_Return_Status OUT NOCOPY VARCHAR2,
225: X_Msg_Count OUT NOCOPY NUMBER,
226: X_Msg_Data OUT NOCOPY VARCHAR2
275: -- Standard Start of API savepoint
276: SAVEPOINT UPDATE_Requirement_headers_PUB;
277:
278: -- Standard call to check for call compatibility.
279: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
280: p_api_version_number,
281: l_api_name,
282: G_PKG_NAME)
283: THEN
280: p_api_version_number,
281: l_api_name,
282: G_PKG_NAME)
283: THEN
284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
285: END IF;
286:
287:
288: -- Initialize message list if p_init_msg_list is set to TRUE.
285: END IF;
286:
287:
288: -- Initialize message list if p_init_msg_list is set to TRUE.
289: IF FND_API.to_Boolean( p_init_msg_list )
290: THEN
291: FND_MSG_PUB.initialize;
292: END IF;
293:
296: -- JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
297:
298:
299: -- Initialize API return status to SUCCESS
300: x_return_status := FND_API.G_RET_STS_SUCCESS;
301:
302: --
303: -- Api body
304: --
302: --
303: -- Api body
304: --
305:
306: /* IF p_validation_level = FND_API.G_VALID_LEVEL_FULL
307: THEN
308: JTF_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
309: p_api_version_number => 2.0
310: ,p_init_msg_list => p_init_msg_list
315: ,x_msg_data => x_msg_data
316: ,x_sales_member_rec => l_identity_sales_member_rec);
317:
318:
319: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
320: RAISE FND_API.G_EXC_ERROR;
321: END IF;
322:
323: END IF;
316: ,x_sales_member_rec => l_identity_sales_member_rec);
317:
318:
319: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
320: RAISE FND_API.G_EXC_ERROR;
321: END IF;
322:
323: END IF;
324: */
369: FND_MESSAGE.Set_Token ('INFO', 'requirement_headers', FALSE);
370: FND_MSG_PUB.Add;
371: END IF;
372: Close C_Get_requirement_headers;
373: raise FND_API.G_EXC_ERROR;
374: END IF;
375: -- Debug Message
376: JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
377: Close C_Get_requirement_headers;
378: */
379:
380:
381: /* If (l_tar_REQUIREMENT_HEADER_rec.last_update_date is NULL or
382: l_tar_REQUIREMENT_HEADER_rec.last_update_date = FND_API.G_MISS_Date ) Then
383: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
384: THEN
385: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
386: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
385: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
386: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
387: FND_MSG_PUB.ADD;
388: END IF;
389: raise FND_API.G_EXC_ERROR;
390: End if;
391: -- Check Whether record has been changed by someone else
392: If (l_tar_REQUIREMENT_HEADER_rec.last_update_date <> l_ref_REQUIREMENT_HEADER_rec.last_update_date) Then
393: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
395: FND_MESSAGE.Set_Name('CSP', 'API_RECORD_CHANGED');
396: FND_MESSAGE.Set_Token('INFO', 'requirement_headers', FALSE);
397: FND_MSG_PUB.ADD;
398: END IF;
399: raise FND_API.G_EXC_ERROR;
400: End if;
401:
402: -- Debug message
403: JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_requirement_headers');
403: JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_requirement_headers');
404:
405: -- Invoke validation procedures
406: Validate_requirement_headers(
407: p_init_msg_list => FND_API.G_FALSE,
408: p_validation_level => p_validation_level,
409: p_validation_mode => JTF_UTILITY_PVT.G_UPDATE,
410: P_REQUIREMENT_HEADER_Rec => P_REQUIREMENT_HEADER_Rec,
411: x_return_status => x_return_status,
411: x_return_status => x_return_status,
412: x_msg_count => x_msg_count,
413: x_msg_data => x_msg_data);
414:
415: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
416: RAISE FND_API.G_EXC_ERROR;
417: END IF;
418:
419: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
412: x_msg_count => x_msg_count,
413: x_msg_data => x_msg_data);
414:
415: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
416: RAISE FND_API.G_EXC_ERROR;
417: END IF;
418:
419: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
420: RAISE FND_API.G_EXC_ERROR;
415: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
416: RAISE FND_API.G_EXC_ERROR;
417: END IF;
418:
419: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
420: RAISE FND_API.G_EXC_ERROR;
421: END IF;
422: */
423:
416: RAISE FND_API.G_EXC_ERROR;
417: END IF;
418:
419: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
420: RAISE FND_API.G_EXC_ERROR;
421: END IF;
422: */
423:
424: -- Debug Message
426:
427: -- Invoke table handler(CSP_REQUIREMENT_HEADERS_PKG.Update_Row)
428: CSP_REQUIREMENT_HEADERS_PKG.Update_Row(
429: p_REQUIREMENT_HEADER_ID => p_REQUIREMENT_HEADER_rec.REQUIREMENT_HEADER_ID,
430: p_CREATED_BY => FND_API.G_MISS_NUM,
431: p_CREATION_DATE => FND_API.G_MISS_DATE,
432: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
433: p_LAST_UPDATE_DATE => SYSDATE,
434: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
427: -- Invoke table handler(CSP_REQUIREMENT_HEADERS_PKG.Update_Row)
428: CSP_REQUIREMENT_HEADERS_PKG.Update_Row(
429: p_REQUIREMENT_HEADER_ID => p_REQUIREMENT_HEADER_rec.REQUIREMENT_HEADER_ID,
430: p_CREATED_BY => FND_API.G_MISS_NUM,
431: p_CREATION_DATE => FND_API.G_MISS_DATE,
432: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
433: p_LAST_UPDATE_DATE => SYSDATE,
434: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
435: p_OPEN_REQUIREMENT => p_REQUIREMENT_HEADER_rec.OPEN_REQUIREMENT,
468: -- End of API body.
469: --
470:
471: -- Standard check for p_commit
472: IF FND_API.to_Boolean( p_commit )
473: THEN
474: COMMIT WORK;
475: END IF;
476:
485: p_data => x_msg_data
486: );
487:
488: EXCEPTION
489: WHEN FND_API.G_EXC_ERROR THEN
490: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
491: P_API_NAME => L_API_NAME
492: ,P_PKG_NAME => G_PKG_NAME
493: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
494: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
495: ,X_MSG_COUNT => X_MSG_COUNT
496: ,X_MSG_DATA => X_MSG_DATA
497: ,X_RETURN_STATUS => X_RETURN_STATUS);
498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
499: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
500: P_API_NAME => L_API_NAME
501: ,P_PKG_NAME => G_PKG_NAME
502: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
512: FND_MSG_PUB.ADD;
513: fnd_msg_pub.count_and_get
514: ( p_count => x_msg_count
515: , p_data => x_msg_data);
516: x_return_status := FND_API.G_RET_STS_ERROR;
517: End Update_requirement_headers;
518:
519:
520: -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
520: -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
521: -- The Master delete procedure may not be needed depends on different business requirements.
522: PROCEDURE Delete_requirement_headers(
523: P_Api_Version_Number IN NUMBER,
524: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
525: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
526: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
527: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
528: X_Return_Status OUT NOCOPY VARCHAR2,
521: -- The Master delete procedure may not be needed depends on different business requirements.
522: PROCEDURE Delete_requirement_headers(
523: P_Api_Version_Number IN NUMBER,
524: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
525: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
526: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
527: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
528: X_Return_Status OUT NOCOPY VARCHAR2,
529: X_Msg_Count OUT NOCOPY NUMBER,
522: PROCEDURE Delete_requirement_headers(
523: P_Api_Version_Number IN NUMBER,
524: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
525: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
526: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
527: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
528: X_Return_Status OUT NOCOPY VARCHAR2,
529: X_Msg_Count OUT NOCOPY NUMBER,
530: X_Msg_Data OUT NOCOPY VARCHAR2
537: -- Standard Start of API savepoint
538: SAVEPOINT DELETE_Requirement_headers_PUB;
539:
540: -- Standard call to check for call compatibility.
541: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
542: p_api_version_number,
543: l_api_name,
544: G_PKG_NAME)
545: THEN
542: p_api_version_number,
543: l_api_name,
544: G_PKG_NAME)
545: THEN
546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
547: END IF;
548:
549:
550: -- Initialize message list if p_init_msg_list is set to TRUE.
547: END IF;
548:
549:
550: -- Initialize message list if p_init_msg_list is set to TRUE.
551: IF FND_API.to_Boolean( p_init_msg_list )
552: THEN
553: FND_MSG_PUB.initialize;
554: END IF;
555:
558: --JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
559:
560:
561: -- Initialize API return status to SUCCESS
562: x_return_status := FND_API.G_RET_STS_SUCCESS;
563:
564: --
565: -- Api body
566: --
564: --
565: -- Api body
566: --
567:
568: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
569: RAISE FND_API.G_EXC_ERROR;
570: END IF;
571:
572: -- Debug Message
565: -- Api body
566: --
567:
568: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
569: RAISE FND_API.G_EXC_ERROR;
570: END IF;
571:
572: -- Debug Message
573: -- JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling delete table handler');
579: -- End of API body
580: --
581:
582: -- Standard check for p_commit
583: IF FND_API.to_Boolean( p_commit )
584: THEN
585: COMMIT WORK;
586: END IF;
587:
596: p_data => x_msg_data
597: );
598:
599: EXCEPTION
600: WHEN FND_API.G_EXC_ERROR THEN
601: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
602: P_API_NAME => L_API_NAME
603: ,P_PKG_NAME => G_PKG_NAME
604: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
605: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
606: ,X_MSG_COUNT => X_MSG_COUNT
607: ,X_MSG_DATA => X_MSG_DATA
608: ,X_RETURN_STATUS => X_RETURN_STATUS);
609: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
610: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
611: P_API_NAME => L_API_NAME
612: ,P_PKG_NAME => G_PKG_NAME
613: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
623: FND_MSG_PUB.ADD;
624: fnd_msg_pub.count_and_get
625: ( p_count => x_msg_count
626: , p_data => x_msg_data);
627: x_return_status := FND_API.G_RET_STS_ERROR;
628: End Delete_requirement_headers;
629:
630: /*
631: -- This procudure defines the columns for the Dynamic SQL.
724: JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Bind Variables Begins');
725:
726: -- The following example applies to all columns,
727: -- developers can copy and paste them.
728: IF( (P_REQUIREMENT_HEADER_Rec.REQUIREMENT_HEADER_ID IS NOT NULL) AND (P_REQUIREMENT_HEADER_Rec.REQUIREMENT_HEADER_ID <> FND_API.G_MISS_NUM) )
729: THEN
730: DBMS_SQL.BIND_VARIABLE(p_cur_get_REQUIREMENT_HEADER, ':p_REQUIREMENT_HEADER_ID', P_REQUIREMENT_HEADER_Rec.REQUIREMENT_HEADER_ID);
731: END IF;
732:
805: -- NUMBER, DATE, VARCHAR2.
806: -- Developer can copy and paste the following codes for your own record.
807:
808: -- example for NUMBER datatype
809: IF( (P_REQUIREMENT_HEADER_Rec.REQUIREMENT_HEADER_ID IS NOT NULL) AND (P_REQUIREMENT_HEADER_Rec.REQUIREMENT_HEADER_ID <> FND_API.G_MISS_NUM) )
810: THEN
811: IF(x_REQUIREMENT_HEADER_where IS NULL) THEN
812: x_REQUIREMENT_HEADER_where := 'Where';
813: ELSE
816: x_REQUIREMENT_HEADER_where := x_REQUIREMENT_HEADER_where || 'P_REQUIREMENT_HEADER_Rec.REQUIREMENT_HEADER_ID = :p_REQUIREMENT_HEADER_ID';
817: END IF;
818:
819: -- example for DATE datatype
820: IF( (P_REQUIREMENT_HEADER_Rec.CREATION_DATE IS NOT NULL) AND (P_REQUIREMENT_HEADER_Rec.CREATION_DATE <> FND_API.G_MISS_DATE) )
821: THEN
822: -- check if item value contains '%' wildcard
823: OPEN c_chk_str1(P_REQUIREMENT_HEADER_Rec.CREATION_DATE);
824: FETCH c_chk_str1 INTO str_csr1;
849: x_REQUIREMENT_HEADER_where := x_REQUIREMENT_HEADER_where || 'P_REQUIREMENT_HEADER_Rec.CREATION_DATE ' || l_operator || ' :p_CREATION_DATE';
850: END IF;
851:
852: -- example for VARCHAR2 datatype
853: IF( (P_REQUIREMENT_HEADER_Rec.OPEN_REQUIREMENT IS NOT NULL) AND (P_REQUIREMENT_HEADER_Rec.OPEN_REQUIREMENT <> FND_API.G_MISS_CHAR) )
854: THEN
855: -- check if item value contains '%' wildcard
856: OPEN c_chk_str1(P_REQUIREMENT_HEADER_Rec.OPEN_REQUIREMENT);
857: FETCH c_chk_str1 INTO str_csr1;
890: END Gen_REQUIREMENT_HEADER_Where;
891:
892: -- Item-level validation procedures
893: PROCEDURE Validate_REQUIREMENT_HEADER_ID (
894: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
895: P_Validation_mode IN VARCHAR2,
896: P_REQUIREMENT_HEADER_ID IN NUMBER,
897: -- 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.
898: X_Return_Status OUT NOCOPY VARCHAR2,
902: IS
903: BEGIN
904:
905: -- Initialize message list if p_init_msg_list is set to TRUE.
906: IF FND_API.to_Boolean( p_init_msg_list )
907: THEN
908: FND_MSG_PUB.initialize;
909: END IF;
910:
909: END IF;
910:
911:
912: -- Initialize API return status to SUCCESS
913: x_return_status := FND_API.G_RET_STS_SUCCESS;
914:
915: -- validate NOT NULL column
916: IF(p_REQUIREMENT_HEADER_ID is NULL)
917: THEN
915: -- validate NOT NULL column
916: IF(p_REQUIREMENT_HEADER_ID is NULL)
917: THEN
918: JTF_UTILITY_PVT.Debug_Message('ERROR', 'Private requirement_headers API: -Violate NOT NULL constraint(REQUIREMENT_HEADER_ID)');
919: x_return_status := FND_API.G_RET_STS_ERROR;
920: END IF;
921:
922: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
923: THEN
923: THEN
924: -- Hint: Validate data
925: -- IF p_REQUIREMENT_HEADER_ID is not NULL and p_REQUIREMENT_HEADER_ID <> G_MISS_CHAR
926: -- verify if data is valid
927: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
928: NULL;
929: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
930: THEN
931: -- Hint: Validate data
930: THEN
931: -- Hint: Validate data
932: -- IF p_REQUIREMENT_HEADER_ID <> G_MISS_CHAR
933: -- verify if data is valid
934: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
935: NULL;
936: END IF;
937:
938: -- Standard call to get message count and if count is 1, get message info.
944: END Validate_REQUIREMENT_HEADER_ID;
945:
946:
947: PROCEDURE Validate_OPEN_REQUIREMENT (
948: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
949: P_Validation_mode IN VARCHAR2,
950: P_OPEN_REQUIREMENT IN VARCHAR2,
951: -- 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.
952: X_Return_Status OUT NOCOPY VARCHAR2,
956: IS
957: BEGIN
958:
959: -- Initialize message list if p_init_msg_list is set to TRUE.
960: IF FND_API.to_Boolean( p_init_msg_list )
961: THEN
962: FND_MSG_PUB.initialize;
963: END IF;
964:
963: END IF;
964:
965:
966: -- Initialize API return status to SUCCESS
967: x_return_status := FND_API.G_RET_STS_SUCCESS;
968:
969: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
970: THEN
971: -- Hint: Validate data
970: THEN
971: -- Hint: Validate data
972: -- IF p_OPEN_REQUIREMENT is not NULL and p_OPEN_REQUIREMENT <> G_MISS_CHAR
973: -- verify if data is valid
974: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
975: NULL;
976: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
977: THEN
978: -- Hint: Validate data
977: THEN
978: -- Hint: Validate data
979: -- IF p_OPEN_REQUIREMENT <> G_MISS_CHAR
980: -- verify if data is valid
981: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
982: NULL;
983: END IF;
984:
985: -- Standard call to get message count and if count is 1, get message info.
991: END Validate_OPEN_REQUIREMENT;
992:
993:
994: PROCEDURE Validate_SHIP_TO_LOCATION_ID (
995: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
996: P_Validation_mode IN VARCHAR2,
997: P_SHIP_TO_LOCATION_ID IN NUMBER,
998: -- 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.
999: X_Return_Status OUT NOCOPY VARCHAR2,
1003: IS
1004: BEGIN
1005:
1006: -- Initialize message list if p_init_msg_list is set to TRUE.
1007: IF FND_API.to_Boolean( p_init_msg_list )
1008: THEN
1009: FND_MSG_PUB.initialize;
1010: END IF;
1011:
1010: END IF;
1011:
1012:
1013: -- Initialize API return status to SUCCESS
1014: x_return_status := FND_API.G_RET_STS_SUCCESS;
1015:
1016: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
1017: THEN
1018: -- Hint: Validate data
1017: THEN
1018: -- Hint: Validate data
1019: -- IF p_SHIP_TO_LOCATION_ID is not NULL and p_SHIP_TO_LOCATION_ID <> G_MISS_CHAR
1020: -- verify if data is valid
1021: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1022: NULL;
1023: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
1024: THEN
1025: -- Hint: Validate data
1024: THEN
1025: -- Hint: Validate data
1026: -- IF p_SHIP_TO_LOCATION_ID <> G_MISS_CHAR
1027: -- verify if data is valid
1028: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1029: NULL;
1030: END IF;
1031:
1032: -- Standard call to get message count and if count is 1, get message info.
1038: END Validate_SHIP_TO_LOCATION_ID;
1039:
1040:
1041: PROCEDURE Validate_TASK_ID (
1042: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1043: P_Validation_mode IN VARCHAR2,
1044: P_TASK_ID IN NUMBER,
1045: -- 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.
1046: X_Return_Status OUT NOCOPY VARCHAR2,
1050: IS
1051: BEGIN
1052:
1053: -- Initialize message list if p_init_msg_list is set to TRUE.
1054: IF FND_API.to_Boolean( p_init_msg_list )
1055: THEN
1056: FND_MSG_PUB.initialize;
1057: END IF;
1058:
1057: END IF;
1058:
1059:
1060: -- Initialize API return status to SUCCESS
1061: x_return_status := FND_API.G_RET_STS_SUCCESS;
1062:
1063: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
1064: THEN
1065: -- Hint: Validate data
1064: THEN
1065: -- Hint: Validate data
1066: -- IF p_TASK_ID is not NULL and p_TASK_ID <> G_MISS_CHAR
1067: -- verify if data is valid
1068: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1069: NULL;
1070: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
1071: THEN
1072: -- Hint: Validate data
1071: THEN
1072: -- Hint: Validate data
1073: -- IF p_TASK_ID <> G_MISS_CHAR
1074: -- verify if data is valid
1075: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1076: NULL;
1077: END IF;
1078:
1079: -- Standard call to get message count and if count is 1, get message info.
1085: END Validate_TASK_ID;
1086:
1087:
1088: PROCEDURE Validate_TASK_ASSIGNMENT_ID (
1089: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1090: P_Validation_mode IN VARCHAR2,
1091: P_TASK_ASSIGNMENT_ID IN NUMBER,
1092: -- 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.
1093: X_Return_Status OUT NOCOPY VARCHAR2,
1097: IS
1098: BEGIN
1099:
1100: -- Initialize message list if p_init_msg_list is set to TRUE.
1101: IF FND_API.to_Boolean( p_init_msg_list )
1102: THEN
1103: FND_MSG_PUB.initialize;
1104: END IF;
1105:
1104: END IF;
1105:
1106:
1107: -- Initialize API return status to SUCCESS
1108: x_return_status := FND_API.G_RET_STS_SUCCESS;
1109:
1110: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
1111: THEN
1112: -- Hint: Validate data
1111: THEN
1112: -- Hint: Validate data
1113: -- IF p_TASK_ASSIGNMENT_ID is not NULL and p_TASK_ASSIGNMENT_ID <> G_MISS_CHAR
1114: -- verify if data is valid
1115: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1116: NULL;
1117: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
1118: THEN
1119: -- Hint: Validate data
1118: THEN
1119: -- Hint: Validate data
1120: -- IF p_TASK_ASSIGNMENT_ID <> G_MISS_CHAR
1121: -- verify if data is valid
1122: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1123: NULL;
1124: END IF;
1125:
1126: -- Standard call to get message count and if count is 1, get message info.
1132: END Validate_TASK_ASSIGNMENT_ID;
1133:
1134:
1135: PROCEDURE Validate_SHIPPING_METHOD_CODE (
1136: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1137: P_Validation_mode IN VARCHAR2,
1138: P_SHIPPING_METHOD_CODE IN VARCHAR2,
1139: -- 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.
1140: X_Return_Status OUT NOCOPY VARCHAR2,
1144: IS
1145: BEGIN
1146:
1147: -- Initialize message list if p_init_msg_list is set to TRUE.
1148: IF FND_API.to_Boolean( p_init_msg_list )
1149: THEN
1150: FND_MSG_PUB.initialize;
1151: END IF;
1152:
1151: END IF;
1152:
1153:
1154: -- Initialize API return status to SUCCESS
1155: x_return_status := FND_API.G_RET_STS_SUCCESS;
1156:
1157: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
1158: THEN
1159: -- Hint: Validate data
1158: THEN
1159: -- Hint: Validate data
1160: -- IF p_SHIPPING_METHOD_CODE is not NULL and p_SHIPPING_METHOD_CODE <> G_MISS_CHAR
1161: -- verify if data is valid
1162: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1163: NULL;
1164: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
1165: THEN
1166: -- Hint: Validate data
1165: THEN
1166: -- Hint: Validate data
1167: -- IF p_SHIPPING_METHOD_CODE <> G_MISS_CHAR
1168: -- verify if data is valid
1169: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1170: NULL;
1171: END IF;
1172:
1173: -- Standard call to get message count and if count is 1, get message info.
1179: END Validate_SHIPPING_METHOD_CODE;
1180:
1181:
1182: PROCEDURE Validate_NEED_BY_DATE (
1183: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1184: P_Validation_mode IN VARCHAR2,
1185: P_NEED_BY_DATE IN DATE,
1186: -- 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.
1187: X_Return_Status OUT NOCOPY VARCHAR2,
1191: IS
1192: BEGIN
1193:
1194: -- Initialize message list if p_init_msg_list is set to TRUE.
1195: IF FND_API.to_Boolean( p_init_msg_list )
1196: THEN
1197: FND_MSG_PUB.initialize;
1198: END IF;
1199:
1198: END IF;
1199:
1200:
1201: -- Initialize API return status to SUCCESS
1202: x_return_status := FND_API.G_RET_STS_SUCCESS;
1203:
1204: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
1205: THEN
1206: -- Hint: Validate data
1205: THEN
1206: -- Hint: Validate data
1207: -- IF p_NEED_BY_DATE is not NULL and p_NEED_BY_DATE <> G_MISS_CHAR
1208: -- verify if data is valid
1209: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1210: NULL;
1211: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
1212: THEN
1213: -- Hint: Validate data
1212: THEN
1213: -- Hint: Validate data
1214: -- IF p_NEED_BY_DATE <> G_MISS_CHAR
1215: -- verify if data is valid
1216: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1217: NULL;
1218: END IF;
1219:
1220: -- Standard call to get message count and if count is 1, get message info.
1226: END Validate_NEED_BY_DATE;
1227:
1228:
1229: PROCEDURE Validate_DEST_ORGANIZATION_ID (
1230: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1231: P_Validation_mode IN VARCHAR2,
1232: P_DESTINATION_ORGANIZATION_ID IN NUMBER,
1233: -- 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.
1234: X_Return_Status OUT NOCOPY VARCHAR2,
1238: IS
1239: BEGIN
1240:
1241: -- Initialize message list if p_init_msg_list is set to TRUE.
1242: IF FND_API.to_Boolean( p_init_msg_list )
1243: THEN
1244: FND_MSG_PUB.initialize;
1245: END IF;
1246:
1245: END IF;
1246:
1247:
1248: -- Initialize API return status to SUCCESS
1249: x_return_status := FND_API.G_RET_STS_SUCCESS;
1250:
1251: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
1252: THEN
1253: -- Hint: Validate data
1252: THEN
1253: -- Hint: Validate data
1254: -- IF p_DESTINATION_ORGANIZATION_ID is not NULL and p_DESTINATION_ORGANIZATION_ID <> G_MISS_CHAR
1255: -- verify if data is valid
1256: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1257: NULL;
1258: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
1259: THEN
1260: -- Hint: Validate data
1259: THEN
1260: -- Hint: Validate data
1261: -- IF p_DESTINATION_ORGANIZATION_ID <> G_MISS_CHAR
1262: -- verify if data is valid
1263: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1264: NULL;
1265: END IF;
1266:
1267: -- Standard call to get message count and if count is 1, get message info.
1273: END Validate_DEST_ORGANIZATION_ID;
1274:
1275:
1276: PROCEDURE Validate_PARTS_DEFINED (
1277: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1278: P_Validation_mode IN VARCHAR2,
1279: P_PARTS_DEFINED IN VARCHAR2,
1280: -- 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.
1281: X_Return_Status OUT NOCOPY VARCHAR2,
1285: IS
1286: BEGIN
1287:
1288: -- Initialize message list if p_init_msg_list is set to TRUE.
1289: IF FND_API.to_Boolean( p_init_msg_list )
1290: THEN
1291: FND_MSG_PUB.initialize;
1292: END IF;
1293:
1292: END IF;
1293:
1294:
1295: -- Initialize API return status to SUCCESS
1296: x_return_status := FND_API.G_RET_STS_SUCCESS;
1297:
1298: IF(p_validation_mode = JTF_UTILITY_PVT.G_CREATE)
1299: THEN
1300: -- Hint: Validate data
1299: THEN
1300: -- Hint: Validate data
1301: -- IF p_PARTS_DEFINED is not NULL and p_PARTS_DEFINED <> G_MISS_CHAR
1302: -- verify if data is valid
1303: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1304: NULL;
1305: ELSIF(p_validation_mode = JTF_UTILITY_PVT.G_UPDATE)
1306: THEN
1307: -- Hint: Validate data
1306: THEN
1307: -- Hint: Validate data
1308: -- IF p_PARTS_DEFINED <> G_MISS_CHAR
1309: -- verify if data is valid
1310: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1311: NULL;
1312: END IF;
1313:
1314: -- Standard call to get message count and if count is 1, get message info.
1324: -- Hint: If p_validation_mode = JTF_UTILITY_PVT.G_VALIDATE_UPDATE, we should use cursor
1325: -- to get old values for all fields used in inter-field validation and set all G_MISS_XXX fields to original value
1326: -- stored in database table.
1327: PROCEDURE Validate_RQMT_HEADER_rec(
1328: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1329: P_Validation_mode IN VARCHAR2,
1330: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
1331: X_Return_Status OUT NOCOPY VARCHAR2,
1332: X_Msg_Count OUT NOCOPY NUMBER,
1335: IS
1336: BEGIN
1337:
1338: -- Initialize message list if p_init_msg_list is set to TRUE.
1339: IF FND_API.to_Boolean( p_init_msg_list )
1340: THEN
1341: FND_MSG_PUB.initialize;
1342: END IF;
1343:
1342: END IF;
1343:
1344:
1345: -- Initialize API return status to SUCCESS
1346: x_return_status := FND_API.G_RET_STS_SUCCESS;
1347:
1348: -- Hint: Validate data
1349: -- If data not valid
1350: -- THEN
1347:
1348: -- Hint: Validate data
1349: -- If data not valid
1350: -- THEN
1351: -- x_return_status := FND_API.G_RET_STS_ERROR;
1352:
1353: -- Debug Message
1354: JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'API_INVALID_RECORD');
1355:
1361:
1362: END Validate_RQMT_HEADER_Rec;
1363:
1364: PROCEDURE Validate_requirement_headers(
1365: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1366: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1367: P_Validation_mode IN VARCHAR2,
1368: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
1369: X_Return_Status OUT NOCOPY VARCHAR2,
1362: END Validate_RQMT_HEADER_Rec;
1363:
1364: PROCEDURE Validate_requirement_headers(
1365: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1366: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1367: P_Validation_mode IN VARCHAR2,
1368: P_REQUIREMENT_HEADER_Rec IN REQUIREMENT_HEADER_Rec_Type,
1369: X_Return_Status OUT NOCOPY VARCHAR2,
1370: X_Msg_Count OUT NOCOPY NUMBER,
1378: JTF_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
1379:
1380:
1381: -- Initialize API return status to SUCCESS
1382: x_return_status := FND_API.G_RET_STS_SUCCESS;
1383:
1384: IF (p_validation_level >= JTF_UTILITY_PVT.G_VALID_LEVEL_ITEM) THEN
1385: -- Hint: We provide validation procedure for every column. Developer should delete
1386: -- unnecessary validation procedures.
1384: IF (p_validation_level >= JTF_UTILITY_PVT.G_VALID_LEVEL_ITEM) THEN
1385: -- Hint: We provide validation procedure for every column. Developer should delete
1386: -- unnecessary validation procedures.
1387: Validate_REQUIREMENT_HEADER_ID(
1388: p_init_msg_list => FND_API.G_FALSE,
1389: p_validation_mode => p_validation_mode,
1390: p_REQUIREMENT_HEADER_ID => P_REQUIREMENT_HEADER_Rec.REQUIREMENT_HEADER_ID,
1391: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1392: x_return_status => x_return_status,
1391: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1392: x_return_status => x_return_status,
1393: x_msg_count => x_msg_count,
1394: x_msg_data => x_msg_data);
1395: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1396: raise FND_API.G_EXC_ERROR;
1397: END IF;
1398:
1399: Validate_OPEN_REQUIREMENT(
1392: x_return_status => x_return_status,
1393: x_msg_count => x_msg_count,
1394: x_msg_data => x_msg_data);
1395: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1396: raise FND_API.G_EXC_ERROR;
1397: END IF;
1398:
1399: Validate_OPEN_REQUIREMENT(
1400: p_init_msg_list => FND_API.G_FALSE,
1396: raise FND_API.G_EXC_ERROR;
1397: END IF;
1398:
1399: Validate_OPEN_REQUIREMENT(
1400: p_init_msg_list => FND_API.G_FALSE,
1401: p_validation_mode => p_validation_mode,
1402: p_OPEN_REQUIREMENT => P_REQUIREMENT_HEADER_Rec.OPEN_REQUIREMENT,
1403: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1404: x_return_status => x_return_status,
1403: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1404: x_return_status => x_return_status,
1405: x_msg_count => x_msg_count,
1406: x_msg_data => x_msg_data);
1407: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1408: raise FND_API.G_EXC_ERROR;
1409: END IF;
1410:
1411: Validate_SHIP_TO_LOCATION_ID(
1404: x_return_status => x_return_status,
1405: x_msg_count => x_msg_count,
1406: x_msg_data => x_msg_data);
1407: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1408: raise FND_API.G_EXC_ERROR;
1409: END IF;
1410:
1411: Validate_SHIP_TO_LOCATION_ID(
1412: p_init_msg_list => FND_API.G_FALSE,
1408: raise FND_API.G_EXC_ERROR;
1409: END IF;
1410:
1411: Validate_SHIP_TO_LOCATION_ID(
1412: p_init_msg_list => FND_API.G_FALSE,
1413: p_validation_mode => p_validation_mode,
1414: p_SHIP_TO_LOCATION_ID => P_REQUIREMENT_HEADER_Rec.SHIP_TO_LOCATION_ID,
1415: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1416: x_return_status => x_return_status,
1415: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1416: x_return_status => x_return_status,
1417: x_msg_count => x_msg_count,
1418: x_msg_data => x_msg_data);
1419: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1420: raise FND_API.G_EXC_ERROR;
1421: END IF;
1422:
1423: Validate_TASK_ID(
1416: x_return_status => x_return_status,
1417: x_msg_count => x_msg_count,
1418: x_msg_data => x_msg_data);
1419: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1420: raise FND_API.G_EXC_ERROR;
1421: END IF;
1422:
1423: Validate_TASK_ID(
1424: p_init_msg_list => FND_API.G_FALSE,
1420: raise FND_API.G_EXC_ERROR;
1421: END IF;
1422:
1423: Validate_TASK_ID(
1424: p_init_msg_list => FND_API.G_FALSE,
1425: p_validation_mode => p_validation_mode,
1426: p_TASK_ID => P_REQUIREMENT_HEADER_Rec.TASK_ID,
1427: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1428: x_return_status => x_return_status,
1427: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1428: x_return_status => x_return_status,
1429: x_msg_count => x_msg_count,
1430: x_msg_data => x_msg_data);
1431: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1432: raise FND_API.G_EXC_ERROR;
1433: END IF;
1434:
1435: Validate_TASK_ASSIGNMENT_ID(
1428: x_return_status => x_return_status,
1429: x_msg_count => x_msg_count,
1430: x_msg_data => x_msg_data);
1431: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1432: raise FND_API.G_EXC_ERROR;
1433: END IF;
1434:
1435: Validate_TASK_ASSIGNMENT_ID(
1436: p_init_msg_list => FND_API.G_FALSE,
1432: raise FND_API.G_EXC_ERROR;
1433: END IF;
1434:
1435: Validate_TASK_ASSIGNMENT_ID(
1436: p_init_msg_list => FND_API.G_FALSE,
1437: p_validation_mode => p_validation_mode,
1438: p_TASK_ASSIGNMENT_ID => P_REQUIREMENT_HEADER_Rec.TASK_ASSIGNMENT_ID,
1439: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1440: x_return_status => x_return_status,
1439: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1440: x_return_status => x_return_status,
1441: x_msg_count => x_msg_count,
1442: x_msg_data => x_msg_data);
1443: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1444: raise FND_API.G_EXC_ERROR;
1445: END IF;
1446:
1447: Validate_SHIPPING_METHOD_CODE(
1440: x_return_status => x_return_status,
1441: x_msg_count => x_msg_count,
1442: x_msg_data => x_msg_data);
1443: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1444: raise FND_API.G_EXC_ERROR;
1445: END IF;
1446:
1447: Validate_SHIPPING_METHOD_CODE(
1448: p_init_msg_list => FND_API.G_FALSE,
1444: raise FND_API.G_EXC_ERROR;
1445: END IF;
1446:
1447: Validate_SHIPPING_METHOD_CODE(
1448: p_init_msg_list => FND_API.G_FALSE,
1449: p_validation_mode => p_validation_mode,
1450: p_SHIPPING_METHOD_CODE => P_REQUIREMENT_HEADER_Rec.SHIPPING_METHOD_CODE,
1451: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1452: x_return_status => x_return_status,
1451: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1452: x_return_status => x_return_status,
1453: x_msg_count => x_msg_count,
1454: x_msg_data => x_msg_data);
1455: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1456: raise FND_API.G_EXC_ERROR;
1457: END IF;
1458:
1459: Validate_NEED_BY_DATE(
1452: x_return_status => x_return_status,
1453: x_msg_count => x_msg_count,
1454: x_msg_data => x_msg_data);
1455: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1456: raise FND_API.G_EXC_ERROR;
1457: END IF;
1458:
1459: Validate_NEED_BY_DATE(
1460: p_init_msg_list => FND_API.G_FALSE,
1456: raise FND_API.G_EXC_ERROR;
1457: END IF;
1458:
1459: Validate_NEED_BY_DATE(
1460: p_init_msg_list => FND_API.G_FALSE,
1461: p_validation_mode => p_validation_mode,
1462: p_NEED_BY_DATE => P_REQUIREMENT_HEADER_Rec.NEED_BY_DATE,
1463: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1464: x_return_status => x_return_status,
1463: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1464: x_return_status => x_return_status,
1465: x_msg_count => x_msg_count,
1466: x_msg_data => x_msg_data);
1467: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1468: raise FND_API.G_EXC_ERROR;
1469: END IF;
1470:
1471: Validate_DEST_ORGANIZATION_ID(
1464: x_return_status => x_return_status,
1465: x_msg_count => x_msg_count,
1466: x_msg_data => x_msg_data);
1467: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1468: raise FND_API.G_EXC_ERROR;
1469: END IF;
1470:
1471: Validate_DEST_ORGANIZATION_ID(
1472: p_init_msg_list => FND_API.G_FALSE,
1468: raise FND_API.G_EXC_ERROR;
1469: END IF;
1470:
1471: Validate_DEST_ORGANIZATION_ID(
1472: p_init_msg_list => FND_API.G_FALSE,
1473: p_validation_mode => p_validation_mode,
1474: p_DESTINATION_ORGANIZATION_ID => P_REQUIREMENT_HEADER_Rec.DESTINATION_ORGANIZATION_ID,
1475: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1476: x_return_status => x_return_status,
1475: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1476: x_return_status => x_return_status,
1477: x_msg_count => x_msg_count,
1478: x_msg_data => x_msg_data);
1479: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1480: raise FND_API.G_EXC_ERROR;
1481: END IF;
1482:
1483: Validate_PARTS_DEFINED(
1476: x_return_status => x_return_status,
1477: x_msg_count => x_msg_count,
1478: x_msg_data => x_msg_data);
1479: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1480: raise FND_API.G_EXC_ERROR;
1481: END IF;
1482:
1483: Validate_PARTS_DEFINED(
1484: p_init_msg_list => FND_API.G_FALSE,
1480: raise FND_API.G_EXC_ERROR;
1481: END IF;
1482:
1483: Validate_PARTS_DEFINED(
1484: p_init_msg_list => FND_API.G_FALSE,
1485: p_validation_mode => p_validation_mode,
1486: p_PARTS_DEFINED => P_REQUIREMENT_HEADER_Rec.PARTS_DEFINED,
1487: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1488: x_return_status => x_return_status,
1487: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1488: x_return_status => x_return_status,
1489: x_msg_count => x_msg_count,
1490: x_msg_data => x_msg_data);
1491: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1492: raise FND_API.G_EXC_ERROR;
1493: END IF;
1494:
1495: END IF;
1488: x_return_status => x_return_status,
1489: x_msg_count => x_msg_count,
1490: x_msg_data => x_msg_data);
1491: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1492: raise FND_API.G_EXC_ERROR;
1493: END IF;
1494:
1495: END IF;
1496:
1497: IF (p_validation_level >= JTF_UTILITY_PVT.G_VALID_LEVEL_RECORD) THEN
1498: -- Hint: Inter-field level validation can be added here
1499: -- invoke record level validation procedures
1500: Validate_RQMT_HEADER_Rec(
1501: p_init_msg_list => FND_API.G_FALSE,
1502: p_validation_mode => p_validation_mode,
1503: P_REQUIREMENT_HEADER_Rec => P_REQUIREMENT_HEADER_Rec,
1504: x_return_status => x_return_status,
1505: x_msg_count => x_msg_count,
1504: x_return_status => x_return_status,
1505: x_msg_count => x_msg_count,
1506: x_msg_data => x_msg_data);
1507:
1508: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1509: raise FND_API.G_EXC_ERROR;
1510: END IF;
1511: END IF;
1512:
1505: x_msg_count => x_msg_count,
1506: x_msg_data => x_msg_data);
1507:
1508: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1509: raise FND_API.G_EXC_ERROR;
1510: END IF;
1511: END IF;
1512:
1513: IF (p_validation_level >= JTF_UTILITY_PVT.G_VALID_LEVEL_INTER_RECORD) THEN