11: l_config_type bsc_kpis_b.config_type%TYPE;
12:
13: BEGIN
14:
15: l_sim_flag := FND_API.G_FALSE;
16: IF(p_region_code IS NOT NULL) THEN
17: SELECT config_type
18: INTO l_config_type
19: FROM bsc_kpis_b
19: FROM bsc_kpis_b
20: WHERE short_name =p_region_code;
21:
22: IF(l_config_type = 7) THEN
23: l_sim_flag := FND_API.G_TRUE;
24: END IF;
25: END IF;
26:
27: RETURN l_sim_flag;
27: RETURN l_sim_flag;
28:
29: EXCEPTION
30: WHEN OTHERS THEN
31: RETURN FND_API.G_FALSE;
32: END Is_Simulation_Report;
33:
34:
35:
60: x_string VARCHAR2(30);
61: x_char VARCHAR2(1);
62: BEGIN
63:
64: x_return_status := FND_API.G_RET_STS_SUCCESS;
65: IF p_short_name IS NULL THEN
66: RETURN;
67: END IF;
68:
69: -- user entered short_name, use appropriate length check
70: IF length(p_short_name) > BIS_UTIL.G_SHORT_NAME_LEN THEN
71: FND_MESSAGE.Set_Name('BIS','BIS_SHORT_NAME_LEN');
72: fnd_msg_pub.add;
73: RAISE FND_API.G_EXC_ERROR;
74: END IF;
75:
76: -- character checking
77: --
82: -- first character should be an alphabet
83: IF (INSTR('ABCDEFGHIJKLMNOPQRSTUVWXYZ', x_char) < 1) THEN
84: FND_MESSAGE.Set_Name('BIS','BIS_SHORT_NAME_INVALID_CHAR');
85: fnd_msg_pub.add;
86: RAISE FND_API.G_EXC_ERROR;
87: END IF;
88: ELSE
89: -- check all other characters
90: IF (INSTR('ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_$#', x_char) < 1) THEN
89: -- check all other characters
90: IF (INSTR('ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_$#', x_char) < 1) THEN
91: FND_MESSAGE.Set_Name('BIS','BIS_SHORT_NAME_INVALID_CHAR');
92: fnd_msg_pub.add;
93: RAISE FND_API.G_EXC_ERROR;
94: END IF;
95: END IF;
96: END LOOP;
97:
97:
98:
99: EXCEPTION
100:
101: WHEN FND_API.G_EXC_ERROR THEN
102:
103: x_return_status := FND_API.G_RET_STS_ERROR;
104: -- Get message count and data
105: FND_MSG_PUB.Count_And_Get
99: EXCEPTION
100:
101: WHEN FND_API.G_EXC_ERROR THEN
102:
103: x_return_status := FND_API.G_RET_STS_ERROR;
104: -- Get message count and data
105: FND_MSG_PUB.Count_And_Get
106: ( p_count => x_msg_count
107: , p_data => x_msg_data
106: ( p_count => x_msg_count
107: , p_data => x_msg_data
108: );
109:
110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
111:
112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
113:
114: -- Get message count and data
108: );
109:
110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
111:
112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
113:
114: -- Get message count and data
115:
116: FND_MSG_PUB.Count_And_Get
119: );
120:
121: WHEN OTHERS THEN
122:
123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
124:
125: FND_MSG_PUB.Add_Exc_Msg
126: ( G_PKG_NAME
127: , 'Validate_Short_Name'
159: l_count NUMBER := 0;
160:
161: BEGIN
162:
163: x_return_status := FND_API.G_RET_STS_SUCCESS;
164:
165: FOR i IN 1..p_BIS_Report_Tbl.Count LOOP
166:
167: BIS_UTIL.Build_Report_URL
202:
203:
204: EXCEPTION
205: WHEN OTHERS THEN
206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
207:
208: END Start_Workflow;
209:
210: -- For 11.5.1 Corrective actions with Oracle Reports
247: );
248:
249: EXCEPTION
250: WHEN OTHERS THEN
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252:
253: END Start_Workflow;
254:
255: -- For 11.5 Corrective actions with Oracle Reports
284: IS
285: l_url_tbl BIS_UTIL.Report_URL_Tbl_Type;
286:
287: BEGIN
288: x_return_status := FND_API.G_RET_STS_SUCCESS;
289:
290: -- 11.5 only excepted up to 4 report URLs
291: --
292: BIS_UTIL.Build_Report_URL
338: );
339:
340: EXCEPTION
341: WHEN OTHERS THEN
342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
343:
344: END Strt_WF_Process;
345:
346:
368: IS
369: l_item_type Varchar2(30) := 'BISKPIWF';
370:
371: Begin
372: x_return_status := FND_API.G_RET_STS_SUCCESS;
373:
374: Strt_Wf_Process
375: (p_exception_message => p_exception_message
376: ,p_msg_subject => p_msg_subject
398: );
399:
400: EXCEPTION
401: WHEN OTHERS THEN
402: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
403:
404: END strt_wf_process;
405:
406: PROCEDURE Get_Time_Level_Value
424:
425: EXCEPTION
426:
427: WHEN OTHERS THEN
428: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
429:
430: END Get_Time_Level_Value;
431:
432:
450: l_num_rows INTEGER;
451: l_Is_OrgRel BOOLEAN;
452:
453: BEGIN
454: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
455:
456: SELECT lt.short_name
457: , lo.short_name
458: , lt.LEVEL_VALUES_VIEW_NAME
579: -- No such time period exist.
580: DBMS_SQL.CLOSE_CURSOR(l_cursor);
581:
582: x_Time_Level_Value := NULL;
583: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
584:
585: WHEN TOO_MANY_ROWS THEN
586:
587: -- More than one row, but still get the first record
597: );
598: x_Time_Level_Value := l_period_set_name||'+'||l_period_name;
599:
600: DBMS_SQL.CLOSE_CURSOR(l_cursor);
601: x_Return_Status := FND_API.G_RET_STS_ERROR;
602:
603: WHEN OTHERS THEN
604: DBMS_SQL.CLOSE_CURSOR(l_cursor);
605: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
601: x_Return_Status := FND_API.G_RET_STS_ERROR;
602:
603: WHEN OTHERS THEN
604: DBMS_SQL.CLOSE_CURSOR(l_cursor);
605: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
606:
607: END Get_Time_Level_Value;
608:
609: Procedure Get_EPS
692: where name = p_notify_resp_name;
693:
694: BEGIN
695:
696: x_return_status := FND_API.G_RET_STS_SUCCESS;
697:
698: -- Validate item type and process
699: --
700: IF p_item_type IS NULL
698: -- Validate item type and process
699: --
700: IF p_item_type IS NULL
701: OR p_wf_process IS NULL THEN
702: x_return_status := FND_API.G_RET_STS_ERROR;
703: RETURN;
704: END IF;
705:
706: -- Validate wf_role
707: --
708: OPEN c_role_name;
709: FETCH c_role_name INTO l_role_name;
710: IF c_role_name%NOTFOUND THEN
711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
712: RETURN;
713: END IF;
714:
715: SELECT bis_excpt_wf_s.nextval
786: commit;
787:
788: EXCEPTION
789: WHEN OTHERS THEN
790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
791:
792: END Start_Workflow_Engine;
793:
794:
825: l_report_link VARCHAR2(32000) := NULL;
826:
827: BEGIN
828:
829: x_return_status := FND_API.G_RET_STS_SUCCESS;
830: l_report_link := FND_PROFILE.value('ICX_REPORT_LINK');
831:
832: IF p_report_type = BIS_UTIL.G_BIS_REPORT_TYPE THEN
833:
831:
832: IF p_report_type = BIS_UTIL.G_BIS_REPORT_TYPE THEN
833:
834: IF p_report_params IS NOT NULL OR
835: p_report_params <> FND_API.G_MISS_CHAR THEN
836: l_report_url := l_report_link||
837: 'BISVIEWER3.ShowReport?'||
838: 'pRegionCode='|| p_region_code ||
839: '&pFunctionName='|| p_reportFN_name ||
852: x_report_url := l_report_url;
853:
854: EXCEPTION
855: WHEN OTHERS THEN
856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
857:
858: END Build_Report_URL;
859:
860:
877: l_report_url VARCHAR2(32000);
878:
879: BEGIN
880:
881: x_return_status := FND_API.G_RET_STS_SUCCESS;
882: IF p_report_type = BIS_UTIL.G_BIS_CACHE_REPORT_TYPE THEN
883:
884: l_report_url := 'BIS_CACHING_PVT.Display_Cache?'||
885: 'p_identifier='||p_report_identifier;
889: x_report_url := l_report_url;
890:
891: EXCEPTION
892: WHEN OTHERS THEN
893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
894:
895: END Build_Report_URL;
896:
897: -- For 11.5.1 Oracle Reports
913: l_report_link VARCHAR2(32000) := NULL;
914:
915: BEGIN
916:
917: x_return_status := FND_API.G_RET_STS_SUCCESS;
918: l_report_link := FND_PROFILE.value('ICX_REPORT_LINK');
919:
920: IF p_report_type = BIS_UTIL.G_ORACLE_REPORT_TYPE
921: AND p_report_name IS NOT NULL
921: AND p_report_name IS NOT NULL
922: THEN
923:
924: IF p_report_params IS NOT NULL OR
925: p_report_params <> FND_API.G_MISS_CHAR THEN
926:
927: l_report_url := l_report_link
928: || 'OracleOASIS.RunReport?report='|| p_report_name
929: || '¶meters=' || p_report_params
928: || 'OracleOASIS.RunReport?report='|| p_report_name
929: || '¶meters=' || p_report_params
930: || '&responsibility_id=' || p_report_resp_id;
931:
932: IF (BIS_UTILITIES_PVT.Value_Not_Missing_Not_Null(p_report_app_id) = FND_API.G_TRUE) THEN
933: l_report_url := l_report_url || '&responsibility_application_id=' || p_report_app_id;
934: END IF;
935:
936: ELSE
938: l_report_url := l_report_link
939: || 'OracleOASIS.RunReport?report='|| p_report_name
940: || '&responsibility_id=' || p_report_resp_id;
941:
942: IF (BIS_UTILITIES_PVT.Value_Not_Missing_Not_Null(p_report_app_id) = FND_API.G_TRUE) THEN
943: l_report_url := l_report_url || '&responsibility_application_id=' || p_report_app_id;
944: END IF;
945:
946: END IF;
950:
951:
952: EXCEPTION
953: WHEN OTHERS THEN
954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
955: END Build_Report_URL;
956:
957: -- ankgoel: bug#4015335 - Returns 1 for Internal customers who will be shown all
958: -- the application ids. Returns 0 for External customers.
1119: IS
1120: BEGIN
1121:
1122: IF ( (p_owner = 'ORACLE') AND (p_last_update_date IS NULL) ) THEN
1123: RAISE FND_API.G_EXC_ERROR;
1124: END IF;
1125:
1126: x_file_last_update_date := NVL(to_date(p_last_update_date, 'YYYY/MM/DD'), SYSDATE);
1127:
1127:
1128:
1129: EXCEPTION
1130:
1131: WHEN FND_API.G_EXC_ERROR THEN
1132: IF (x_msg_data IS NOT NULL) THEN
1133: x_msg_data := x_msg_data ||' Upload failed: OWNER=''ORACLE'' and Last_Update_Date is missing.';
1134: ELSE
1135: x_msg_data := 'Upload failed: OWNER=''ORACLE'' and Last_Update_Date is missing.';
1134: ELSE
1135: x_msg_data := 'Upload failed: OWNER=''ORACLE'' and Last_Update_Date is missing.';
1136: END IF;
1137:
1138: x_return_status := FND_API.G_RET_STS_ERROR;
1139: RAISE;
1140:
1141: WHEN OTHERS THEN
1142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: x_return_status := FND_API.G_RET_STS_ERROR;
1139: RAISE;
1140:
1141: WHEN OTHERS THEN
1142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1143: IF (x_msg_data IS NOT NULL) THEN
1144: x_msg_data := x_msg_data ||' -> BIS_UTIL.Get_Update_Date_For_Owner ';
1145: ELSE
1146: x_msg_data := SQLERRM ||' at BIS_UTIL.Get_Update_Date_For_Owner ';
1226: --IF(x_ret_code = FALSE) THEN
1227: --FND_MESSAGE.SET_NAME('BIS','BIS_DIM_UPLOAD_TEST_FAILED');
1228: --FND_MESSAGE.SET_TOKEN('SHORT_NAME', p_key_value);
1229: --FND_MSG_PUB.ADD;
1230: --RAISE FND_API.G_EXC_ERROR;
1231: --END IF;
1232:
1233: EXCEPTION
1234:
1231: --END IF;
1232:
1233: EXCEPTION
1234:
1235: --WHEN FND_API.G_EXC_ERROR THEN
1236: --x_return_status := FND_API.G_RET_STS_ERROR ;
1237: --IF(x_msg_data IS NULL) THEN
1238: --FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
1239: --,p_count => l_msg_count
1232:
1233: EXCEPTION
1234:
1235: --WHEN FND_API.G_EXC_ERROR THEN
1236: --x_return_status := FND_API.G_RET_STS_ERROR ;
1237: --IF(x_msg_data IS NULL) THEN
1238: --FND_MSG_PUB.Count_And_Get( p_encoded => 'F'
1239: --,p_count => l_msg_count
1240: --,p_data => x_msg_data);
1241: --END IF;
1242: --RAISE;
1243:
1244: WHEN OTHERS THEN
1245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1246: IF (x_msg_data IS NOT NULL) THEN
1247: x_msg_data := x_msg_data ||' -> BIS_UTIL.Validate_For_Update ';
1248: ELSE
1249: x_msg_data := SQLERRM ||' at BIS_UTIL.Validate_For_Update ';
1253: END Validate_For_Update;
1254:
1255: FUNCTION get_dim_objects_by_dim
1256: ( p_dimension IN VARCHAR2
1257: , p_allow_all IN VARCHAR2 := FND_API.G_FALSE --Added for bug 5250723
1258: , p_append_short_names IN VARCHAR2 := FND_API.G_TRUE
1259: ) RETURN VARCHAR2
1260: IS
1261: l_dim_object_names VARCHAR2(2000);
1254:
1255: FUNCTION get_dim_objects_by_dim
1256: ( p_dimension IN VARCHAR2
1257: , p_allow_all IN VARCHAR2 := FND_API.G_FALSE --Added for bug 5250723
1258: , p_append_short_names IN VARCHAR2 := FND_API.G_TRUE
1259: ) RETURN VARCHAR2
1260: IS
1261: l_dim_object_names VARCHAR2(2000);
1262: l_dim_object_sht_names VARCHAR2(2000);
1280: OR ((bis_dim.short_name = ''TIME'') AND (bis_lvl.short_name IN (''FII_TIME_DAY'',''FII_TIME_WEEK'',''FII_TIME_ENT_PERIOD'',''FII_TIME_ENT_QTR'',''FII_TIME_ENT_YEAR''))))';
1281:
1282: BEGIN
1283:
1284: IF(p_allow_all = FND_API.G_FALSE) THEN
1285: l_dim_objects_sql := l_dim_objects_sql || l_where_clause;
1286: END IF;
1287:
1288: OPEN c_dim_object_rec FOR l_dim_objects_sql USING p_dimension;
1299: END LOOP;
1300: CLOSE c_dim_object_rec;
1301:
1302: IF ((l_dim_object_names IS NOT NULL) AND (l_dim_object_sht_names IS NOT NULL)) THEN
1303: IF(p_append_short_names = FND_API.G_TRUE) THEN
1304: RETURN l_dim_object_names || '^' || l_dim_object_sht_names;
1305: ELSE
1306: RETURN l_dim_object_names;
1307: END IF;
1382: , p_Obj_Type => 'PAGE'
1383: , x_Return_Status => x_Return_Status
1384: , x_Msg_Data => x_Msg_Data
1385: );
1386: IF ((x_Return_Status IS NOT NULL) AND (x_Return_Status <> FND_API.G_RET_STS_SUCCESS)) THEN
1387: FND_MSG_PUB.Initialize;
1388: FND_MESSAGE.SET_NAME('BIS', x_Msg_Data);
1389: FND_MSG_PUB.ADD;
1390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1386: IF ((x_Return_Status IS NOT NULL) AND (x_Return_Status <> FND_API.G_RET_STS_SUCCESS)) THEN
1387: FND_MSG_PUB.Initialize;
1388: FND_MESSAGE.SET_NAME('BIS', x_Msg_Data);
1389: FND_MSG_PUB.ADD;
1390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1391: END IF;
1392: IF(l_parent_obj_table.COUNT > 0) THEN
1393: l_pages_found := TRUE;
1394: FOR i IN 0..l_Parent_Obj_Table.COUNT-1 LOOP
1403:
1404: RETURN l_msg;
1405:
1406: EXCEPTION
1407: WHEN FND_API.G_EXC_ERROR THEN
1408: IF (x_Msg_Data IS NULL) THEN
1409: FND_MSG_PUB.Count_And_Get
1410: ( p_encoded => FND_API.G_FALSE
1411: , p_count => x_Msg_Count
1406: EXCEPTION
1407: WHEN FND_API.G_EXC_ERROR THEN
1408: IF (x_Msg_Data IS NULL) THEN
1409: FND_MSG_PUB.Count_And_Get
1410: ( p_encoded => FND_API.G_FALSE
1411: , p_count => x_Msg_Count
1412: , p_data => x_Msg_Data
1413: );
1414: END IF;
1411: , p_count => x_Msg_Count
1412: , p_data => x_Msg_Data
1413: );
1414: END IF;
1415: x_Return_Status := FND_API.G_RET_STS_ERROR;
1416: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1417: IF (x_Msg_Data IS NULL) THEN
1418: FND_MSG_PUB.Count_And_Get
1419: ( p_encoded => FND_API.G_FALSE
1412: , p_data => x_Msg_Data
1413: );
1414: END IF;
1415: x_Return_Status := FND_API.G_RET_STS_ERROR;
1416: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1417: IF (x_Msg_Data IS NULL) THEN
1418: FND_MSG_PUB.Count_And_Get
1419: ( p_encoded => FND_API.G_FALSE
1420: , p_count => x_Msg_Count
1415: x_Return_Status := FND_API.G_RET_STS_ERROR;
1416: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1417: IF (x_Msg_Data IS NULL) THEN
1418: FND_MSG_PUB.Count_And_Get
1419: ( p_encoded => FND_API.G_FALSE
1420: , p_count => x_Msg_Count
1421: , p_data => x_Msg_Data
1422: );
1423: END IF;
1420: , p_count => x_Msg_Count
1421: , p_data => x_Msg_Data
1422: );
1423: END IF;
1424: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1425: WHEN OTHERS THEN
1426: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1427: IF (x_Msg_Data IS NOT NULL) THEN
1428: x_Msg_Data := x_msg_data||' -> BIS_UTIL.get_Pages_Using_ParamPortlet';
1422: );
1423: END IF;
1424: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1425: WHEN OTHERS THEN
1426: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1427: IF (x_Msg_Data IS NOT NULL) THEN
1428: x_Msg_Data := x_msg_data||' -> BIS_UTIL.get_Pages_Using_ParamPortlet';
1429: ELSE
1430: x_Msg_Data := SQLERRM||' at BIS_UTIL.get_Pages_Using_ParamPortlet';
1627: , p_Obj_Type => p_parent_object_type
1628: , x_return_status => x_return_status
1629: , x_msg_data => x_msg_data
1630: );
1631: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1632: FND_MSG_PUB.Initialize;
1633: FND_MESSAGE.SET_NAME('BIS', x_msg_data);
1634: FND_MSG_PUB.ADD;
1635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1631: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1632: FND_MSG_PUB.Initialize;
1633: FND_MESSAGE.SET_NAME('BIS', x_msg_data);
1634: FND_MSG_PUB.ADD;
1635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1636: END IF;
1637:
1638: IF(l_parent_obj_table.COUNT > 0) THEN
1639: FOR i IN 0..l_parent_obj_table.COUNT - 1 LOOP
1655: END LOOP;
1656: END IF;
1657:
1658: EXCEPTION
1659: WHEN FND_API.G_EXC_ERROR THEN
1660: IF (x_msg_data IS NULL) THEN
1661: FND_MSG_PUB.Count_And_Get
1662: ( p_encoded => FND_API.G_FALSE
1663: , p_count => x_msg_count
1658: EXCEPTION
1659: WHEN FND_API.G_EXC_ERROR THEN
1660: IF (x_msg_data IS NULL) THEN
1661: FND_MSG_PUB.Count_And_Get
1662: ( p_encoded => FND_API.G_FALSE
1663: , p_count => x_msg_count
1664: , p_data => x_msg_data
1665: );
1666: END IF;
1663: , p_count => x_msg_count
1664: , p_data => x_msg_data
1665: );
1666: END IF;
1667: x_return_status := FND_API.G_RET_STS_ERROR;
1668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1669: IF (x_msg_data IS NULL) THEN
1670: FND_MSG_PUB.Count_And_Get
1671: ( p_encoded => FND_API.G_FALSE
1664: , p_data => x_msg_data
1665: );
1666: END IF;
1667: x_return_status := FND_API.G_RET_STS_ERROR;
1668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1669: IF (x_msg_data IS NULL) THEN
1670: FND_MSG_PUB.Count_And_Get
1671: ( p_encoded => FND_API.G_FALSE
1672: , p_count => x_msg_count
1667: x_return_status := FND_API.G_RET_STS_ERROR;
1668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1669: IF (x_msg_data IS NULL) THEN
1670: FND_MSG_PUB.Count_And_Get
1671: ( p_encoded => FND_API.G_FALSE
1672: , p_count => x_msg_count
1673: , p_data => x_msg_data
1674: );
1675: END IF;
1672: , p_count => x_msg_count
1673: , p_data => x_msg_data
1674: );
1675: END IF;
1676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1677: WHEN OTHERS THEN
1678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1679: IF (x_msg_data IS NOT NULL) THEN
1680: x_msg_data := x_msg_data || ' -> BIS_UTIL.get_parent_objects';
1674: );
1675: END IF;
1676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1677: WHEN OTHERS THEN
1678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1679: IF (x_msg_data IS NOT NULL) THEN
1680: x_msg_data := x_msg_data || ' -> BIS_UTIL.get_parent_objects';
1681: ELSE
1682: x_msg_data := SQLERRM || ' at BIS_UTIL.get_parent_objects';
1752: AND b.att_name = 'user:akAttribute1' AND b.att_value = p_portlet_func_name);
1753:
1754: BEGIN
1755: l_par_obj_count := 0;
1756: x_return_status := FND_API.G_RET_STS_SUCCESS;
1757: x_parent_obj_exist := FND_API.G_FALSE;
1758:
1759: FOR cd_par_obj IN c_par_objs LOOP
1760: IF (l_par_obj_count = 0) THEN
1753:
1754: BEGIN
1755: l_par_obj_count := 0;
1756: x_return_status := FND_API.G_RET_STS_SUCCESS;
1757: x_parent_obj_exist := FND_API.G_FALSE;
1758:
1759: FOR cd_par_obj IN c_par_objs LOOP
1760: IF (l_par_obj_count = 0) THEN
1761: l_par_obj_list := cd_par_obj.att_value;
1766: END LOOP;
1767:
1768: IF (l_par_obj_count > 0) THEN
1769: x_parent_obj_list := l_par_obj_list;
1770: x_parent_obj_exist := FND_API.G_TRUE;
1771: END IF;
1772:
1773: EXCEPTION
1774: WHEN FND_API.G_EXC_ERROR THEN
1770: x_parent_obj_exist := FND_API.G_TRUE;
1771: END IF;
1772:
1773: EXCEPTION
1774: WHEN FND_API.G_EXC_ERROR THEN
1775: IF (x_msg_data IS NULL) THEN
1776: FND_MSG_PUB.Count_And_Get
1777: ( p_encoded => FND_API.G_FALSE
1778: ,p_count => x_msg_count
1773: EXCEPTION
1774: WHEN FND_API.G_EXC_ERROR THEN
1775: IF (x_msg_data IS NULL) THEN
1776: FND_MSG_PUB.Count_And_Get
1777: ( p_encoded => FND_API.G_FALSE
1778: ,p_count => x_msg_count
1779: ,p_data => x_msg_data
1780: );
1781: END IF;
1778: ,p_count => x_msg_count
1779: ,p_data => x_msg_data
1780: );
1781: END IF;
1782: x_return_status := FND_API.G_RET_STS_ERROR;
1783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1784: IF (x_msg_data IS NULL) THEN
1785: FND_MSG_PUB.Count_And_Get
1786: ( p_encoded => FND_API.G_FALSE
1779: ,p_data => x_msg_data
1780: );
1781: END IF;
1782: x_return_status := FND_API.G_RET_STS_ERROR;
1783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1784: IF (x_msg_data IS NULL) THEN
1785: FND_MSG_PUB.Count_And_Get
1786: ( p_encoded => FND_API.G_FALSE
1787: ,p_count => x_msg_count
1782: x_return_status := FND_API.G_RET_STS_ERROR;
1783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1784: IF (x_msg_data IS NULL) THEN
1785: FND_MSG_PUB.Count_And_Get
1786: ( p_encoded => FND_API.G_FALSE
1787: ,p_count => x_msg_count
1788: ,p_data => x_msg_data
1789: );
1790: END IF;
1787: ,p_count => x_msg_count
1788: ,p_data => x_msg_data
1789: );
1790: END IF;
1791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1792: WHEN OTHERS THEN
1793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1794: IF (x_msg_data IS NOT NULL) THEN
1795: x_msg_data := x_msg_data||' -> Check_Portlet_Dependency ';
1789: );
1790: END IF;
1791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1792: WHEN OTHERS THEN
1793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1794: IF (x_msg_data IS NOT NULL) THEN
1795: x_msg_data := x_msg_data||' -> Check_Portlet_Dependency ';
1796: ELSE
1797: x_msg_data := SQLERRM||' at Check_Portlet_Dependency ';
1799:
1800: END Check_Portlet_Dependency;
1801:
1802: /* procedure to check dependency for objects like Graph, Custom View, etc
1803: Return the full list of dependency if p_list_dependency = FND_API.G_TRUE
1804: */
1805:
1806: PROCEDURE Check_Object_Dependency(
1807: p_param_search_string IN VARCHAR2
1828: FROM fnd_form_functions_vl
1829: WHERE parameters like p_param_search_string;
1830:
1831: Begin
1832: x_return_status := FND_API.G_RET_STS_SUCCESS;
1833: x_exist_dependency := FND_API.G_FALSE;
1834:
1835: FOR cd_portlet IN c_portlets LOOP
1836: l_portlet_name := cd_portlet.user_function_name;
1829: WHERE parameters like p_param_search_string;
1830:
1831: Begin
1832: x_return_status := FND_API.G_RET_STS_SUCCESS;
1833: x_exist_dependency := FND_API.G_FALSE;
1834:
1835: FOR cd_portlet IN c_portlets LOOP
1836: l_portlet_name := cd_portlet.user_function_name;
1837: l_portlet_func_name := cd_portlet.function_name;
1843: x_return_status => l_return_status,
1844: x_msg_count => l_msg_count,
1845: x_msg_data => l_msg_data);
1846:
1847: IF ((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1848: FND_MSG_PUB.Initialize;
1849: FND_MESSAGE.SET_NAME('BIS',l_msg_data);
1850: FND_MSG_PUB.ADD;
1851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1847: IF ((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1848: FND_MSG_PUB.Initialize;
1849: FND_MESSAGE.SET_NAME('BIS',l_msg_data);
1850: FND_MSG_PUB.ADD;
1851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1852: END IF;
1853:
1854: IF (l_exist_dependency = FND_API.G_TRUE) THEN
1855: FND_MESSAGE.SET_NAME('BIS','BIS_DEPENDENCY_PAIR_MSG');
1850: FND_MSG_PUB.ADD;
1851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1852: END IF;
1853:
1854: IF (l_exist_dependency = FND_API.G_TRUE) THEN
1855: FND_MESSAGE.SET_NAME('BIS','BIS_DEPENDENCY_PAIR_MSG');
1856: FND_MESSAGE.SET_TOKEN('CHILD_NAME',l_portlet_name);
1857: FND_MESSAGE.SET_TOKEN('PARENT_NAMES',l_temp_list);
1858: --l_dep_obj_message := FND_MESSAGE.GET;
1856: FND_MESSAGE.SET_TOKEN('CHILD_NAME',l_portlet_name);
1857: FND_MESSAGE.SET_TOKEN('PARENT_NAMES',l_temp_list);
1858: --l_dep_obj_message := FND_MESSAGE.GET;
1859: l_dep_obj_list := l_dep_obj_list || '
1859: l_dep_obj_list := l_dep_obj_list || '
1866:
1867: x_dep_obj_list := l_dep_obj_list;
1868:
1869: EXCEPTION
1870: WHEN FND_API.G_EXC_ERROR THEN
1871: IF (x_msg_data IS NULL) THEN
1872: FND_MSG_PUB.Count_And_Get
1873: ( p_encoded => FND_API.G_FALSE
1874: ,p_count => x_msg_count
1869: EXCEPTION
1870: WHEN FND_API.G_EXC_ERROR THEN
1871: IF (x_msg_data IS NULL) THEN
1872: FND_MSG_PUB.Count_And_Get
1873: ( p_encoded => FND_API.G_FALSE
1874: ,p_count => x_msg_count
1875: ,p_data => x_msg_data
1876: );
1877: END IF;
1874: ,p_count => x_msg_count
1875: ,p_data => x_msg_data
1876: );
1877: END IF;
1878: x_return_status := FND_API.G_RET_STS_ERROR;
1879: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1880: IF (x_msg_data IS NULL) THEN
1881: FND_MSG_PUB.Count_And_Get
1882: ( p_encoded => FND_API.G_FALSE
1875: ,p_data => x_msg_data
1876: );
1877: END IF;
1878: x_return_status := FND_API.G_RET_STS_ERROR;
1879: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1880: IF (x_msg_data IS NULL) THEN
1881: FND_MSG_PUB.Count_And_Get
1882: ( p_encoded => FND_API.G_FALSE
1883: ,p_count => x_msg_count
1878: x_return_status := FND_API.G_RET_STS_ERROR;
1879: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1880: IF (x_msg_data IS NULL) THEN
1881: FND_MSG_PUB.Count_And_Get
1882: ( p_encoded => FND_API.G_FALSE
1883: ,p_count => x_msg_count
1884: ,p_data => x_msg_data
1885: );
1886: END IF;
1883: ,p_count => x_msg_count
1884: ,p_data => x_msg_data
1885: );
1886: END IF;
1887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1888: WHEN OTHERS THEN
1889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1890: IF (x_msg_data IS NOT NULL) THEN
1891: x_msg_data := x_msg_data||' -> Check_Object_Dependency ';
1885: );
1886: END IF;
1887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1888: WHEN OTHERS THEN
1889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1890: IF (x_msg_data IS NOT NULL) THEN
1891: x_msg_data := x_msg_data||' -> Check_Object_Dependency ';
1892: ELSE
1893: x_msg_data := SQLERRM||' at Check_Object_Dependency ';
2384:
2385: l_invalid := is_dim_plus_dimlevel_invalid(p_dim_plus_dimlevel => l_dim_plus_dimlevel);
2386:
2387:
2388: IF ( l_invalid = FND_API.G_TRUE ) THEN
2389:
2390: IF (l_inv_comma_sep_dim_dimlevel IS NULL) THEN
2391: l_inv_comma_sep_dim_dimlevel := l_dim_plus_dimlevel;
2392: ELSE
2401:
2402: l_invalid := is_dim_plus_dimlevel_invalid(p_dim_plus_dimlevel => l_comma_sep_dim_dimlevel);
2403:
2404:
2405: IF ( l_invalid = FND_API.G_TRUE ) THEN
2406:
2407: IF (l_inv_comma_sep_dim_dimlevel IS NULL) THEN
2408: l_inv_comma_sep_dim_dimlevel := l_comma_sep_dim_dimlevel;
2409: ELSE
2482:
2483:
2484: IF (l_num > 0) THEN
2485: CLOSE c_dim_plus_dimlevel_rel_cursor;
2486: RETURN FND_API.G_FALSE;
2487: END IF;
2488:
2489: ELSE
2490:
2488:
2489: ELSE
2490:
2491: CLOSE c_dim_plus_dimlevel_rel_cursor;
2492: RETURN FND_API.G_TRUE;
2493:
2494: END IF;
2495:
2496:
2496:
2497:
2498: END IF;
2499:
2500: RETURN FND_API.G_FALSE;
2501:
2502: EXCEPTION
2503: WHEN OTHERS THEN
2504: IF (c_dim_plus_dimlevel_rel_cursor%ISOPEN) THEN
2503: WHEN OTHERS THEN
2504: IF (c_dim_plus_dimlevel_rel_cursor%ISOPEN) THEN
2505: CLOSE c_dim_plus_dimlevel_rel_cursor;
2506: END IF;
2507: RETURN FND_API.G_FALSE;
2508:
2509: END is_dim_plus_dimlevel_invalid;
2510:
2511: /*
2612: , x_msg_count => x_msg_count
2613: , x_msg_data => x_msg_data );
2614: END IF;
2615:
2616: x_return_status := FND_API.G_RET_STS_SUCCESS;
2617:
2618: EXCEPTION
2619: WHEN FND_API.G_EXC_ERROR THEN
2620: x_return_status := FND_API.G_RET_STS_ERROR;
2615:
2616: x_return_status := FND_API.G_RET_STS_SUCCESS;
2617:
2618: EXCEPTION
2619: WHEN FND_API.G_EXC_ERROR THEN
2620: x_return_status := FND_API.G_RET_STS_ERROR;
2621: FND_MSG_PUB.count_and_get ( p_count => x_msg_count, p_data => x_msg_data);
2622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2616: x_return_status := FND_API.G_RET_STS_SUCCESS;
2617:
2618: EXCEPTION
2619: WHEN FND_API.G_EXC_ERROR THEN
2620: x_return_status := FND_API.G_RET_STS_ERROR;
2621: FND_MSG_PUB.count_and_get ( p_count => x_msg_count, p_data => x_msg_data);
2622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2624: FND_MSG_PUB.count_and_get ( p_count => x_msg_count, p_data => x_msg_data);
2618: EXCEPTION
2619: WHEN FND_API.G_EXC_ERROR THEN
2620: x_return_status := FND_API.G_RET_STS_ERROR;
2621: FND_MSG_PUB.count_and_get ( p_count => x_msg_count, p_data => x_msg_data);
2622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2624: FND_MSG_PUB.count_and_get ( p_count => x_msg_count, p_data => x_msg_data);
2625: WHEN OTHERS THEN
2626: IF (x_prev_asofdate IS NULL or (LENGTH(x_prev_asofdate) = 0)) THEN
2619: WHEN FND_API.G_EXC_ERROR THEN
2620: x_return_status := FND_API.G_RET_STS_ERROR;
2621: FND_MSG_PUB.count_and_get ( p_count => x_msg_count, p_data => x_msg_data);
2622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2624: FND_MSG_PUB.count_and_get ( p_count => x_msg_count, p_data => x_msg_data);
2625: WHEN OTHERS THEN
2626: IF (x_prev_asofdate IS NULL or (LENGTH(x_prev_asofdate) = 0)) THEN
2627: BIS_PMV_TIME_LEVELS_PVT.get_bis_common_start_date
2691: WHERE attribute2 = p_measure_short_name
2692: AND attribute1 IN ('MEASURE_NOTARGET', 'MEASURE')
2693: AND NOT(region_code = p_current_region_code AND region_application_id = p_current_region_appid)
2694: AND NVL(BIS_REPORT_PUB.getRegionDataSourceType(p_current_region_code),' ') <> 'MULTIPLE_DATA_SOURCE'
2695: AND BIS_UTIL.Is_Simulation_Report(region_code) <> FND_API.G_TRUE
2696: AND rownum < 2 ;
2697:
2698: CURSOR c_compare_to_col(p_region_code VARCHAR2, p_region_appid NUMBER, p_measure_attrcode VARCHAR2) IS
2699: SELECT attribute_code, attribute_application_id