[Home] [Help]
PACKAGE BODY: APPS.CN_TABLE_MAPS_PVT_W
Source
1 package body cn_table_maps_pvt_w as
2 /* $Header: cnwtmapb.pls 120.2 2005/09/14 03:44 vensrini noship $ */
3 procedure create_map(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , p_commit VARCHAR2
6 , p_validation_level NUMBER
7 , x_return_status out nocopy VARCHAR2
8 , x_msg_count out nocopy NUMBER
9 , x_msg_data out nocopy VARCHAR2
10 , p_source_name VARCHAR2
11 , p8_a0 in out nocopy NUMBER
12 , p8_a1 in out nocopy VARCHAR2
13 , p8_a2 in out nocopy NUMBER
14 , p8_a3 in out nocopy NUMBER
15 , p8_a4 in out nocopy NUMBER
16 , p8_a5 in out nocopy DATE
17 , p8_a6 in out nocopy NUMBER
18 , p8_a7 in out nocopy DATE
19 , p8_a8 in out nocopy NUMBER
20 , p8_a9 in out nocopy NUMBER
21 , p8_a10 in out nocopy NUMBER
22 , p8_a11 in out nocopy NUMBER
23 , p8_a12 in out nocopy VARCHAR2
24 , p8_a13 in out nocopy NUMBER
25 , p8_a14 in out nocopy NUMBER
26 , p8_a15 in out nocopy VARCHAR2
27 , p8_a16 in out nocopy VARCHAR2
28 , x_event_id_out out nocopy NUMBER
29 )
30
31 as
32 ddp_table_map_rec cn_table_maps_pvt.table_map_rec_type;
33 ddindx binary_integer; indx binary_integer;
34 begin
35
36 -- copy data to the local IN or IN-OUT args, if any
37
38
39
40
41
42
43
44
45 ddp_table_map_rec.table_map_id := p8_a0;
46 ddp_table_map_rec.mapping_type := p8_a1;
47 ddp_table_map_rec.source_table_id := p8_a2;
48 ddp_table_map_rec.destination_table_id := p8_a3;
49 ddp_table_map_rec.module_id := p8_a4;
50 ddp_table_map_rec.last_update_date := p8_a5;
51 ddp_table_map_rec.last_updated_by := p8_a6;
52 ddp_table_map_rec.creation_date := p8_a7;
53 ddp_table_map_rec.created_by := p8_a8;
54 ddp_table_map_rec.last_update_login := p8_a9;
55 ddp_table_map_rec.org_id := p8_a10;
56 ddp_table_map_rec.source_tbl_pkcol_id := p8_a11;
57 ddp_table_map_rec.delete_flag := p8_a12;
58 ddp_table_map_rec.source_hdr_tbl_pkcol_id := p8_a13;
59 ddp_table_map_rec.source_tbl_hdr_fkcol_id := p8_a14;
60 ddp_table_map_rec.notify_where := p8_a15;
61 ddp_table_map_rec.collect_where := p8_a16;
62
63
64 -- here's the delegated call to the old PL/SQL routine
65 cn_table_maps_pvt.create_map(p_api_version,
66 p_init_msg_list,
67 p_commit,
68 p_validation_level,
69 x_return_status,
70 x_msg_count,
71 x_msg_data,
72 p_source_name,
73 ddp_table_map_rec,
74 x_event_id_out);
75
76 -- copy data back from the local variables to OUT or IN-OUT args, if any
77
78
79
80
81
82
83
84
85 p8_a0 := ddp_table_map_rec.table_map_id;
86 p8_a1 := ddp_table_map_rec.mapping_type;
87 p8_a2 := ddp_table_map_rec.source_table_id;
88 p8_a3 := ddp_table_map_rec.destination_table_id;
89 p8_a4 := ddp_table_map_rec.module_id;
90 p8_a5 := ddp_table_map_rec.last_update_date;
91 p8_a6 := ddp_table_map_rec.last_updated_by;
92 p8_a7 := ddp_table_map_rec.creation_date;
93 p8_a8 := ddp_table_map_rec.created_by;
94 p8_a9 := ddp_table_map_rec.last_update_login;
95 p8_a10 := ddp_table_map_rec.org_id;
96 p8_a11 := ddp_table_map_rec.source_tbl_pkcol_id;
97 p8_a12 := ddp_table_map_rec.delete_flag;
98 p8_a13 := ddp_table_map_rec.source_hdr_tbl_pkcol_id;
99 p8_a14 := ddp_table_map_rec.source_tbl_hdr_fkcol_id;
100 p8_a15 := ddp_table_map_rec.notify_where;
101 p8_a16 := ddp_table_map_rec.collect_where;
102
103 end;
104
105 end cn_table_maps_pvt_w;