[Home] [Help]
14:
15: -- Hint: Primary key needs to be returned.
16: PROCEDURE Create_rs_cust_relation(
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_RCR_Rec IN RCR_Rec_Type := G_MISS_RCR_REC,
22: --Hint: Add detail tables as parameter lists if it's master-detail relationship.
15: -- Hint: Primary key needs to be returned.
16: PROCEDURE Create_rs_cust_relation(
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_RCR_Rec IN RCR_Rec_Type := G_MISS_RCR_REC,
22: --Hint: Add detail tables as parameter lists if it's master-detail relationship.
23: X_RS_CUST_RELATION_ID OUT NOCOPY NUMBER,
16: PROCEDURE Create_rs_cust_relation(
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_RCR_Rec IN RCR_Rec_Type := G_MISS_RCR_REC,
22: --Hint: Add detail tables as parameter lists if it's master-detail relationship.
23: X_RS_CUST_RELATION_ID OUT NOCOPY NUMBER,
24: X_Return_Status OUT NOCOPY VARCHAR2,
36: -- Standard Start of API savepoint
37: SAVEPOINT CREATE_RS_CUST_RELATION_PVT;
38:
39: -- Standard call to check for call compatibility.
40: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
41: p_api_version_number,
42: l_api_name,
43: G_PKG_NAME)
44: THEN
41: p_api_version_number,
42: l_api_name,
43: G_PKG_NAME)
44: THEN
45: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
46: END IF;
47:
48:
49: -- Initialize message list if p_init_msg_list is set to TRUE.
46: END IF;
47:
48:
49: -- Initialize message list if p_init_msg_list is set to TRUE.
50: IF FND_API.to_Boolean( p_init_msg_list )
51: THEN
52: FND_MSG_PUB.initialize;
53: END IF;
54:
57: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
58:
59:
60: -- Initialize API return status to SUCCESS
61: x_return_status := FND_API.G_RET_STS_SUCCESS;
62:
63: --
64: -- API body
65: --
73: FND_MESSAGE.Set_Name('CSP', 'UT_CANNOT_GET_PROFILE_VALUE');
74: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
75: FND_MSG_PUB.ADD;
76: END IF;
77: RAISE FND_API.G_EXC_ERROR;
78: END IF;
79:
80:
81: /* IF p_validation_level = FND_API.G_VALID_LEVEL_FULL
77: RAISE FND_API.G_EXC_ERROR;
78: END IF;
79:
80:
81: /* IF p_validation_level = FND_API.G_VALID_LEVEL_FULL
82: THEN
83: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
84: p_api_version_number => 2.0
85: ,p_init_msg_list => p_init_msg_list
90: ,x_msg_data => x_msg_data
91: ,x_sales_member_rec => l_identity_sales_member_rec);
92:
93:
94: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
95: RAISE FND_API.G_EXC_ERROR;
96: END IF;
97:
98: END IF;
91: ,x_sales_member_rec => l_identity_sales_member_rec);
92:
93:
94: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
95: RAISE FND_API.G_EXC_ERROR;
96: END IF;
97:
98: END IF;
99: */
101: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_rs_cust_relation');
102:
103: -- Invoke validation procedures
104: Validate_rs_cust_relation(
105: p_init_msg_list => FND_API.G_FALSE,
106: p_validation_level => p_validation_level,
107: p_validation_mode => AS_UTILITY_PVT.G_CREATE,
108: P_RCR_Rec => P_RCR_Rec,
109: x_return_status => x_return_status,
109: x_return_status => x_return_status,
110: x_msg_count => x_msg_count,
111: x_msg_data => x_msg_data);
112:
113: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
114: RAISE FND_API.G_EXC_ERROR;
115: END IF;
116:
117: -- Hint: Add corresponding Master-Detail business logic here if necessary.
110: x_msg_count => x_msg_count,
111: x_msg_data => x_msg_data);
112:
113: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
114: RAISE FND_API.G_EXC_ERROR;
115: END IF;
116:
117: -- Hint: Add corresponding Master-Detail business logic here if necessary.
118:
148: p_ATTRIBUTE15 => p_RCR_rec.ATTRIBUTE15);
149: -- Hint: Primary key should be returned.
150: -- x_RS_CUST_RELATION_ID := px_RS_CUST_RELATION_ID;
151:
152: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
153: RAISE FND_API.G_EXC_ERROR;
154: END IF;
155:
156: --
149: -- Hint: Primary key should be returned.
150: -- x_RS_CUST_RELATION_ID := px_RS_CUST_RELATION_ID;
151:
152: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
153: RAISE FND_API.G_EXC_ERROR;
154: END IF;
155:
156: --
157: -- End of API body
157: -- End of API body
158: --
159:
160: -- Standard check for p_commit
161: IF FND_API.to_Boolean( p_commit )
162: THEN
163: COMMIT WORK;
164: END IF;
165:
174: p_data => x_msg_data
175: );
176:
177: EXCEPTION
178: WHEN FND_API.G_EXC_ERROR THEN
179: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
180: P_API_NAME => L_API_NAME
181: ,P_PKG_NAME => G_PKG_NAME
182: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
184: ,X_MSG_COUNT => X_MSG_COUNT
185: ,X_MSG_DATA => X_MSG_DATA
186: ,X_RETURN_STATUS => X_RETURN_STATUS);
187:
188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
189: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
190: P_API_NAME => L_API_NAME
191: ,P_PKG_NAME => G_PKG_NAME
192: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
211:
212: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
213: PROCEDURE Update_rs_cust_relation(
214: P_Api_Version_Number IN NUMBER,
215: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
216: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
217: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
218: P_Identity_Salesforce_Id IN NUMBER := NULL,
219: P_RCR_Rec IN RCR_Rec_Type,
212: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
213: PROCEDURE Update_rs_cust_relation(
214: P_Api_Version_Number IN NUMBER,
215: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
216: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
217: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
218: P_Identity_Salesforce_Id IN NUMBER := NULL,
219: P_RCR_Rec IN RCR_Rec_Type,
220: X_Return_Status OUT NOCOPY VARCHAR2,
213: PROCEDURE Update_rs_cust_relation(
214: P_Api_Version_Number IN NUMBER,
215: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
216: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
217: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
218: P_Identity_Salesforce_Id IN NUMBER := NULL,
219: P_RCR_Rec IN RCR_Rec_Type,
220: X_Return_Status OUT NOCOPY VARCHAR2,
221: X_Msg_Count OUT NOCOPY NUMBER,
266: -- Standard Start of API savepoint
267: SAVEPOINT UPDATE_RS_CUST_RELATION_PVT;
268:
269: -- Standard call to check for call compatibility.
270: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
271: p_api_version_number,
272: l_api_name,
273: G_PKG_NAME)
274: THEN
271: p_api_version_number,
272: l_api_name,
273: G_PKG_NAME)
274: THEN
275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
276: END IF;
277:
278:
279: -- Initialize message list if p_init_msg_list is set to TRUE.
276: END IF;
277:
278:
279: -- Initialize message list if p_init_msg_list is set to TRUE.
280: IF FND_API.to_Boolean( p_init_msg_list )
281: THEN
282: FND_MSG_PUB.initialize;
283: END IF;
284:
287: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
288:
289:
290: -- Initialize API return status to SUCCESS
291: x_return_status := FND_API.G_RET_STS_SUCCESS;
292:
293: --
294: -- Api body
295: --
293: --
294: -- Api body
295: --
296:
297: /* IF p_validation_level = FND_API.G_VALID_LEVEL_FULL
298: THEN
299: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
300: p_api_version_number => 2.0
301: ,p_init_msg_list => p_init_msg_list
306: ,x_msg_data => x_msg_data
307: ,x_sales_member_rec => l_identity_sales_member_rec);
308:
309:
310: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
311: RAISE FND_API.G_EXC_ERROR;
312: END IF;
313:
314: END IF;
307: ,x_sales_member_rec => l_identity_sales_member_rec);
308:
309:
310: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
311: RAISE FND_API.G_EXC_ERROR;
312: END IF;
313:
314: END IF;
315: */
354: FND_MESSAGE.Set_Token ('INFO', 'rs_cust_relation', FALSE);
355: FND_MSG_PUB.Add;
356: END IF;
357: Close C_Get_rs_cust_relation;
358: raise FND_API.G_EXC_ERROR;
359: END IF;
360: -- Debug Message
361: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
362: Close C_Get_rs_cust_relation;
363: */
364:
365:
366: If (l_tar_RCR_rec.last_update_date is NULL or
367: l_tar_RCR_rec.last_update_date = FND_API.G_MISS_Date ) Then
368: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
369: THEN
370: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
371: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
370: FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
371: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
372: FND_MSG_PUB.ADD;
373: END IF;
374: raise FND_API.G_EXC_ERROR;
375: End if;
376: -- Check Whether record has been changed by someone else
377: If (l_tar_RCR_rec.last_update_date <> l_ref_RCR_rec.last_update_date) Then
378: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
380: FND_MESSAGE.Set_Name('CSP', 'API_RECORD_CHANGED');
381: FND_MESSAGE.Set_Token('INFO', 'rs_cust_relation', FALSE);
382: FND_MSG_PUB.ADD;
383: END IF;
384: raise FND_API.G_EXC_ERROR;
385: End if;
386:
387: -- Debug message
388: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_rs_cust_relation');
388: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_rs_cust_relation');
389:
390: -- Invoke validation procedures
391: Validate_rs_cust_relation(
392: p_init_msg_list => FND_API.G_FALSE,
393: p_validation_level => p_validation_level,
394: p_validation_mode => AS_UTILITY_PVT.G_UPDATE,
395: P_RCR_Rec => P_RCR_Rec,
396: x_return_status => x_return_status,
396: x_return_status => x_return_status,
397: x_msg_count => x_msg_count,
398: x_msg_data => x_msg_data);
399:
400: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
401: RAISE FND_API.G_EXC_ERROR;
402: END IF;
403:
404: -- Hint: Add corresponding Master-Detail business logic here if necessary.
397: x_msg_count => x_msg_count,
398: x_msg_data => x_msg_data);
399:
400: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
401: RAISE FND_API.G_EXC_ERROR;
402: END IF;
403:
404: -- Hint: Add corresponding Master-Detail business logic here if necessary.
405:
411: p_RS_CUST_RELATION_ID => p_RCR_rec.RS_CUST_RELATION_ID,
412: p_RESOURCE_TYPE => p_RCR_rec.RESOURCE_TYPE,
413: p_RESOURCE_ID => p_RCR_rec.RESOURCE_ID,
414: p_CUSTOMER_ID => p_RCR_rec.CUSTOMER_ID,
415: p_CREATED_BY => FND_API.G_MISS_NUM,
416: p_CREATION_DATE => FND_API.G_MISS_DATE,
417: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
418: p_LAST_UPDATE_DATE => SYSDATE,
419: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
412: p_RESOURCE_TYPE => p_RCR_rec.RESOURCE_TYPE,
413: p_RESOURCE_ID => p_RCR_rec.RESOURCE_ID,
414: p_CUSTOMER_ID => p_RCR_rec.CUSTOMER_ID,
415: p_CREATED_BY => FND_API.G_MISS_NUM,
416: p_CREATION_DATE => FND_API.G_MISS_DATE,
417: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
418: p_LAST_UPDATE_DATE => SYSDATE,
419: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
420: p_ATTRIBUTE_CATEGORY => p_RCR_rec.ATTRIBUTE_CATEGORY,
437: -- End of API body.
438: --
439:
440: -- Standard check for p_commit
441: IF FND_API.to_Boolean( p_commit )
442: THEN
443: COMMIT WORK;
444: END IF;
445:
454: p_data => x_msg_data
455: );
456:
457: EXCEPTION
458: WHEN FND_API.G_EXC_ERROR THEN
459: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
460: P_API_NAME => L_API_NAME
461: ,P_PKG_NAME => G_PKG_NAME
462: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
464: ,X_MSG_COUNT => X_MSG_COUNT
465: ,X_MSG_DATA => X_MSG_DATA
466: ,X_RETURN_STATUS => X_RETURN_STATUS);
467:
468: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
469: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
470: P_API_NAME => L_API_NAME
471: ,P_PKG_NAME => G_PKG_NAME
472: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
492: -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
493: -- The Master delete procedure may not be needed depends on different business requirements.
494: PROCEDURE Delete_rs_cust_relation(
495: P_Api_Version_Number IN NUMBER,
496: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
497: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
498: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
499: P_Identity_Salesforce_Id IN NUMBER := NULL,
500: P_RCR_Rec IN RCR_Rec_Type,
493: -- The Master delete procedure may not be needed depends on different business requirements.
494: PROCEDURE Delete_rs_cust_relation(
495: P_Api_Version_Number IN NUMBER,
496: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
497: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
498: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
499: P_Identity_Salesforce_Id IN NUMBER := NULL,
500: P_RCR_Rec IN RCR_Rec_Type,
501: X_Return_Status OUT NOCOPY VARCHAR2,
494: PROCEDURE Delete_rs_cust_relation(
495: P_Api_Version_Number IN NUMBER,
496: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
497: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
498: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
499: P_Identity_Salesforce_Id IN NUMBER := NULL,
500: P_RCR_Rec IN RCR_Rec_Type,
501: X_Return_Status OUT NOCOPY VARCHAR2,
502: X_Msg_Count OUT NOCOPY NUMBER,
511: -- Standard Start of API savepoint
512: SAVEPOINT DELETE_RS_CUST_RELATION_PVT;
513:
514: -- Standard call to check for call compatibility.
515: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
516: p_api_version_number,
517: l_api_name,
518: G_PKG_NAME)
519: THEN
516: p_api_version_number,
517: l_api_name,
518: G_PKG_NAME)
519: THEN
520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
521: END IF;
522:
523:
524: -- Initialize message list if p_init_msg_list is set to TRUE.
521: END IF;
522:
523:
524: -- Initialize message list if p_init_msg_list is set to TRUE.
525: IF FND_API.to_Boolean( p_init_msg_list )
526: THEN
527: FND_MSG_PUB.initialize;
528: END IF;
529:
532: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
533:
534:
535: -- Initialize API return status to SUCCESS
536: x_return_status := FND_API.G_RET_STS_SUCCESS;
537:
538: --
539: -- Api body
540: --
538: --
539: -- Api body
540: --
541:
542: /* IF p_validation_level = FND_API.G_VALID_LEVEL_FULL
543: THEN
544: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
545: p_api_version_number => 2.0
546: ,p_init_msg_list => p_init_msg_list
551: ,x_msg_data => x_msg_data
552: ,x_sales_member_rec => l_identity_sales_member_rec);
553:
554:
555: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
556: RAISE FND_API.G_EXC_ERROR;
557: END IF;
558:
559: END IF;
552: ,x_sales_member_rec => l_identity_sales_member_rec);
553:
554:
555: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
556: RAISE FND_API.G_EXC_ERROR;
557: END IF;
558:
559: END IF;
560: */
569: -- End of API body
570: --
571:
572: -- Standard check for p_commit
573: IF FND_API.to_Boolean( p_commit )
574: THEN
575: COMMIT WORK;
576: END IF;
577:
586: p_data => x_msg_data
587: );
588:
589: EXCEPTION
590: WHEN FND_API.G_EXC_ERROR THEN
591: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
592: P_API_NAME => L_API_NAME
593: ,P_PKG_NAME => G_PKG_NAME
594: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
596: ,X_MSG_COUNT => X_MSG_COUNT
597: ,X_MSG_DATA => X_MSG_DATA
598: ,X_RETURN_STATUS => X_RETURN_STATUS);
599:
600: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
601: AS_UTILITY_PVT.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_UNEXP_ERROR
716: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Invoke AS_UTILITY_PVT.Translate_OrderBy');
717:
718: AS_UTILITY_PVT.Translate_OrderBy(
719: p_api_version_number => 1.0
720: ,p_init_msg_list => FND_API.G_FALSE
721: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
722: ,p_order_by_tbl => l_util_order_by_tbl
723: ,x_order_by_clause => l_order_by_cl
724: ,x_return_status => x_return_status
717:
718: AS_UTILITY_PVT.Translate_OrderBy(
719: p_api_version_number => 1.0
720: ,p_init_msg_list => FND_API.G_FALSE
721: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
722: ,p_order_by_tbl => l_util_order_by_tbl
723: ,x_order_by_clause => l_order_by_cl
724: ,x_return_status => x_return_status
725: ,x_msg_count => x_msg_count
749: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Bind Variables Begins');
750:
751: -- The following example applies to all columns,
752: -- developers can copy and paste them.
753: IF( (P_RCR_Rec.RS_CUST_RELATION_ID IS NOT NULL) AND (P_RCR_Rec.RS_CUST_RELATION_ID <> FND_API.G_MISS_NUM) )
754: THEN
755: DBMS_SQL.BIND_VARIABLE(p_cur_get_RCR, ':p_RS_CUST_RELATION_ID', P_RCR_Rec.RS_CUST_RELATION_ID);
756: END IF;
757:
825: -- NUMBER, DATE, VARCHAR2.
826: -- Developer can copy and paste the following codes for your own record.
827:
828: -- example for NUMBER datatype
829: IF( (P_RCR_Rec.RS_CUST_RELATION_ID IS NOT NULL) AND (P_RCR_Rec.RS_CUST_RELATION_ID <> FND_API.G_MISS_NUM) )
830: THEN
831: IF(x_RCR_where IS NULL) THEN
832: x_RCR_where := 'Where';
833: ELSE
836: x_RCR_where := x_RCR_where || 'P_RCR_Rec.RS_CUST_RELATION_ID = :p_RS_CUST_RELATION_ID';
837: END IF;
838:
839: -- example for DATE datatype
840: IF( (P_RCR_Rec.CREATION_DATE IS NOT NULL) AND (P_RCR_Rec.CREATION_DATE <> FND_API.G_MISS_DATE) )
841: THEN
842: -- check if item value contains '%' wildcard
843: OPEN c_chk_str1(P_RCR_Rec.CREATION_DATE);
844: FETCH c_chk_str1 INTO str_csr1;
869: x_RCR_where := x_RCR_where || 'P_RCR_Rec.CREATION_DATE ' || l_operator || ' :p_CREATION_DATE';
870: END IF;
871:
872: -- example for VARCHAR2 datatype
873: IF( (P_RCR_Rec.RESOURCE_TYPE IS NOT NULL) AND (P_RCR_Rec.RESOURCE_TYPE <> FND_API.G_MISS_CHAR) )
874: THEN
875: -- check if item value contains '%' wildcard
876: OPEN c_chk_str1(P_RCR_Rec.RESOURCE_TYPE);
877: FETCH c_chk_str1 INTO str_csr1;
911:
912:
913: -- Item-level validation procedures
914: PROCEDURE Validate_RS_CUST_RELATION_ID (
915: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
916: P_Validation_mode IN VARCHAR2,
917: P_RS_CUST_RELATION_ID IN NUMBER,
918: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
919: X_Return_Status OUT NOCOPY VARCHAR2,
923: IS
924: BEGIN
925:
926: -- Initialize message list if p_init_msg_list is set to TRUE.
927: IF FND_API.to_Boolean( p_init_msg_list )
928: THEN
929: FND_MSG_PUB.initialize;
930: END IF;
931:
930: END IF;
931:
932:
933: -- Initialize API return status to SUCCESS
934: x_return_status := FND_API.G_RET_STS_SUCCESS;
935:
936: -- validate NOT NULL column
937: IF(p_RS_CUST_RELATION_ID is NULL)
938: THEN
936: -- validate NOT NULL column
937: IF(p_RS_CUST_RELATION_ID is NULL)
938: THEN
939: AS_UTILITY_PVT.Debug_Message('ERROR', 'Private rs_cust_relation API: -Violate NOT NULL constraint(RS_CUST_RELATION_ID)');
940: x_return_status := FND_API.G_RET_STS_ERROR;
941: END IF;
942:
943: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
944: THEN
944: THEN
945: -- Hint: Validate data
946: -- IF p_RS_CUST_RELATION_ID is not NULL and p_RS_CUST_RELATION_ID <> G_MISS_CHAR
947: -- verify if data is valid
948: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
949: NULL;
950: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
951: THEN
952: -- Hint: Validate data
951: THEN
952: -- Hint: Validate data
953: -- IF p_RS_CUST_RELATION_ID <> G_MISS_CHAR
954: -- verify if data is valid
955: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
956: NULL;
957: END IF;
958:
959: -- Standard call to get message count and if count is 1, get message info.
965: END Validate_RS_CUST_RELATION_ID;
966:
967:
968: PROCEDURE Validate_RESOURCE_TYPE (
969: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
970: P_Validation_mode IN VARCHAR2,
971: P_RESOURCE_TYPE IN VARCHAR2,
972: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
973: X_Return_Status OUT NOCOPY VARCHAR2,
977: IS
978: BEGIN
979:
980: -- Initialize message list if p_init_msg_list is set to TRUE.
981: IF FND_API.to_Boolean( p_init_msg_list )
982: THEN
983: FND_MSG_PUB.initialize;
984: END IF;
985:
984: END IF;
985:
986:
987: -- Initialize API return status to SUCCESS
988: x_return_status := FND_API.G_RET_STS_SUCCESS;
989:
990: -- validate NOT NULL column
991: IF(p_RESOURCE_TYPE is NULL)
992: THEN
990: -- validate NOT NULL column
991: IF(p_RESOURCE_TYPE is NULL)
992: THEN
993: AS_UTILITY_PVT.Debug_Message('ERROR', 'Private rs_cust_relation API: -Violate NOT NULL constraint(RESOURCE_TYPE)');
994: x_return_status := FND_API.G_RET_STS_ERROR;
995: END IF;
996:
997: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
998: THEN
998: THEN
999: -- Hint: Validate data
1000: -- IF p_RESOURCE_TYPE is not NULL and p_RESOURCE_TYPE <> G_MISS_CHAR
1001: -- verify if data is valid
1002: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1003: NULL;
1004: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1005: THEN
1006: -- Hint: Validate data
1005: THEN
1006: -- Hint: Validate data
1007: -- IF p_RESOURCE_TYPE <> G_MISS_CHAR
1008: -- verify if data is valid
1009: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1010: NULL;
1011: END IF;
1012:
1013: -- Standard call to get message count and if count is 1, get message info.
1019: END Validate_RESOURCE_TYPE;
1020:
1021:
1022: PROCEDURE Validate_RESOURCE_ID (
1023: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1024: P_Validation_mode IN VARCHAR2,
1025: P_RESOURCE_ID IN NUMBER,
1026: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1027: X_Return_Status OUT NOCOPY VARCHAR2,
1031: IS
1032: BEGIN
1033:
1034: -- Initialize message list if p_init_msg_list is set to TRUE.
1035: IF FND_API.to_Boolean( p_init_msg_list )
1036: THEN
1037: FND_MSG_PUB.initialize;
1038: END IF;
1039:
1038: END IF;
1039:
1040:
1041: -- Initialize API return status to SUCCESS
1042: x_return_status := FND_API.G_RET_STS_SUCCESS;
1043:
1044: -- validate NOT NULL column
1045: IF(p_RESOURCE_ID is NULL)
1046: THEN
1044: -- validate NOT NULL column
1045: IF(p_RESOURCE_ID is NULL)
1046: THEN
1047: AS_UTILITY_PVT.Debug_Message('ERROR', 'Private rs_cust_relation API: -Violate NOT NULL constraint(RESOURCE_ID)');
1048: x_return_status := FND_API.G_RET_STS_ERROR;
1049: END IF;
1050:
1051: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1052: THEN
1052: THEN
1053: -- Hint: Validate data
1054: -- IF p_RESOURCE_ID is not NULL and p_RESOURCE_ID <> G_MISS_CHAR
1055: -- verify if data is valid
1056: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1057: NULL;
1058: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1059: THEN
1060: -- Hint: Validate data
1059: THEN
1060: -- Hint: Validate data
1061: -- IF p_RESOURCE_ID <> G_MISS_CHAR
1062: -- verify if data is valid
1063: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1064: NULL;
1065: END IF;
1066:
1067: -- Standard call to get message count and if count is 1, get message info.
1073: END Validate_RESOURCE_ID;
1074:
1075:
1076: PROCEDURE Validate_CUSTOMER_ID (
1077: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1078: P_Validation_mode IN VARCHAR2,
1079: P_CUSTOMER_ID IN NUMBER,
1080: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1081: X_Return_Status OUT NOCOPY VARCHAR2,
1085: IS
1086: BEGIN
1087:
1088: -- Initialize message list if p_init_msg_list is set to TRUE.
1089: IF FND_API.to_Boolean( p_init_msg_list )
1090: THEN
1091: FND_MSG_PUB.initialize;
1092: END IF;
1093:
1092: END IF;
1093:
1094:
1095: -- Initialize API return status to SUCCESS
1096: x_return_status := FND_API.G_RET_STS_SUCCESS;
1097:
1098: -- validate NOT NULL column
1099: IF(p_CUSTOMER_ID is NULL)
1100: THEN
1098: -- validate NOT NULL column
1099: IF(p_CUSTOMER_ID is NULL)
1100: THEN
1101: AS_UTILITY_PVT.Debug_Message('ERROR', 'Private rs_cust_relation API: -Violate NOT NULL constraint(CUSTOMER_ID)');
1102: x_return_status := FND_API.G_RET_STS_ERROR;
1103: END IF;
1104:
1105: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1106: THEN
1106: THEN
1107: -- Hint: Validate data
1108: -- IF p_CUSTOMER_ID is not NULL and p_CUSTOMER_ID <> G_MISS_CHAR
1109: -- verify if data is valid
1110: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1111: NULL;
1112: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1113: THEN
1114: -- Hint: Validate data
1113: THEN
1114: -- Hint: Validate data
1115: -- IF p_CUSTOMER_ID <> G_MISS_CHAR
1116: -- verify if data is valid
1117: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1118: NULL;
1119: END IF;
1120:
1121: -- Standard call to get message count and if count is 1, get message info.
1131: -- Hint: If p_validation_mode = AS_UTILITY_PVT.G_VALIDATE_UPDATE, we should use cursor
1132: -- to get old values for all fields used in inter-field validation and set all G_MISS_XXX fields to original value
1133: -- stored in database table.
1134: PROCEDURE Validate_RCR_rec(
1135: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1136: P_Validation_mode IN VARCHAR2,
1137: P_RCR_Rec IN RCR_Rec_Type,
1138: X_Return_Status OUT NOCOPY VARCHAR2,
1139: X_Msg_Count OUT NOCOPY NUMBER,
1142: IS
1143: BEGIN
1144:
1145: -- Initialize message list if p_init_msg_list is set to TRUE.
1146: IF FND_API.to_Boolean( p_init_msg_list )
1147: THEN
1148: FND_MSG_PUB.initialize;
1149: END IF;
1150:
1149: END IF;
1150:
1151:
1152: -- Initialize API return status to SUCCESS
1153: x_return_status := FND_API.G_RET_STS_SUCCESS;
1154:
1155: -- Hint: Validate data
1156: -- If data not valid
1157: -- THEN
1154:
1155: -- Hint: Validate data
1156: -- If data not valid
1157: -- THEN
1158: -- x_return_status := FND_API.G_RET_STS_ERROR;
1159:
1160: -- Debug Message
1161: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'API_INVALID_RECORD');
1162:
1168:
1169: END Validate_RCR_Rec;
1170:
1171: PROCEDURE Validate_rs_cust_relation(
1172: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1173: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1174: P_Validation_mode IN VARCHAR2,
1175: P_RCR_Rec IN RCR_Rec_Type,
1176: X_Return_Status OUT NOCOPY VARCHAR2,
1169: END Validate_RCR_Rec;
1170:
1171: PROCEDURE Validate_rs_cust_relation(
1172: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1173: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1174: P_Validation_mode IN VARCHAR2,
1175: P_RCR_Rec IN RCR_Rec_Type,
1176: X_Return_Status OUT NOCOPY VARCHAR2,
1177: X_Msg_Count OUT NOCOPY NUMBER,
1185: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
1186:
1187:
1188: -- Initialize API return status to SUCCESS
1189: x_return_status := FND_API.G_RET_STS_SUCCESS;
1190:
1191: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_ITEM) THEN
1192: -- Hint: We provide validation procedure for every column. Developer should delete
1193: -- unnecessary validation procedures.
1191: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_ITEM) THEN
1192: -- Hint: We provide validation procedure for every column. Developer should delete
1193: -- unnecessary validation procedures.
1194: Validate_RS_CUST_RELATION_ID(
1195: p_init_msg_list => FND_API.G_FALSE,
1196: p_validation_mode => p_validation_mode,
1197: p_RS_CUST_RELATION_ID => P_RCR_Rec.RS_CUST_RELATION_ID,
1198: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1199: x_return_status => x_return_status,
1198: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1199: x_return_status => x_return_status,
1200: x_msg_count => x_msg_count,
1201: x_msg_data => x_msg_data);
1202: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1203: raise FND_API.G_EXC_ERROR;
1204: END IF;
1205:
1206: Validate_RESOURCE_TYPE(
1199: x_return_status => x_return_status,
1200: x_msg_count => x_msg_count,
1201: x_msg_data => x_msg_data);
1202: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1203: raise FND_API.G_EXC_ERROR;
1204: END IF;
1205:
1206: Validate_RESOURCE_TYPE(
1207: p_init_msg_list => FND_API.G_FALSE,
1203: raise FND_API.G_EXC_ERROR;
1204: END IF;
1205:
1206: Validate_RESOURCE_TYPE(
1207: p_init_msg_list => FND_API.G_FALSE,
1208: p_validation_mode => p_validation_mode,
1209: p_RESOURCE_TYPE => P_RCR_Rec.RESOURCE_TYPE,
1210: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1211: x_return_status => x_return_status,
1210: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1211: x_return_status => x_return_status,
1212: x_msg_count => x_msg_count,
1213: x_msg_data => x_msg_data);
1214: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1215: raise FND_API.G_EXC_ERROR;
1216: END IF;
1217:
1218: Validate_RESOURCE_ID(
1211: x_return_status => x_return_status,
1212: x_msg_count => x_msg_count,
1213: x_msg_data => x_msg_data);
1214: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1215: raise FND_API.G_EXC_ERROR;
1216: END IF;
1217:
1218: Validate_RESOURCE_ID(
1219: p_init_msg_list => FND_API.G_FALSE,
1215: raise FND_API.G_EXC_ERROR;
1216: END IF;
1217:
1218: Validate_RESOURCE_ID(
1219: p_init_msg_list => FND_API.G_FALSE,
1220: p_validation_mode => p_validation_mode,
1221: p_RESOURCE_ID => P_RCR_Rec.RESOURCE_ID,
1222: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1223: x_return_status => x_return_status,
1222: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1223: x_return_status => x_return_status,
1224: x_msg_count => x_msg_count,
1225: x_msg_data => x_msg_data);
1226: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1227: raise FND_API.G_EXC_ERROR;
1228: END IF;
1229:
1230: Validate_CUSTOMER_ID(
1223: x_return_status => x_return_status,
1224: x_msg_count => x_msg_count,
1225: x_msg_data => x_msg_data);
1226: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1227: raise FND_API.G_EXC_ERROR;
1228: END IF;
1229:
1230: Validate_CUSTOMER_ID(
1231: p_init_msg_list => FND_API.G_FALSE,
1227: raise FND_API.G_EXC_ERROR;
1228: END IF;
1229:
1230: Validate_CUSTOMER_ID(
1231: p_init_msg_list => FND_API.G_FALSE,
1232: p_validation_mode => p_validation_mode,
1233: p_CUSTOMER_ID => P_RCR_Rec.CUSTOMER_ID,
1234: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1235: x_return_status => x_return_status,
1234: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1235: x_return_status => x_return_status,
1236: x_msg_count => x_msg_count,
1237: x_msg_data => x_msg_data);
1238: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1239: raise FND_API.G_EXC_ERROR;
1240: END IF;
1241:
1242: END IF;
1235: x_return_status => x_return_status,
1236: x_msg_count => x_msg_count,
1237: x_msg_data => x_msg_data);
1238: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1239: raise FND_API.G_EXC_ERROR;
1240: END IF;
1241:
1242: END IF;
1243:
1244: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_RECORD) THEN
1245: -- Hint: Inter-field level validation can be added here
1246: -- invoke record level validation procedures
1247: Validate_RCR_Rec(
1248: p_init_msg_list => FND_API.G_FALSE,
1249: p_validation_mode => p_validation_mode,
1250: P_RCR_Rec => P_RCR_Rec,
1251: x_return_status => x_return_status,
1252: x_msg_count => x_msg_count,
1251: x_return_status => x_return_status,
1252: x_msg_count => x_msg_count,
1253: x_msg_data => x_msg_data);
1254:
1255: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1256: raise FND_API.G_EXC_ERROR;
1257: END IF;
1258: END IF;
1259:
1252: x_msg_count => x_msg_count,
1253: x_msg_data => x_msg_data);
1254:
1255: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1256: raise FND_API.G_EXC_ERROR;
1257: END IF;
1258: END IF;
1259:
1260: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_INTER_RECORD) THEN