APPS.PER_ROL_SHD dependencies on PER_ROL_SHD

Line 1: Package Body per_rol_shd as

1: Package Body per_rol_shd as
2: /* $Header: perolrhi.pkb 120.0 2005/05/31 18:34:51 appldev noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 126: = per_rol_shd.g_old_rec.role_id and

122: --
123: l_fct_ret := false;
124: Else
125: If (p_role_id
126: = per_rol_shd.g_old_rec.role_id and
127: p_object_version_number
128: = per_rol_shd.g_old_rec.object_version_number
129: ) Then
130: --

Line 128: = per_rol_shd.g_old_rec.object_version_number

124: Else
125: If (p_role_id
126: = per_rol_shd.g_old_rec.role_id and
127: p_object_version_number
128: = per_rol_shd.g_old_rec.object_version_number
129: ) Then
130: --
131: -- The g_old_rec is current therefore we must
132: -- set the returning function to true

Line 140: Fetch C_Sel1 Into per_rol_shd.g_old_rec;

136: --
137: -- Select the current row into g_old_rec
138: --
139: Open C_Sel1;
140: Fetch C_Sel1 Into per_rol_shd.g_old_rec;
141: If C_Sel1%notfound Then
142: Close C_Sel1;
143: --
144: -- The primary key is invalid therefore we must error

Line 151: <> per_rol_shd.g_old_rec.object_version_number) Then

147: fnd_message.raise_error;
148: End If;
149: Close C_Sel1;
150: If (p_object_version_number
151: <> per_rol_shd.g_old_rec.object_version_number) Then
152: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
153: fnd_message.raise_error;
154: End If;
155: l_fct_ret := true;

Line 245: Fetch C_Sel1 Into per_rol_shd.g_old_rec;

241: ,p_argument_value => p_role_id
242: );
243: --
244: Open C_Sel1;
245: Fetch C_Sel1 Into per_rol_shd.g_old_rec;
246: If C_Sel1%notfound then
247: Close C_Sel1;
248: --
249: -- The primary key is invalid therefore we must error

Line 256: <> per_rol_shd.g_old_rec.object_version_number) Then

252: fnd_message.raise_error;
253: End If;
254: Close C_Sel1;
255: If (p_object_version_number
256: <> per_rol_shd.g_old_rec.object_version_number) Then
257: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
258: fnd_message.raise_error;
259: End If;
260: --

Line 406: end per_rol_shd;

402: Return(l_rec);
403: --
404: End convert_args;
405: --
406: end per_rol_shd;