1: package body ahl_prd_wo_login_pvt_w as
2: /* $Header: AHLVLGWB.pls 120.0 2005/09/08 08:12 sracha noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy ahl_prd_wo_login_pvt.wo_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_VARCHAR2_TABLE_100
5: ) as
6: ddindx binary_integer; indx binary_integer;
7: begin
20: end loop;
21: end if;
22: end if;
23: end rosetta_table_copy_in_p1;
24: procedure rosetta_table_copy_out_p1(t ahl_prd_wo_login_pvt.wo_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
25: , a1 out nocopy JTF_VARCHAR2_TABLE_100
26: ) as
27: ddindx binary_integer; indx binary_integer;
28: begin
26: ) as
27: ddindx binary_integer; indx binary_integer;
28: begin
29: if t is null or t.count = 0 then
30: a0 := JTF_NUMBER_TABLE();
31: a1 := JTF_VARCHAR2_TABLE_100();
32: else
33: a0 := JTF_NUMBER_TABLE();
34: a1 := JTF_VARCHAR2_TABLE_100();
29: if t is null or t.count = 0 then
30: a0 := JTF_NUMBER_TABLE();
31: a1 := JTF_VARCHAR2_TABLE_100();
32: else
33: a0 := JTF_NUMBER_TABLE();
34: a1 := JTF_VARCHAR2_TABLE_100();
35: if t.count > 0 then
36: a0.extend(t.count);
37: a1.extend(t.count);
49: end if;
50: end if;
51: end rosetta_table_copy_out_p1;
52:
53: procedure rosetta_table_copy_in_p3(t out nocopy ahl_prd_wo_login_pvt.op_res_tbl_type, a0 JTF_NUMBER_TABLE
54: , a1 JTF_NUMBER_TABLE
55: , a2 JTF_VARCHAR2_TABLE_100
56: ) as
57: ddindx binary_integer; indx binary_integer;
50: end if;
51: end rosetta_table_copy_out_p1;
52:
53: procedure rosetta_table_copy_in_p3(t out nocopy ahl_prd_wo_login_pvt.op_res_tbl_type, a0 JTF_NUMBER_TABLE
54: , a1 JTF_NUMBER_TABLE
55: , a2 JTF_VARCHAR2_TABLE_100
56: ) as
57: ddindx binary_integer; indx binary_integer;
58: begin
72: end loop;
73: end if;
74: end if;
75: end rosetta_table_copy_in_p3;
76: procedure rosetta_table_copy_out_p3(t ahl_prd_wo_login_pvt.op_res_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
77: , a1 out nocopy JTF_NUMBER_TABLE
78: , a2 out nocopy JTF_VARCHAR2_TABLE_100
79: ) as
80: ddindx binary_integer; indx binary_integer;
73: end if;
74: end if;
75: end rosetta_table_copy_in_p3;
76: procedure rosetta_table_copy_out_p3(t ahl_prd_wo_login_pvt.op_res_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
77: , a1 out nocopy JTF_NUMBER_TABLE
78: , a2 out nocopy JTF_VARCHAR2_TABLE_100
79: ) as
80: ddindx binary_integer; indx binary_integer;
81: begin
79: ) as
80: ddindx binary_integer; indx binary_integer;
81: begin
82: if t is null or t.count = 0 then
83: a0 := JTF_NUMBER_TABLE();
84: a1 := JTF_NUMBER_TABLE();
85: a2 := JTF_VARCHAR2_TABLE_100();
86: else
87: a0 := JTF_NUMBER_TABLE();
80: ddindx binary_integer; indx binary_integer;
81: begin
82: if t is null or t.count = 0 then
83: a0 := JTF_NUMBER_TABLE();
84: a1 := JTF_NUMBER_TABLE();
85: a2 := JTF_VARCHAR2_TABLE_100();
86: else
87: a0 := JTF_NUMBER_TABLE();
88: a1 := JTF_NUMBER_TABLE();
83: a0 := JTF_NUMBER_TABLE();
84: a1 := JTF_NUMBER_TABLE();
85: a2 := JTF_VARCHAR2_TABLE_100();
86: else
87: a0 := JTF_NUMBER_TABLE();
88: a1 := JTF_NUMBER_TABLE();
89: a2 := JTF_VARCHAR2_TABLE_100();
90: if t.count > 0 then
91: a0.extend(t.count);
84: a1 := JTF_NUMBER_TABLE();
85: a2 := JTF_VARCHAR2_TABLE_100();
86: else
87: a0 := JTF_NUMBER_TABLE();
88: a1 := JTF_NUMBER_TABLE();
89: a2 := JTF_VARCHAR2_TABLE_100();
90: if t.count > 0 then
91: a0.extend(t.count);
92: a1.extend(t.count);
108: end rosetta_table_copy_out_p3;
109:
110: procedure get_wo_login_info(p_function_name VARCHAR2
111: , p_employee_id NUMBER
112: , p2_a0 in out nocopy JTF_NUMBER_TABLE
113: , p2_a1 in out nocopy JTF_VARCHAR2_TABLE_100
114: )
115:
116: as
140:
141: procedure get_op_res_login_info(p_workorder_id NUMBER
142: , p_employee_id NUMBER
143: , p_function_name VARCHAR2
144: , p3_a0 in out nocopy JTF_NUMBER_TABLE
145: , p3_a1 in out nocopy JTF_NUMBER_TABLE
146: , p3_a2 in out nocopy JTF_VARCHAR2_TABLE_100
147: )
148:
141: procedure get_op_res_login_info(p_workorder_id NUMBER
142: , p_employee_id NUMBER
143: , p_function_name VARCHAR2
144: , p3_a0 in out nocopy JTF_NUMBER_TABLE
145: , p3_a1 in out nocopy JTF_NUMBER_TABLE
146: , p3_a2 in out nocopy JTF_VARCHAR2_TABLE_100
147: )
148:
149: as