APPS.FUN_SEQ_W dependencies on FUN_SEQ

Line 1: package body fun_seq_w as

1: package body fun_seq_w as
2: /* $Header: fun_seq_wb.pls 120.0 2003/09/11 21:30:17 masada noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy fun_seq.control_date_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4: , a1 JTF_DATE_TABLE
5: ) as

Line 2: /* $Header: fun_seq_wb.pls 120.0 2003/09/11 21:30:17 masada noship $ */

1: package body fun_seq_w as
2: /* $Header: fun_seq_wb.pls 120.0 2003/09/11 21:30:17 masada noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy fun_seq.control_date_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4: , a1 JTF_DATE_TABLE
5: ) as
6: ddindx binary_integer; indx binary_integer;

Line 3: procedure rosetta_table_copy_in_p1(t out nocopy fun_seq.control_date_tbl_type, a0 JTF_VARCHAR2_TABLE_100

1: package body fun_seq_w as
2: /* $Header: fun_seq_wb.pls 120.0 2003/09/11 21:30:17 masada noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy fun_seq.control_date_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4: , a1 JTF_DATE_TABLE
5: ) as
6: ddindx binary_integer; indx binary_integer;
7: begin

Line 9: t := fun_seq.control_date_tbl_type();

5: ) as
6: ddindx binary_integer; indx binary_integer;
7: begin
8: if a0 is not null and a0.count=0 then
9: t := fun_seq.control_date_tbl_type();
10: elsif a0 is not null and a0.count > 0 then
11: if a0.count > 0 then
12: t := fun_seq.control_date_tbl_type();
13: t.extend(a0.count);

Line 12: t := fun_seq.control_date_tbl_type();

8: if a0 is not null and a0.count=0 then
9: t := fun_seq.control_date_tbl_type();
10: elsif a0 is not null and a0.count > 0 then
11: if a0.count > 0 then
12: t := fun_seq.control_date_tbl_type();
13: t.extend(a0.count);
14: indx := a0.first;
15: ddindx := 1;
16: while true loop

Line 28: procedure rosetta_table_copy_out_p1(t fun_seq.control_date_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100

24: end loop;
25: end if;
26: end if;
27: end rosetta_table_copy_in_p1;
28: procedure rosetta_table_copy_out_p1(t fun_seq.control_date_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
29: , a1 out nocopy JTF_DATE_TABLE
30: ) as
31: ddindx binary_integer; indx binary_integer;
32: begin

Line 81: ddp_control_attribute_rec fun_seq.control_attribute_rec_type;

77: , x_error_code out nocopy VARCHAR2
78: )
79:
80: as
81: ddp_control_attribute_rec fun_seq.control_attribute_rec_type;
82: ddp_control_date_tbl fun_seq.control_date_tbl_type;
83: ddindx binary_integer; indx binary_integer;
84: begin
85:

Line 82: ddp_control_date_tbl fun_seq.control_date_tbl_type;

78: )
79:
80: as
81: ddp_control_attribute_rec fun_seq.control_attribute_rec_type;
82: ddp_control_date_tbl fun_seq.control_date_tbl_type;
83: ddindx binary_integer; indx binary_integer;
84: begin
85:
86: -- copy data to the local IN or IN-OUT args, if any

Line 99: fun_seq_w.rosetta_table_copy_in_p1(ddp_control_date_tbl, p6_a0

95: ddp_control_attribute_rec.document_category := p5_a3;
96: ddp_control_attribute_rec.accounting_event_type := p5_a4;
97: ddp_control_attribute_rec.accounting_entry_type := p5_a5;
98:
99: fun_seq_w.rosetta_table_copy_in_p1(ddp_control_date_tbl, p6_a0
100: , p6_a1
101: );
102:
103:

Line 109: fun_seq.get_sequence_number(p_context_type,

105:
106:
107:
108: -- here's the delegated call to the old PL/SQL routine
109: fun_seq.get_sequence_number(p_context_type,
110: p_context_value,
111: p_application_id,
112: p_table_name,
113: p_event_code,

Line 136: end fun_seq_w;

132:
133:
134: end;
135:
136: end fun_seq_w;