1 package body okl_credit_mgnt_pvt_w as
2 /* $Header: OKLECMTB.pls 115.3 2003/01/20 17:38:22 rgalipo 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 function rosetta_g_miss_num_map(n number) return number as
7 a number := okl_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return okl_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure submit_credit_request(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_contract_id NUMBER
28 , p_review_type VARCHAR2
29 , p_credit_classification VARCHAR2
30 , p_requested_amount NUMBER
31 , p_contact_party_id NUMBER
32 , p_notes VARCHAR2
33 , p11_a0 NUMBER := 0-1962.0724
34 , p11_a1 NUMBER := 0-1962.0724
35 , p11_a2 NUMBER := 0-1962.0724
36 , p11_a3 NUMBER := 0-1962.0724
37 , p11_a4 NUMBER := 0-1962.0724
38 , p11_a5 VARCHAR2 := null
39 , p11_a6 NUMBER := 0-1962.0724
40 , p11_a7 VARCHAR2 := null
41 , p11_a8 NUMBER := 0-1962.0724
42 , p11_a9 NUMBER := 0-1962.0724
43 , p11_a10 NUMBER := 0-1962.0724
44 , p11_a11 NUMBER := 0-1962.0724
45 , p11_a12 NUMBER := 0-1962.0724
46 )
47
48 as
49 ddp_chr_rec okl_credit_mgnt_pvt.l_chr_rec;
50 ddindx binary_integer; indx binary_integer;
51 begin
52
53 -- copy data to the local IN or IN-OUT args, if any
54
55
56
57
58
59
60
61
62
63
64
65 ddp_chr_rec.party_id := rosetta_g_miss_num_map(p11_a0);
66 ddp_chr_rec.cust_acct_id := rosetta_g_miss_num_map(p11_a1);
67 ddp_chr_rec.cust_acct_site_id := rosetta_g_miss_num_map(p11_a2);
68 ddp_chr_rec.site_use_id := rosetta_g_miss_num_map(p11_a3);
69 ddp_chr_rec.contract_id := rosetta_g_miss_num_map(p11_a4);
70 ddp_chr_rec.contract_number := p11_a5;
71 ddp_chr_rec.credit_khr_id := rosetta_g_miss_num_map(p11_a6);
72 ddp_chr_rec.currency := p11_a7;
73 ddp_chr_rec.txn_amount := rosetta_g_miss_num_map(p11_a8);
74 ddp_chr_rec.requested_amount := rosetta_g_miss_num_map(p11_a9);
75 ddp_chr_rec.term := rosetta_g_miss_num_map(p11_a10);
76 ddp_chr_rec.party_contact_id := rosetta_g_miss_num_map(p11_a11);
77 ddp_chr_rec.org_id := rosetta_g_miss_num_map(p11_a12);
78
79 -- here's the delegated call to the old PL/SQL routine
80 okl_credit_mgnt_pvt.submit_credit_request(p_api_version,
81 p_init_msg_list,
82 x_return_status,
83 x_msg_count,
84 x_msg_data,
85 p_contract_id,
86 p_review_type,
87 p_credit_classification,
88 p_requested_amount,
89 p_contact_party_id,
90 p_notes,
91 ddp_chr_rec);
92
93 -- copy data back from the local variables to OUT or IN-OUT args, if any
94
95
96
97
98
99
100
101
102
103
104
105 end;
106
107 procedure compile_credit_request(p_api_version NUMBER
108 , p_init_msg_list VARCHAR2
109 , x_return_status out NOCOPY VARCHAR2
110 , x_msg_count out NOCOPY NUMBER
111 , x_msg_data out NOCOPY VARCHAR2
112 , p_contract_id NUMBER
113 , p6_a0 out NOCOPY NUMBER
114 , p6_a1 out NOCOPY NUMBER
115 , p6_a2 out NOCOPY NUMBER
116 , p6_a3 out NOCOPY NUMBER
117 , p6_a4 out NOCOPY NUMBER
118 , p6_a5 out NOCOPY VARCHAR2
119 , p6_a6 out NOCOPY NUMBER
120 , p6_a7 out NOCOPY VARCHAR2
121 , p6_a8 out NOCOPY NUMBER
122 , p6_a9 out NOCOPY NUMBER
123 , p6_a10 out NOCOPY NUMBER
124 , p6_a11 out NOCOPY NUMBER
125 , p6_a12 out NOCOPY NUMBER
126 )
127
128 as
129 ddx_chr_rec okl_credit_mgnt_pvt.l_chr_rec;
130 ddindx binary_integer; indx binary_integer;
131 begin
132
133 -- copy data to the local IN or IN-OUT args, if any
134
135
136
137
138
139
140
141 -- here's the delegated call to the old PL/SQL routine
142 okl_credit_mgnt_pvt.compile_credit_request(p_api_version,
143 p_init_msg_list,
144 x_return_status,
145 x_msg_count,
146 x_msg_data,
147 p_contract_id,
148 ddx_chr_rec);
149
150 -- copy data back from the local variables to OUT or IN-OUT args, if any
151
152
153
154
155
156
157 p6_a0 := rosetta_g_miss_num_map(ddx_chr_rec.party_id);
158 p6_a1 := rosetta_g_miss_num_map(ddx_chr_rec.cust_acct_id);
159 p6_a2 := rosetta_g_miss_num_map(ddx_chr_rec.cust_acct_site_id);
160 p6_a3 := rosetta_g_miss_num_map(ddx_chr_rec.site_use_id);
161 p6_a4 := rosetta_g_miss_num_map(ddx_chr_rec.contract_id);
162 p6_a5 := ddx_chr_rec.contract_number;
163 p6_a6 := rosetta_g_miss_num_map(ddx_chr_rec.credit_khr_id);
164 p6_a7 := ddx_chr_rec.currency;
165 p6_a8 := rosetta_g_miss_num_map(ddx_chr_rec.txn_amount);
166 p6_a9 := rosetta_g_miss_num_map(ddx_chr_rec.requested_amount);
167 p6_a10 := rosetta_g_miss_num_map(ddx_chr_rec.term);
168 p6_a11 := rosetta_g_miss_num_map(ddx_chr_rec.party_contact_id);
169 p6_a12 := rosetta_g_miss_num_map(ddx_chr_rec.org_id);
170 end;
171
172 end okl_credit_mgnt_pvt_w;
[Home] [Help]