[Home] [Help]
24:
25: -- Hint: Primary key needs to be returned.
26: PROCEDURE Create_rs_camp(
27: P_Api_Version_Number IN NUMBER,
28: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
29: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
30: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
31: P_rs_camp_Rec IN rs_camp_Rec_Type := G_MISS_rs_camp_REC,
32: --Hint: Add detail tables as parameter lists if it's master-detail relationship.
25: -- Hint: Primary key needs to be returned.
26: PROCEDURE Create_rs_camp(
27: P_Api_Version_Number IN NUMBER,
28: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
29: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
30: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
31: P_rs_camp_Rec IN rs_camp_Rec_Type := G_MISS_rs_camp_REC,
32: --Hint: Add detail tables as parameter lists if it's master-detail relationship.
33: X_RS_CAMPAIGN_ID OUT NOCOPY /* file.sql.39 change */ NUMBER,
26: PROCEDURE Create_rs_camp(
27: P_Api_Version_Number IN NUMBER,
28: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
29: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
30: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
31: P_rs_camp_Rec IN rs_camp_Rec_Type := G_MISS_rs_camp_REC,
32: --Hint: Add detail tables as parameter lists if it's master-detail relationship.
33: X_RS_CAMPAIGN_ID OUT NOCOPY /* file.sql.39 change */ NUMBER,
34: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
46: -- Standard Start of API savepoint
47: SAVEPOINT CREATE_rs_camp_PVT;
48:
49: -- Standard call to check for call compatibility.
50: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
51: p_api_version_number,
52: l_api_name,
53: G_PKG_NAME)
54: THEN
51: p_api_version_number,
52: l_api_name,
53: G_PKG_NAME)
54: THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
57:
58: -- Initialize message list if p_init_msg_list is set to TRUE.
59: IF FND_API.to_Boolean( p_init_msg_list )
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
57:
58: -- Initialize message list if p_init_msg_list is set to TRUE.
59: IF FND_API.to_Boolean( p_init_msg_list )
60: THEN
61: FND_MSG_PUB.initialize;
62: END IF;
63:
63:
64: -- Debug Message
65: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'start');
66: -- Initialize API return status to SUCCESS
67: x_return_status := FND_API.G_RET_STS_SUCCESS;
68:
69: --
70: -- API body
71: --
77: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
78: THEN
79: AS_CALLOUT_PKG.Create_rs_camp_BC(
80: p_api_version_number => 1.0,
81: p_init_msg_list => FND_API.G_FALSE,
82: p_commit => FND_API.G_FALSE,
83: p_validation_level => p_validation_level,
84: P_rs_camp_Rec => P_rs_camp_Rec,
85: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
78: THEN
79: AS_CALLOUT_PKG.Create_rs_camp_BC(
80: p_api_version_number => 1.0,
81: p_init_msg_list => FND_API.G_FALSE,
82: p_commit => FND_API.G_FALSE,
83: p_validation_level => p_validation_level,
84: P_rs_camp_Rec => P_rs_camp_Rec,
85: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
86: x_return_status => x_return_status,
98: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
99: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
100: FND_MSG_PUB.ADD;
101: END IF;
102: RAISE FND_API.G_EXC_ERROR;
103: END IF;
104:
105: /* AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
106: p_api_version_number => 1.0
109: ,x_msg_count => x_msg_count
110: ,x_msg_data => x_msg_data
111: ,x_sales_member_rec => l_identity_sales_member_rec);
112:
113: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
114: RAISE FND_API.G_EXC_ERROR;
115: END IF;
116:
117: */
110: ,x_msg_data => x_msg_data
111: ,x_sales_member_rec => l_identity_sales_member_rec);
112:
113: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
114: RAISE FND_API.G_EXC_ERROR;
115: END IF;
116:
117: */
118: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
114: RAISE FND_API.G_EXC_ERROR;
115: END IF;
116:
117: */
118: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
119: THEN
120: -- Debug message
121: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Validate_rs_camp');
122:
122:
123:
124: -- Invoke validation procedures
125: Validate_rs_camp(
126: p_init_msg_list => FND_API.G_FALSE,
127: p_validation_level => p_validation_level,
128: p_validation_mode => JTF_PLSQL_API.G_CREATE,
129: P_rs_camp_Rec => P_rs_camp_Rec,
130: x_return_status => x_return_status,
131: x_msg_count => x_msg_count,
132: x_msg_data => x_msg_data);
133: END IF;
134:
135: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
136: RAISE FND_API.G_EXC_ERROR;
137: END IF;
138:
139: -- Hint: Add corresponding Master-Detail business logic here if necessary.
132: x_msg_data => x_msg_data);
133: END IF;
134:
135: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
136: RAISE FND_API.G_EXC_ERROR;
137: END IF;
138:
139: -- Hint: Add corresponding Master-Detail business logic here if necessary.
140:
157: p_LAST_UPDATE_LOGIN => p_rs_camp_rec.LAST_UPDATE_LOGIN);
158: -- Hint: Primary key should be returned.
159: -- x_RS_CAMPAIGN_ID := px_RS_CAMPAIGN_ID;
160:
161: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
162: RAISE FND_API.G_EXC_ERROR;
163: END IF;
164:
165: --
158: -- Hint: Primary key should be returned.
159: -- x_RS_CAMPAIGN_ID := px_RS_CAMPAIGN_ID;
160:
161: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
162: RAISE FND_API.G_EXC_ERROR;
163: END IF;
164:
165: --
166: -- End of API body
166: -- End of API body
167: --
168:
169: -- Standard check for p_commit
170: IF FND_API.to_Boolean( p_commit )
171: THEN
172: COMMIT WORK;
173: END IF;
174:
190: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
191: THEN
192: AS_CALLOUT_PKG.Create_rs_camp_AC(
193: p_api_version_number => 1.0,
194: p_init_msg_list => FND_API.G_FALSE,
195: p_commit => FND_API.G_FALSE,
196: p_validation_level => p_validation_level,
197: P_rs_camp_Rec => P_rs_camp_Rec,
198: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
191: THEN
192: AS_CALLOUT_PKG.Create_rs_camp_AC(
193: p_api_version_number => 1.0,
194: p_init_msg_list => FND_API.G_FALSE,
195: p_commit => FND_API.G_FALSE,
196: p_validation_level => p_validation_level,
197: P_rs_camp_Rec => P_rs_camp_Rec,
198: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
199: x_return_status => x_return_status,
201: x_msg_data => x_msg_data);
202: END IF;
203: */
204: EXCEPTION
205: WHEN FND_API.G_EXC_ERROR THEN
206: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
207: P_API_NAME => L_API_NAME
208: ,P_PKG_NAME => G_PKG_NAME
209: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
211: ,X_MSG_COUNT => X_MSG_COUNT
212: ,X_MSG_DATA => X_MSG_DATA
213: ,X_RETURN_STATUS => X_RETURN_STATUS);
214:
215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
216: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
217: P_API_NAME => L_API_NAME
218: ,P_PKG_NAME => G_PKG_NAME
219: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
235:
236: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
237: PROCEDURE Update_rs_camp(
238: P_Api_Version_Number IN NUMBER,
239: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
240: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
241: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
242: P_Identity_Salesforce_Id IN NUMBER := NULL,
243: P_rs_camp_Rec IN rs_camp_Rec_Type,
236: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
237: PROCEDURE Update_rs_camp(
238: P_Api_Version_Number IN NUMBER,
239: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
240: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
241: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
242: P_Identity_Salesforce_Id IN NUMBER := NULL,
243: P_rs_camp_Rec IN rs_camp_Rec_Type,
244: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
237: PROCEDURE Update_rs_camp(
238: P_Api_Version_Number IN NUMBER,
239: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
240: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
241: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
242: P_Identity_Salesforce_Id IN NUMBER := NULL,
243: P_rs_camp_Rec IN rs_camp_Rec_Type,
244: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
245: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
278: -- Standard Start of API savepoint
279: SAVEPOINT UPDATE_rs_camp_PVT;
280:
281: -- Standard call to check for call compatibility.
282: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
283: p_api_version_number,
284: l_api_name,
285: G_PKG_NAME)
286: THEN
283: p_api_version_number,
284: l_api_name,
285: G_PKG_NAME)
286: THEN
287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
288: END IF;
289:
290:
291: -- Initialize message list if p_init_msg_list is set to TRUE.
288: END IF;
289:
290:
291: -- Initialize message list if p_init_msg_list is set to TRUE.
292: IF FND_API.to_Boolean( p_init_msg_list )
293: THEN
294: FND_MSG_PUB.initialize;
295: END IF;
296:
298: -- Debug Message
299: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'start');
300:
301: -- Initialize API return status to SUCCESS
302: x_return_status := FND_API.G_RET_STS_SUCCESS;
303:
304: --
305: -- Api body
306: --
311: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
312: THEN
313: AS_CALLOUT_PKG.Update_rs_camp_BU(
314: p_api_version_number => 1.0,
315: p_init_msg_list => FND_API.G_FALSE,
316: p_commit => FND_API.G_FALSE,
317: p_validation_level => p_validation_level,
318: p_identity_salesforce_id => p_identity_salesforce_id,
319: P_rs_camp_Rec => P_rs_camp_Rec,
312: THEN
313: AS_CALLOUT_PKG.Update_rs_camp_BU(
314: p_api_version_number => 1.0,
315: p_init_msg_list => FND_API.G_FALSE,
316: p_commit => FND_API.G_FALSE,
317: p_validation_level => p_validation_level,
318: p_identity_salesforce_id => p_identity_salesforce_id,
319: P_rs_camp_Rec => P_rs_camp_Rec,
320: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
331: ,x_msg_count => x_msg_count
332: ,x_msg_data => x_msg_data
333: ,x_sales_member_rec => l_identity_sales_member_rec);*/
334:
335: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
336: RAISE FND_API.G_EXC_ERROR;
337: END IF;
338:
339: -- Debug Message
332: ,x_msg_data => x_msg_data
333: ,x_sales_member_rec => l_identity_sales_member_rec);*/
334:
335: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
336: RAISE FND_API.G_EXC_ERROR;
337: END IF;
338:
339: -- Debug Message
340: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: - Open Cursor to Select');
361: FND_MESSAGE.Set_Name('AST', 'API_MISSING_UPDATE_TARGET');
362: FND_MESSAGE.Set_Token ('INFO', 'rs_camp', FALSE);
363: FND_MSG_PUB.Add;
364: END IF;
365: raise FND_API.G_EXC_ERROR;
366: END IF;
367: -- Debug Message
368: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: - Close Cursor');
369:
371:
372:
373:
374: If (l_tar_rs_camp_rec.last_update_date is NULL or
375: l_tar_rs_camp_rec.last_update_date = FND_API.G_MISS_Date ) Then
376: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
377: THEN
378: FND_MESSAGE.Set_Name('AST', 'API_MISSING_ID');
379: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
378: FND_MESSAGE.Set_Name('AST', 'API_MISSING_ID');
379: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
380: FND_MSG_PUB.ADD;
381: END IF;
382: raise FND_API.G_EXC_ERROR;
383: End if;
384: -- Check Whether record has been changed by someone else
385: /* If (l_tar_rs_camp_rec.last_update_date <> l_ref_rs_camp_rec.last_update_date) Then
386: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
388: FND_MESSAGE.Set_Name('AST', 'API_RECORD_CHANGED');
389: FND_MESSAGE.Set_Token('INFO', 'rs_camp', FALSE);
390: FND_MSG_PUB.ADD;
391: END IF;
392: raise FND_API.G_EXC_ERROR;
393: End if;
394: */
395: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
396: THEN
391: END IF;
392: raise FND_API.G_EXC_ERROR;
393: End if;
394: */
395: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
396: THEN
397: -- Debug message
398: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Validate_rs_camp');
399:
399:
400:
401: -- Invoke validation procedures
402: Validate_rs_camp(
403: p_init_msg_list => FND_API.G_FALSE,
404: p_validation_level => p_validation_level,
405: p_validation_mode => JTF_PLSQL_API.G_UPDATE,
406: P_rs_camp_Rec => P_rs_camp_Rec,
407: x_return_status => x_return_status,
408: x_msg_count => x_msg_count,
409: x_msg_data => x_msg_data);
410: END IF;
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: -- Hint: Add corresponding Master-Detail business logic here if necessary.
409: x_msg_data => x_msg_data);
410: END IF;
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: -- Hint: Add corresponding Master-Detail business logic here if necessary.
417:
438: -- End of API body.
439: --
440:
441: -- Standard check for p_commit
442: IF FND_API.to_Boolean( p_commit )
443: THEN
444: COMMIT WORK;
445: END IF;
446:
459: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
460: THEN
461: AS_CALLOUT_PKG.Update_rs_camp_AU(
462: p_api_version_number => 1.0,
463: p_init_msg_list => FND_API.G_FALSE,
464: p_commit => FND_API.G_FALSE,
465: p_validation_level => p_validation_level,
466: p_identity_salesforce_id => p_identity_salesforce_id,
467: P_rs_camp_Rec => P_rs_camp_Rec,
460: THEN
461: AS_CALLOUT_PKG.Update_rs_camp_AU(
462: p_api_version_number => 1.0,
463: p_init_msg_list => FND_API.G_FALSE,
464: p_commit => FND_API.G_FALSE,
465: p_validation_level => p_validation_level,
466: p_identity_salesforce_id => p_identity_salesforce_id,
467: P_rs_camp_Rec => P_rs_camp_Rec,
468: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
471: x_msg_data => x_msg_data);
472: END IF;
473: */
474: EXCEPTION
475: WHEN FND_API.G_EXC_ERROR THEN
476: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
477: P_API_NAME => L_API_NAME
478: ,P_PKG_NAME => G_PKG_NAME
479: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
481: ,X_MSG_COUNT => X_MSG_COUNT
482: ,X_MSG_DATA => X_MSG_DATA
483: ,X_RETURN_STATUS => X_RETURN_STATUS);
484:
485: WHEN FND_API.G_EXC_UNEXPECTED_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_UNEXP_ERROR
507: -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
508: -- The Master delete procedure may not be needed depends on different business requirements.
509: PROCEDURE Delete_rs_camp(
510: P_Api_Version_Number IN NUMBER,
511: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
512: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
513: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
514: P_identity_salesforce_id IN NUMBER := NULL,
515: P_rs_camp_Rec IN rs_camp_Rec_Type,
508: -- The Master delete procedure may not be needed depends on different business requirements.
509: PROCEDURE Delete_rs_camp(
510: P_Api_Version_Number IN NUMBER,
511: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
512: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
513: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
514: P_identity_salesforce_id IN NUMBER := NULL,
515: P_rs_camp_Rec IN rs_camp_Rec_Type,
516: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
509: PROCEDURE Delete_rs_camp(
510: P_Api_Version_Number IN NUMBER,
511: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
512: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
513: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
514: P_identity_salesforce_id IN NUMBER := NULL,
515: P_rs_camp_Rec IN rs_camp_Rec_Type,
516: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
517: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
526: -- Standard Start of API savepoint
527: SAVEPOINT DELETE_rs_camp_PVT;
528:
529: -- Standard call to check for call compatibility.
530: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
531: p_api_version_number,
532: l_api_name,
533: G_PKG_NAME)
534: THEN
531: p_api_version_number,
532: l_api_name,
533: G_PKG_NAME)
534: THEN
535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
536: END IF;
537:
538:
539: -- Initialize message list if p_init_msg_list is set to TRUE.
536: END IF;
537:
538:
539: -- Initialize message list if p_init_msg_list is set to TRUE.
540: IF FND_API.to_Boolean( p_init_msg_list )
541: THEN
542: FND_MSG_PUB.initialize;
543: END IF;
544:
548:
549:
550:
551: -- Initialize API return status to SUCCESS
552: x_return_status := FND_API.G_RET_STS_SUCCESS;
553:
554: --
555: -- Api body
556: --
561: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
562: THEN
563: AS_CALLOUT_PKG.Delete_rs_camp_BD(
564: p_api_version_number => 1.0,
565: p_init_msg_list => FND_API.G_FALSE,
566: p_commit => FND_API.G_FALSE,
567: p_validation_level => p_validation_level,
568: p_identity_salesforce_id => p_identity_salesforce_id,
569: P_rs_camp_Rec => P_rs_camp_Rec,
562: THEN
563: AS_CALLOUT_PKG.Delete_rs_camp_BD(
564: p_api_version_number => 1.0,
565: p_init_msg_list => FND_API.G_FALSE,
566: p_commit => FND_API.G_FALSE,
567: p_validation_level => p_validation_level,
568: p_identity_salesforce_id => p_identity_salesforce_id,
569: P_rs_camp_Rec => P_rs_camp_Rec,
570: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
581: ,x_msg_count => x_msg_count
582: ,x_msg_data => x_msg_data
583: ,x_sales_member_rec => l_identity_sales_member_rec);
584:
585: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
586: RAISE FND_API.G_EXC_ERROR;
587: END IF;
588: */
589: -- Debug Message
582: ,x_msg_data => x_msg_data
583: ,x_sales_member_rec => l_identity_sales_member_rec);
584:
585: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
586: RAISE FND_API.G_EXC_ERROR;
587: END IF;
588: */
589: -- Debug Message
590: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Calling delete table handler');
597: -- End of API body
598: --
599:
600: -- Standard check for p_commit
601: IF FND_API.to_Boolean( p_commit )
602: THEN
603: COMMIT WORK;
604: END IF;
605:
622: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
623: THEN
624: AS_CALLOUT_PKG.Delete_rs_camp_AD(
625: p_api_version_number => 1.0,
626: p_init_msg_list => FND_API.G_FALSE,
627: p_commit => FND_API.G_FALSE,
628: p_validation_level => p_validation_level,
629: p_identity_salesforce_id => p_identity_salesforce_id,
630: P_rs_camp_Rec => P_rs_camp_Rec,
623: THEN
624: AS_CALLOUT_PKG.Delete_rs_camp_AD(
625: p_api_version_number => 1.0,
626: p_init_msg_list => FND_API.G_FALSE,
627: p_commit => FND_API.G_FALSE,
628: p_validation_level => p_validation_level,
629: p_identity_salesforce_id => p_identity_salesforce_id,
630: P_rs_camp_Rec => P_rs_camp_Rec,
631: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
634: x_msg_data => x_msg_data);
635: END IF;
636: */
637: EXCEPTION
638: WHEN FND_API.G_EXC_ERROR THEN
639: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
640: P_API_NAME => L_API_NAME
641: ,P_PKG_NAME => G_PKG_NAME
642: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
644: ,X_MSG_COUNT => X_MSG_COUNT
645: ,X_MSG_DATA => X_MSG_DATA
646: ,X_RETURN_STATUS => X_RETURN_STATUS);
647:
648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
649: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
650: P_API_NAME => L_API_NAME
651: ,P_PKG_NAME => G_PKG_NAME
652: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
742:
743:
744: JTF_PLSQL_API.Translate_OrderBy(
745: p_api_version_number => 1.0
746: ,p_init_msg_list => FND_API.G_FALSE
747: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
748: ,p_order_by_tbl => l_util_order_by_tbl
749: ,x_order_by_clause => l_order_by_cl
750: ,x_return_status => x_return_status
743:
744: JTF_PLSQL_API.Translate_OrderBy(
745: p_api_version_number => 1.0
746: ,p_init_msg_list => FND_API.G_FALSE
747: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
748: ,p_order_by_tbl => l_util_order_by_tbl
749: ,x_order_by_clause => l_order_by_cl
750: ,x_return_status => x_return_status
751: ,x_msg_count => x_msg_count
777:
778:
779: -- The following example applies to all columns,
780: -- developers can copy and paste them.
781: IF( (P_rs_camp_Rec.RS_CAMPAIGN_ID IS NOT NULL) AND (P_rs_camp_Rec.RS_CAMPAIGN_ID <> FND_API.G_MISS_NUM) )
782:
783: THEN
784: DBMS_SQL.BIND_VARIABLE(p_cur_get_rs_camp, ':p_RS_CAMPAIGN_ID', P_rs_camp_Rec.RS_CAMPAIGN_ID);
785:
846: -- NUMBER, DATE, VARCHAR2.
847: -- Developer can copy and paste the following codes for your own record.
848:
849: -- example for NUMBER datatype
850: IF( (P_rs_camp_Rec.RS_CAMPAIGN_ID IS NOT NULL) AND (P_rs_camp_Rec.RS_CAMPAIGN_ID <> FND_API.G_MISS_NUM) )
851:
852: THEN
853: IF(x_rs_camp_where IS NULL) THEN
854: x_rs_camp_where := 'Where';
858: x_rs_camp_where := x_rs_camp_where || 'P_rs_camp_Rec.RS_CAMPAIGN_ID = :p_RS_CAMPAIGN_ID';
859: END IF;
860:
861: -- example for DATE datatype
862: IF( (P_rs_camp_Rec.START_DATE IS NOT NULL) AND (P_rs_camp_Rec.START_DATE <> FND_API.G_MISS_DATE) )
863:
864: THEN
865: -- check if item value contains '%' wildcard
866: OPEN c_chk_str1(P_rs_camp_Rec.START_DATE);
893:
894: END IF;
895:
896: -- example for VARCHAR2 datatype
897: IF( (P_rs_camp_Rec.STATUS IS NOT NULL) AND (P_rs_camp_Rec.STATUS <> FND_API.G_MISS_CHAR) )
898: THEN
899: -- check if item value contains '%' wildcard
900: OPEN c_chk_str1(P_rs_camp_Rec.STATUS);
901: FETCH c_chk_str1 INTO str_csr1;
936: END Gen_rs_camp_Where;
937:
938: PROCEDURE Get_rs_camp(
939: P_Api_Version_Number IN NUMBER,
940: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
941: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
942: P_identity_salesforce_id IN NUMBER := NULL,
943: P_rs_camp_Rec IN AST_rs_camp_PUB.rs_camp_Rec_Type,
944: -- Hint: Add list of bind variables here
937:
938: PROCEDURE Get_rs_camp(
939: P_Api_Version_Number IN NUMBER,
940: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
941: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
942: P_identity_salesforce_id IN NUMBER := NULL,
943: P_rs_camp_Rec IN AST_rs_camp_PUB.rs_camp_Rec_Type,
944: -- Hint: Add list of bind variables here
945: p_rec_requested IN NUMBER := G_DEFAULT_NUM_REC_FETCH,
943: P_rs_camp_Rec IN AST_rs_camp_PUB.rs_camp_Rec_Type,
944: -- Hint: Add list of bind variables here
945: p_rec_requested IN NUMBER := G_DEFAULT_NUM_REC_FETCH,
946: p_start_rec_prt IN NUMBER := 1,
947: p_return_tot_count IN NUMBER := FND_API.G_FALSE,
948: -- Hint: user defined record type
949: p_order_by_rec IN AST_rs_camp_PUB.rs_camp_sort_rec_type,
950: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
951: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
996: -- Standard Start of API savepoint
997: SAVEPOINT GET_rs_camp_PVT;
998:
999: -- Standard call to check for call compatibility.
1000: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1001: p_api_version_number,
1002: l_api_name,
1003: G_PKG_NAME)
1004: THEN
1001: p_api_version_number,
1002: l_api_name,
1003: G_PKG_NAME)
1004: THEN
1005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1006: END IF;
1007:
1008:
1009: -- Initialize message list if p_init_msg_list is set to TRUE.
1006: END IF;
1007:
1008:
1009: -- Initialize message list if p_init_msg_list is set to TRUE.
1010: IF FND_API.to_Boolean( p_init_msg_list )
1011: THEN
1012: FND_MSG_PUB.initialize;
1013: END IF;
1014:
1018:
1019:
1020:
1021: -- Initialize API return status to SUCCESS
1022: x_return_status := FND_API.G_RET_STS_SUCCESS;
1023:
1024: --
1025: -- Api body
1026: --
1032: ,x_msg_count => x_msg_count
1033: ,x_msg_data => x_msg_data
1034: ,x_sales_member_rec => l_identity_sales_member_rec);*/
1035:
1036: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1037: RAISE FND_API.G_EXC_ERROR;
1038: END IF;
1039:
1040: -- *************************************************
1033: ,x_msg_data => x_msg_data
1034: ,x_sales_member_rec => l_identity_sales_member_rec);*/
1035:
1036: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1037: RAISE FND_API.G_EXC_ERROR;
1038: END IF;
1039:
1040: -- *************************************************
1041: -- Generate Dynamic SQL based on criteria passed in.
1137: LOOP
1138: -- 1. There are more rows in the cursor.
1139: -- 2. User does not care about total records, and we need to return more.
1140: -- 3. Or user cares about total number of records.
1141: IF((dbms_sql.fetch_rows(l_cur_get_rs_camp)>0) AND ((p_return_tot_count = FND_API.G_TRUE)
1142: OR (l_returned_rec_count
1144: -- Debug Message
1145: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: found');
1138: -- 1. There are more rows in the cursor.
1139: -- 2. User does not care about total records, and we need to return more.
1140: -- 3. Or user cares about total number of records.
1141: IF((dbms_sql.fetch_rows(l_cur_get_rs_camp)>0) AND ((p_return_tot_count = FND_API.G_TRUE)
1142: OR (l_returned_rec_count
1144: -- Debug Message
1145: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: found');
1146:
1187: p_data => x_msg_data
1188: );
1189:
1190: EXCEPTION
1191: WHEN FND_API.G_EXC_ERROR THEN
1192: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1193: P_API_NAME => L_API_NAME
1194: ,P_PKG_NAME => G_PKG_NAME
1195: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1197: ,X_MSG_COUNT => X_MSG_COUNT
1198: ,X_MSG_DATA => X_MSG_DATA
1199: ,X_RETURN_STATUS => X_RETURN_STATUS);
1200:
1201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1202: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1203: P_API_NAME => L_API_NAME
1204: ,P_PKG_NAME => G_PKG_NAME
1205: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1220: End Get_rs_camp;
1221:
1222: -- Item-level validation procedures
1223: PROCEDURE Validate_RS_CAMPAIGN_ID (
1224: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1225: P_Validation_mode IN VARCHAR2,
1226: P_RS_CAMPAIGN_ID IN NUMBER,
1227: -- Hint: You may add 'X_Item_Property_Rec OUT JTF_PLSQL_API.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1228:
1233: IS
1234: BEGIN
1235:
1236: -- Initialize message list if p_init_msg_list is set to TRUE.
1237: IF FND_API.to_Boolean( p_init_msg_list )
1238: THEN
1239: FND_MSG_PUB.initialize;
1240: END IF;
1241:
1240: END IF;
1241:
1242:
1243: -- Initialize API return status to SUCCESS
1244: x_return_status := FND_API.G_RET_STS_SUCCESS;
1245:
1246: -- validate NOT NULL column
1247: IF(p_RS_CAMPAIGN_ID is NULL)
1248: THEN
1247: IF(p_RS_CAMPAIGN_ID is NULL)
1248: THEN
1249: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'AST', 'Private rs_camp API: -Violate NOT NULL constraint(RS_CAMPAIGN_ID)');
1250:
1251: x_return_status := FND_API.G_RET_STS_ERROR;
1252: END IF;
1253:
1254: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1255: THEN
1255: THEN
1256: -- Hint: Validate data
1257: -- IF p_RS_CAMPAIGN_ID is not NULL and p_RS_CAMPAIGN_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: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1262: THEN
1263: -- Hint: Validate data
1262: THEN
1263: -- Hint: Validate data
1264: -- IF p_RS_CAMPAIGN_ID <> G_MISS_CHAR
1265: -- verify if data is valid
1266: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1267: NULL;
1268: END IF;
1269:
1270: -- Standard call to get message count and if count is 1, get message info.
1276: END Validate_RS_CAMPAIGN_ID;
1277:
1278:
1279: PROCEDURE Validate_RESOURCE_ID (
1280: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1281: P_Validation_mode IN VARCHAR2,
1282: P_RESOURCE_ID IN NUMBER,
1283: -- Hint: You may add 'X_Item_Property_Rec OUT JTF_PLSQL_API.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1284:
1289: IS
1290: BEGIN
1291:
1292: -- Initialize message list if p_init_msg_list is set to TRUE.
1293: IF FND_API.to_Boolean( p_init_msg_list )
1294: THEN
1295: FND_MSG_PUB.initialize;
1296: END IF;
1297:
1296: END IF;
1297:
1298:
1299: -- Initialize API return status to SUCCESS
1300: x_return_status := FND_API.G_RET_STS_SUCCESS;
1301:
1302: -- validate NOT NULL column
1303: IF(p_RESOURCE_ID is NULL)
1304: THEN
1303: IF(p_RESOURCE_ID is NULL)
1304: THEN
1305: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'AST', 'Private rs_camp API: -Violate NOT NULL constraint(RESOURCE_ID)');
1306:
1307: x_return_status := FND_API.G_RET_STS_ERROR;
1308: END IF;
1309:
1310: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1311: THEN
1311: THEN
1312: -- Hint: Validate data
1313: -- IF p_RESOURCE_ID is not NULL and p_RESOURCE_ID <> G_MISS_CHAR
1314: -- verify if data is valid
1315: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1316: NULL;
1317: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1318: THEN
1319: -- Hint: Validate data
1318: THEN
1319: -- Hint: Validate data
1320: -- IF p_RESOURCE_ID <> G_MISS_CHAR
1321: -- verify if data is valid
1322: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1323: NULL;
1324: END IF;
1325:
1326: -- Standard call to get message count and if count is 1, get message info.
1332: END Validate_RESOURCE_ID;
1333:
1334:
1335: PROCEDURE Validate_CAMPAIGN_ID (
1336: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1337: P_Validation_mode IN VARCHAR2,
1338: P_CAMPAIGN_ID IN NUMBER,
1339: -- Hint: You may add 'X_Item_Property_Rec OUT JTF_PLSQL_API.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1340:
1345: IS
1346: BEGIN
1347:
1348: -- Initialize message list if p_init_msg_list is set to TRUE.
1349: IF FND_API.to_Boolean( p_init_msg_list )
1350: THEN
1351: FND_MSG_PUB.initialize;
1352: END IF;
1353:
1352: END IF;
1353:
1354:
1355: -- Initialize API return status to SUCCESS
1356: x_return_status := FND_API.G_RET_STS_SUCCESS;
1357:
1358: -- validate NOT NULL column
1359: IF(p_CAMPAIGN_ID is NULL)
1360: THEN
1359: IF(p_CAMPAIGN_ID is NULL)
1360: THEN
1361: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'AST', 'Private rs_camp API: -Violate NOT NULL constraint(CAMPAIGN_ID)');
1362:
1363: x_return_status := FND_API.G_RET_STS_ERROR;
1364: END IF;
1365:
1366: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1367: THEN
1367: THEN
1368: -- Hint: Validate data
1369: -- IF p_CAMPAIGN_ID is not NULL and p_CAMPAIGN_ID <> G_MISS_CHAR
1370: -- verify if data is valid
1371: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1372: NULL;
1373: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1374: THEN
1375: -- Hint: Validate data
1374: THEN
1375: -- Hint: Validate data
1376: -- IF p_CAMPAIGN_ID <> G_MISS_CHAR
1377: -- verify if data is valid
1378: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1379: NULL;
1380: END IF;
1381:
1382: -- Standard call to get message count and if count is 1, get message info.
1388: END Validate_CAMPAIGN_ID;
1389:
1390:
1391: PROCEDURE Validate_START_DATE (
1392: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1393: P_Validation_mode IN VARCHAR2,
1394: P_START_DATE IN DATE,
1395: -- Hint: You may add 'X_Item_Property_Rec OUT JTF_PLSQL_API.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1396:
1401: IS
1402: BEGIN
1403:
1404: -- Initialize message list if p_init_msg_list is set to TRUE.
1405: IF FND_API.to_Boolean( p_init_msg_list )
1406: THEN
1407: FND_MSG_PUB.initialize;
1408: END IF;
1409:
1408: END IF;
1409:
1410:
1411: -- Initialize API return status to SUCCESS
1412: x_return_status := FND_API.G_RET_STS_SUCCESS;
1413:
1414: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1415: THEN
1416: -- Hint: Validate data
1415: THEN
1416: -- Hint: Validate data
1417: -- IF p_START_DATE is not NULL and p_START_DATE <> G_MISS_CHAR
1418: -- verify if data is valid
1419: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1420: NULL;
1421: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1422: THEN
1423: -- Hint: Validate data
1422: THEN
1423: -- Hint: Validate data
1424: -- IF p_START_DATE <> G_MISS_CHAR
1425: -- verify if data is valid
1426: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1427: NULL;
1428: END IF;
1429:
1430: -- Standard call to get message count and if count is 1, get message info.
1436: END Validate_START_DATE;
1437:
1438:
1439: PROCEDURE Validate_END_DATE (
1440: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1441: P_Validation_mode IN VARCHAR2,
1442: P_END_DATE IN DATE,
1443: -- Hint: You may add 'X_Item_Property_Rec OUT JTF_PLSQL_API.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1444:
1449: IS
1450: BEGIN
1451:
1452: -- Initialize message list if p_init_msg_list is set to TRUE.
1453: IF FND_API.to_Boolean( p_init_msg_list )
1454: THEN
1455: FND_MSG_PUB.initialize;
1456: END IF;
1457:
1456: END IF;
1457:
1458:
1459: -- Initialize API return status to SUCCESS
1460: x_return_status := FND_API.G_RET_STS_SUCCESS;
1461:
1462: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1463: THEN
1464: -- Hint: Validate data
1463: THEN
1464: -- Hint: Validate data
1465: -- IF p_END_DATE is not NULL and p_END_DATE <> G_MISS_CHAR
1466: -- verify if data is valid
1467: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1468: NULL;
1469: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1470: THEN
1471: -- Hint: Validate data
1470: THEN
1471: -- Hint: Validate data
1472: -- IF p_END_DATE <> G_MISS_CHAR
1473: -- verify if data is valid
1474: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1475: NULL;
1476: END IF;
1477:
1478: -- Standard call to get message count and if count is 1, get message info.
1484: END Validate_END_DATE;
1485:
1486:
1487: PROCEDURE Validate_STATUS (
1488: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1489: P_Validation_mode IN VARCHAR2,
1490: P_STATUS IN VARCHAR2,
1491: -- Hint: You may add 'X_Item_Property_Rec OUT JTF_PLSQL_API.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1492:
1497: IS
1498: BEGIN
1499:
1500: -- Initialize message list if p_init_msg_list is set to TRUE.
1501: IF FND_API.to_Boolean( p_init_msg_list )
1502: THEN
1503: FND_MSG_PUB.initialize;
1504: END IF;
1505:
1504: END IF;
1505:
1506:
1507: -- Initialize API return status to SUCCESS
1508: x_return_status := FND_API.G_RET_STS_SUCCESS;
1509:
1510: -- validate NOT NULL column
1511: IF(p_STATUS is NULL)
1512: THEN
1511: IF(p_STATUS is NULL)
1512: THEN
1513: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'AST', 'Private rs_camp API: -Violate NOT NULL constraint(STATUS)');
1514:
1515: x_return_status := FND_API.G_RET_STS_ERROR;
1516: END IF;
1517:
1518: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1519: THEN
1519: THEN
1520: -- Hint: Validate data
1521: -- IF p_STATUS is not NULL and p_STATUS <> G_MISS_CHAR
1522: -- verify if data is valid
1523: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1524: NULL;
1525: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1526: THEN
1527: -- Hint: Validate data
1526: THEN
1527: -- Hint: Validate data
1528: -- IF p_STATUS <> G_MISS_CHAR
1529: -- verify if data is valid
1530: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1531: NULL;
1532: END IF;
1533:
1534: -- Standard call to get message count and if count is 1, get message info.
1540: END Validate_STATUS;
1541:
1542:
1543: PROCEDURE Validate_ENABLED_FLAG (
1544: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1545: P_Validation_mode IN VARCHAR2,
1546: P_ENABLED_FLAG IN VARCHAR2,
1547: -- Hint: You may add 'X_Item_Property_Rec OUT JTF_PLSQL_API.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1548:
1553: IS
1554: BEGIN
1555:
1556: -- Initialize message list if p_init_msg_list is set to TRUE.
1557: IF FND_API.to_Boolean( p_init_msg_list )
1558: THEN
1559: FND_MSG_PUB.initialize;
1560: END IF;
1561:
1560: END IF;
1561:
1562:
1563: -- Initialize API return status to SUCCESS
1564: x_return_status := FND_API.G_RET_STS_SUCCESS;
1565:
1566: -- validate NOT NULL column
1567: IF(p_ENABLED_FLAG is NULL)
1568: THEN
1567: IF(p_ENABLED_FLAG is NULL)
1568: THEN
1569: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'AST', 'Private rs_camp API: -Violate NOT NULL constraint(ENABLED_FLAG)');
1570:
1571: x_return_status := FND_API.G_RET_STS_ERROR;
1572: END IF;
1573:
1574: IF(p_validation_mode = JTF_PLSQL_API.G_CREATE)
1575: THEN
1575: THEN
1576: -- Hint: Validate data
1577: -- IF p_ENABLED_FLAG is not NULL and p_ENABLED_FLAG <> G_MISS_CHAR
1578: -- verify if data is valid
1579: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1580: NULL;
1581: ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
1582: THEN
1583: -- Hint: Validate data
1582: THEN
1583: -- Hint: Validate data
1584: -- IF p_ENABLED_FLAG <> G_MISS_CHAR
1585: -- verify if data is valid
1586: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1587: NULL;
1588: END IF;
1589:
1590: -- Standard call to get message count and if count is 1, get message info.
1601: -- to get old values for all fields used in inter-field validation and set all G_MISS_XXX fields to original value
1602:
1603: -- stored in database table.
1604: PROCEDURE Validate_rs_camp_rec(
1605: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1606: P_Validation_mode IN VARCHAR2,
1607: P_rs_camp_Rec IN rs_camp_Rec_Type,
1608: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1609: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1612: IS
1613: BEGIN
1614:
1615: -- Initialize message list if p_init_msg_list is set to TRUE.
1616: IF FND_API.to_Boolean( p_init_msg_list )
1617: THEN
1618: FND_MSG_PUB.initialize;
1619: END IF;
1620:
1619: END IF;
1620:
1621:
1622: -- Initialize API return status to SUCCESS
1623: x_return_status := FND_API.G_RET_STS_SUCCESS;
1624:
1625: -- Hint: Validate data
1626: -- If data not valid
1627: -- THEN
1624:
1625: -- Hint: Validate data
1626: -- If data not valid
1627: -- THEN
1628: -- x_return_status := FND_API.G_RET_STS_ERROR;
1629:
1630: -- Debug Message
1631: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'API_INVALID_RECORD');
1632:
1638:
1639: END Validate_rs_camp_Rec;
1640:
1641: PROCEDURE Validate_rs_camp(
1642: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1643: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1644: P_Validation_mode IN VARCHAR2,
1645: P_rs_camp_Rec IN rs_camp_Rec_Type,
1646: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1639: END Validate_rs_camp_Rec;
1640:
1641: PROCEDURE Validate_rs_camp(
1642: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1643: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1644: P_Validation_mode IN VARCHAR2,
1645: P_rs_camp_Rec IN rs_camp_Rec_Type,
1646: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1647: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1656:
1657:
1658:
1659: -- Initialize API return status to SUCCESS
1660: x_return_status := FND_API.G_RET_STS_SUCCESS;
1661:
1662: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_ITEM) THEN
1663: -- Hint: We provide validation procedure for every column. Developer should delete
1664: -- unnecessary validation procedures.
1662: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_ITEM) THEN
1663: -- Hint: We provide validation procedure for every column. Developer should delete
1664: -- unnecessary validation procedures.
1665: Validate_RS_CAMPAIGN_ID(
1666: p_init_msg_list => FND_API.G_FALSE,
1667: p_validation_mode => p_validation_mode,
1668: p_RS_CAMPAIGN_ID => P_rs_camp_Rec.RS_CAMPAIGN_ID,
1669: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1670:
1670:
1671: x_return_status => x_return_status,
1672: x_msg_count => x_msg_count,
1673: x_msg_data => x_msg_data);
1674: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1675: raise FND_API.G_EXC_ERROR;
1676: END IF;
1677:
1678: Validate_RESOURCE_ID(
1671: x_return_status => x_return_status,
1672: x_msg_count => x_msg_count,
1673: x_msg_data => x_msg_data);
1674: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1675: raise FND_API.G_EXC_ERROR;
1676: END IF;
1677:
1678: Validate_RESOURCE_ID(
1679: p_init_msg_list => FND_API.G_FALSE,
1675: raise FND_API.G_EXC_ERROR;
1676: END IF;
1677:
1678: Validate_RESOURCE_ID(
1679: p_init_msg_list => FND_API.G_FALSE,
1680:
1681: p_validation_mode => p_validation_mode,
1682: p_RESOURCE_ID => P_rs_camp_Rec.RESOURCE_ID,
1683: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1684:
1685: x_return_status => x_return_status,
1686: x_msg_count => x_msg_count,
1687: x_msg_data => x_msg_data);
1688: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1689: raise FND_API.G_EXC_ERROR;
1690: END IF;
1691:
1692: Validate_CAMPAIGN_ID(
1685: x_return_status => x_return_status,
1686: x_msg_count => x_msg_count,
1687: x_msg_data => x_msg_data);
1688: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1689: raise FND_API.G_EXC_ERROR;
1690: END IF;
1691:
1692: Validate_CAMPAIGN_ID(
1693: p_init_msg_list => FND_API.G_FALSE,
1689: raise FND_API.G_EXC_ERROR;
1690: END IF;
1691:
1692: Validate_CAMPAIGN_ID(
1693: p_init_msg_list => FND_API.G_FALSE,
1694: p_validation_mode => p_validation_mode,
1695: p_CAMPAIGN_ID => P_rs_camp_Rec.CAMPAIGN_ID,
1696: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1697:
1697:
1698: x_return_status => x_return_status,
1699: x_msg_count => x_msg_count,
1700: x_msg_data => x_msg_data);
1701: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1702: raise FND_API.G_EXC_ERROR;
1703: END IF;
1704:
1705: Validate_START_DATE(
1698: x_return_status => x_return_status,
1699: x_msg_count => x_msg_count,
1700: x_msg_data => x_msg_data);
1701: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1702: raise FND_API.G_EXC_ERROR;
1703: END IF;
1704:
1705: Validate_START_DATE(
1706: p_init_msg_list => FND_API.G_FALSE,
1702: raise FND_API.G_EXC_ERROR;
1703: END IF;
1704:
1705: Validate_START_DATE(
1706: p_init_msg_list => FND_API.G_FALSE,
1707: p_validation_mode => p_validation_mode,
1708: p_START_DATE => P_rs_camp_Rec.START_DATE,
1709: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1710:
1710:
1711: x_return_status => x_return_status,
1712: x_msg_count => x_msg_count,
1713: x_msg_data => x_msg_data);
1714: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1715: raise FND_API.G_EXC_ERROR;
1716: END IF;
1717:
1718: Validate_END_DATE(
1711: x_return_status => x_return_status,
1712: x_msg_count => x_msg_count,
1713: x_msg_data => x_msg_data);
1714: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1715: raise FND_API.G_EXC_ERROR;
1716: END IF;
1717:
1718: Validate_END_DATE(
1719: p_init_msg_list => FND_API.G_FALSE,
1715: raise FND_API.G_EXC_ERROR;
1716: END IF;
1717:
1718: Validate_END_DATE(
1719: p_init_msg_list => FND_API.G_FALSE,
1720: p_validation_mode => p_validation_mode,
1721: p_END_DATE => P_rs_camp_Rec.END_DATE,
1722: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1723:
1723:
1724: x_return_status => x_return_status,
1725: x_msg_count => x_msg_count,
1726: x_msg_data => x_msg_data);
1727: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1728: raise FND_API.G_EXC_ERROR;
1729: END IF;
1730:
1731: Validate_STATUS(
1724: x_return_status => x_return_status,
1725: x_msg_count => x_msg_count,
1726: x_msg_data => x_msg_data);
1727: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1728: raise FND_API.G_EXC_ERROR;
1729: END IF;
1730:
1731: Validate_STATUS(
1732: p_init_msg_list => FND_API.G_FALSE,
1728: raise FND_API.G_EXC_ERROR;
1729: END IF;
1730:
1731: Validate_STATUS(
1732: p_init_msg_list => FND_API.G_FALSE,
1733: p_validation_mode => p_validation_mode,
1734: p_STATUS => P_rs_camp_Rec.STATUS,
1735: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1736:
1736:
1737: x_return_status => x_return_status,
1738: x_msg_count => x_msg_count,
1739: x_msg_data => x_msg_data);
1740: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1741: raise FND_API.G_EXC_ERROR;
1742: END IF;
1743:
1744: Validate_ENABLED_FLAG(
1737: x_return_status => x_return_status,
1738: x_msg_count => x_msg_count,
1739: x_msg_data => x_msg_data);
1740: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1741: raise FND_API.G_EXC_ERROR;
1742: END IF;
1743:
1744: Validate_ENABLED_FLAG(
1745: p_init_msg_list => FND_API.G_FALSE,
1741: raise FND_API.G_EXC_ERROR;
1742: END IF;
1743:
1744: Validate_ENABLED_FLAG(
1745: p_init_msg_list => FND_API.G_FALSE,
1746: p_validation_mode => p_validation_mode,
1747: p_ENABLED_FLAG => P_rs_camp_Rec.ENABLED_FLAG,
1748: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1749:
1749:
1750: x_return_status => x_return_status,
1751: x_msg_count => x_msg_count,
1752: x_msg_data => x_msg_data);
1753: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1754: raise FND_API.G_EXC_ERROR;
1755: END IF;
1756:
1757: END IF;
1750: x_return_status => x_return_status,
1751: x_msg_count => x_msg_count,
1752: x_msg_data => x_msg_data);
1753: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1754: raise FND_API.G_EXC_ERROR;
1755: END IF;
1756:
1757: END IF;
1758:
1759: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_RECORD) THEN
1760: -- Hint: Inter-field level validation can be added here
1761: -- invoke record level validation procedures
1762: Validate_rs_camp_Rec(
1763: p_init_msg_list => FND_API.G_FALSE,
1764: p_validation_mode => p_validation_mode,
1765: P_rs_camp_Rec => P_rs_camp_Rec,
1766: x_return_status => x_return_status,
1767: x_msg_count => x_msg_count,
1766: x_return_status => x_return_status,
1767: x_msg_count => x_msg_count,
1768: x_msg_data => x_msg_data);
1769:
1770: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1771: raise FND_API.G_EXC_ERROR;
1772: END IF;
1773: END IF;
1774:
1767: x_msg_count => x_msg_count,
1768: x_msg_data => x_msg_data);
1769:
1770: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1771: raise FND_API.G_EXC_ERROR;
1772: END IF;
1773: END IF;
1774:
1775: IF (p_validation_level >= JTF_PLSQL_API.G_VALID_LEVEL_INTER_RECORD) THEN