[Home] [Help]
58:
59: -- Initialize message list if p_init_msg_list is set to TRUE.
60: IF FND_API.to_Boolean( p_init_msg_list )
61: THEN
62: FND_MSG_PUB.initialize;
63: END IF;
64:
65:
66: -- Debug Message
63: END IF;
64:
65:
66: -- Debug Message
67: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: ' || l_api_name || 'start');
68:
69:
70: -- Initialize API return status to SUCCESS
71: x_return_status := FND_API.G_RET_STS_SUCCESS;
95: -- Validate Environment
96: -- ******************************************************************
97: IF FND_GLOBAL.User_Id IS NULL
98: THEN
99: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
100: THEN
101: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
102: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
103: FND_MSG_PUB.ADD;
99: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
100: THEN
101: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
102: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
103: FND_MSG_PUB.ADD;
104: END IF;
105: RAISE FND_API.G_EXC_ERROR;
106: END IF;
107:
121:
122: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
123: THEN
124: -- Debug message
125: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Validate_grp_camp');
126:
127: -- Invoke validation procedures
128: Validate_grp_camp(
129: p_init_msg_list => FND_API.G_FALSE,
141:
142: -- Hint: Add corresponding Master-Detail business logic here if necessary.
143:
144: -- Debug Message
145: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Calling create table handler');
146:
147: -- Invoke table handler(AST_GRP_CAMPAIGNS_PKG.Insert_Row)
148: AST_GRP_CAMPAIGNS_PKG.Insert_Row(
149: px_GROUP_CAMPAIGN_ID => x_GROUP_CAMPAIGN_ID,
175: END IF;
176:
177:
178: -- Debug Message
179: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: ' || l_api_name || 'end');
180:
181:
182: -- Standard call to get message count and if count is 1, get message info.
183: FND_MSG_PUB.Count_And_Get
179: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: ' || l_api_name || 'end');
180:
181:
182: -- Standard call to get message count and if count is 1, get message info.
183: FND_MSG_PUB.Count_And_Get
184: ( p_count => x_msg_count,
185: p_data => x_msg_data
186: );
187:
206: WHEN FND_API.G_EXC_ERROR THEN
207: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
208: P_API_NAME => L_API_NAME
209: ,P_PKG_NAME => G_PKG_NAME
210: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
211: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
212: ,X_MSG_COUNT => X_MSG_COUNT
213: ,X_MSG_DATA => X_MSG_DATA
214: ,X_RETURN_STATUS => X_RETURN_STATUS);
216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
217: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
218: P_API_NAME => L_API_NAME
219: ,P_PKG_NAME => G_PKG_NAME
220: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
221: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
222: ,X_MSG_COUNT => X_MSG_COUNT
223: ,X_MSG_DATA => X_MSG_DATA
224: ,X_RETURN_STATUS => X_RETURN_STATUS);
289:
290: -- Initialize message list if p_init_msg_list is set to TRUE.
291: IF FND_API.to_Boolean( p_init_msg_list )
292: THEN
293: FND_MSG_PUB.initialize;
294: END IF;
295:
296:
297: -- Debug Message
294: END IF;
295:
296:
297: -- Debug Message
298: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: ' || l_api_name || 'start');
299:
300:
301: -- Initialize API return status to SUCCESS
302: x_return_status := FND_API.G_RET_STS_SUCCESS;
335: RAISE FND_API.G_EXC_ERROR;
336: END IF;
337: */
338: -- Debug Message
339: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: - Open Cursor to Select');
340:
341:
342: Open C_Get_grp_camp( l_tar_grp_camp_rec.GROUP_CAMPAIGN_ID);
343:
355: l_ref_grp_camp_rec.CREATED_BY,
356: l_ref_grp_camp_rec.CREATION_DATE;
357:
358: If ( C_Get_grp_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', 'grp_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', 'grp_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: Close C_Get_grp_camp;
370:
371:
372:
371:
372:
373: If (l_tar_grp_camp_rec.last_update_date is NULL or
374: l_tar_grp_camp_rec.last_update_date = FND_API.G_MISS_Date ) Then
375: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
376: THEN
377: FND_MESSAGE.Set_Name('ast', 'API_MISSING_ID');
378: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
379: FND_MSG_PUB.ADD;
375: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
376: THEN
377: FND_MESSAGE.Set_Name('ast', 'API_MISSING_ID');
378: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
379: FND_MSG_PUB.ADD;
380: END IF;
381: raise FND_API.G_EXC_ERROR;
382: End if;
383: /* by jypark
382: End if;
383: /* by jypark
384: -- Check Whether record has been changed by someone else
385: If (l_tar_grp_camp_rec.last_update_date <> l_ref_grp_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', 'grp_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', 'grp_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_grp_camp');
399:
400: -- Invoke validation procedures
401: Validate_grp_camp(
402: p_init_msg_list => FND_API.G_FALSE,
414:
415: -- Hint: Add corresponding Master-Detail business logic here if necessary.
416:
417: -- Debug Message
418: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Calling update table handler');
419:
420: -- Invoke table handler(AST_GRP_CAMPAIGNS_PKG.Update_Row)
421: AST_GRP_CAMPAIGNS_PKG.Update_Row(
422: p_GROUP_CAMPAIGN_ID => p_grp_camp_rec.GROUP_CAMPAIGN_ID,
441: END IF;
442:
443:
444: -- Debug Message
445: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: ' || l_api_name || 'end');
446:
447:
448: -- Standard call to get message count and if count is 1, get message info.
449: FND_MSG_PUB.Count_And_Get
445: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: ' || l_api_name || 'end');
446:
447:
448: -- Standard call to get message count and if count is 1, get message info.
449: FND_MSG_PUB.Count_And_Get
450: ( p_count => x_msg_count,
451: p_data => x_msg_data
452: );
453:
473: WHEN FND_API.G_EXC_ERROR THEN
474: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
475: P_API_NAME => L_API_NAME
476: ,P_PKG_NAME => G_PKG_NAME
477: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
478: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
479: ,X_MSG_COUNT => X_MSG_COUNT
480: ,X_MSG_DATA => X_MSG_DATA
481: ,X_RETURN_STATUS => X_RETURN_STATUS);
483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
484: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
485: P_API_NAME => L_API_NAME
486: ,P_PKG_NAME => G_PKG_NAME
487: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
488: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
489: ,X_MSG_COUNT => X_MSG_COUNT
490: ,X_MSG_DATA => X_MSG_DATA
491: ,X_RETURN_STATUS => X_RETURN_STATUS);
536:
537: -- Initialize message list if p_init_msg_list is set to TRUE.
538: IF FND_API.to_Boolean( p_init_msg_list )
539: THEN
540: FND_MSG_PUB.initialize;
541: END IF;
542:
543:
544: -- Debug Message
541: END IF;
542:
543:
544: -- Debug Message
545: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: ' || l_api_name || 'start');
546:
547:
548: -- Initialize API return status to SUCCESS
549: x_return_status := FND_API.G_RET_STS_SUCCESS;
582: RAISE FND_API.G_EXC_ERROR;
583: END IF;
584: */
585: -- Debug Message
586: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Calling delete table handler');
587:
588:
589:
590: -- Invoke table handler(AST_GRP_CAMPAIGNS_PKG.Delete_Row)
601: END IF;
602:
603:
604: -- Debug Message
605: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: ' || l_api_name || 'end');
606:
607:
608: -- Standard call to get message count and if count is 1, get message info.
609: FND_MSG_PUB.Count_And_Get
605: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: ' || l_api_name || 'end');
606:
607:
608: -- Standard call to get message count and if count is 1, get message info.
609: FND_MSG_PUB.Count_And_Get
610: ( p_count => x_msg_count,
611: p_data => x_msg_data
612: );
613:
633: WHEN FND_API.G_EXC_ERROR THEN
634: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
635: P_API_NAME => L_API_NAME
636: ,P_PKG_NAME => G_PKG_NAME
637: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
638: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
639: ,X_MSG_COUNT => X_MSG_COUNT
640: ,X_MSG_DATA => X_MSG_DATA
641: ,X_RETURN_STATUS => X_RETURN_STATUS);
643: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
644: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
645: P_API_NAME => L_API_NAME
646: ,P_PKG_NAME => G_PKG_NAME
647: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
648: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
649: ,X_MSG_COUNT => X_MSG_COUNT
650: ,X_MSG_DATA => X_MSG_DATA
651: ,X_RETURN_STATUS => X_RETURN_STATUS);
669: )
670: IS
671: BEGIN
672: -- Debug Message
673: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Define Columns Begins');
674:
675: -- define all columns for AST_GRP_TEST view
676: dbms_sql.define_column(p_cur_get_grp_camp, 1, P_grp_camp_Rec.GROUP_CAMPAIGN_ID);
677: dbms_sql.define_column(p_cur_get_grp_camp, 2, P_grp_camp_Rec.GROUP_ID);
680: dbms_sql.define_column(p_cur_get_grp_camp, 5, P_grp_camp_Rec.END_DATE);
681: dbms_sql.define_column(p_cur_get_grp_camp, 6, P_grp_camp_Rec.ENABLED_FLAG, 1);
682:
683: -- Debug Message
684: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Define Columns Ends');
685: END Define_Columns;
686:
687: -- This procudure gets column values by the Dynamic SQL.
688: PROCEDURE Get_Column_Values(
691: )
692: IS
693: BEGIN
694: -- Debug Message
695: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Get Column Values Begins');
696:
697: -- get all column values for AST_GRP_TEST table
698: dbms_sql.column_value(p_cur_get_grp_camp, 1, X_grp_camp_Rec.GROUP_CAMPAIGN_ID);
699: dbms_sql.column_value(p_cur_get_grp_camp, 2, X_grp_camp_Rec.GROUP_ID);
702: dbms_sql.column_value(p_cur_get_grp_camp, 5, X_grp_camp_Rec.END_DATE);
703: dbms_sql.column_value(p_cur_get_grp_camp, 6, X_grp_camp_Rec.ENABLED_FLAG);
704:
705: -- Debug Message
706: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Get Column Values Ends');
707: END Get_Column_Values;
708:
709: PROCEDURE Gen_grp_camp_order_cl(
710: p_order_by_rec IN ast_grp_camp_PUB.grp_camp_sort_rec_type,
717: l_order_by_cl VARCHAR2(1000) := NULL;
718: l_util_order_by_tbl JTF_PLSQL_API.Util_order_by_tbl_type;
719: BEGIN
720: -- Debug Message
721: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Generate Order by Begins');
722:
723: -- Hint: Developer should add more statements according to ast_sort_rec_type
724: -- Ex:
725: -- l_util_order_by_tbl(1).col_choice := p_order_by_rec.customer_name;
725: -- l_util_order_by_tbl(1).col_choice := p_order_by_rec.customer_name;
726: -- l_util_order_by_tbl(1).col_name := 'Customer_Name';
727:
728: -- Debug Message
729: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Invoke JTF_PLSQL_API.Translate_OrderBy');
730:
731: JTF_PLSQL_API.Translate_OrderBy(
732: p_api_version_number => 1.0
733: ,p_init_msg_list => FND_API.G_FALSE
744: x_order_by_cl := NULL;
745: END IF;
746:
747: -- Debug Message
748: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Generate Order by Ends');
749: END Gen_grp_camp_order_cl;
750:
751: -- This procedure bind the variables for the Dynamic SQL
752: PROCEDURE Bind(
758: BEGIN
759: -- Bind variables
760: -- Only those that are not NULL
761: -- Debug Message
762: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Bind Variables Begins');
763:
764: -- The following example applies to all columns,
765: -- developers can copy and paste them.
766: IF( (P_grp_camp_Rec.GROUP_CAMPAIGN_ID IS NOT NULL) AND (P_grp_camp_Rec.GROUP_CAMPAIGN_ID <> FND_API.G_MISS_NUM) )
768: DBMS_SQL.BIND_VARIABLE(p_cur_get_grp_camp, ':p_GROUP_CAMPAIGN_ID', P_grp_camp_Rec.GROUP_CAMPAIGN_ID);
769: END IF;
770:
771: -- Debug Message
772: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Bind Variables Ends');
773: END Bind;
774:
775: PROCEDURE Gen_Select(
776: x_select_cl OUT VARCHAR2
777: )
778: IS
779: BEGIN
780: -- Debug Message
781: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Generate Select Begins');
782:
783: x_select_cl := 'Select ' ||
784: 'AST_GRP_TEST.GROUP_CAMPAIGN_ID,' ||
785: 'AST_GRP_TEST.GROUP_ID,' ||
793: 'AST_GRP_TEST.CREATED_BY,' ||
794: 'AST_GRP_TEST.CREATION_DATE,' ||
795: 'from AST_GRP_TEST';
796: -- Debug Message
797: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Generate Select Ends');
798:
799: END Gen_Select;
800:
801: PROCEDURE Gen_grp_camp_Where(
817: str_csr2 NUMBER;
818: l_operator VARCHAR2(10);
819: BEGIN
820: -- Debug Message
821: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Generate Where Begins');
822:
823: -- There are three examples for each kind of datatype:
824: -- NUMBER, DATE, VARCHAR2.
825: -- Developer can copy and paste the following codes for your own record.
903:
904: -- Add more IF statements for each column below
905:
906: -- Debug Message
907: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Generate Where Ends');
908:
909: END Gen_grp_camp_Where;
910:
911: PROCEDURE Get_grp_camp(
981:
982: -- Initialize message list if p_init_msg_list is set to TRUE.
983: IF FND_API.to_Boolean( p_init_msg_list )
984: THEN
985: FND_MSG_PUB.initialize;
986: END IF;
987:
988:
989: -- Debug Message
986: END IF;
987:
988:
989: -- Debug Message
990: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: ' || l_api_name || 'start');
991:
992:
993: -- Initialize API return status to SUCCESS
994: x_return_status := FND_API.G_RET_STS_SUCCESS;
1013: -- Generate Dynamic SQL based on criteria passed in.
1014: -- Doing this for performance. Indexes are disabled when using NVL within static SQL statement.
1015: -- Ignore condition when criteria is NULL
1016: -- Debug Message
1017: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Generating Dsql');
1018: -- Generate Select clause and From clause
1019: -- Hint: Developer should modify Gen_Select procedure.
1020: Gen_Select(l_select_cl);
1021:
1055: -- Generate order by clause
1056: Gen_grp_camp_order_cl(p_order_by_rec, l_order_by_cl, l_return_status, x_msg_count, x_msg_data);
1057:
1058: -- Debug Message
1059: JTF_PLSQL_API.Debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Open and Parse Cursor');
1060:
1061: l_cur_get_grp_camp := dbms_sql.open_cursor;
1062:
1063: -- Hint: concatenate all where clause (include flex field/line level if any applies)
1081: Define_Columns(l_crit_grp_camp_rec, l_cur_get_grp_camp);
1082:
1083: -- Execute
1084: -- Debug Message
1085: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Execute Dsql');
1086:
1087: l_ignore := dbms_sql.execute(l_cur_get_grp_camp);
1088:
1089: -- Debug Message
1086:
1087: l_ignore := dbms_sql.execute(l_cur_get_grp_camp);
1088:
1089: -- Debug Message
1090: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: Fetch Results');
1091:
1092: -- This loop is here to avoid calling a function in the main
1093: -- cursor. Basically, calling this function seems to disable
1094: -- index, but verification is needed. This is a good
1101: IF((dbms_sql.fetch_rows(l_cur_get_grp_camp)>0) AND ((p_return_tot_count = FND_API.G_TRUE)
1102: OR (l_returned_rec_count
1104: -- Debug Message
1105: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: found');
1106:
1107: -- Hint: Developer need to implement this part
1108: -- dbms_sql.column_value(l_cur_get_opp, 1, l_opp_rec.lead_id);
1109: -- dbms_sql.column_value(l_cur_get_opp, 7, l_opp_rec.customer_id);
1133: -- End of API body
1134: --
1135:
1136: -- Debug Message
1137: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: ' || l_api_name || 'end');
1138:
1139:
1140: -- Standard call to get message count and if count is 1, get message info.
1141: FND_MSG_PUB.Count_And_Get
1137: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: ' || l_api_name || 'end');
1138:
1139:
1140: -- Standard call to get message count and if count is 1, get message info.
1141: FND_MSG_PUB.Count_And_Get
1142: ( p_count => x_msg_count,
1143: p_data => x_msg_data
1144: );
1145:
1147: WHEN FND_API.G_EXC_ERROR THEN
1148: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1149: P_API_NAME => L_API_NAME
1150: ,P_PKG_NAME => G_PKG_NAME
1151: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1152: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
1153: ,X_MSG_COUNT => X_MSG_COUNT
1154: ,X_MSG_DATA => X_MSG_DATA
1155: ,X_RETURN_STATUS => X_RETURN_STATUS);
1157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1158: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1159: P_API_NAME => L_API_NAME
1160: ,P_PKG_NAME => G_PKG_NAME
1161: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1162: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
1163: ,X_MSG_COUNT => X_MSG_COUNT
1164: ,X_MSG_DATA => X_MSG_DATA
1165: ,X_RETURN_STATUS => X_RETURN_STATUS);
1192:
1193: -- Initialize message list if p_init_msg_list is set to TRUE.
1194: IF FND_API.to_Boolean( p_init_msg_list )
1195: THEN
1196: FND_MSG_PUB.initialize;
1197: END IF;
1198:
1199:
1200: -- Initialize API return status to SUCCESS
1202:
1203: -- validate NOT NULL column
1204: IF(p_GROUP_CAMPAIGN_ID is NULL)
1205: THEN
1206: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'ast', 'Private grp_camp API: -Violate NOT NULL constraint(GROUP_CAMPAIGN_ID)');
1207:
1208: x_return_status := FND_API.G_RET_STS_ERROR;
1209: END IF;
1210:
1224: NULL;
1225: END IF;
1226:
1227: -- Standard call to get message count and if count is 1, get message info.
1228: FND_MSG_PUB.Count_And_Get
1229: ( p_count => x_msg_count,
1230: p_data => x_msg_data
1231: );
1232:
1248:
1249: -- Initialize message list if p_init_msg_list is set to TRUE.
1250: IF FND_API.to_Boolean( p_init_msg_list )
1251: THEN
1252: FND_MSG_PUB.initialize;
1253: END IF;
1254:
1255:
1256: -- Initialize API return status to SUCCESS
1258:
1259: -- validate NOT NULL column
1260: IF(p_GROUP_ID is NULL)
1261: THEN
1262: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'ast', 'Private grp_camp API: -Violate NOT NULL constraint(GROUP_ID)');
1263:
1264: x_return_status := FND_API.G_RET_STS_ERROR;
1265: END IF;
1266:
1280: NULL;
1281: END IF;
1282:
1283: -- Standard call to get message count and if count is 1, get message info.
1284: FND_MSG_PUB.Count_And_Get
1285: ( p_count => x_msg_count,
1286: p_data => x_msg_data
1287: );
1288:
1304:
1305: -- Initialize message list if p_init_msg_list is set to TRUE.
1306: IF FND_API.to_Boolean( p_init_msg_list )
1307: THEN
1308: FND_MSG_PUB.initialize;
1309: END IF;
1310:
1311:
1312: -- Initialize API return status to SUCCESS
1314:
1315: -- validate NOT NULL column
1316: IF(p_CAMPAIGN_ID is NULL)
1317: THEN
1318: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'ast', 'Private grp_camp API: -Violate NOT NULL constraint(CAMPAIGN_ID)');
1319:
1320: x_return_status := FND_API.G_RET_STS_ERROR;
1321: END IF;
1322:
1336: NULL;
1337: END IF;
1338:
1339: -- Standard call to get message count and if count is 1, get message info.
1340: FND_MSG_PUB.Count_And_Get
1341: ( p_count => x_msg_count,
1342: p_data => x_msg_data
1343: );
1344:
1360:
1361: -- Initialize message list if p_init_msg_list is set to TRUE.
1362: IF FND_API.to_Boolean( p_init_msg_list )
1363: THEN
1364: FND_MSG_PUB.initialize;
1365: END IF;
1366:
1367:
1368: -- Initialize API return status to SUCCESS
1384: NULL;
1385: END IF;
1386:
1387: -- Standard call to get message count and if count is 1, get message info.
1388: FND_MSG_PUB.Count_And_Get
1389: ( p_count => x_msg_count,
1390: p_data => x_msg_data
1391: );
1392:
1408:
1409: -- Initialize message list if p_init_msg_list is set to TRUE.
1410: IF FND_API.to_Boolean( p_init_msg_list )
1411: THEN
1412: FND_MSG_PUB.initialize;
1413: END IF;
1414:
1415:
1416: -- Initialize API return status to SUCCESS
1432: NULL;
1433: END IF;
1434:
1435: -- Standard call to get message count and if count is 1, get message info.
1436: FND_MSG_PUB.Count_And_Get
1437: ( p_count => x_msg_count,
1438: p_data => x_msg_data
1439: );
1440:
1456:
1457: -- Initialize message list if p_init_msg_list is set to TRUE.
1458: IF FND_API.to_Boolean( p_init_msg_list )
1459: THEN
1460: FND_MSG_PUB.initialize;
1461: END IF;
1462:
1463:
1464: -- Initialize API return status to SUCCESS
1466:
1467: -- validate NOT NULL column
1468: IF(p_ENABLED_FLAG is NULL)
1469: THEN
1470: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR, 'ast', 'Private grp_camp API: -Violate NOT NULL constraint(ENABLED_FLAG)');
1471:
1472: x_return_status := FND_API.G_RET_STS_ERROR;
1473: END IF;
1474:
1488: NULL;
1489: END IF;
1490:
1491: -- Standard call to get message count and if count is 1, get message info.
1492: FND_MSG_PUB.Count_And_Get
1493: ( p_count => x_msg_count,
1494: p_data => x_msg_data
1495: );
1496:
1516:
1517: -- Initialize message list if p_init_msg_list is set to TRUE.
1518: IF FND_API.to_Boolean( p_init_msg_list )
1519: THEN
1520: FND_MSG_PUB.initialize;
1521: END IF;
1522:
1523:
1524: -- Initialize API return status to SUCCESS
1529: -- THEN
1530: -- x_return_status := FND_API.G_RET_STS_ERROR;
1531:
1532: -- Debug Message
1533: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'API_INVALID_RECORD');
1534:
1535: -- Standard call to get message count and if count is 1, get message info.
1536: FND_MSG_PUB.Count_And_Get
1537: ( p_count => x_msg_count,
1532: -- Debug Message
1533: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'API_INVALID_RECORD');
1534:
1535: -- Standard call to get message count and if count is 1, get message info.
1536: FND_MSG_PUB.Count_And_Get
1537: ( p_count => x_msg_count,
1538: p_data => x_msg_data
1539: );
1540:
1553: l_api_name CONSTANT VARCHAR2(30) := 'Validate_grp_camp';
1554: BEGIN
1555:
1556: -- Debug Message
1557: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: ' || l_api_name || 'start');
1558:
1559:
1560: -- Initialize API return status to SUCCESS
1561: x_return_status := FND_API.G_RET_STS_SUCCESS;
1670: END IF;
1671:
1672:
1673: -- Debug Message
1674: JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'ast', 'Private API: ' || l_api_name || 'end');
1675:
1676: END Validate_grp_camp;
1677: End ast_grp_camp_PVT;