[Home] [Help]
PACKAGE BODY: APPS.OKL_BPD_CAP_ADV_MON_PUB_W
Source
1 package body okl_bpd_cap_adv_mon_pub_w as
2 /* $Header: OKLUAMSB.pls 120.1 2005/10/30 04:02:50 appldev 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 handle_advanced_manual_pay(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 VARCHAR2
28 , p6_a1 out nocopy VARCHAR2
29 , p6_a2 out nocopy DATE
30 , p6_a3 out nocopy NUMBER
31 , p6_a4 out nocopy NUMBER
32 , p6_a5 out nocopy VARCHAR2
33 , p6_a6 out nocopy NUMBER
34 , p6_a7 out nocopy NUMBER
35 , p6_a8 out nocopy VARCHAR2
36 , p6_a9 out nocopy NUMBER
37 , p6_a10 out nocopy VARCHAR2
38 , p6_a11 out nocopy DATE
39 , p6_a12 out nocopy DATE
40 , p6_a13 out nocopy VARCHAR2
41 , p6_a14 out nocopy NUMBER
42 , p6_a15 out nocopy NUMBER
43 , p6_a16 out nocopy NUMBER
44 , p6_a17 out nocopy VARCHAR2
45 , p6_a18 out nocopy VARCHAR2
46 , p6_a19 out nocopy VARCHAR2
47 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
48 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
49 , p5_a2 DATE := fnd_api.g_miss_date
50 , p5_a3 NUMBER := 0-1962.0724
51 , p5_a4 NUMBER := 0-1962.0724
52 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
53 , p5_a6 NUMBER := 0-1962.0724
54 , p5_a7 NUMBER := 0-1962.0724
55 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
56 , p5_a9 NUMBER := 0-1962.0724
57 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
58 , p5_a11 DATE := fnd_api.g_miss_date
59 , p5_a12 DATE := fnd_api.g_miss_date
60 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
61 , p5_a14 NUMBER := 0-1962.0724
62 , p5_a15 NUMBER := 0-1962.0724
63 , p5_a16 NUMBER := 0-1962.0724
64 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
65 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
66 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
67 )
68
69 as
70 ddp_adv_rcpt_rec okl_bpd_cap_adv_mon_pub.adv_rcpt_rec;
71 ddx_adv_rcpt_rec okl_bpd_cap_adv_mon_pub.adv_rcpt_rec;
72 ddindx binary_integer; indx binary_integer;
73 begin
74
75 -- copy data to the local IN or IN-OUT args, if any
76
77
78
79
80
81 ddp_adv_rcpt_rec.currency_code := p5_a0;
82 ddp_adv_rcpt_rec.currency_conv_type := p5_a1;
83 ddp_adv_rcpt_rec.currency_conv_date := rosetta_g_miss_date_in_map(p5_a2);
84 ddp_adv_rcpt_rec.currency_conv_rate := rosetta_g_miss_num_map(p5_a3);
85 ddp_adv_rcpt_rec.irm_id := rosetta_g_miss_num_map(p5_a4);
86 ddp_adv_rcpt_rec.check_number := p5_a5;
87 ddp_adv_rcpt_rec.rcpt_amount := rosetta_g_miss_num_map(p5_a6);
88 ddp_adv_rcpt_rec.contract_id := rosetta_g_miss_num_map(p5_a7);
89 ddp_adv_rcpt_rec.contract_num := p5_a8;
90 ddp_adv_rcpt_rec.customer_id := rosetta_g_miss_num_map(p5_a9);
91 ddp_adv_rcpt_rec.customer_num := p5_a10;
92 ddp_adv_rcpt_rec.gl_date := rosetta_g_miss_date_in_map(p5_a11);
93 ddp_adv_rcpt_rec.receipt_date := rosetta_g_miss_date_in_map(p5_a12);
94 ddp_adv_rcpt_rec.comments := p5_a13;
95 ddp_adv_rcpt_rec.rct_id := rosetta_g_miss_num_map(p5_a14);
96 ddp_adv_rcpt_rec.xcr_id := rosetta_g_miss_num_map(p5_a15);
97 ddp_adv_rcpt_rec.icr_id := rosetta_g_miss_num_map(p5_a16);
98 ddp_adv_rcpt_rec.receipt_type := p5_a17;
99 ddp_adv_rcpt_rec.fully_applied_flag := p5_a18;
100 ddp_adv_rcpt_rec.expired_flag := p5_a19;
101
102
103 -- here's the delegated call to the old PL/SQL routine
104 okl_bpd_cap_adv_mon_pub.handle_advanced_manual_pay(p_api_version,
105 p_init_msg_list,
106 x_return_status,
107 x_msg_count,
108 x_msg_data,
109 ddp_adv_rcpt_rec,
110 ddx_adv_rcpt_rec);
111
112 -- copy data back from the local variables to OUT or IN-OUT args, if any
113
114
115
116
117
118
119 p6_a0 := ddx_adv_rcpt_rec.currency_code;
120 p6_a1 := ddx_adv_rcpt_rec.currency_conv_type;
121 p6_a2 := ddx_adv_rcpt_rec.currency_conv_date;
122 p6_a3 := rosetta_g_miss_num_map(ddx_adv_rcpt_rec.currency_conv_rate);
123 p6_a4 := rosetta_g_miss_num_map(ddx_adv_rcpt_rec.irm_id);
124 p6_a5 := ddx_adv_rcpt_rec.check_number;
125 p6_a6 := rosetta_g_miss_num_map(ddx_adv_rcpt_rec.rcpt_amount);
126 p6_a7 := rosetta_g_miss_num_map(ddx_adv_rcpt_rec.contract_id);
127 p6_a8 := ddx_adv_rcpt_rec.contract_num;
128 p6_a9 := rosetta_g_miss_num_map(ddx_adv_rcpt_rec.customer_id);
129 p6_a10 := ddx_adv_rcpt_rec.customer_num;
130 p6_a11 := ddx_adv_rcpt_rec.gl_date;
131 p6_a12 := ddx_adv_rcpt_rec.receipt_date;
132 p6_a13 := ddx_adv_rcpt_rec.comments;
133 p6_a14 := rosetta_g_miss_num_map(ddx_adv_rcpt_rec.rct_id);
134 p6_a15 := rosetta_g_miss_num_map(ddx_adv_rcpt_rec.xcr_id);
135 p6_a16 := rosetta_g_miss_num_map(ddx_adv_rcpt_rec.icr_id);
136 p6_a17 := ddx_adv_rcpt_rec.receipt_type;
137 p6_a18 := ddx_adv_rcpt_rec.fully_applied_flag;
138 p6_a19 := ddx_adv_rcpt_rec.expired_flag;
139 end;
140
141 end okl_bpd_cap_adv_mon_pub_w;