[Home] [Help]
392: from fnd_responsibility e,
393: FND_USER_RESP_GROUPS d,
394: FND_FORM_FUNCTIONS a,
395: FND_MENU_ENTRIES_VL c,
396: ICX_PAGE_PLUGS b
397: where b.PAGE_ID = l_page_id
398: and b.MENU_ID = c.MENU_ID
399: and b.ENTRY_SEQUENCE = c.ENTRY_SEQUENCE
400: and c.FUNCTION_ID = a.FUNCTION_ID
411: b.RESPONSIBILITY_APPLICATION_ID,b.SECURITY_GROUP_ID,
412: b.MENU_ID,b.ENTRY_SEQUENCE,nvl(b.DISPLAY_NAME,a.USER_FUNCTION_NAME) prompt,
413: a.DESCRIPTION
414: from FND_FORM_FUNCTIONS_VL a,
415: ICX_PAGE_PLUGS b
416: where b.PAGE_ID = l_page_id
417: and b.MENU_ID = -1
418: and b.ENTRY_SEQUENCE = a.FUNCTION_ID
419: and a.type in ('WWL','WWLG')
427: from fnd_responsibility e,
428: FND_USER_RESP_GROUPS d,
429: FND_FORM_FUNCTIONS a,
430: FND_MENU_ENTRIES_VL c,
431: ICX_PAGE_PLUGS b
432: where b.PAGE_ID = l_page_id
433: and b.MENU_ID = c.MENU_ID
434: and b.ENTRY_SEQUENCE = c.ENTRY_SEQUENCE
435: and c.FUNCTION_ID = a.FUNCTION_ID
1028: l_background varchar2(30);
1029:
1030: cursor plugs is
1031: select *
1032: from ICX_PAGE_PLUGS
1033: where PAGE_ID = l_page_id;
1034:
1035: begin
1036:
1076: if l_responsibility_id(l_index) is not null
1077: then
1078: if l_plug_id(l_index) is null
1079: then
1080: select ICX_PAGE_PLUGS_S.nextval
1081: into l_plug_id(l_index)
1082: from sys.dual;
1083:
1084: if l_display_name(l_index) = l_display_name_old(l_index)
1085: then
1086: l_display_name(l_index) := '';
1087: end if;
1088:
1089: insert into ICX_PAGE_PLUGS
1090: (PLUG_ID,
1091: PAGE_ID,
1092: DISPLAY_SEQUENCE,
1093: RESPONSIBILITY_APPLICATION_ID,
1112: sysdate,1,1);
1113: else
1114: if l_display_name(l_index) = l_display_name_old(l_index)
1115: then
1116: update ICX_PAGE_PLUGS
1117: set DISPLAY_SEQUENCE = l_index,
1118: RESPONSIBILITY_APPLICATION_ID = l_resp_appl_id(l_index),
1119: SECURITY_GROUP_ID = l_security_group_id(l_index),
1120: RESPONSIBILITY_ID = l_responsibility_id(l_index),
1122: ENTRY_SEQUENCE = l_entry_sequence(l_index)
1123: where PAGE_ID = l_page_id
1124: and PLUG_ID = l_plug_id(l_index);
1125: else
1126: update ICX_PAGE_PLUGS
1127: set DISPLAY_SEQUENCE = l_index,
1128: RESPONSIBILITY_APPLICATION_ID = l_resp_appl_id(l_index),
1129: SECURITY_GROUP_ID = l_security_group_id(l_index),
1130: RESPONSIBILITY_ID = l_responsibility_id(l_index),
1180: if r_responsibility_id(l_index) is not null
1181: then
1182: if r_plug_id(l_index) is null
1183: then
1184: select ICX_PAGE_PLUGS_S.nextval
1185: into r_plug_id(l_index)
1186: from sys.dual;
1187:
1188: if r_display_name(l_index) = r_display_name_old(l_index)
1189: then
1190: r_display_name(l_index) := '';
1191: end if;
1192:
1193: insert into ICX_PAGE_PLUGS
1194: (PLUG_ID,
1195: PAGE_ID,
1196: DISPLAY_SEQUENCE,
1197: RESPONSIBILITY_APPLICATION_ID,
1216: sysdate,1,1);
1217: else
1218: if r_display_name(l_index) = r_display_name_old(l_index)
1219: then
1220: update ICX_PAGE_PLUGS
1221: set DISPLAY_SEQUENCE = l_index,
1222: RESPONSIBILITY_APPLICATION_ID = r_resp_appl_id(l_index),
1223: SECURITY_GROUP_ID = r_security_group_id(l_index),
1224: RESPONSIBILITY_ID = r_responsibility_id(l_index),
1226: ENTRY_SEQUENCE = r_entry_sequence(l_index)
1227: where PAGE_ID = l_page_id
1228: and PLUG_ID = r_plug_id(l_index);
1229: else
1230: update ICX_PAGE_PLUGS
1231: set DISPLAY_SEQUENCE = l_index,
1232: RESPONSIBILITY_APPLICATION_ID = r_resp_appl_id(l_index),
1233: SECURITY_GROUP_ID = r_security_group_id(l_index),
1234: RESPONSIBILITY_ID = r_responsibility_id(l_index),
1298: l_count := l_count;
1299: end;
1300: end if;
1301:
1302: delete ICX_PAGE_PLUGS
1303: where PAGE_ID = l_page_id
1304: and PLUG_ID = p.plug_id;
1305:
1306: end if;