1 package body jts_config_ver_status_pvt_w as
2 /* $Header: jtswcvsb.pls 115.2 2002/03/22 19:08:03 pkm 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 any_version_replayed(p_api_version NUMBER
23 , p_config_id NUMBER
24 , x_replayed out number
25 )
26
27 as
28 ddx_replayed boolean;
29 ddindx binary_integer; indx binary_integer;
30 begin
31
32 -- copy data to the local IN or IN-OUT args, if any
33
34
35
36 -- here's the delegated call to the old PL/SQL routine
37 jts_config_ver_status_pvt.any_version_replayed(p_api_version,
38 p_config_id,
39 ddx_replayed);
40
41 -- copy data back from the local variables to OUT or IN-OUT args, if any
42
43
44 if ddx_replayed is null
45 then x_replayed := null;
46 elsif ddx_replayed
47 then x_replayed := 1;
48 else x_replayed := 0;
49 end if;
50 end;
51
52 procedure in_replay_status(p_api_version NUMBER
53 , p_status VARCHAR2
54 , ddrosetta_retval_bool OUT NUMBER
55 )
56
57 as
58 ddindx binary_integer; indx binary_integer;
59 ddrosetta_retval boolean;
60 begin
61
62 -- copy data to the local IN or IN-OUT args, if any
63
64
65 -- here's the delegated call to the old PL/SQL routine
66 ddrosetta_retval := jts_config_ver_status_pvt.in_replay_status(p_api_version,
67 p_status);
68
69 -- copy data back from the local variables to OUT or IN-OUT args, if any
70 if ddrosetta_retval is null
71 then ddrosetta_retval_bool := null;
72 elsif ddrosetta_retval
73 then ddrosetta_retval_bool := 1;
74 else ddrosetta_retval_bool := 0;
75 end if;
76
77 end;
78
79 procedure in_version_status(p_api_version NUMBER
80 , p_status VARCHAR2
81 , ddrosetta_retval_bool OUT NUMBER
82 )
83
84 as
85 ddindx binary_integer; indx binary_integer;
86 ddrosetta_retval boolean;
87 begin
88
89 -- copy data to the local IN or IN-OUT args, if any
90
91
92 -- here's the delegated call to the old PL/SQL routine
93 ddrosetta_retval := jts_config_ver_status_pvt.in_version_status(p_api_version,
94 p_status);
95
96 -- copy data back from the local variables to OUT or IN-OUT args, if any
97 if ddrosetta_retval is null
98 then ddrosetta_retval_bool := null;
99 elsif ddrosetta_retval
100 then ddrosetta_retval_bool := 1;
101 else ddrosetta_retval_bool := 0;
102 end if;
103
104 end;
105
106 procedure not_replayed(p_api_version NUMBER
107 , p_status VARCHAR2
108 , x_in_notreplayed out number
109 )
110
111 as
112 ddx_in_notreplayed boolean;
113 ddindx binary_integer; indx binary_integer;
114 begin
115
116 -- copy data to the local IN or IN-OUT args, if any
117
118
119
120 -- here's the delegated call to the old PL/SQL routine
121 jts_config_ver_status_pvt.not_replayed(p_api_version,
122 p_status,
123 ddx_in_notreplayed);
124
125 -- copy data back from the local variables to OUT or IN-OUT args, if any
126
127
128 if ddx_in_notreplayed is null
129 then x_in_notreplayed := null;
130 elsif ddx_in_notreplayed
131 then x_in_notreplayed := 1;
132 else x_in_notreplayed := 0;
133 end if;
134 end;
135
136 end jts_config_ver_status_pvt_w;
[Home] [Help]