[Home] [Help]
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:
64: -- Debug Message
65: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'start');
61: FND_MSG_PUB.initialize;
62: END IF;
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: --
92: -- Validate Environment
93: -- ******************************************************************
94: IF FND_GLOBAL.User_Id IS NULL
95: THEN
96: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
97: THEN
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;
96: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
97: THEN
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:
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:
123:
124: -- Invoke validation procedures
125: Validate_rs_camp(
138:
139: -- Hint: Add corresponding Master-Detail business logic here if necessary.
140:
141: -- Debug Message
142: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Calling create table handler');
143:
144: -- Invoke table handler(AST_RS_CAMPAIGNS_PKG.Insert_Row)
145: AST_RS_CAMPAIGNS_PKG.Insert_Row(
146: px_RS_CAMPAIGN_ID => x_RS_CAMPAIGN_ID,
173: END IF;
174:
175:
176: -- Debug Message
177: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'end');
178:
179:
180: -- Standard call to get message count and if count is 1, get message info.
181: FND_MSG_PUB.Count_And_Get
177: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'end');
178:
179:
180: -- Standard call to get message count and if count is 1, get message info.
181: FND_MSG_PUB.Count_And_Get
182: ( p_count => x_msg_count,
183: p_data => x_msg_data
184: );
185:
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
210: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
211: ,X_MSG_COUNT => X_MSG_COUNT
212: ,X_MSG_DATA => X_MSG_DATA
213: ,X_RETURN_STATUS => X_RETURN_STATUS);
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
220: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
221: ,X_MSG_COUNT => X_MSG_COUNT
222: ,X_MSG_DATA => X_MSG_DATA
223: ,X_RETURN_STATUS => X_RETURN_STATUS);
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:
297:
298: -- Debug Message
295: END IF;
296:
297:
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:
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');
341: Open C_Get_rs_camp( l_tar_rs_camp_rec.RS_CAMPAIGN_ID);
342:
343: Fetch C_Get_rs_camp into
344: l_rowid,
355: l_ref_rs_camp_rec.LAST_UPDATE_DATE,
356: l_ref_rs_camp_rec.LAST_UPDATE_LOGIN;
357:
358: If ( C_Get_rs_camp%NOTFOUND) Then
359: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
360: THEN
361: FND_MESSAGE.Set_Name('AST', 'API_MISSING_UPDATE_TARGET');
362: FND_MESSAGE.Set_Token ('INFO', 'rs_camp', FALSE);
363: FND_MSG_PUB.Add;
359: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
360: THEN
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
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:
370: Close C_Get_rs_camp;
371:
372:
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);
380: FND_MSG_PUB.ADD;
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);
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
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)
387: THEN
388: FND_MESSAGE.Set_Name('AST', 'API_RECORD_CHANGED');
389: FND_MESSAGE.Set_Token('INFO', 'rs_camp', FALSE);
390: FND_MSG_PUB.ADD;
386: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
387: THEN
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: */
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:
400:
401: -- Invoke validation procedures
402: Validate_rs_camp(
415:
416: -- Hint: Add corresponding Master-Detail business logic here if necessary.
417:
418: -- Debug Message
419: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Calling update table handler');
420:
421:
422: -- Invoke table handler(AST_RS_CAMPAIGNS_PKG.Update_Row)
423: AST_RS_CAMPAIGNS_PKG.Update_Row(
444: COMMIT WORK;
445: END IF;
446:
447: -- Debug Message
448: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'end');
449: -- Standard call to get message count and if count is 1, get message info.
450: FND_MSG_PUB.Count_And_Get
451: ( p_count => x_msg_count,
452: p_data => x_msg_data
446:
447: -- Debug Message
448: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'end');
449: -- Standard call to get message count and if count is 1, get message info.
450: FND_MSG_PUB.Count_And_Get
451: ( p_count => x_msg_count,
452: p_data => x_msg_data
453: );
454:
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
480: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
481: ,X_MSG_COUNT => X_MSG_COUNT
482: ,X_MSG_DATA => X_MSG_DATA
483: ,X_RETURN_STATUS => X_RETURN_STATUS);
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
490: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
491: ,X_MSG_COUNT => X_MSG_COUNT
492: ,X_MSG_DATA => X_MSG_DATA
493: ,X_RETURN_STATUS => X_RETURN_STATUS);
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:
545:
546: -- Debug Message
543: END IF;
544:
545:
546: -- Debug Message
547: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'start');
548:
549:
550:
551: -- Initialize API return status to SUCCESS
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');
591:
592:
593: -- Invoke table handler(AST_RS_CAMPAIGNS_PKG.Delete_Row)
594: AST_RS_CAMPAIGNS_PKG.Delete_Row(
604: END IF;
605:
606:
607: -- Debug Message
608: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'end');
609:
610:
611:
612: -- Standard call to get message count and if count is 1, get message info.
609:
610:
611:
612: -- Standard call to get message count and if count is 1, get message info.
613: FND_MSG_PUB.Count_And_Get
614: ( p_count => x_msg_count,
615: p_data => x_msg_data
616: );
617:
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
643: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
644: ,X_MSG_COUNT => X_MSG_COUNT
645: ,X_MSG_DATA => X_MSG_DATA
646: ,X_RETURN_STATUS => X_RETURN_STATUS);
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
653: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
654: ,X_MSG_COUNT => X_MSG_COUNT
655: ,X_MSG_DATA => X_MSG_DATA
656: ,X_RETURN_STATUS => X_RETURN_STATUS);
674: )
675: IS
676: BEGIN
677: -- Debug Message
678: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Define Columns Begins');
679:
680:
681: -- define all columns for AST_TEST view
682: dbms_sql.define_column(p_cur_get_rs_camp, 1, P_rs_camp_Rec.RS_CAMPAIGN_ID);
687: dbms_sql.define_column(p_cur_get_rs_camp, 6, P_rs_camp_Rec.STATUS, 1);
688: dbms_sql.define_column(p_cur_get_rs_camp, 7, P_rs_camp_Rec.ENABLED_FLAG, 1);
689:
690: -- Debug Message
691: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Define Columns Ends');
692:
693: END Define_Columns;
694:
695: -- This procudure gets column values by the Dynamic SQL.
699: )
700: IS
701: BEGIN
702: -- Debug Message
703: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Get Column Values Begins');
704:
705:
706: -- get all column values for AST_TEST table
707: dbms_sql.column_value(p_cur_get_rs_camp, 1, X_rs_camp_Rec.RS_CAMPAIGN_ID);
712: dbms_sql.column_value(p_cur_get_rs_camp, 6, X_rs_camp_Rec.STATUS);
713: dbms_sql.column_value(p_cur_get_rs_camp, 7, X_rs_camp_Rec.ENABLED_FLAG);
714:
715: -- Debug Message
716: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Get Column Values Ends');
717:
718: END Get_Column_Values;
719:
720: PROCEDURE Gen_rs_camp_order_cl(
728: l_order_by_cl VARCHAR2(1000) := NULL;
729: l_util_order_by_tbl JTF_PLSQL_API.Util_order_by_tbl_type;
730: BEGIN
731: -- Debug Message
732: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Generate Order by Begins');
733:
734:
735: -- Hint: Developer should add more statements according to AST_sort_rec_type
736: -- Ex:
737: -- l_util_order_by_tbl(1).col_choice := p_order_by_rec.customer_name;
738: -- l_util_order_by_tbl(1).col_name := 'Customer_Name';
739:
740: -- Debug Message
741: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Invoke JTF_PLSQL_API.Translate_OrderBy');
742:
743:
744: JTF_PLSQL_API.Translate_OrderBy(
745: p_api_version_number => 1.0
757: x_order_by_cl := NULL;
758: END IF;
759:
760: -- Debug Message
761: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Generate Order by Ends');
762:
763: END Gen_rs_camp_order_cl;
764:
765: -- This procedure bind the variables for the Dynamic SQL
772: BEGIN
773: -- Bind variables
774: -- Only those that are not NULL
775: -- Debug Message
776: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Bind Variables Begins');
777:
778:
779: -- The following example applies to all columns,
780: -- developers can copy and paste them.
785:
786: END IF;
787:
788: -- Debug Message
789: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Bind Variables Ends');
790:
791: END Bind;
792:
793: PROCEDURE Gen_Select(
795: )
796: IS
797: BEGIN
798: -- Debug Message
799: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Generate Select Begins');
800:
801:
802: x_select_cl := 'Select ' ||
803: 'AST_TEST.RS_CAMPAIGN_ID,' ||
813: 'AST_TEST.LAST_UPDATE_DATE,' ||
814: 'AST_TEST.LAST_UPDATE_LOGIN,' ||
815: 'from AST_TEST';
816: -- Debug Message
817: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Generate Select Ends');
818:
819:
820: END Gen_Select;
821:
838: str_csr2 NUMBER;
839: l_operator VARCHAR2(10);
840: BEGIN
841: -- Debug Message
842: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Generate Where Begins');
843:
844:
845: -- There are three examples for each kind of datatype:
846: -- NUMBER, DATE, VARCHAR2.
929:
930: -- Add more IF statements for each column below
931:
932: -- Debug Message
933: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Generate Where Ends');
934:
935:
936: END Gen_rs_camp_Where;
937:
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:
1015:
1016: -- Debug Message
1013: END IF;
1014:
1015:
1016: -- Debug Message
1017: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'start');
1018:
1019:
1020:
1021: -- Initialize API return status to SUCCESS
1042: -- Doing this for performance. Indexes are disabled when using NVL within static SQL statement.
1043:
1044: -- Ignore condition when criteria is NULL
1045: -- Debug Message
1046: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Generating Dsql');
1047:
1048: -- Generate Select clause and From clause
1049: -- Hint: Developer should modify Gen_Select procedure.
1050: Gen_Select(l_select_cl);
1090:
1091:
1092:
1093: -- Debug Message
1094: JTF_PLSQL_API.Debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Open and Parse Cursor');
1095:
1096:
1097: l_cur_get_rs_camp := dbms_sql.open_cursor;
1098:
1119: Define_Columns(l_crit_rs_camp_rec, l_cur_get_rs_camp);
1120:
1121: -- Execute
1122: -- Debug Message
1123: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Execute Dsql');
1124:
1125:
1126: l_ignore := dbms_sql.execute(l_cur_get_rs_camp);
1127:
1125:
1126: l_ignore := dbms_sql.execute(l_cur_get_rs_camp);
1127:
1128: -- Debug Message
1129: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: Fetch Results');
1130:
1131:
1132: -- This loop is here to avoid calling a function in the main
1133: -- cursor. Basically, calling this function seems to disable
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:
1147:
1148:
1149: -- Hint: Developer need to implement this part
1176: -- End of API body
1177: --
1178:
1179: -- Debug Message
1180: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'end');
1181:
1182:
1183:
1184: -- Standard call to get message count and if count is 1, get message info.
1181:
1182:
1183:
1184: -- Standard call to get message count and if count is 1, get message info.
1185: FND_MSG_PUB.Count_And_Get
1186: ( p_count => x_msg_count,
1187: p_data => x_msg_data
1188: );
1189:
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
1196: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
1197: ,X_MSG_COUNT => X_MSG_COUNT
1198: ,X_MSG_DATA => X_MSG_DATA
1199: ,X_RETURN_STATUS => X_RETURN_STATUS);
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
1206: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
1207: ,X_MSG_COUNT => X_MSG_COUNT
1208: ,X_MSG_DATA => X_MSG_DATA
1209: ,X_RETURN_STATUS => X_RETURN_STATUS);
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:
1242:
1243: -- Initialize API return status to SUCCESS
1245:
1246: -- validate NOT NULL column
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:
1267: NULL;
1268: END IF;
1269:
1270: -- Standard call to get message count and if count is 1, get message info.
1271: FND_MSG_PUB.Count_And_Get
1272: ( p_count => x_msg_count,
1273: p_data => x_msg_data
1274: );
1275:
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:
1298:
1299: -- Initialize API return status to SUCCESS
1301:
1302: -- validate NOT NULL column
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:
1323: NULL;
1324: END IF;
1325:
1326: -- Standard call to get message count and if count is 1, get message info.
1327: FND_MSG_PUB.Count_And_Get
1328: ( p_count => x_msg_count,
1329: p_data => x_msg_data
1330: );
1331:
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:
1354:
1355: -- Initialize API return status to SUCCESS
1357:
1358: -- validate NOT NULL column
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:
1379: NULL;
1380: END IF;
1381:
1382: -- Standard call to get message count and if count is 1, get message info.
1383: FND_MSG_PUB.Count_And_Get
1384: ( p_count => x_msg_count,
1385: p_data => x_msg_data
1386: );
1387:
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:
1410:
1411: -- Initialize API return status to SUCCESS
1427: NULL;
1428: END IF;
1429:
1430: -- Standard call to get message count and if count is 1, get message info.
1431: FND_MSG_PUB.Count_And_Get
1432: ( p_count => x_msg_count,
1433: p_data => x_msg_data
1434: );
1435:
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:
1458:
1459: -- Initialize API return status to SUCCESS
1475: NULL;
1476: END IF;
1477:
1478: -- Standard call to get message count and if count is 1, get message info.
1479: FND_MSG_PUB.Count_And_Get
1480: ( p_count => x_msg_count,
1481: p_data => x_msg_data
1482: );
1483:
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:
1506:
1507: -- Initialize API return status to SUCCESS
1509:
1510: -- validate NOT NULL column
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:
1531: NULL;
1532: END IF;
1533:
1534: -- Standard call to get message count and if count is 1, get message info.
1535: FND_MSG_PUB.Count_And_Get
1536: ( p_count => x_msg_count,
1537: p_data => x_msg_data
1538: );
1539:
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:
1562:
1563: -- Initialize API return status to SUCCESS
1565:
1566: -- validate NOT NULL column
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:
1587: NULL;
1588: END IF;
1589:
1590: -- Standard call to get message count and if count is 1, get message info.
1591: FND_MSG_PUB.Count_And_Get
1592: ( p_count => x_msg_count,
1593: p_data => x_msg_data
1594: );
1595:
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:
1621:
1622: -- Initialize API return status to SUCCESS
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:
1633: -- Standard call to get message count and if count is 1, get message info.
1634: FND_MSG_PUB.Count_And_Get
1635: ( p_count => x_msg_count,
1630: -- Debug Message
1631: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'API_INVALID_RECORD');
1632:
1633: -- Standard call to get message count and if count is 1, get message info.
1634: FND_MSG_PUB.Count_And_Get
1635: ( p_count => x_msg_count,
1636: p_data => x_msg_data
1637: );
1638:
1651: l_api_name CONSTANT VARCHAR2(30) := 'Validate_rs_camp';
1652: BEGIN
1653:
1654: -- Debug Message
1655: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'start');
1656:
1657:
1658:
1659: -- Initialize API return status to SUCCESS
1783: END IF;
1784:
1785:
1786: -- Debug Message
1787: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'end');
1788:
1789:
1790: END Validate_rs_camp;
1791: