[Home] [Help]
PACKAGE BODY: APPS.AHL_PC_HEADER_PUB_W
Source
1 package body ahl_pc_header_pub_w as
2 /* $Header: AHLWPCHB.pls 115.7 2002/12/02 14:57:18 pbarman 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 process_pc_header(p_api_version NUMBER
14 , p_init_msg_list VARCHAR2
15 , p_commit VARCHAR2
16 , p_validation_level NUMBER
17 , p_module_type VARCHAR2
18 , p5_a0 in out nocopy NUMBER
19 , p5_a1 in out nocopy VARCHAR2
20 , p5_a2 in out nocopy VARCHAR2
21 , p5_a3 in out nocopy VARCHAR2
22 , p5_a4 in out nocopy VARCHAR2
23 , p5_a5 in out nocopy VARCHAR2
24 , p5_a6 in out nocopy VARCHAR2
25 , p5_a7 in out nocopy VARCHAR2
26 , p5_a8 in out nocopy VARCHAR2
27 , p5_a9 in out nocopy VARCHAR2
28 , p5_a10 in out nocopy VARCHAR2
29 , p5_a11 in out nocopy VARCHAR2
30 , p5_a12 in out nocopy NUMBER
31 , p5_a13 in out nocopy NUMBER
32 , p5_a14 in out nocopy VARCHAR2
33 , p5_a15 in out nocopy VARCHAR2
34 , p5_a16 in out nocopy VARCHAR2
35 , p5_a17 in out nocopy VARCHAR2
36 , p5_a18 in out nocopy VARCHAR2
37 , p5_a19 in out nocopy VARCHAR2
38 , p5_a20 in out nocopy VARCHAR2
39 , p5_a21 in out nocopy VARCHAR2
40 , p5_a22 in out nocopy VARCHAR2
41 , p5_a23 in out nocopy VARCHAR2
42 , p5_a24 in out nocopy VARCHAR2
43 , p5_a25 in out nocopy VARCHAR2
44 , p5_a26 in out nocopy VARCHAR2
45 , p5_a27 in out nocopy VARCHAR2
46 , p5_a28 in out nocopy VARCHAR2
47 , p5_a29 in out nocopy VARCHAR2
48 , p5_a30 in out nocopy VARCHAR2
49 , p5_a31 in out nocopy VARCHAR2
50 , p5_a32 in out nocopy VARCHAR2
51 , x_return_status out nocopy VARCHAR2
52 , x_msg_count out nocopy NUMBER
53 , x_msg_data out nocopy VARCHAR2
54 )
55
56 as
57 ddp_x_pc_header_rec ahl_pc_header_pub.pc_header_rec;
58 ddindx binary_integer; indx binary_integer;
59 begin
60
61 -- copy data to the local IN or IN-OUT args, if any
62
63
64
65
66
67 ddp_x_pc_header_rec.pc_header_id := p5_a0;
68 ddp_x_pc_header_rec.name := p5_a1;
69 ddp_x_pc_header_rec.description := p5_a2;
70 ddp_x_pc_header_rec.status := p5_a3;
71 ddp_x_pc_header_rec.status_desc := p5_a4;
72 ddp_x_pc_header_rec.product_type_code := p5_a5;
73 ddp_x_pc_header_rec.product_type_desc := p5_a6;
74 ddp_x_pc_header_rec.primary_flag := p5_a7;
75 ddp_x_pc_header_rec.primary_flag_desc := p5_a8;
76 ddp_x_pc_header_rec.association_type_flag := p5_a9;
77 ddp_x_pc_header_rec.association_type_desc := p5_a10;
78 ddp_x_pc_header_rec.draft_flag := p5_a11;
79 ddp_x_pc_header_rec.link_to_pc_id := p5_a12;
80 ddp_x_pc_header_rec.object_version_number := p5_a13;
81 ddp_x_pc_header_rec.attribute_category := p5_a14;
82 ddp_x_pc_header_rec.attribute1 := p5_a15;
83 ddp_x_pc_header_rec.attribute2 := p5_a16;
84 ddp_x_pc_header_rec.attribute3 := p5_a17;
85 ddp_x_pc_header_rec.attribute4 := p5_a18;
86 ddp_x_pc_header_rec.attribute5 := p5_a19;
87 ddp_x_pc_header_rec.attribute6 := p5_a20;
88 ddp_x_pc_header_rec.attribute7 := p5_a21;
89 ddp_x_pc_header_rec.attribute8 := p5_a22;
90 ddp_x_pc_header_rec.attribute9 := p5_a23;
91 ddp_x_pc_header_rec.attribute10 := p5_a24;
92 ddp_x_pc_header_rec.attribute11 := p5_a25;
93 ddp_x_pc_header_rec.attribute12 := p5_a26;
94 ddp_x_pc_header_rec.attribute13 := p5_a27;
95 ddp_x_pc_header_rec.attribute14 := p5_a28;
96 ddp_x_pc_header_rec.attribute15 := p5_a29;
97 ddp_x_pc_header_rec.operation_flag := p5_a30;
98 ddp_x_pc_header_rec.copy_assos_flag := p5_a31;
99 ddp_x_pc_header_rec.copy_docs_flag := p5_a32;
100
101
102
103
104 -- here's the delegated call to the old PL/SQL routine
105 ahl_pc_header_pub.process_pc_header(p_api_version,
106 p_init_msg_list,
107 p_commit,
108 p_validation_level,
109 p_module_type,
110 ddp_x_pc_header_rec,
111 x_return_status,
112 x_msg_count,
113 x_msg_data);
114
115 -- copy data back from the local variables to OUT or IN-OUT args, if any
116
117
118
119
120
121 p5_a0 := ddp_x_pc_header_rec.pc_header_id;
122 p5_a1 := ddp_x_pc_header_rec.name;
123 p5_a2 := ddp_x_pc_header_rec.description;
124 p5_a3 := ddp_x_pc_header_rec.status;
125 p5_a4 := ddp_x_pc_header_rec.status_desc;
126 p5_a5 := ddp_x_pc_header_rec.product_type_code;
127 p5_a6 := ddp_x_pc_header_rec.product_type_desc;
128 p5_a7 := ddp_x_pc_header_rec.primary_flag;
129 p5_a8 := ddp_x_pc_header_rec.primary_flag_desc;
130 p5_a9 := ddp_x_pc_header_rec.association_type_flag;
131 p5_a10 := ddp_x_pc_header_rec.association_type_desc;
132 p5_a11 := ddp_x_pc_header_rec.draft_flag;
133 p5_a12 := ddp_x_pc_header_rec.link_to_pc_id;
134 p5_a13 := ddp_x_pc_header_rec.object_version_number;
135 p5_a14 := ddp_x_pc_header_rec.attribute_category;
136 p5_a15 := ddp_x_pc_header_rec.attribute1;
137 p5_a16 := ddp_x_pc_header_rec.attribute2;
138 p5_a17 := ddp_x_pc_header_rec.attribute3;
139 p5_a18 := ddp_x_pc_header_rec.attribute4;
140 p5_a19 := ddp_x_pc_header_rec.attribute5;
141 p5_a20 := ddp_x_pc_header_rec.attribute6;
142 p5_a21 := ddp_x_pc_header_rec.attribute7;
143 p5_a22 := ddp_x_pc_header_rec.attribute8;
144 p5_a23 := ddp_x_pc_header_rec.attribute9;
145 p5_a24 := ddp_x_pc_header_rec.attribute10;
146 p5_a25 := ddp_x_pc_header_rec.attribute11;
147 p5_a26 := ddp_x_pc_header_rec.attribute12;
148 p5_a27 := ddp_x_pc_header_rec.attribute13;
149 p5_a28 := ddp_x_pc_header_rec.attribute14;
150 p5_a29 := ddp_x_pc_header_rec.attribute15;
151 p5_a30 := ddp_x_pc_header_rec.operation_flag;
152 p5_a31 := ddp_x_pc_header_rec.copy_assos_flag;
153 p5_a32 := ddp_x_pc_header_rec.copy_docs_flag;
154
155
156
157 end;
158
159 end ahl_pc_header_pub_w;