DBA Data[Home] [Help]

APPS.PER_RVR_SHD dependencies on PER_RVR_SHD

Line 1: Package Body per_rvr_shd as

1: Package Body per_rvr_shd as
2: /* $Header: pervrrhi.pkb 120.5 2006/06/12 23:57:11 ndorai noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_rvr_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |---------------------------< constraint_error >---------------------------|
12: -- ----------------------------------------------------------------------------

Line 65: = per_rvr_shd.g_old_rec.workbench_view_report_code and

61: --
62: l_fct_ret := false;
63: Else
64: If (p_workbench_view_report_code
65: = per_rvr_shd.g_old_rec.workbench_view_report_code and
66: p_object_version_number
67: = per_rvr_shd.g_old_rec.object_version_number
68: ) Then
69: --

Line 67: = per_rvr_shd.g_old_rec.object_version_number

63: Else
64: If (p_workbench_view_report_code
65: = per_rvr_shd.g_old_rec.workbench_view_report_code and
66: p_object_version_number
67: = per_rvr_shd.g_old_rec.object_version_number
68: ) Then
69: --
70: -- The g_old_rec is current therefore we must
71: -- set the returning function to true

Line 79: Fetch C_Sel1 Into per_rvr_shd.g_old_rec;

75: --
76: -- Select the current row into g_old_rec
77: --
78: Open C_Sel1;
79: Fetch C_Sel1 Into per_rvr_shd.g_old_rec;
80: If C_Sel1%notfound Then
81: Close C_Sel1;
82: --
83: -- The primary key is invalid therefore we must error

Line 90: <> per_rvr_shd.g_old_rec.object_version_number) Then

86: fnd_message.raise_error;
87: End If;
88: Close C_Sel1;
89: If (p_object_version_number
90: <> per_rvr_shd.g_old_rec.object_version_number) Then
91: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
92: fnd_message.raise_error;
93: End If;
94: l_fct_ret := true;

Line 144: Fetch C_Sel1 Into per_rvr_shd.g_old_rec;

140: ,p_argument_value => p_object_version_number
141: );
142: --
143: Open C_Sel1;
144: Fetch C_Sel1 Into per_rvr_shd.g_old_rec;
145: If C_Sel1%notfound then
146: Close C_Sel1;
147: --
148: -- The primary key is invalid therefore we must error

Line 155: <> per_rvr_shd.g_old_rec.object_version_number) Then

151: fnd_message.raise_error;
152: End If;
153: Close C_Sel1;
154: If (p_object_version_number
155: <> per_rvr_shd.g_old_rec.object_version_number) Then
156: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
157: fnd_message.raise_error;
158: End If;
159: --

Line 287: end per_rvr_shd;

283: Return(l_rec);
284: --
285: End convert_args;
286: --
287: end per_rvr_shd;