[Home] [Help]
PACKAGE BODY: APPS.JTF_FM_OCM_REND_REQ_W
Source
1 package body jtf_fm_ocm_rend_req_w as
2 /* $Header: jtfgfmrwb.pls 120.1 2005/07/02 00:44:13 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 create_fulfillment_rendition(p_init_msg_list VARCHAR2
23 , p_api_version NUMBER
24 , p_commit VARCHAR2
25 , p4_a0 JTF_NUMBER_TABLE
26 , p4_a1 JTF_NUMBER_TABLE
27 , p4_a2 JTF_VARCHAR2_TABLE_100
28 , p4_a3 JTF_NUMBER_TABLE
29 , p5_a0 NUMBER
30 , p5_a1 NUMBER
31 , p5_a2 VARCHAR2
32 , p5_a3 NUMBER
33 , p5_a4 VARCHAR2
34 , p5_a5 NUMBER
35 , p5_a6 VARCHAR2
36 , p5_a7 NUMBER
37 , p5_a8 NUMBER
38 , p5_a9 DATE
39 , p5_a10 VARCHAR2
40 , p5_a11 VARCHAR2
41 , p5_a12 VARCHAR2
42 , p5_a13 VARCHAR2
43 , p5_a14 VARCHAR2
44 , p5_a15 NUMBER
45 , p5_a16 NUMBER
46 , p5_a17 NUMBER
47 , p5_a18 VARCHAR2
48 , p5_a19 JTF_NUMBER_TABLE
49 , p5_a20 JTF_VARCHAR2_TABLE_1000
50 , p5_a21 JTF_VARCHAR2_TABLE_1000
51 , p5_a22 JTF_VARCHAR2_TABLE_1000
52 , p5_a23 JTF_VARCHAR2_TABLE_1000
53 , p5_a24 JTF_VARCHAR2_TABLE_1000
54 , p5_a25 VARCHAR2
55 , p5_a26 VARCHAR2
56 , p5_a27 VARCHAR2
57 , p5_a28 VARCHAR2
58 , p5_a29 VARCHAR2
59 , p5_a30 VARCHAR2
60 , p_request_type VARCHAR2
61 , x_return_status out nocopy VARCHAR2
62 , x_msg_count out nocopy NUMBER
63 , x_msg_data out nocopy VARCHAR2
64 , p10_a0 out nocopy NUMBER
65 , p10_a1 out nocopy NUMBER
66 , p10_a2 out nocopy NUMBER
67 , p10_a3 out nocopy VARCHAR2
68 , x_request_history_id out nocopy NUMBER
69 , p3_a0 NUMBER := 0-1962.0724
70 , p3_a1 NUMBER := 0-1962.0724
71 , p3_a2 NUMBER := 0-1962.0724
72 , p3_a3 NUMBER := 0-1962.0724
73 , p3_a4 NUMBER := 0-1962.0724
74 , p3_a5 NUMBER := 0-1962.0724
75 , p3_a6 VARCHAR2 := fnd_api.g_miss_char
76 , p3_a7 NUMBER := 0-1962.0724
77 , p3_a8 NUMBER := 0-1962.0724
78 , p3_a9 NUMBER := 0-1962.0724
79 , p3_a10 NUMBER := 0-1962.0724
80 , p3_a11 NUMBER := 0-1962.0724
81 , p3_a12 VARCHAR2 := fnd_api.g_miss_char
82 , p3_a13 VARCHAR2 := fnd_api.g_miss_char
83 , p3_a14 NUMBER := 0-1962.0724
84 )
85
86 as
87 ddp_order_header_rec jtf_fulfillment_pub.order_header_rec_type;
88 ddp_order_line_tbl jtf_fulfillment_pub.order_line_tbl_type;
89 ddp_fulfill_electronic_rec jtf_fm_ocm_request_grp.fulfill_electronic_rec_type;
90 ddx_order_header_rec aso_order_int.order_header_rec_type;
91 ddindx binary_integer; indx binary_integer;
92 begin
93
94 -- copy data to the local IN or IN-OUT args, if any
95
96
97
98 ddp_order_header_rec.cust_party_id := rosetta_g_miss_num_map(p3_a0);
99 ddp_order_header_rec.cust_account_id := rosetta_g_miss_num_map(p3_a1);
100 ddp_order_header_rec.sold_to_contact_id := rosetta_g_miss_num_map(p3_a2);
101 ddp_order_header_rec.inv_party_id := rosetta_g_miss_num_map(p3_a3);
102 ddp_order_header_rec.inv_party_site_id := rosetta_g_miss_num_map(p3_a4);
103 ddp_order_header_rec.ship_party_site_id := rosetta_g_miss_num_map(p3_a5);
104 ddp_order_header_rec.quote_source_code := p3_a6;
105 ddp_order_header_rec.marketing_source_code_id := rosetta_g_miss_num_map(p3_a7);
106 ddp_order_header_rec.order_type_id := rosetta_g_miss_num_map(p3_a8);
107 ddp_order_header_rec.employee_id := rosetta_g_miss_num_map(p3_a9);
108 ddp_order_header_rec.collateral_id := rosetta_g_miss_num_map(p3_a10);
109 ddp_order_header_rec.cover_letter_id := rosetta_g_miss_num_map(p3_a11);
110 ddp_order_header_rec.uom_code := p3_a12;
111 ddp_order_header_rec.line_category_code := p3_a13;
112 ddp_order_header_rec.inv_organization_id := rosetta_g_miss_num_map(p3_a14);
113
114 jtf_fulfillment_pub_w.rosetta_table_copy_in_p2(ddp_order_line_tbl, p4_a0
115 , p4_a1
116 , p4_a2
117 , p4_a3
118 );
119
120 ddp_fulfill_electronic_rec.template_id := rosetta_g_miss_num_map(p5_a0);
121 ddp_fulfill_electronic_rec.version_id := rosetta_g_miss_num_map(p5_a1);
122 ddp_fulfill_electronic_rec.object_type := p5_a2;
123 ddp_fulfill_electronic_rec.object_id := rosetta_g_miss_num_map(p5_a3);
124 ddp_fulfill_electronic_rec.source_code := p5_a4;
125 ddp_fulfill_electronic_rec.source_code_id := rosetta_g_miss_num_map(p5_a5);
126 ddp_fulfill_electronic_rec.requestor_type := p5_a6;
127 ddp_fulfill_electronic_rec.requestor_id := rosetta_g_miss_num_map(p5_a7);
128 ddp_fulfill_electronic_rec.server_group := rosetta_g_miss_num_map(p5_a8);
129 ddp_fulfill_electronic_rec.schedule_date := rosetta_g_miss_date_in_map(p5_a9);
130 ddp_fulfill_electronic_rec.media_types := p5_a10;
131 ddp_fulfill_electronic_rec.archive := p5_a11;
132 ddp_fulfill_electronic_rec.log_user_ih := p5_a12;
133 ddp_fulfill_electronic_rec.request_type := p5_a13;
134 ddp_fulfill_electronic_rec.language_code := p5_a14;
135 ddp_fulfill_electronic_rec.profile_id := rosetta_g_miss_num_map(p5_a15);
136 ddp_fulfill_electronic_rec.order_id := rosetta_g_miss_num_map(p5_a16);
137 ddp_fulfill_electronic_rec.collateral_id := rosetta_g_miss_num_map(p5_a17);
138 ddp_fulfill_electronic_rec.subject := p5_a18;
139 jtf_fm_request_grp_w.rosetta_table_copy_in_p5(ddp_fulfill_electronic_rec.party_id, p5_a19);
140 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_fulfill_electronic_rec.email, p5_a20);
141 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_fulfill_electronic_rec.fax, p5_a21);
142 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_fulfill_electronic_rec.printer, p5_a22);
143 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_fulfill_electronic_rec.bind_values, p5_a23);
144 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_fulfill_electronic_rec.bind_names, p5_a24);
145 ddp_fulfill_electronic_rec.email_text := p5_a25;
146 ddp_fulfill_electronic_rec.content_name := p5_a26;
147 ddp_fulfill_electronic_rec.content_type := p5_a27;
148 ddp_fulfill_electronic_rec.extended_header := p5_a28;
149 ddp_fulfill_electronic_rec.stop_list_bypass := p5_a29;
150 ddp_fulfill_electronic_rec.email_format := p5_a30;
151
152
153
154
155
156
157
158 -- here's the delegated call to the old PL/SQL routine
159 jtf_fm_ocm_rend_req.create_fulfillment_rendition(p_init_msg_list,
160 p_api_version,
161 p_commit,
162 ddp_order_header_rec,
163 ddp_order_line_tbl,
164 ddp_fulfill_electronic_rec,
165 p_request_type,
166 x_return_status,
167 x_msg_count,
168 x_msg_data,
169 ddx_order_header_rec,
170 x_request_history_id);
171
172 -- copy data back from the local variables to OUT or IN-OUT args, if any
173
174
175
176
177
178
179
180
181
182
183 p10_a0 := rosetta_g_miss_num_map(ddx_order_header_rec.order_number);
184 p10_a1 := rosetta_g_miss_num_map(ddx_order_header_rec.order_header_id);
185 p10_a2 := rosetta_g_miss_num_map(ddx_order_header_rec.quote_header_id);
186 p10_a3 := ddx_order_header_rec.status;
187
188 end;
189
190 end jtf_fm_ocm_rend_req_w;