[Home] [Help]
PACKAGE BODY: APPS.OKL_CREDIT_MGNT_PUB_W
Source
1 package body okl_credit_mgnt_pub_w as
2 /* $Header: OKLUCMTB.pls 115.4 2003/10/30 23:20:30 rgalipo noship $ */
3 procedure submit_credit_request(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , x_return_status out nocopy VARCHAR2
6 , x_msg_count out nocopy NUMBER
7 , x_msg_data out nocopy VARCHAR2
8 , p_contract_id NUMBER
9 , p_review_type VARCHAR2
10 , p_credit_classification VARCHAR2
11 , p_requested_amount NUMBER
12 , p_contact_party_id NUMBER
13 , p_notes VARCHAR2
14 , p11_a0 NUMBER
15 , p11_a1 NUMBER
16 , p11_a2 NUMBER
17 , p11_a3 NUMBER
18 , p11_a4 NUMBER
19 , p11_a5 VARCHAR2
20 , p11_a6 NUMBER
21 , p11_a7 VARCHAR2
22 , p11_a8 NUMBER
23 , p11_a9 NUMBER
24 , p11_a10 NUMBER
25 , p11_a11 NUMBER
26 , p11_a12 NUMBER
27 )
28
29 as
30 ddp_chr_rec okl_credit_mgnt_pvt.l_chr_rec;
31 ddindx binary_integer; indx binary_integer;
32 begin
33
34 -- copy data to the local IN or IN-OUT args, if any
35
36
37
38
39
40
41
42
43
44
45
46 ddp_chr_rec.party_id := p11_a0;
47 ddp_chr_rec.cust_acct_id := p11_a1;
48 ddp_chr_rec.cust_acct_site_id := p11_a2;
49 ddp_chr_rec.site_use_id := p11_a3;
50 ddp_chr_rec.contract_id := p11_a4;
51 ddp_chr_rec.contract_number := p11_a5;
52 ddp_chr_rec.credit_khr_id := p11_a6;
53 ddp_chr_rec.currency := p11_a7;
54 ddp_chr_rec.txn_amount := p11_a8;
55 ddp_chr_rec.requested_amount := p11_a9;
56 ddp_chr_rec.term := p11_a10;
57 ddp_chr_rec.party_contact_id := p11_a11;
58 ddp_chr_rec.org_id := p11_a12;
59
60 -- here's the delegated call to the old PL/SQL routine
61 okl_credit_mgnt_pub.submit_credit_request(p_api_version,
62 p_init_msg_list,
63 x_return_status,
64 x_msg_count,
65 x_msg_data,
66 p_contract_id,
67 p_review_type,
68 p_credit_classification,
69 p_requested_amount,
70 p_contact_party_id,
71 p_notes,
72 ddp_chr_rec);
73
74 -- copy data back from the local variables to OUT or IN-OUT args, if any
75
76
77
78
79
80
81
82
83
84
85
86 end;
87
88 procedure compile_credit_request(p_api_version NUMBER
89 , p_init_msg_list VARCHAR2
90 , x_return_status out nocopy VARCHAR2
91 , x_msg_count out nocopy NUMBER
92 , x_msg_data out nocopy VARCHAR2
93 , p_contract_id NUMBER
94 , p6_a0 out nocopy NUMBER
95 , p6_a1 out nocopy NUMBER
96 , p6_a2 out nocopy NUMBER
97 , p6_a3 out nocopy NUMBER
98 , p6_a4 out nocopy NUMBER
99 , p6_a5 out nocopy VARCHAR2
100 , p6_a6 out nocopy NUMBER
101 , p6_a7 out nocopy VARCHAR2
102 , p6_a8 out nocopy NUMBER
103 , p6_a9 out nocopy NUMBER
104 , p6_a10 out nocopy NUMBER
105 , p6_a11 out nocopy NUMBER
106 , p6_a12 out nocopy NUMBER
107 )
108
109 as
110 ddx_chr_rec okl_credit_mgnt_pvt.l_chr_rec;
111 ddindx binary_integer; indx binary_integer;
112 begin
113
114 -- copy data to the local IN or IN-OUT args, if any
115
116
117
118
119
120
121
122 -- here's the delegated call to the old PL/SQL routine
123 okl_credit_mgnt_pub.compile_credit_request(p_api_version,
124 p_init_msg_list,
125 x_return_status,
126 x_msg_count,
127 x_msg_data,
128 p_contract_id,
129 ddx_chr_rec);
130
131 -- copy data back from the local variables to OUT or IN-OUT args, if any
132
133
134
135
136
137
138 p6_a0 := ddx_chr_rec.party_id;
139 p6_a1 := ddx_chr_rec.cust_acct_id;
140 p6_a2 := ddx_chr_rec.cust_acct_site_id;
141 p6_a3 := ddx_chr_rec.site_use_id;
142 p6_a4 := ddx_chr_rec.contract_id;
143 p6_a5 := ddx_chr_rec.contract_number;
144 p6_a6 := ddx_chr_rec.credit_khr_id;
145 p6_a7 := ddx_chr_rec.currency;
146 p6_a8 := ddx_chr_rec.txn_amount;
147 p6_a9 := ddx_chr_rec.requested_amount;
148 p6_a10 := ddx_chr_rec.term;
149 p6_a11 := ddx_chr_rec.party_contact_id;
150 p6_a12 := ddx_chr_rec.org_id;
151 end;
152
153 end okl_credit_mgnt_pub_w;