1 package body okl_formulaevaluate_pub_w as
2 /* $Header: OKLUEVAB.pls 120.1 2005/07/12 07:05:55 asawanka 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
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure eva_getparametervalues(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p_fma_id NUMBER
28 , p_contract_id NUMBER
29 , p7_a0 out nocopy JTF_NUMBER_TABLE
30 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_200
31 , p7_a2 out nocopy JTF_NUMBER_TABLE
32 , p_line_id NUMBER
33 )
34
35 as
36 ddx_ctx_parameter_tbl okl_formulaevaluate_pub.ctxparameter_tbl;
37 ddindx binary_integer; indx binary_integer;
38 begin
39
40 -- copy data to the local IN or IN-OUT args, if any
41
42
43
44
45
46
47
48
49
50 -- here's the delegated call to the old PL/SQL routine
51 okl_formulaevaluate_pub.eva_getparametervalues(p_api_version,
52 p_init_msg_list,
53 x_return_status,
54 x_msg_count,
55 x_msg_data,
56 p_fma_id,
57 p_contract_id,
58 ddx_ctx_parameter_tbl,
59 p_line_id);
60
61 -- copy data back from the local variables to OUT or IN-OUT args, if any
62
63
64
65
66
67
68
69 okl_formulaevaluate_pvt_w.rosetta_table_copy_out_p24(ddx_ctx_parameter_tbl, p7_a0
70 , p7_a1
71 , p7_a2
72 );
73
74 end;
75
76 procedure eva_getfunctionvalue(p_api_version NUMBER
77 , p_init_msg_list VARCHAR2
78 , x_return_status out nocopy VARCHAR2
79 , x_msg_count out nocopy NUMBER
80 , x_msg_data out nocopy VARCHAR2
81 , p_fma_id NUMBER
82 , p_contract_id NUMBER
83 , p_line_id NUMBER
84 , p8_a0 JTF_NUMBER_TABLE
85 , p8_a1 JTF_VARCHAR2_TABLE_200
86 , p8_a2 JTF_NUMBER_TABLE
87 , p9_a0 out nocopy JTF_NUMBER_TABLE
88 , p9_a1 out nocopy JTF_VARCHAR2_TABLE_200
89 , p9_a2 out nocopy JTF_VARCHAR2_TABLE_800
90 , p9_a3 out nocopy JTF_VARCHAR2_TABLE_100
91 , p9_a4 out nocopy JTF_NUMBER_TABLE
92 )
93
94 as
95 ddp_ctx_parameter_tbl okl_formulaevaluate_pub.ctxparameter_tbl;
96 ddx_function_tbl okl_formulaevaluate_pub.function_tbl;
97 ddindx binary_integer; indx binary_integer;
98 begin
99
100 -- copy data to the local IN or IN-OUT args, if any
101
102
103
104
105
106
107
108
109 okl_formulaevaluate_pvt_w.rosetta_table_copy_in_p24(ddp_ctx_parameter_tbl, p8_a0
110 , p8_a1
111 , p8_a2
112 );
113
114
115 -- here's the delegated call to the old PL/SQL routine
116 okl_formulaevaluate_pub.eva_getfunctionvalue(p_api_version,
117 p_init_msg_list,
118 x_return_status,
119 x_msg_count,
120 x_msg_data,
121 p_fma_id,
122 p_contract_id,
123 p_line_id,
124 ddp_ctx_parameter_tbl,
125 ddx_function_tbl);
126
127 -- copy data back from the local variables to OUT or IN-OUT args, if any
128
129
130
131
132
133
134
135
136
137 okl_formulaevaluate_pvt_w.rosetta_table_copy_out_p26(ddx_function_tbl, p9_a0
138 , p9_a1
139 , p9_a2
140 , p9_a3
141 , p9_a4
142 );
143 end;
144
145 end okl_formulaevaluate_pub_w;