[Home] [Help]
1: package body jtf_dpf as
2: /* $Header: jtfdpfb.pls 120.1 2005/07/02 00:40:14 appldev ship $ */
3: procedure get_dpf_tbl(p_lang varchar2, asn varchar2,
4: dpf out NOCOPY dpf_tbl) is
5: ddindx binary_integer := 1;
3: procedure get_dpf_tbl(p_lang varchar2, asn varchar2,
4: dpf out NOCOPY dpf_tbl) is
5: ddindx binary_integer := 1;
6: t_head_log_asn fnd_application.application_short_name%type;
7: t_head_log_name jtf_dpf_logical_pages_b.logical_page_name%type;
8: t_rtn_log_asn fnd_application.application_short_name%type;
9: t_rtn_log_name jtf_dpf_logical_pages_b.logical_page_name%type;
10: t_log_descr jtf_dpf_logical_flows_tl.logical_flow_description%type;
11:
5: ddindx binary_integer := 1;
6: t_head_log_asn fnd_application.application_short_name%type;
7: t_head_log_name jtf_dpf_logical_pages_b.logical_page_name%type;
8: t_rtn_log_asn fnd_application.application_short_name%type;
9: t_rtn_log_name jtf_dpf_logical_pages_b.logical_page_name%type;
10: t_log_descr jtf_dpf_logical_flows_tl.logical_flow_description%type;
11:
12: cursor c1 (pp_asn varchar2) is
13: select
6: t_head_log_asn fnd_application.application_short_name%type;
7: t_head_log_name jtf_dpf_logical_pages_b.logical_page_name%type;
8: t_rtn_log_asn fnd_application.application_short_name%type;
9: t_rtn_log_name jtf_dpf_logical_pages_b.logical_page_name%type;
10: t_log_descr jtf_dpf_logical_flows_tl.logical_flow_description%type;
11:
12: cursor c1 (pp_asn varchar2) is
13: select
14: lf.logical_flow_id,
20: lf.validate_flag,
21: lf.secure_flow_flag,
22: lf.enabled_clone_flag,
23: lf.last_updated_by -- was: base_flow_flag
24: from jtf_dpf_logical_flows_b lf
25: where lf.application_id =
26: (select application_id from fnd_application fa2
27: where fa2.application_short_name = pp_asn);
28: begin
27: where fa2.application_short_name = pp_asn);
28: begin
29: for c1_rec in c1(asn) loop
30: select logical_flow_description into t_log_descr
31: from jtf_dpf_logical_flows_tl lftl
32: where lftl.logical_flow_id = c1_rec.logical_flow_id
33: and lftl.language = p_lang;
34:
35: select application_short_name
34:
35: select application_short_name
36: into t_head_log_asn
37: from fnd_application fa where fa.application_id =
38: (select lp.application_id from jtf_dpf_logical_pages_b lp
39: where lp.logical_page_id = c1_rec.logical_flow_head_id);
40:
41: select lp2.logical_page_name
42: into t_head_log_name
39: where lp.logical_page_id = c1_rec.logical_flow_head_id);
40:
41: select lp2.logical_page_name
42: into t_head_log_name
43: from jtf_dpf_logical_pages_b lp2
44: where lp2.logical_page_id = c1_rec.logical_flow_head_id;
45:
46: select application_short_name
47: into t_rtn_log_asn
45:
46: select application_short_name
47: into t_rtn_log_asn
48: from fnd_application fa where fa.application_id =
49: (select lp.application_id from jtf_dpf_logical_pages_b lp
50: where lp.logical_page_id = c1_rec.return_to_page_id);
51:
52: select lp2.logical_page_name
53: into t_rtn_log_name
50: where lp.logical_page_id = c1_rec.return_to_page_id);
51:
52: select lp2.logical_page_name
53: into t_rtn_log_name
54: from jtf_dpf_logical_pages_b lp2
55: where lp2.logical_page_id = c1_rec.return_to_page_id;
56:
57: -- create the new record at index ddindx
58: dpf(ddindx).dpf_id := c1_rec.logical_flow_id;
86: -- lp.logical_page_description,
87: lp.page_controller_class,
88: lp.page_permission_name,
89: lp.logical_page_id
90: from jtf_dpf_logical_pages_b lp
91: where lp.application_id =
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;
91: where lp.application_id =
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
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
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
101: select application_short_name
102: into t_asn
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'));
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'));
111:
112: select logical_page_description into t_log_page_descr
109: where lpr.logical_page_id = c1_rec.logical_page_id and
110: lpr.default_page_flag='T'));
111:
112: select logical_page_description into t_log_page_descr
113: from jtf_dpf_logical_pages_tl o
114: where o.logical_page_id = c1_rec.logical_page_id and
115: o.language = p_lang;
116:
117: select lpr.physical_page_id
115: o.language = p_lang;
116:
117: select lpr.physical_page_id
118: into t_def_phys_id
119: from jtf_dpf_lgcl_phy_rules lpr
120: where lpr.logical_page_id = c1_rec.logical_page_id and
121: lpr.default_page_flag = 'T';
122:
123: select pp.physical_page_name
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');
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');
130:
131: -- create the new record
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;
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;
160: t_phys_page_descr jtf_dpf_physical_pages_tl.physical_page_description%type;
161: begin
162: for c1_rec in c1(asn) loop
163: select physical_page_description into t_phys_page_descr
164: from jtf_dpf_physical_pages_tl ptl
160: t_phys_page_descr jtf_dpf_physical_pages_tl.physical_page_description%type;
161: begin
162: for c1_rec in c1(asn) loop
163: select physical_page_description into t_phys_page_descr
164: from jtf_dpf_physical_pages_tl ptl
165: where ptl.physical_page_id = c1_rec.physical_page_id and
166: ptl.language = p_lang;
167: -- create the new record
168: log(ddindx).id := c1_rec.physical_page_id;
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
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
184: select unique
185: lp.logical_page_name,
185: lp.logical_page_name,
186: lpr.rule_eval_sequence,
187: lpr.physical_page_id,
188: lpr.rule_id
189: from jtf_dpf_logical_pages_b lp, jtf_dpf_lgcl_phy_rules lpr
190: where
191: lp.logical_page_id = lpr.logical_page_id and
192: lp.application_id =
193: (select application_id from fnd_application fa where
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
215: r.application_id
216: -- (select application_short_name from fnd_application fa
217: -- where fa.application_id = r.application_id)
218: into q3_c1, q3_c2_temp
219: from jtf_dpf_rules_b r
220: where r.rule_id = c1_rec.rule_id;
221:
222: select application_short_name into q3_c2 from fnd_application
223: where fnd_application.application_id = q3_c2_temp;
243: -- r.rule_description,
244: rp.rule_param_name,
245: rp.rule_param_value,
246: rp.rule_param_condition
247: from jtf_dpf_rules_b r, jtf_dpf_rule_params rp
248: where
249: r.rule_id = rp.rule_id and
250: r.application_id =
251: (select application_id from fnd_application fa
251: (select application_id from fnd_application fa
252: where fa.application_short_name = pp_asn)
253: order by rp.rule_param_sequence;
254: ddindx binary_integer := 1;
255: t_rules_descr jtf_dpf_rules_tl.rule_description%type;
256: begin
257: for c1_rec in c1(asn) loop
258: -- create a new record
259: select rule_description into t_rules_descr
256: begin
257: for c1_rec in c1(asn) loop
258: -- create a new record
259: select rule_description into t_rules_descr
260: from jtf_dpf_rules_tl jrtl
261: where jrtl.rule_id = c1_rec.rule_id and
262: jrtl.language = p_lang;
263:
264: retval(ddindx).rule_id := c1_rec.rule_id;
275: procedure get_next_logical_default_tbl(asn varchar2,
276: retval out NOCOPY next_logical_default_tbl) is
277: cursor q1 (pp_asn varchar2) is
278: select logical_flow_name, logical_flow_id
279: from jtf_dpf_logical_flows_b lf
280: where lf.application_id =
281: (select application_id from fnd_application fa
282: where fa.application_short_name = pp_asn);
283:
282: where fa.application_short_name = pp_asn);
283:
284: cursor q2 (pp_q1_c2 number) is
285: select logical_page_id, logical_next_page_id
286: from jtf_dpf_lgcl_next_rules lnr
287: where lnr.logical_flow_id = pp_q1_c2 and
288: lnr.default_next_flag='T';
289: ddindx binary_integer := 1;
290: q3_c1 fnd_application.application_short_name%type;
287: where lnr.logical_flow_id = pp_q1_c2 and
288: lnr.default_next_flag='T';
289: ddindx binary_integer := 1;
290: q3_c1 fnd_application.application_short_name%type;
291: q3_c2 jtf_dpf_logical_pages_b.logical_page_name%type;
292: q4_c1 fnd_application.application_short_name%type;
293: q4_c2 jtf_dpf_logical_pages_b.logical_page_name%type;
294: q3_c1_temp fnd_application.application_id%type;
295: q4_c1_temp fnd_application.application_id%type;
289: ddindx binary_integer := 1;
290: q3_c1 fnd_application.application_short_name%type;
291: q3_c2 jtf_dpf_logical_pages_b.logical_page_name%type;
292: q4_c1 fnd_application.application_short_name%type;
293: q4_c2 jtf_dpf_logical_pages_b.logical_page_name%type;
294: q3_c1_temp fnd_application.application_id%type;
295: q4_c1_temp fnd_application.application_id%type;
296: begin
297: for q1_rec in q1(asn) loop
301: -- (select application_short_name from fnd_application fa
302: -- where fa.application_id = lp.application_id),
303: lp.logical_page_name
304: into q3_c1_temp, q3_c2
305: from jtf_dpf_logical_pages_b lp
306: where lp.logical_page_id = q2_rec.logical_page_id;
307:
308: select application_short_name into q3_c1
309: from fnd_application where application_id = q3_c1_temp;
313: -- (select application_short_name from fnd_application fa
314: -- where fa.application_id = lp.application_id),
315: lp.logical_page_name
316: into q4_c1_temp, q4_c2
317: from jtf_dpf_logical_pages_b lp
318: where lp.logical_page_id = q2_rec.logical_next_page_id;
319:
320: select application_short_name into q4_c1
321: from fnd_application where application_id = q4_c1_temp;
336: procedure get_next_logical_non_def_tbl(asn varchar2,
337: retval out NOCOPY next_logical_non_default_tbl) is
338: cursor q1 (pp_asn varchar2) is
339: select logical_flow_name, logical_flow_id
340: from jtf_dpf_logical_flows_b lf
341: where lf.application_id =
342: (select application_id from fnd_application fa
343: where fa.application_short_name = pp_asn);
344:
347: logical_page_id,
348: logical_next_page_id,
349: rule_eval_seq,
350: rule_id
351: from jtf_dpf_lgcl_next_rules lnr
352: where lnr.logical_flow_id = pp_q1_c2 and
353: lnr.default_next_flag='F'
354: order by lnr.rule_eval_seq;
355: ddindx binary_integer := 1;
353: lnr.default_next_flag='F'
354: order by lnr.rule_eval_seq;
355: ddindx binary_integer := 1;
356: q3_c1 fnd_application.application_short_name%type;
357: q3_c2 jtf_dpf_rules_b.rule_name%type;
358: q4_c1 fnd_application.application_short_name%type;
359: q4_c2 jtf_dpf_logical_pages_b.logical_page_name%type;
360: q5_c1 fnd_application.application_short_name%type;
361: q5_c2 jtf_dpf_logical_pages_b.logical_page_name%type;
355: ddindx binary_integer := 1;
356: q3_c1 fnd_application.application_short_name%type;
357: q3_c2 jtf_dpf_rules_b.rule_name%type;
358: q4_c1 fnd_application.application_short_name%type;
359: q4_c2 jtf_dpf_logical_pages_b.logical_page_name%type;
360: q5_c1 fnd_application.application_short_name%type;
361: q5_c2 jtf_dpf_logical_pages_b.logical_page_name%type;
362: q3_c1_temp fnd_application.application_id%type;
363: q4_c1_temp fnd_application.application_id%type;
357: q3_c2 jtf_dpf_rules_b.rule_name%type;
358: q4_c1 fnd_application.application_short_name%type;
359: q4_c2 jtf_dpf_logical_pages_b.logical_page_name%type;
360: q5_c1 fnd_application.application_short_name%type;
361: q5_c2 jtf_dpf_logical_pages_b.logical_page_name%type;
362: q3_c1_temp fnd_application.application_id%type;
363: q4_c1_temp fnd_application.application_id%type;
364: q5_c1_temp fnd_application.application_id%type;
365: begin
370: -- (select application_short_name from fnd_application fa
371: -- where fa.application_id = r.application_id),
372: r.rule_name
373: into q3_c1_temp, q3_c2
374: from jtf_dpf_rules_b r
375: where r.rule_id = q2_rec.rule_id;
376:
377: select application_short_name
378: into q3_c1
384: -- (select application_short_name from fnd_application fa
385: -- where fa.application_id = lp.application_id),
386: lp.logical_page_name
387: into q4_c1_temp, q4_c2
388: from jtf_dpf_logical_pages_b lp
389: where lp.logical_page_id = q2_rec.logical_page_id;
390:
391: select application_short_name
392: into q4_c1
398: -- (select application_short_name from fnd_application fa
399: -- where fa.application_id = lp.application_id),
400: lp.logical_page_name
401: into q5_c1_temp, q5_c2
402: from jtf_dpf_logical_pages_b lp
403: where lp.logical_page_id = q2_rec.logical_next_page_id;
404:
405: select application_short_name
406: into q5_c1
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;
436: for c1_rec in c1(asn) loop
437: -- for any phy_attribs with c1_rec.physical_page_id...
438: for c2_rec in (select
439: pa.PHYSICAL_PAGE_ID, pa.PAGE_ATTRIBUTE_NAME,pa.PAGE_ATTRIBUTE_VALUE
440: from jtf_dpf_phy_attribs pa
441: where pa.physical_page_id = c1_rec.physical_page_id) loop
442: -- add a new record
443: retval(ddindx).id := c2_rec.physical_page_id;
444: retval(ddindx).name := c2_rec.page_attribute_name;
495: -- removes the rule and any rule_params that were stored under it. Has
496: -- no effect if the rule doesn't exist
497: procedure rule_delete(p_rule_id number) is
498: begin
499: delete from jtf_dpf_rule_params where rule_id = p_rule_id;
500: delete from jtf_dpf_rules_b where rule_id=p_rule_id;
501: delete from jtf_dpf_rules_tl where rule_id=p_rule_id;
502: -- commit;
503: end;
496: -- no effect if the rule doesn't exist
497: procedure rule_delete(p_rule_id number) is
498: begin
499: delete from jtf_dpf_rule_params where rule_id = p_rule_id;
500: delete from jtf_dpf_rules_b where rule_id=p_rule_id;
501: delete from jtf_dpf_rules_tl where rule_id=p_rule_id;
502: -- commit;
503: end;
504:
497: procedure rule_delete(p_rule_id number) is
498: begin
499: delete from jtf_dpf_rule_params where rule_id = p_rule_id;
500: delete from jtf_dpf_rules_b where rule_id=p_rule_id;
501: delete from jtf_dpf_rules_tl where rule_id=p_rule_id;
502: -- commit;
503: end;
504:
505: -- change the rule specified by rule_id so that it is of the specified
520: -- is the proposed new name already taken? count the number
521: -- of rows which already have this name and appid, but which have a
522: -- different logical_flow_id
523: select count(*) into existential
524: from jtf_dpf_rules_b
525: where rule_id <> p_rule_id and
526: rule_name = upd.p_new_name and
527: application_id = t_appid;
528:
527: application_id = t_appid;
528:
529: if existential > 0 then return 2; end if;
530:
531: update jtf_dpf_rules_b
532: set
533: application_id=t_appid,
534: rule_name = upd.p_new_name,
535: -- rule_description = p_new_descr,
539: LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
540: where rule_id = p_rule_id;
541:
542: if upd.p_new_descr is null or fnd_api.g_miss_char <> upd.p_new_descr then
543: update jtf_dpf_rules_tl
544: set rule_description = upd.p_new_descr,
545: -- object_version_number = OBJECT_VERSION_NUMBER+1,
546: last_update_date = sysdate,
547: last_updated_by = fnd_global.user_id,
564: select application_id into t_appid
565: from fnd_application
566: where application_short_name = p_asn;
567:
568: select count(*) into existential from jtf_dpf_rules_b
569: where rule_name = p_name and
570: application_id = t_appid;
571:
572: if existential <> 0 then return 2; end if;
571:
572: if existential <> 0 then return 2; end if;
573:
574: -- create a new rule
575: select jtf_dpf_rules_s.nextval into t_ruleid from dual;
576:
577: JTF_DPF_RULES_PKG.INSERT_ROW(
578: X_ROWID => t_rowid,
579: X_RULE_ID => t_ruleid,
573:
574: -- create a new rule
575: select jtf_dpf_rules_s.nextval into t_ruleid from dual;
576:
577: JTF_DPF_RULES_PKG.INSERT_ROW(
578: X_ROWID => t_rowid,
579: X_RULE_ID => t_ruleid,
580: X_APPLICATION_ID => t_appid,
581: X_OBJECT_VERSION_NUMBER => 1,
587: X_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
588: X_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID);
589:
590:
591: -- insert into jtf_dpf_rules_b(
592: -- rule_id,
593: -- application_id, rule_name, -- rule_description,
594: -- OBJECT_VERSION_NUMBER,
595: -- CREATED_BY,
604: -- SYSDATE,
605: -- FND_GLOBAL.USER_ID,
606: -- FND_GLOBAL.CONC_LOGIN_ID);
607: --
608: -- insert into jtf_dpf_rules_tl(
609: -- RULE_ID,
610: -- LANGUAGE,
611: -- SOURCE_LANG,
612: -- RULE_DESCRIPTION,
643: procedure rule_set_params(p_rule_id number,
644: rules new_rule_param_tbl) is
645: idx binary_integer;
646: begin
647: delete from jtf_dpf_rule_params where rule_id = p_rule_id;
648: idx := rules.first;
649: while true loop
650: insert into jtf_dpf_rule_params(
651: rule_param_sequence,
646: begin
647: delete from jtf_dpf_rule_params where rule_id = p_rule_id;
648: idx := rules.first;
649: while true loop
650: insert into jtf_dpf_rule_params(
651: rule_param_sequence,
652: rule_id,
653: rule_param_condition,
654: rule_param_name,
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:
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:
691: function phys_update(p_ppid number,
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,
721: LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
722: where physical_page_id = p_ppid;
723:
724: if upd.p_descr is null or fnd_api.g_miss_char <> upd.p_descr then
725: update jtf_dpf_physical_pages_tl
726: set
727: physical_page_description = upd.p_descr,
728: -- object_version_number = OBJECT_VERSION_NUMBER+1,
729: last_update_date = sysdate,
740: p_new_ones new_phys_attribs_tbl) is
741: idx binary_integer;
742: begin
743: -- remove any old ones
744: delete from jtf_dpf_phy_attribs where physical_page_id = p_ppid;
745:
746: -- add the new ones, if any
747: if p_new_ones is not null and p_new_ones.count <> 0 then
748: idx := p_new_ones.first;
746: -- add the new ones, if any
747: if p_new_ones is not null and p_new_ones.count <> 0 then
748: idx := p_new_ones.first;
749: while true loop
750: insert into jtf_dpf_phy_attribs(
751: physical_page_id,
752: page_attribute_name,
753: page_attribute_value,
754: OBJECT_VERSION_NUMBER,
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:
795: -- where application_id = t_appid and
796: -- physical_page_name = p_name;
797: -- if existential > 0 then return 2; end if;
798:
799: select jtf_dpf_physical_pages_s.nextval into t_phys_id from dual;
800:
801: JTF_DPF_PHYSICAL_PAGES_PKG.insert_row(
802: X_ROWID => t_rowid,
803: X_PHYSICAL_PAGE_ID => t_phys_id,
797: -- if existential > 0 then return 2; end if;
798:
799: select jtf_dpf_physical_pages_s.nextval into t_phys_id from dual;
800:
801: JTF_DPF_PHYSICAL_PAGES_PKG.insert_row(
802: X_ROWID => t_rowid,
803: X_PHYSICAL_PAGE_ID => t_phys_id,
804: X_PHYSICAL_PAGE_NAME => p_name,
805: X_APPLICATION_ID => t_appid,
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,
833: -- SYSDATE,
834: -- FND_GLOBAL.USER_ID,
835: -- FND_GLOBAL.CONC_LOGIN_ID);
836: --
837: -- insert into jtf_dpf_physical_pages_tl(
838: -- PHYSICAL_PAGE_ID,
839: -- LANGUAGE,
840: -- SOURCE_LANG,
841: -- PHYSICAL_PAGE_DESCRIPTION,
862: end;
863:
864: -- dpf editing procedures
865: -- delete_flow. Removes all rows with logical_page_flow from tables:
866: -- - jtf_dpf_lgcl_flow_params
867: -- - jtf_dpf_logical_flows
868: -- - jtf_dpf_lgcl_next_rules
869: procedure flow_delete(p_logical_flow_id number) is
870: begin
863:
864: -- dpf editing procedures
865: -- delete_flow. Removes all rows with logical_page_flow from tables:
866: -- - jtf_dpf_lgcl_flow_params
867: -- - jtf_dpf_logical_flows
868: -- - jtf_dpf_lgcl_next_rules
869: procedure flow_delete(p_logical_flow_id number) is
870: begin
871: delete from jtf_dpf_lgcl_flow_params
864: -- dpf editing procedures
865: -- delete_flow. Removes all rows with logical_page_flow from tables:
866: -- - jtf_dpf_lgcl_flow_params
867: -- - jtf_dpf_logical_flows
868: -- - jtf_dpf_lgcl_next_rules
869: procedure flow_delete(p_logical_flow_id number) is
870: begin
871: delete from jtf_dpf_lgcl_flow_params
872: where logical_flow_id = p_logical_flow_id;
867: -- - jtf_dpf_logical_flows
868: -- - jtf_dpf_lgcl_next_rules
869: procedure flow_delete(p_logical_flow_id number) is
870: begin
871: delete from jtf_dpf_lgcl_flow_params
872: where logical_flow_id = p_logical_flow_id;
873: delete from jtf_dpf_logical_flows_b
874: where logical_flow_id = p_logical_flow_id;
875: delete from jtf_dpf_logical_flows_tl
869: procedure flow_delete(p_logical_flow_id number) is
870: begin
871: delete from jtf_dpf_lgcl_flow_params
872: where logical_flow_id = p_logical_flow_id;
873: delete from jtf_dpf_logical_flows_b
874: where logical_flow_id = p_logical_flow_id;
875: delete from jtf_dpf_logical_flows_tl
876: where logical_flow_id = p_logical_flow_id;
877: delete from jtf_dpf_lgcl_next_rules
871: delete from jtf_dpf_lgcl_flow_params
872: where logical_flow_id = p_logical_flow_id;
873: delete from jtf_dpf_logical_flows_b
874: where logical_flow_id = p_logical_flow_id;
875: delete from jtf_dpf_logical_flows_tl
876: where logical_flow_id = p_logical_flow_id;
877: delete from jtf_dpf_lgcl_next_rules
878: where logical_flow_id = p_logical_flow_id;
879: -- commit;
873: delete from jtf_dpf_logical_flows_b
874: where logical_flow_id = p_logical_flow_id;
875: delete from jtf_dpf_logical_flows_tl
876: where logical_flow_id = p_logical_flow_id;
877: delete from jtf_dpf_lgcl_next_rules
878: where logical_flow_id = p_logical_flow_id;
879: -- commit;
880: end;
881:
882: function flow_update(p_logical_flow_id number,
883: upd flow_update_rec) return number is
884: t_appid number;
885: existential number;
886: current_name jtf_dpf_logical_flows_b.logical_flow_name%type;
887: begin
888: if upd.p_new_name is null or 0 = length(upd.p_new_name) then
889: return 3;
890: end if;
891:
892: -- is either logical_page_id bad? The logical_page_id variables are
893: -- p_new_header_logical_page_id and p_rtn_to_logical_page_id. One of these
894: -- is 'bad' if it's not G_MISS_NUM and it doesn't point at a logical in
895: -- the jtf_dpf_logical_pages_b table.
896: --
897: -- if either is bad, then return 4.
898:
899: if upd.p_new_header_logical_page_id is null or
902: end if;
903:
904: if fnd_api.g_miss_num <> upd.p_new_header_logical_page_id then
905: select count(*) into existential
906: from jtf_dpf_logical_pages_b
907: where logical_page_id = upd.p_new_header_logical_page_id;
908: if existential = 0 then return 4; end if;
909: end if;
910:
909: end if;
910:
911: if fnd_api.g_miss_num <> upd.p_rtn_to_logical_page_id then
912: select count(*) into existential
913: from jtf_dpf_logical_pages_b
914: where logical_page_id = upd.p_rtn_to_logical_page_id;
915: if existential = 0 then return 4; end if;
916: end if;
917:
921: -- is the proposed new name different from the current name, and yet
922: -- already taken? count the number of rows which already have this
923: -- name, but which have a different logical_flow_id
924: select logical_flow_name into current_name
925: from jtf_dpf_logical_flows_b
926: where logical_flow_id = p_logical_flow_id;
927:
928: if current_name <> upd.p_new_name then
929: select count(*) into existential
926: where logical_flow_id = p_logical_flow_id;
927:
928: if current_name <> upd.p_new_name then
929: select count(*) into existential
930: from jtf_dpf_logical_flows_b
931: where logical_flow_id <> p_logical_flow_id and
932: logical_flow_name = upd.p_new_name and
933: application_id = t_appid;
934:
934:
935: if existential > 0 then return 2; end if;
936: end if;
937:
938: update jtf_dpf_logical_flows_b
939: set
940: logical_flow_name = upd.p_new_name,
941: flow_finalizer_class = upd.p_new_flow_finalizer_class,
942: -- logical_flow_description = p_new_descr,
949: LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
950: where logical_flow_id = p_logical_flow_id;
951:
952: if upd.p_new_descr is null or fnd_api.g_miss_char <> upd.p_new_descr then
953: update jtf_dpf_logical_flows_tl
954: set
955: logical_flow_description = upd.p_new_descr,
956: -- object_version_number = OBJECT_VERSION_NUMBER+1,
957: last_update_date = sysdate,
962: end if;
963:
964: -- update logical_flow_head_id, unless the given is G_MISS_NUM
965: if fnd_api.g_miss_num <> upd.p_new_header_logical_page_id then
966: update jtf_dpf_logical_flows_b
967: set logical_flow_head_id = upd.p_new_header_logical_page_id
968: where logical_flow_id = p_logical_flow_id;
969: end if;
970:
969: end if;
970:
971: -- update return_to_page_id, unless the given is G_MISS_NUM
972: if fnd_api.g_miss_num <> upd.p_rtn_to_logical_page_id then
973: update jtf_dpf_logical_flows_b
974: set return_to_page_id = upd.p_rtn_to_logical_page_id
975: where logical_flow_id = p_logical_flow_id;
976: end if;
977:
989: p_new_header_logical_page_id number,
990: p_rtn_to_logical_page_id number) return number is
991: t_appid number;
992: existential number;
993: log_id jtf_dpf_logical_flows_b.logical_flow_id%type;
994: t_rowid rowid;
995: begin
996: if p_new_name is null or 0 = length(p_new_name) then return 3; end if;
997:
1002: p_rtn_to_logical_page_id is null then
1003: return 4;
1004: end if;
1005: select count(*) into existential
1006: from jtf_dpf_logical_pages_b
1007: where logical_page_id = p_new_header_logical_page_id;
1008: if existential = 0 then return 4; end if;
1009: select count(*) into existential
1010: from jtf_dpf_logical_pages_b
1006: from jtf_dpf_logical_pages_b
1007: where logical_page_id = p_new_header_logical_page_id;
1008: if existential = 0 then return 4; end if;
1009: select count(*) into existential
1010: from jtf_dpf_logical_pages_b
1011: where logical_page_id = p_rtn_to_logical_page_id;
1012: if existential = 0 then return 4; end if;
1013:
1014: select application_id into t_appid
1014: select application_id into t_appid
1015: from fnd_application where application_short_name = p_new_asn;
1016:
1017: select count(*) into existential
1018: from jtf_dpf_logical_flows_b
1019: where application_id = t_appid and
1020: logical_flow_name = p_new_name;
1021:
1022: if existential <> 0 then return 2; end if;
1020: logical_flow_name = p_new_name;
1021:
1022: if existential <> 0 then return 2; end if;
1023:
1024: select jtf_dpf_logical_flows_s.nextval into log_id from dual;
1025:
1026: jtf_dpf_logical_flows_pkg.INSERT_ROW(
1027: X_ROWID => t_rowid,
1028: X_LOGICAL_FLOW_ID => log_id,
1022: if existential <> 0 then return 2; end if;
1023:
1024: select jtf_dpf_logical_flows_s.nextval into log_id from dual;
1025:
1026: jtf_dpf_logical_flows_pkg.INSERT_ROW(
1027: X_ROWID => t_rowid,
1028: X_LOGICAL_FLOW_ID => log_id,
1029: X_LOGICAL_FLOW_HEAD_ID => p_new_header_logical_page_id,
1030: X_LOGICAL_FLOW_NAME => p_new_name,
1042: X_LAST_UPDATE_DATE => SYSDATE,
1043: X_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
1044: X_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID);
1045:
1046: -- insert into jtf_dpf_logical_flows_b(
1047: -- logical_flow_id,
1048: -- logical_flow_head_id,
1049: -- return_to_page_id,
1050: -- logical_flow_name,
1079: -- SYSDATE,
1080: -- FND_GLOBAL.USER_ID,
1081: -- FND_GLOBAL.CONC_LOGIN_ID);
1082: --
1083: -- insert into jtf_dpf_logical_flows_tl(
1084: -- logical_flow_id,
1085: -- language,
1086: -- source_lang,
1087: -- logical_flow_description,
1112: existential number;
1113: new_flow_id number;
1114: begin
1115: select count(*) into existential
1116: from jtf_dpf_logical_flows_b
1117: where logical_flow_id = p_flow_id;
1118:
1119: if existential <> 1 then return 2; end if;
1120:
1117: where logical_flow_id = p_flow_id;
1118:
1119: if existential <> 1 then return 2; end if;
1120:
1121: -- insert a single row into jtf_dpf_logical_flows_b and the
1122: -- same number of rows that're already in jtf_dpf_logical_flows_tl
1123: -- for the old p_flow_id.
1124:
1125: select jtf_dpf_logical_flows_s.nextval into new_flow_id from dual;
1118:
1119: if existential <> 1 then return 2; end if;
1120:
1121: -- insert a single row into jtf_dpf_logical_flows_b and the
1122: -- same number of rows that're already in jtf_dpf_logical_flows_tl
1123: -- for the old p_flow_id.
1124:
1125: select jtf_dpf_logical_flows_s.nextval into new_flow_id from dual;
1126:
1121: -- insert a single row into jtf_dpf_logical_flows_b and the
1122: -- same number of rows that're already in jtf_dpf_logical_flows_tl
1123: -- for the old p_flow_id.
1124:
1125: select jtf_dpf_logical_flows_s.nextval into new_flow_id from dual;
1126:
1127: p_new_flow_id := new_flow_id;
1128:
1129: insert into jtf_dpf_logical_flows_b(
1125: select jtf_dpf_logical_flows_s.nextval into new_flow_id from dual;
1126:
1127: p_new_flow_id := new_flow_id;
1128:
1129: insert into jtf_dpf_logical_flows_b(
1130: LOGICAL_FLOW_ID,
1131: LOGICAL_FLOW_HEAD_ID,
1132: LOGICAL_FLOW_NAME,
1133: -- LOGICAL_FLOW_DESCRIPTION,
1161: SYSDATE,
1162: SYSDATE,
1163: FND_GLOBAL.USER_ID,
1164: FND_GLOBAL.CONC_LOGIN_ID
1165: from jtf_dpf_logical_flows_b o
1166: where o.logical_flow_id = p_flow_id;
1167:
1168: insert into jtf_dpf_logical_flows_tl(
1169: logical_flow_id,
1164: FND_GLOBAL.CONC_LOGIN_ID
1165: from jtf_dpf_logical_flows_b o
1166: where o.logical_flow_id = p_flow_id;
1167:
1168: insert into jtf_dpf_logical_flows_tl(
1169: logical_flow_id,
1170: language,
1171: source_lang,
1172: logical_flow_description,
1186: -- SYSDATE,
1187: SYSDATE,
1188: FND_GLOBAL.USER_ID,
1189: FND_GLOBAL.CONC_LOGIN_ID
1190: from jtf_dpf_logical_flows_tl o
1191: where o.logical_flow_id = p_flow_id;
1192:
1193: -- insert N new rows into table jtf_dpf_lgcl_next_rules with
1194: -- flow_id = new_flow_id, one for each row that's currently present for
1189: FND_GLOBAL.CONC_LOGIN_ID
1190: from jtf_dpf_logical_flows_tl o
1191: where o.logical_flow_id = p_flow_id;
1192:
1193: -- insert N new rows into table jtf_dpf_lgcl_next_rules with
1194: -- flow_id = new_flow_id, one for each row that's currently present for
1195: -- p_flow_id
1196:
1197: insert into jtf_dpf_lgcl_next_rules(
1193: -- insert N new rows into table jtf_dpf_lgcl_next_rules with
1194: -- flow_id = new_flow_id, one for each row that's currently present for
1195: -- p_flow_id
1196:
1197: insert into jtf_dpf_lgcl_next_rules(
1198: LOGICAL_NEXT_RULE_ID ,
1199: LOGICAL_PAGE_ID ,
1200: LOGICAL_NEXT_PAGE_ID ,
1201: DEFAULT_NEXT_FLAG ,
1208: LAST_UPDATE_DATE ,
1209: LAST_UPDATED_BY ,
1210: LAST_UPDATE_LOGIN)
1211: select
1212: jtf_dpf_lgcl_nxt_rules_s.nextval,
1213: o.LOGICAL_PAGE_ID ,
1214: o.LOGICAL_NEXT_PAGE_ID ,
1215: o.DEFAULT_NEXT_FLAG ,
1216: o.RULE_EVAL_SEQ ,
1221: SYSDATE,
1222: SYSDATE,
1223: FND_GLOBAL.USER_ID,
1224: FND_GLOBAL.CONC_LOGIN_ID
1225: from jtf_dpf_lgcl_next_rules o
1226: where o.logical_flow_id = p_flow_id;
1227:
1228: return 1;
1229: end;
1230:
1231: function flow_activate(p_flow_id number) return number is
1232: existential number;
1233: l_app_id number;
1234: l_flow_name jtf_dpf_logical_flows_b.logical_flow_name%type;
1235: begin
1236: select count(*) into existential
1237: from jtf_dpf_logical_flows_b
1238: where logical_flow_id = p_flow_id;
1233: l_app_id number;
1234: l_flow_name jtf_dpf_logical_flows_b.logical_flow_name%type;
1235: begin
1236: select count(*) into existential
1237: from jtf_dpf_logical_flows_b
1238: where logical_flow_id = p_flow_id;
1239:
1240: if existential <> 1 then return 2; end if;
1241:
1240: if existential <> 1 then return 2; end if;
1241:
1242: select application_id, logical_flow_name
1243: into l_app_id, l_flow_name
1244: from jtf_dpf_logical_flows_b
1245: where logical_flow_id = p_flow_id;
1246:
1247:
1248: -- deactivate all flows with the same appid and name as this one
1245: where logical_flow_id = p_flow_id;
1246:
1247:
1248: -- deactivate all flows with the same appid and name as this one
1249: update jtf_dpf_logical_flows_b
1250: set enabled_clone_flag = 'F',
1251: object_version_number = OBJECT_VERSION_NUMBER+1,
1252: last_update_date = sysdate,
1253: last_updated_by = fnd_global.user_id,
1254: LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
1255: where application_id = l_app_id and logical_flow_name = l_flow_name;
1256:
1257: -- activate this one
1258: update jtf_dpf_logical_flows_b
1259: set enabled_clone_flag = 'T',
1260: object_version_number = OBJECT_VERSION_NUMBER+1,
1261: last_update_date = sysdate,
1262: last_updated_by = fnd_global.user_id,
1267: end;
1268:
1269: -- logical editing procedures:
1270: -- removes any instances with logical_page_id from tables:
1271: -- - jtf_dpf_logical_pages
1272: -- - jtf_dpf_lgcl_next_rules
1273: -- - jtf_dpf_lgcl_phy_rules
1274: -- removes the logical from JTF_DPF_LOGICAL_PAGES. Also removes
1275: -- any jtf_dpf_lgcl_phy_rules with the same logical_page_id
1268:
1269: -- logical editing procedures:
1270: -- removes any instances with logical_page_id from tables:
1271: -- - jtf_dpf_logical_pages
1272: -- - jtf_dpf_lgcl_next_rules
1273: -- - jtf_dpf_lgcl_phy_rules
1274: -- removes the logical from JTF_DPF_LOGICAL_PAGES. Also removes
1275: -- any jtf_dpf_lgcl_phy_rules with the same logical_page_id
1276: procedure logical_delete(p_logical_page_id number) is
1269: -- logical editing procedures:
1270: -- removes any instances with logical_page_id from tables:
1271: -- - jtf_dpf_logical_pages
1272: -- - jtf_dpf_lgcl_next_rules
1273: -- - jtf_dpf_lgcl_phy_rules
1274: -- removes the logical from JTF_DPF_LOGICAL_PAGES. Also removes
1275: -- any jtf_dpf_lgcl_phy_rules with the same logical_page_id
1276: procedure logical_delete(p_logical_page_id number) is
1277: begin
1270: -- removes any instances with logical_page_id from tables:
1271: -- - jtf_dpf_logical_pages
1272: -- - jtf_dpf_lgcl_next_rules
1273: -- - jtf_dpf_lgcl_phy_rules
1274: -- removes the logical from JTF_DPF_LOGICAL_PAGES. Also removes
1275: -- any jtf_dpf_lgcl_phy_rules with the same logical_page_id
1276: procedure logical_delete(p_logical_page_id number) is
1277: begin
1278: delete from jtf_dpf_logical_pages_b
1271: -- - jtf_dpf_logical_pages
1272: -- - jtf_dpf_lgcl_next_rules
1273: -- - jtf_dpf_lgcl_phy_rules
1274: -- removes the logical from JTF_DPF_LOGICAL_PAGES. Also removes
1275: -- any jtf_dpf_lgcl_phy_rules with the same logical_page_id
1276: procedure logical_delete(p_logical_page_id number) is
1277: begin
1278: delete from jtf_dpf_logical_pages_b
1279: where logical_page_id=p_logical_page_id;
1274: -- removes the logical from JTF_DPF_LOGICAL_PAGES. Also removes
1275: -- any jtf_dpf_lgcl_phy_rules with the same logical_page_id
1276: procedure logical_delete(p_logical_page_id number) is
1277: begin
1278: delete from jtf_dpf_logical_pages_b
1279: where logical_page_id=p_logical_page_id;
1280: delete from jtf_dpf_logical_pages_tl
1281: where logical_page_id=p_logical_page_id;
1282: delete from jtf_dpf_lgcl_next_rules
1276: procedure logical_delete(p_logical_page_id number) is
1277: begin
1278: delete from jtf_dpf_logical_pages_b
1279: where logical_page_id=p_logical_page_id;
1280: delete from jtf_dpf_logical_pages_tl
1281: where logical_page_id=p_logical_page_id;
1282: delete from jtf_dpf_lgcl_next_rules
1283: where logical_page_id=p_logical_page_id;
1284: delete from jtf_dpf_lgcl_phy_rules
1278: delete from jtf_dpf_logical_pages_b
1279: where logical_page_id=p_logical_page_id;
1280: delete from jtf_dpf_logical_pages_tl
1281: where logical_page_id=p_logical_page_id;
1282: delete from jtf_dpf_lgcl_next_rules
1283: where logical_page_id=p_logical_page_id;
1284: delete from jtf_dpf_lgcl_phy_rules
1285: where logical_page_id=p_logical_page_id;
1286: -- commit;
1280: delete from jtf_dpf_logical_pages_tl
1281: where logical_page_id=p_logical_page_id;
1282: delete from jtf_dpf_lgcl_next_rules
1283: where logical_page_id=p_logical_page_id;
1284: delete from jtf_dpf_lgcl_phy_rules
1285: where logical_page_id=p_logical_page_id;
1286: -- commit;
1287: end;
1288:
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;
1310: -- is the proposed new name already taken? count the number
1311: -- of rows which already have this name, but which have a different
1312: -- logical_flow_id
1313: select count(*) into existential
1314: from jtf_dpf_logical_pages_b
1315: where logical_page_id <> p_logical_page_id and
1316: logical_page_name = upd.p_new_name and
1317: application_id = t_appid;
1318:
1317: application_id = t_appid;
1318:
1319: if existential > 0 then return 2; end if;
1320:
1321: update jtf_dpf_logical_pages_b set
1322: logical_page_name = upd.p_new_name,
1323: logical_page_type = upd.p_new_type,
1324: application_id = t_appid,
1325: -- logical_page_description = upd.p_new_descr,
1331: LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
1332: where logical_page_id = p_logical_page_id;
1333:
1334: if upd.p_new_descr is null or fnd_api.g_miss_char <> upd.p_new_descr then
1335: update jtf_dpf_logical_pages_tl set
1336: logical_page_description = upd.p_new_descr,
1337: -- object_version_number = OBJECT_VERSION_NUMBER+1,
1338: last_update_date = sysdate,
1339: last_updated_by = fnd_global.user_id,
1342: language = userenv('LANG');
1343: end if;
1344:
1345: if fnd_api.g_miss_num <> upd.p_default_physical_id then
1346: delete from jtf_dpf_lgcl_phy_rules where
1347: default_page_flag = 'T' and
1348: logical_page_id = p_logical_page_id;
1349:
1350: insert into jtf_dpf_lgcl_phy_rules (
1346: delete from jtf_dpf_lgcl_phy_rules where
1347: default_page_flag = 'T' and
1348: logical_page_id = p_logical_page_id;
1349:
1350: insert into jtf_dpf_lgcl_phy_rules (
1351: logical_physical_id,
1352: logical_page_id,
1353: default_page_flag,
1354: physical_page_id,
1358: LAST_UPDATE_DATE,
1359: LAST_UPDATED_BY,
1360: LAST_UPDATE_LOGIN)
1361: values (
1362: jtf_dpf_lgcl_phy_rules_s.nextval,
1363: p_logical_page_id,
1364: 'T',
1365: upd.p_default_physical_id,
1366: 1,
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:
1402: from fnd_application where application_short_name = p_new_asn;
1403:
1404: -- if a logical with this name and appid already exist, then return 2
1405: select count(*) into existential
1406: from jtf_dpf_logical_pages_b
1407: where application_id = t_appid and
1408: logical_page_name = p_new_name;
1409:
1410: if existential <> 0 then return 2; end if;
1408: logical_page_name = p_new_name;
1409:
1410: if existential <> 0 then return 2; end if;
1411:
1412: select jtf_dpf_logical_pages_s.nextval into t_new_logical_page_id
1413: from dual;
1414:
1415: JTF_DPF_LOGICAL_PAGES_PKG.INSERT_ROW(
1416: X_ROWID => t_rowid,
1411:
1412: select jtf_dpf_logical_pages_s.nextval into t_new_logical_page_id
1413: from dual;
1414:
1415: JTF_DPF_LOGICAL_PAGES_PKG.INSERT_ROW(
1416: X_ROWID => t_rowid,
1417: X_LOGICAL_PAGE_ID => t_new_logical_page_id,
1418: X_LOGICAL_PAGE_NAME => p_new_name,
1419: X_LOGICAL_PAGE_TYPE => p_new_type,
1428: X_LAST_UPDATE_DATE => SYSDATE,
1429: X_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
1430: X_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID);
1431:
1432: -- insert into jtf_dpf_logical_pages_b(
1433: -- enabled_flag,
1434: -- logical_page_id,
1435: -- logical_page_name,
1436: -- logical_page_type,
1445: -- LAST_UPDATED_BY,
1446: -- LAST_UPDATE_LOGIN)
1447: -- values (
1448: -- 'T',
1449: -- jtf_dpf_logical_pages_s.nextval,
1450: -- p_new_name,
1451: -- p_new_type,
1452: -- t_appid,
1453: -- -- p_new_descr,
1460: -- FND_GLOBAL.USER_ID,
1461: -- FND_GLOBAL.CONC_LOGIN_ID)
1462: -- returning logical_page_id into t_new_logical_page_id;
1463: --
1464: -- insert into jtf_dpf_logical_pages_tl(
1465: -- logical_page_id,
1466: -- language,
1467: -- source_lang,
1468: -- logical_page_description,
1483: -- SYSDATE,
1484: -- FND_GLOBAL.USER_ID,
1485: -- FND_GLOBAL.CONC_LOGIN_ID);
1486:
1487: insert into jtf_dpf_lgcl_phy_rules (
1488: logical_physical_id,
1489: logical_page_id,
1490: default_page_flag,
1491: physical_page_id,
1495: LAST_UPDATE_DATE,
1496: LAST_UPDATED_BY,
1497: LAST_UPDATE_LOGIN)
1498: values (
1499: jtf_dpf_lgcl_phy_rules_s.nextval,
1500: t_new_logical_page_id,
1501: 'T',
1502: p_default_physical_id,
1503: 1,
1510: -- commit;
1511: return 1;
1512: end;
1513:
1514: -- updates table JTF_DPF_LGCL_PHY_RULES, so that the default_next_flag='F'
1515: -- rows which it contains for this logical_page_id are the rules and
1516: -- results specified by p_new_ones. It first throws out any old
1517: -- rows in the table.
1518: --
1521: procedure logical_set_non_default_phys(p_logical_page_id number,
1522: p_new_ones new_phys_non_def_tbl) is
1523: idx binary_integer;
1524: begin
1525: delete from jtf_dpf_lgcl_phy_rules where
1526: logical_page_id = p_logical_page_id and
1527: default_page_flag='F';
1528:
1529: if p_new_ones is not null and p_new_ones.count <> 0 then
1528:
1529: if p_new_ones is not null and p_new_ones.count <> 0 then
1530: idx := p_new_ones.first;
1531: while true loop
1532: insert into jtf_dpf_lgcl_phy_rules (
1533: logical_physical_id,
1534: logical_page_id,
1535: default_page_flag,
1536: rule_eval_sequence,
1542: LAST_UPDATE_DATE,
1543: LAST_UPDATED_BY,
1544: LAST_UPDATE_LOGIN)
1545: values(
1546: jtf_dpf_lgcl_phy_rules_s.nextval,
1547: p_logical_page_id,
1548: 'F',
1549: idx,
1550: p_new_ones(idx).physical_page_id,
1565:
1566: -- set next_logicals
1567: -- sets the default next logical of (flow_id, log_page_id) to
1568: -- next_log_page_id. This might either update an existing
1569: -- row in JTF_DPF_LGCL_NEXT_RULES or insert a new one
1570: -- if the new 'next' is null, it means there is no more next_logical
1571: -- for the given one.
1572: function next_logical_set_default(
1573: p_flow_id jtf_dpf_lgcl_next_rules.logical_flow_id%type,
1569: -- row in JTF_DPF_LGCL_NEXT_RULES or insert a new one
1570: -- if the new 'next' is null, it means there is no more next_logical
1571: -- for the given one.
1572: function next_logical_set_default(
1573: p_flow_id jtf_dpf_lgcl_next_rules.logical_flow_id%type,
1574: p_log_page_id jtf_dpf_lgcl_next_rules.logical_page_id%type,
1575: p_next_log_page_id jtf_dpf_lgcl_next_rules.logical_next_page_id%type)
1576: return number is
1577: existential number;
1570: -- if the new 'next' is null, it means there is no more next_logical
1571: -- for the given one.
1572: function next_logical_set_default(
1573: p_flow_id jtf_dpf_lgcl_next_rules.logical_flow_id%type,
1574: p_log_page_id jtf_dpf_lgcl_next_rules.logical_page_id%type,
1575: p_next_log_page_id jtf_dpf_lgcl_next_rules.logical_next_page_id%type)
1576: return number is
1577: existential number;
1578: begin
1571: -- for the given one.
1572: function next_logical_set_default(
1573: p_flow_id jtf_dpf_lgcl_next_rules.logical_flow_id%type,
1574: p_log_page_id jtf_dpf_lgcl_next_rules.logical_page_id%type,
1575: p_next_log_page_id jtf_dpf_lgcl_next_rules.logical_next_page_id%type)
1576: return number is
1577: existential number;
1578: begin
1579:
1579:
1580: -- see if this is an error case; return '2' if either p_log_page_id
1581: -- isn't there, or if p_next_log_page_id is both not null and not there
1582: select count(*) into existential
1583: from jtf_dpf_logical_pages_b
1584: where logical_page_id = p_log_page_id;
1585:
1586: if existential = 0 then return 2; end if;
1587:
1586: if existential = 0 then return 2; end if;
1587:
1588: if p_next_log_page_id is not null then
1589: select count(*) into existential
1590: from jtf_dpf_logical_pages_b
1591: where logical_page_id = p_next_log_page_id;
1592:
1593: if existential = 0 then return 2; end if;
1594: end if;
1594: end if;
1595:
1596: -- not the error case! just do the update, then...
1597: if p_next_log_page_id is null then
1598: delete from jtf_dpf_lgcl_next_rules
1599: where logical_page_id = p_log_page_id and
1600: logical_flow_id = p_flow_id;
1601: else
1602: delete from jtf_dpf_lgcl_next_rules
1598: delete from jtf_dpf_lgcl_next_rules
1599: where logical_page_id = p_log_page_id and
1600: logical_flow_id = p_flow_id;
1601: else
1602: delete from jtf_dpf_lgcl_next_rules
1603: where default_next_flag = 'T' and
1604: logical_page_id = p_log_page_id and
1605: logical_flow_id = p_flow_id;
1606: insert into jtf_dpf_lgcl_next_rules (
1602: delete from jtf_dpf_lgcl_next_rules
1603: where default_next_flag = 'T' and
1604: logical_page_id = p_log_page_id and
1605: logical_flow_id = p_flow_id;
1606: insert into jtf_dpf_lgcl_next_rules (
1607: logical_next_rule_id,
1608: logical_page_id,
1609: logical_next_page_id,
1610: default_next_flag,
1615: LAST_UPDATE_DATE,
1616: LAST_UPDATED_BY,
1617: LAST_UPDATE_LOGIN)
1618: values (
1619: jtf_dpf_lgcl_nxt_rules_s.nextval,
1620: p_log_page_id,
1621: p_next_log_page_id,
1622: 'T',
1623: p_flow_id,
1635:
1636: -- sets up the non-default next logical rules for (flow_id, log_page_id).
1637: -- if there were already non-default rules for it, it removes them first
1638: procedure next_logical_set_non_default(
1639: p_flow_id jtf_dpf_lgcl_next_rules.logical_flow_id%type,
1640: p_log_page_id jtf_dpf_lgcl_next_rules.logical_page_id%type,
1641: p_new_ones new_next_log_non_def_tbl) is
1642: idx binary_integer;
1643: begin
1636: -- sets up the non-default next logical rules for (flow_id, log_page_id).
1637: -- if there were already non-default rules for it, it removes them first
1638: procedure next_logical_set_non_default(
1639: p_flow_id jtf_dpf_lgcl_next_rules.logical_flow_id%type,
1640: p_log_page_id jtf_dpf_lgcl_next_rules.logical_page_id%type,
1641: p_new_ones new_next_log_non_def_tbl) is
1642: idx binary_integer;
1643: begin
1644: delete from jtf_dpf_lgcl_next_rules
1640: p_log_page_id jtf_dpf_lgcl_next_rules.logical_page_id%type,
1641: p_new_ones new_next_log_non_def_tbl) is
1642: idx binary_integer;
1643: begin
1644: delete from jtf_dpf_lgcl_next_rules
1645: where default_next_flag = 'F' and
1646: logical_page_id = p_log_page_id and
1647: logical_flow_id = p_flow_id;
1648:
1648:
1649: if p_new_ones is not null and p_new_ones.count <> 0 then
1650: idx := p_new_ones.first;
1651: while true loop
1652: insert into jtf_dpf_lgcl_next_rules(
1653: logical_next_rule_id,
1654: logical_page_id,
1655: logical_next_page_id,
1656: default_next_flag,
1663: LAST_UPDATE_DATE,
1664: LAST_UPDATED_BY,
1665: LAST_UPDATE_LOGIN)
1666: values (
1667: jtf_dpf_lgcl_nxt_rules_s.nextval,
1668: p_log_page_id,
1669: p_new_ones(idx).logical_page_id,
1670: 'F',
1671: idx,