[Home] [Help]
92: (select application_id from fnd_application fa2
93: where fa2.application_short_name = pp_asn);
94: t_asn fnd_application.application_short_name%type;
95: t_def_phys_id jtf_dpf_lgcl_phy_rules.physical_page_id%type;
96: t_phys_page_name jtf_dpf_physical_pages_b.physical_page_name%type;
97: ddindx binary_integer := 1;
98: t_log_page_descr jtf_dpf_logical_pages_tl.logical_page_description%type;
99: begin
100: for c1_rec in c1(asn) loop
102: into t_asn
103: from fnd_application fa
104: where fa.application_id =
105: (select pp.application_id
106: from jtf_dpf_physical_pages_b pp
107: where pp.physical_page_id =
108: (select lpr.physical_page_id from jtf_dpf_lgcl_phy_rules lpr
109: where lpr.logical_page_id = c1_rec.logical_page_id and
110: lpr.default_page_flag='T'));
121: lpr.default_page_flag = 'T';
122:
123: select pp.physical_page_name
124: into t_phys_page_name
125: from jtf_dpf_physical_pages_b pp
126: where pp.physical_page_id =
127: (select lpr.physical_page_id from jtf_dpf_lgcl_phy_rules lpr
128: where lpr.logical_page_id = c1_rec.logical_page_id and
129: lpr.default_page_flag = 'T');
151: select
152: pp.physical_page_id,
153: pp.physical_page_name
154: -- pp.physical_page_description
155: from jtf_dpf_physical_pages_b pp
156: where pp.application_id =
157: (select fa.application_id from fnd_application fa
158: where fa.application_short_name = pp_asn);
159: ddindx binary_integer := 1;
175: end;
176: procedure get_physical_non_default_tbl(asn varchar2,
177: retval out NOCOPY physical_non_default_tbl) is
178: ddindx binary_integer := 1;
179: q2_c1 jtf_dpf_physical_pages_b.physical_page_name%type;
180: q2_c2 fnd_application.application_short_name%type;
181: q3_c1 jtf_dpf_rules_b.rule_name%type;
182: q3_c2 fnd_application.application_short_name%type;
183: cursor c1(pp_asn varchar2) is
202: pp.application_id
203: -- (select application_short_name from fnd_application fa2
204: -- where fa2.application_id = pp.application_id)
205: into q2_c1, q2_c2_temp
206: from jtf_dpf_physical_pages_b pp
207: where pp.physical_page_id = c1_rec.physical_page_id;
208:
209: select application_short_name
210: into q2_c2
426: procedure get_physical_attribs_tbl(asn varchar2,
427: retval out NOCOPY physical_attribs_tbl) is
428: cursor c1 (pp_asn varchar2) is
429: select pp.physical_page_id
430: from jtf_dpf_physical_pages_b pp
431: where pp.application_id =
432: (select fa.application_id from fnd_application fa
433: where fa.application_short_name = pp_asn);
434: ddindx binary_integer := 1;
682: -- remove the physical denoted by ppid. If there's no such physical,
683: -- then this has no effect.
684: procedure phys_delete(p_ppid number) is
685: begin
686: delete from jtf_dpf_physical_pages_b where physical_page_id=p_ppid;
687: delete from jtf_dpf_physical_pages_tl where physical_page_id=p_ppid;
688: -- commit;
689: end;
690:
703: -- -- if there already exists a physical with this name and asn,
704: -- -- (other than the one we're being asked to update) then just
705: -- -- return '2' without touching the data
706: -- select count(*) into existential
707: -- from jtf_dpf_physical_pages_b
708: -- where physical_page_id <> p_ppid and
709: -- physical_page_name = upd.p_name and
710: -- application_id = t_appid;
711: -- if existential > 0 then return 2; end if;
709: -- physical_page_name = upd.p_name and
710: -- application_id = t_appid;
711: -- if existential > 0 then return 2; end if;
712:
713: update jtf_dpf_physical_pages_b
714: set
715: application_id = t_appid,
716: physical_page_name = upd.p_name,
717: -- physical_page_description = p_descr,
777: function phys_new (p_asn varchar2, p_name varchar2, p_descr varchar2)
778: return number is
779: t_appid number;
780: existential number;
781: t_phys_id jtf_dpf_physical_pages_b.physical_page_id%type;
782: t_rowid rowid;
783: begin
784: if p_name is null or 0 = length(p_name) then return 3; end if;
785:
790: -- with the same name!
791: -- -- if there already exists a physical with this name and asn,
792: -- -- then just return '2' without touching the data
793: -- select count(*) into existential
794: -- from jtf_dpf_physical_pages_b
795: -- where application_id = t_appid and
796: -- physical_page_name = p_name;
797: -- if existential > 0 then return 2; end if;
798:
810: X_LAST_UPDATE_DATE => SYSDATE,
811: X_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
812: X_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID);
813:
814: -- insert into jtf_dpf_physical_pages_b(
815: -- physical_page_id,
816: -- physical_page_name,
817: -- -- physical_page_description,
818: -- application_id,
1297:
1298: -- if there's no such phyiscal_id, then return 4
1299: if fnd_api.g_miss_num <> upd.p_default_physical_id then
1300: select count(*) into existential
1301: from jtf_dpf_physical_pages_b
1302: where physical_page_id = upd.p_default_physical_id;
1303:
1304: if existential = 0 then return 4; end if;
1305: end if;
1381: p_new_type varchar2,
1382: p_new_descr varchar2,
1383: p_new_page_controller_class varchar2,
1384: p_new_page_permission_name varchar2,
1385: p_default_physical_id JTF_DPF_PHYSICAL_PAGES_B.PHYSICAL_PAGE_ID%type)
1386: return number is
1387: t_appid number;
1388: t_new_logical_page_id number;
1389: t_rowid rowid;
1392: if p_new_name is null or 0 = length(p_new_name) then return 3; end if;
1393:
1394: -- if there's no such phyiscal_id, then return 4
1395: select count(*) into existential
1396: from jtf_dpf_physical_pages_b
1397: where physical_page_id = p_default_physical_id;
1398:
1399: if existential = 0 then return 4; end if;
1400: