[Home] [Help]
1: package body oe_oe_html_line_w as
2: /* $Header: ONTRLINB.pls 120.0 2005/06/01 02:38:04 appldev noship $ */
3: rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4: rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p0(t out NOCOPY /* file.sql.39 change */ oe_oe_html_line.number_tbl_type, a0 JTF_NUMBER_TABLE) as
23: ddindx binary_integer; indx binary_integer;
24: begin
25: if a0 is not null and a0.count > 0 then
26: if a0.count > 0 then
36: end loop;
37: end if;
38: end if;
39: end rosetta_table_copy_in_p0;
40: procedure rosetta_table_copy_out_p0(t oe_oe_html_line.number_tbl_type, a0 out NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE) as
41: ddindx binary_integer; indx binary_integer;
42: begin
43: if t is null or t.count = 0 then
44: a0 := JTF_NUMBER_TABLE();
59: end if;
60: end if;
61: end rosetta_table_copy_out_p0;
62:
63: procedure rosetta_table_copy_in_p1(t out NOCOPY /* file.sql.39 change */ oe_oe_html_line.varchar2_tbl_type, a0 JTF_VARCHAR2_TABLE_2000) as
64: ddindx binary_integer; indx binary_integer;
65: begin
66: if a0 is not null and a0.count > 0 then
67: if a0.count > 0 then
77: end loop;
78: end if;
79: end if;
80: end rosetta_table_copy_in_p1;
81: procedure rosetta_table_copy_out_p1(t oe_oe_html_line.varchar2_tbl_type, a0 out NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_2000) as
82: ddindx binary_integer; indx binary_integer;
83: begin
84: if t is null or t.count = 0 then
85: a0 := JTF_VARCHAR2_TABLE_2000();
1643: ddp_header_rec.contract_source_doc_type_code := p6_a214;
1644: ddp_header_rec.contract_source_document_id := rosetta_g_miss_num_map(p6_a215);
1645:
1646: -- here's the delegated call to the old PL/SQL routine
1647: oe_oe_html_line.default_attributes(x_return_status,
1648: x_msg_count,
1649: x_msg_data,
1650: p_header_id,
1651: ddx_line_rec,
3374: , p12_a145 in out NOCOPY /* file.sql.39 change */ VARCHAR2
3375: )
3376:
3377: as
3378: ddp_attr_id_tbl oe_oe_html_line.number_tbl_type;
3379: ddp_attr_value_tbl oe_oe_html_line.varchar2_tbl_type;
3380: ddx_line_rec oe_order_pub.line_rec_type;
3381: ddx_old_line_rec oe_order_pub.line_rec_type;
3382: ddx_line_val_rec oe_order_pub.line_val_rec_type;
3375: )
3376:
3377: as
3378: ddp_attr_id_tbl oe_oe_html_line.number_tbl_type;
3379: ddp_attr_value_tbl oe_oe_html_line.varchar2_tbl_type;
3380: ddx_line_rec oe_order_pub.line_rec_type;
3381: ddx_old_line_rec oe_order_pub.line_rec_type;
3382: ddx_line_val_rec oe_order_pub.line_val_rec_type;
3383: ddindx binary_integer; indx binary_integer;
3389:
3390:
3391:
3392:
3393: oe_oe_html_line_w.rosetta_table_copy_in_p0(ddp_attr_id_tbl, p_attr_id_tbl);
3394:
3395: oe_oe_html_line_w.rosetta_table_copy_in_p1(ddp_attr_value_tbl, p_attr_value_tbl);
3396:
3397:
3391:
3392:
3393: oe_oe_html_line_w.rosetta_table_copy_in_p0(ddp_attr_id_tbl, p_attr_id_tbl);
3394:
3395: oe_oe_html_line_w.rosetta_table_copy_in_p1(ddp_attr_value_tbl, p_attr_value_tbl);
3396:
3397:
3398:
3399: ddx_line_rec.accounting_rule_id := rosetta_g_miss_num_map(p10_a0);
4347: ddx_line_val_rec.end_customer_site_postal_code := p12_a144;
4348: ddx_line_val_rec.blanket_agreement_name := p12_a145;
4349:
4350: -- here's the delegated call to the old PL/SQL routine
4351: oe_oe_html_line.change_attribute(x_return_status,
4352: x_msg_count,
4353: x_msg_data,
4354: p_line_id,
4355: p_attr_id,
5324: p12_a144 := ddx_line_val_rec.end_customer_site_postal_code;
5325: p12_a145 := ddx_line_val_rec.blanket_agreement_name;
5326: end;
5327:
5328: end oe_oe_html_line_w;