1 PACKAGE BODY PA_PRC_PROJECT_PUB AS
2 /*$Header: PAXPRCPB.pls 115.1 99/07/16 15:30:30 porting ship $*/
3 --Global constants to be used in error messages
4 --
5 -- ================================================
6 --
7 --Name : PRC_Row_Exists
8 --Type : Function
9 --Description: This function can be used to check against PRC
10 -- tables for given PRC Assignment Id.
11 --
12 -- This function returns 1 if row exists for Assignment id or
13 -- and returns 0 if no row is found.
14 --
15 --Called subprograms: N/A
16 --
17 --History:
18 -- 24-SEP-1998 Sakthivel Created
19 --
20 -- HISTORY
21 -- 21-SEP-98 Sakthivel Created
22 --
23 Function PRC_Row_exists (x_assignment_id IN number) return number
24 is
25 x_assign_id number;
26
27 cursor c1 is
28 select 1
29 from sys.dual
30 where exists (select prc_assignment_id
31 from pa_mc_exp_items_all
32 where prc_assignment_id = x_assignment_id);
33
34 c1_rec c1%rowtype;
35
36 cursor c2 is
37 select 1
38 from sys.dual
39 where exists (select prc_assignment_id
40 from pa_mc_cost_dist_lines_all
41 where prc_assignment_id = x_assignment_id);
42
43 c2_rec c2%rowtype;
44
45 cursor c3 is
46 select 1
47 from sys.dual
48 where exists (select prc_assignment_id
49 from pa_mc_cust_rdl_all
50 where prc_assignment_id = x_assignment_id);
51
52 c3_rec c3%rowtype;
53
54 cursor c4 is
55 select 1
56 from sys.dual
57 where exists (select prc_assignment_id
58 from pa_mc_cust_event_rdl_all
59 where prc_assignment_id = x_assignment_id);
60
61 c4_rec c4%rowtype;
62
63 cursor c5 is
64 select 1
65 from sys.dual
66 where exists (select prc_assignment_id
67 from pa_mc_events
68 where prc_assignment_id = x_assignment_id);
69
70 c5_rec c5%rowtype;
71 /*
72 cursor c6 is
73 select 1
74 from sys.dual
75 where exists (select prc_assignment_id
76 from pa_mc_budget_lines
77 where prc_assignment_id = x_assignment_id);
78
79 c6_rec c6%rowtype;
80
81 cursor c7 is
82 select 1
83 from sys.dual
84 where exists (select prc_assignment_id
85 from pa_mc_commitment_txns
86 where prc_assignment_id = x_assignment_id);
87
88 c7_rec c7%rowtype;
89 */
90
91 begin
92
93 if (x_assignment_id is null) then
94 return(null);
95 end if;
96
97 open c1;
98 fetch c1 into c1_rec;
99 if c1%found then
100 close c1;
101 return(1);
102 end if;
103
104 close c1;
105
106 open c2;
107 fetch c2 into c2_rec;
108 if c2%found then
109 close c2;
110 return(1);
111 end if;
112
113 close c2;
114
115 open c3;
116 fetch c3 into c3_rec;
117 if c3%found then
118 close c3;
119 return(1);
120 end if;
121
122 close c3;
123
124 open c4;
125 fetch c4 into c4_rec;
126 if c4%found then
127 close c4;
128 return(1);
129 end if;
130
131 close c4;
132
133 open c5;
134 fetch c5 into c5_rec;
135 if c5%found then
136 close c5;
137 return(1);
138 end if;
139
140 close c5;
141 /*
142 open c6;
143 fetch c6 into c6_rec;
144 if c6%found then
145 close c6;
146 return(1);
147 end if;
148
149 close c6;
150
151 open c7;
152 fetch c7 into c7_rec;
153 if c7%found then
154 close c7;
155 return(1);
156 end if;
157
158 close c7;
159 */
160 return(0);
161
162 exception
163 when others then
164 return (SQLCODE);
165 end PRC_Row_exists;
166 --------------------------------------------------------------------------------
167 end PA_PRC_PROJECT_PUB;