1 package body pv_enty_attr_validations_pub_w as
2 /* $Header: pvxwvldb.pls 115.0 2002/12/07 03:08:06 amaram ship $ */
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 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure update_attr_validations(p_api_version_number NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_commit VARCHAR2
25 , p_validation_level NUMBER
26 , x_return_status out nocopy VARCHAR2
27 , x_msg_count out nocopy NUMBER
28 , x_msg_data out nocopy VARCHAR2
29 , p_attribute_id NUMBER
30 , p_entity_id NUMBER
31 , p_entity VARCHAR2
32 , p7_a0 NUMBER := 0-1962.0724
33 , p7_a1 DATE := fnd_api.g_miss_date
34 , p7_a2 NUMBER := 0-1962.0724
35 , p7_a3 DATE := fnd_api.g_miss_date
36 , p7_a4 NUMBER := 0-1962.0724
37 , p7_a5 NUMBER := 0-1962.0724
38 , p7_a6 NUMBER := 0-1962.0724
39 , p7_a7 DATE := fnd_api.g_miss_date
40 , p7_a8 NUMBER := 0-1962.0724
41 , p7_a9 NUMBER := 0-1962.0724
42 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
43 )
44
45 as
46 ddp_enty_attr_validation_rec pv_enty_attr_validations_pvt.enty_attr_validation_rec_type;
47 ddindx binary_integer; indx binary_integer;
48 begin
49
50 -- copy data to the local IN or IN-OUT args, if any
51
52
53
54
55
56
57
58 ddp_enty_attr_validation_rec.validation_id := rosetta_g_miss_num_map(p7_a0);
59 ddp_enty_attr_validation_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
60 ddp_enty_attr_validation_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
61 ddp_enty_attr_validation_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
62 ddp_enty_attr_validation_rec.created_by := rosetta_g_miss_num_map(p7_a4);
63 ddp_enty_attr_validation_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
64 ddp_enty_attr_validation_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
65 ddp_enty_attr_validation_rec.validation_date := rosetta_g_miss_date_in_map(p7_a7);
66 ddp_enty_attr_validation_rec.validated_by_resource_id := rosetta_g_miss_num_map(p7_a8);
67 ddp_enty_attr_validation_rec.validation_document_id := rosetta_g_miss_num_map(p7_a9);
68 ddp_enty_attr_validation_rec.validation_note := p7_a10;
69
70
71
72
73 -- here's the delegated call to the old PL/SQL routine
74 pv_enty_attr_validations_pub.update_attr_validations(p_api_version_number,
75 p_init_msg_list,
76 p_commit,
77 p_validation_level,
78 x_return_status,
79 x_msg_count,
80 x_msg_data,
81 ddp_enty_attr_validation_rec,
82 p_attribute_id,
83 p_entity_id,
84 p_entity);
85
86 -- copy data back from the local variables to OUT or IN-OUT args, if any
87
88
89
90
91
92
93
94
95
96
97 end;
98
99 end pv_enty_attr_validations_pub_w;