DBA Data[Home] [Help]

APPS.PAY_PRT_SHD dependencies on PAY_PRT_SHD

Line 1: Package Body pay_prt_shd as

1: Package Body pay_prt_shd as
2: /* $Header: pyprtrhi.pkb 115.13 2003/02/28 15:52:21 alogue noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

Line 8: g_package varchar2(33) := ' pay_prt_shd.'; -- Global package name

4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pay_prt_shd.'; -- Global package name
9: g_dynamic_sql VARCHAR2(2000); -- dynamic SQL text string
10: --
11: -- ----------------------------------------------------------------------------
12: -- |---------------------------< constraint_error >---------------------------|

Line 114: pay_prt_shd.g_old_rec.run_type_id and

110: --
111: l_fct_ret := false;
112: Else
113: If (p_run_type_id =
114: pay_prt_shd.g_old_rec.run_type_id and
115: p_object_version_number =
116: pay_prt_shd.g_old_rec.object_version_number) Then
117: --
118: -- The g_old_rec is current therefore we must

Line 116: pay_prt_shd.g_old_rec.object_version_number) Then

112: Else
113: If (p_run_type_id =
114: pay_prt_shd.g_old_rec.run_type_id and
115: p_object_version_number =
116: pay_prt_shd.g_old_rec.object_version_number) Then
117: --
118: -- The g_old_rec is current therefore we must
119: -- set the returning function to true
120: --

Line 127: Fetch C_Sel1 Into pay_prt_shd.g_old_rec;

123: --
124: -- Select the current row
125: --
126: Open C_Sel1;
127: Fetch C_Sel1 Into pay_prt_shd.g_old_rec;
128: If C_Sel1%notfound Then
129: Close C_Sel1;
130: --
131: -- The primary key is invalid therefore we must error

Line 138: <> pay_prt_shd.g_old_rec.object_version_number) Then

134: fnd_message.raise_error;
135: End If;
136: Close C_Sel1;
137: If (p_object_version_number
138: <> pay_prt_shd.g_old_rec.object_version_number) Then
139: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
140: fnd_message.raise_error;
141: End If;
142: l_fct_ret := true;

Line 214: pay_prt_shd.g_dynamic_sql :=

210: BEGIN
211: hr_utility.set_location('Entering:'||l_proc, 5);
212: effective_date_valid(p_effective_date => p_effective_date);
213: -- Define dynamic sql text with substitution tokens
214: pay_prt_shd.g_dynamic_sql :=
215: 'select t.effective_start_date, ' ||
216: ' t.effective_end_date ' ||
217: 'from '||p_base_table_name||' t ' ||
218: 'where t.'||p_base_key_column||' = :p_base_key_value ' ||

Line 222: EXECUTE IMMEDIATE pay_prt_shd.g_dynamic_sql

218: 'where t.'||p_base_key_column||' = :p_base_key_value ' ||
219: 'and :p_effective_date ' ||
220: 'between t.effective_start_date and t.effective_end_date';
221: -- native dynamic PL/SQL call
222: EXECUTE IMMEDIATE pay_prt_shd.g_dynamic_sql
223: INTO p_effective_start_date
224: ,p_effective_end_date
225: USING p_base_key_value
226: ,p_effective_date;

Line 287: pay_prt_shd.g_dynamic_sql:=

283: p_argument => 'p_base_key_value',
284: p_argument_value => p_base_key_value);
285: -- [ end of change 30.14 ]
286: -- Define dynamic sql text with substitution tokens
287: pay_prt_shd.g_dynamic_sql:=
288: 'select max(t.effective_end_date) '||
289: 'from '||p_base_table_name||' t '||
290: 'where t.'||p_base_key_column||' = :p_base_key_value';
291: --

Line 292: EXECUTE IMMEDIATE pay_prt_shd.g_dynamic_sql

288: 'select max(t.effective_end_date) '||
289: 'from '||p_base_table_name||' t '||
290: 'where t.'||p_base_key_column||' = :p_base_key_value';
291: --
292: EXECUTE IMMEDIATE pay_prt_shd.g_dynamic_sql
293: INTO l_max_date
294: USING p_base_key_value;
295: --
296: hr_utility.set_location('Leaving :'||l_proc, 10);

Line 322: pay_prt_shd.g_dynamic_sql :=

318: --
319: BEGIN
320: hr_utility.set_location('Entering:'||l_proc, 5);
321: -- Define dynamic sql text with substitution tokens
322: pay_prt_shd.g_dynamic_sql :=
323: 'select min(t.effective_start_date) '||
324: 'from '||p_base_table_name||' t '||
325: 'where t.'||p_base_key_column||' = :p_base_key_value';
326: --

Line 327: EXECUTE IMMEDIATE pay_prt_shd.g_dynamic_sql

323: 'select min(t.effective_start_date) '||
324: 'from '||p_base_table_name||' t '||
325: 'where t.'||p_base_key_column||' = :p_base_key_value';
326: --
327: EXECUTE IMMEDIATE pay_prt_shd.g_dynamic_sql
328: INTO l_min_date
329: USING p_base_key_value;
330: -- Need to ensure that the minimum date is NOT null. If it is then we
331: -- must error

Line 755: pay_prt_shd.g_dynamic_sql :=

751: -- If the p_key_value is null then we must not
752: -- process the sql as it could be a nullable column.
753: IF (p_key_value IS NOT NULL) THEN
754: -- Define dynamic sql text with substitution tokens
755: pay_prt_shd.g_dynamic_sql :=
756: 'select 1 ' ||
757: 'from '||p_table_name||' t1 ' ||
758: 'where t1.'||p_key_column||' = :p_key_value ' ||
759: 'and t1.effective_end_date >= :p_effective_date ' ||

Line 763: OPEN l_csr FOR pay_prt_shd.g_dynamic_sql USING p_key_value, p_effective_date

759: 'and t1.effective_end_date >= :p_effective_date ' ||
760: 'order by t1.effective_start_date ' ||
761: 'for update nowait';
762: --
763: OPEN l_csr FOR pay_prt_shd.g_dynamic_sql USING p_key_value, p_effective_date
764: ;
765: LOOP
766: FETCH l_csr INTO l_dummy_num;
767: EXIT WHEN l_csr%NOTFOUND; -- exit loop when last row is fetched

Line 882: pay_prt_shd.g_dynamic_sql :=

878: --
879: IF (p_parent_key_value IS NOT NULL) THEN
880: hr_utility.set_location(l_proc, 10);
881: -- Define dynamic sql text with substitution tokens
882: pay_prt_shd.g_dynamic_sql :=
883: 'select t1.effective_end_date effective_end_date ' ||
884: 'from '||p_child_table_name||' t1 ' ||
885: 'where (t1.'||p_child_key_column||', ' ||
886: ' t1.effective_start_date, ' ||

Line 898: FOR pay_prt_shd.g_dynamic_sql

894: 'order by t1.'||p_child_key_column||' ' ||
895: 'for update nowait';
896: -- open a cursor
897: OPEN l_cursor
898: FOR pay_prt_shd.g_dynamic_sql
899: USING p_parent_key_value;
900: hr_utility.set_location(l_proc, 15);
901: --
902: LOOP

Line 2373: Fetch C_Sel1 Into pay_prt_shd.g_old_rec;

2369: --
2370: -- We must select and lock the current row.
2371: --
2372: Open C_Sel1;
2373: Fetch C_Sel1 Into pay_prt_shd.g_old_rec;
2374: If C_Sel1%notfound then
2375: Close C_Sel1;
2376: --
2377: -- The primary key is invalid therefore we must error

Line 2384: <> pay_prt_shd.g_old_rec.object_version_number) Then

2380: fnd_message.raise_error;
2381: End If;
2382: Close C_Sel1;
2383: If (p_object_version_number
2384: <> pay_prt_shd.g_old_rec.object_version_number) Then
2385: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
2386: fnd_message.raise_error;
2387: End If;
2388: --

Line 2562: end pay_prt_shd;

2558: Return(l_rec);
2559: --
2560: End convert_args;
2561: --
2562: end pay_prt_shd;