PACKAGE BODY: APPS.OKL_LA_VALIDATION_UTIL_PVT_W

Source

1 package body okl_la_validation_util_pvt_w as
2   /* $Header: OKLEDVUB.pls 115.4 2003/09/23 14:17:45 kthiruva 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   procedure validate_deal(p_api_version  NUMBER
14     , p_init_msg_list  VARCHAR2
15     , x_return_status out nocopy  VARCHAR2
16     , x_msg_count out nocopy  NUMBER
17     , x_msg_data out nocopy  VARCHAR2
18     , p_chr_id  NUMBER
19     , p_scs_code  VARCHAR2
20     , p_contract_number  VARCHAR2
21     , p_customer_id1 in out nocopy  VARCHAR2
22     , p_customer_id2 in out nocopy  VARCHAR2
23     , p_customer_code in out nocopy  VARCHAR2
24     , p_customer_name  VARCHAR2
25     , p_chr_cust_acct_id out nocopy  NUMBER
26     , p_customer_acc_name  VARCHAR2
27     , p_product_name  VARCHAR2
28     , p_product_id in out nocopy  VARCHAR2
29     , p_product_desc in out nocopy  VARCHAR2
30     , p_contact_id1 in out nocopy  VARCHAR2
31     , p_contact_id2 in out nocopy  VARCHAR2
32     , p_contact_code in out nocopy  VARCHAR2
33     , p_contact_name  VARCHAR2
34     , p_mla_no  VARCHAR2
35     , p_mla_id in out nocopy  VARCHAR2
36     , p_program_no  VARCHAR2
37     , p_program_id in out nocopy  VARCHAR2
38     , p_credit_line_no  VARCHAR2
39     , p_credit_line_id in out nocopy  VARCHAR2
40     , p_currency_name  VARCHAR2
41     , p_currency_code in out nocopy  VARCHAR2
42     , p_start_date  date
43     , p_deal_type  VARCHAR2
44   )
45 
46   as
47     ddp_start_date date;
48     ddindx binary_integer; indx binary_integer;
49   begin
50 
51     -- copy data to the local IN or IN-OUT args, if any
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81     ddp_start_date := rosetta_g_miss_date_in_map(p_start_date);
82 
83 
84     -- here's the delegated call to the old PL/SQL routine
85     okl_la_validation_util_pvt.validate_deal(p_api_version,
86       p_init_msg_list,
87       x_return_status,
88       x_msg_count,
89       x_msg_data,
90       p_chr_id,
91       p_scs_code,
92       p_contract_number,
93       p_customer_id1,
94       p_customer_id2,
95       p_customer_code,
96       p_customer_name,
97       p_chr_cust_acct_id,
98       p_customer_acc_name,
99       p_product_name,
100       p_product_id,
101       p_product_desc,
102       p_contact_id1,
103       p_contact_id2,
104       p_contact_code,
105       p_contact_name,
106       p_mla_no,
107       p_mla_id,
108       p_program_no,
109       p_program_id,
110       p_credit_line_no,
111       p_credit_line_id,
112       p_currency_name,
113       p_currency_code,
114       ddp_start_date,
115       p_deal_type);
116 
117     -- copy data back from the local variables to OUT or IN-OUT args, if any
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148   end;
149 
150 end okl_la_validation_util_pvt_w;