APPS.PER_PCE_SHD dependencies on PER_PCE_SHD

Line 1: PACKAGE BODY per_pce_shd AS

1: PACKAGE BODY per_pce_shd AS
2: /* $Header: pepcerhi.pkb 120.1 2006/10/18 09:19:34 grreddy noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

Line 8: g_package VARCHAR2(33) := ' per_pce_shd.'; -- Global package name

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

Line 127: = per_pce_shd.g_old_rec.cagr_entitlement_id and

123: --
124: l_fct_ret := false;
125: Else
126: If (p_cagr_entitlement_id
127: = per_pce_shd.g_old_rec.cagr_entitlement_id and
128: p_object_version_number
129: = per_pce_shd.g_old_rec.object_version_number
130: ) THEN
131: --

Line 129: = per_pce_shd.g_old_rec.object_version_number

125: Else
126: If (p_cagr_entitlement_id
127: = per_pce_shd.g_old_rec.cagr_entitlement_id and
128: p_object_version_number
129: = per_pce_shd.g_old_rec.object_version_number
130: ) THEN
131: --
132: -- The g_old_rec IS current therefore we must
133: -- set the returning function to true

Line 141: Fetch C_Sel1 Into per_pce_shd.g_old_rec;

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

Line 152: <> per_pce_shd.g_old_rec.object_version_number) THEN

148: fnd_message.raise_error;
149: END If;
150: Close C_Sel1;
151: If (p_object_version_number
152: <> per_pce_shd.g_old_rec.object_version_number) THEN
153: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
154: fnd_message.raise_error;
155: END If;
156: l_fct_ret := true;

Line 209: Fetch C_Sel1 Into per_pce_shd.g_old_rec;

205: ,p_argument_value => p_object_version_number
206: );
207: --
208: Open C_Sel1;
209: Fetch C_Sel1 Into per_pce_shd.g_old_rec;
210: If C_Sel1%notfound then
211: Close C_Sel1;
212: --
213: -- The primary key IS invalid therefore we must error

Line 220: <> per_pce_shd.g_old_rec.object_version_number) THEN

216: fnd_message.raise_error;
217: END If;
218: Close C_Sel1;
219: If (p_object_version_number
220: <> per_pce_shd.g_old_rec.object_version_number) THEN
221: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
222: fnd_message.raise_error;
223: END If;
224: --

Line 282: end per_pce_shd;

278: RETURN(l_rec);
279: --
280: END convert_args;
281: --
282: end per_pce_shd;