[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_RECYCLE_TRMNT_PUB_W
Source
1 package body okl_am_recycle_trmnt_pub_w as
2 /* $Header: OKLURTXB.pls 120.1 2005/07/07 12:49:12 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 recycle_termination(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 , p6_a0 out nocopy NUMBER
28 , p6_a1 out nocopy VARCHAR2
29 , p6_a2 out nocopy VARCHAR2
30 , p6_a3 out nocopy NUMBER
31 , p6_a4 out nocopy VARCHAR2
32 , p6_a5 out nocopy VARCHAR2
33 , p6_a6 out nocopy DATE
34 , p5_a0 NUMBER := 0-1962.0724
35 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
36 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
37 , p5_a3 NUMBER := 0-1962.0724
38 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
39 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
40 , p5_a6 DATE := fnd_api.g_miss_date
41 )
42
43 as
44 ddp_recy_rec okl_am_recycle_trmnt_pub.recy_rec_type;
45 ddx_recy_rec okl_am_recycle_trmnt_pub.recy_rec_type;
46 ddindx binary_integer; indx binary_integer;
47 begin
48
49 -- copy data to the local IN or IN-OUT args, if any
50
51
52
53
54
55 ddp_recy_rec.p_contract_id := rosetta_g_miss_num_map(p5_a0);
56 ddp_recy_rec.p_contract_number := p5_a1;
57 ddp_recy_rec.p_contract_status := p5_a2;
58 ddp_recy_rec.p_transaction_id := rosetta_g_miss_num_map(p5_a3);
59 ddp_recy_rec.p_transaction_status := p5_a4;
60 ddp_recy_rec.p_tmt_recycle_yn := p5_a5;
61 ddp_recy_rec.p_transaction_date := rosetta_g_miss_date_in_map(p5_a6);
62
63
64 -- here's the delegated call to the old PL/SQL routine
65 okl_am_recycle_trmnt_pub.recycle_termination(p_api_version,
66 p_init_msg_list,
67 x_return_status,
68 x_msg_count,
69 x_msg_data,
70 ddp_recy_rec,
71 ddx_recy_rec);
72
73 -- copy data back from the local variables to OUT or IN-OUT args, if any
74
75
76
77
78
79
80 p6_a0 := rosetta_g_miss_num_map(ddx_recy_rec.p_contract_id);
81 p6_a1 := ddx_recy_rec.p_contract_number;
82 p6_a2 := ddx_recy_rec.p_contract_status;
83 p6_a3 := rosetta_g_miss_num_map(ddx_recy_rec.p_transaction_id);
84 p6_a4 := ddx_recy_rec.p_transaction_status;
85 p6_a5 := ddx_recy_rec.p_tmt_recycle_yn;
86 p6_a6 := ddx_recy_rec.p_transaction_date;
87 end;
88
89 procedure recycle_termination(p_api_version NUMBER
90 , p_init_msg_list VARCHAR2
91 , x_return_status out nocopy VARCHAR2
92 , x_msg_count out nocopy NUMBER
93 , x_msg_data out nocopy VARCHAR2
94 , p5_a0 JTF_NUMBER_TABLE
95 , p5_a1 JTF_VARCHAR2_TABLE_200
96 , p5_a2 JTF_VARCHAR2_TABLE_200
97 , p5_a3 JTF_NUMBER_TABLE
98 , p5_a4 JTF_VARCHAR2_TABLE_200
99 , p5_a5 JTF_VARCHAR2_TABLE_200
100 , p5_a6 JTF_DATE_TABLE
101 , p6_a0 out nocopy JTF_NUMBER_TABLE
102 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
103 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_200
104 , p6_a3 out nocopy JTF_NUMBER_TABLE
105 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_200
106 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
107 , p6_a6 out nocopy JTF_DATE_TABLE
108 )
109
110 as
111 ddp_recy_tbl okl_am_recycle_trmnt_pub.recy_tbl_type;
112 ddx_recy_tbl okl_am_recycle_trmnt_pub.recy_tbl_type;
113 ddindx binary_integer; indx binary_integer;
114 begin
115
116 -- copy data to the local IN or IN-OUT args, if any
117
118
119
120
121
122 okl_am_recycle_trmnt_pvt_w.rosetta_table_copy_in_p13(ddp_recy_tbl, p5_a0
123 , p5_a1
124 , p5_a2
125 , p5_a3
126 , p5_a4
127 , p5_a5
128 , p5_a6
129 );
130
131
132 -- here's the delegated call to the old PL/SQL routine
133 okl_am_recycle_trmnt_pub.recycle_termination(p_api_version,
134 p_init_msg_list,
135 x_return_status,
136 x_msg_count,
137 x_msg_data,
138 ddp_recy_tbl,
139 ddx_recy_tbl);
140
141 -- copy data back from the local variables to OUT or IN-OUT args, if any
142
143
144
145
146
147
148 okl_am_recycle_trmnt_pvt_w.rosetta_table_copy_out_p13(ddx_recy_tbl, p6_a0
149 , p6_a1
150 , p6_a2
151 , p6_a3
152 , p6_a4
153 , p6_a5
154 , p6_a6
155 );
156 end;
157
158 end okl_am_recycle_trmnt_pub_w;