APPS.PQP_SHP_SHD dependencies on PQP_SHP_SHD

Line 1: Package Body pqp_shp_shd as

1: Package Body pqp_shp_shd as
2: /* $Header: pqshprhi.pkb 115.8 2003/02/17 22:14:48 tmehra noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 134: = pqp_shp_shd.g_old_rec.service_history_period_id and

130: --
131: l_fct_ret := false;
132: Else
133: If (p_service_history_period_id
134: = pqp_shp_shd.g_old_rec.service_history_period_id and
135: p_object_version_number
136: = pqp_shp_shd.g_old_rec.object_version_number
137: ) Then
138: --

Line 136: = pqp_shp_shd.g_old_rec.object_version_number

132: Else
133: If (p_service_history_period_id
134: = pqp_shp_shd.g_old_rec.service_history_period_id and
135: p_object_version_number
136: = pqp_shp_shd.g_old_rec.object_version_number
137: ) Then
138: --
139: -- The g_old_rec is current therefore we must
140: -- set the returning function to true

Line 148: Fetch C_Sel1 Into pqp_shp_shd.g_old_rec;

144: --
145: -- Select the current row into g_old_rec
146: --
147: Open C_Sel1;
148: Fetch C_Sel1 Into pqp_shp_shd.g_old_rec;
149: If C_Sel1%notfound Then
150: Close C_Sel1;
151: --
152: -- The primary key is invalid therefore we must error

Line 159: <> pqp_shp_shd.g_old_rec.object_version_number) Then

155: fnd_message.raise_error;
156: End If;
157: Close C_Sel1;
158: If (p_object_version_number
159: <> pqp_shp_shd.g_old_rec.object_version_number) Then
160: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
161: fnd_message.raise_error;
162: End If;
163: l_fct_ret := true;

Line 255: Fetch C_Sel1 Into pqp_shp_shd.g_old_rec;

251: ,p_argument_value => p_service_history_period_id
252: );
253: --
254: Open C_Sel1;
255: Fetch C_Sel1 Into pqp_shp_shd.g_old_rec;
256: If C_Sel1%notfound then
257: Close C_Sel1;
258: --
259: -- The primary key is invalid therefore we must error

Line 266: <> pqp_shp_shd.g_old_rec.object_version_number) Then

262: fnd_message.raise_error;
263: End If;
264: Close C_Sel1;
265: If (p_object_version_number
266: <> pqp_shp_shd.g_old_rec.object_version_number) Then
267: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
268: fnd_message.raise_error;
269: End If;
270: --

Line 420: end pqp_shp_shd;

416: Return(l_rec);
417: --
418: End convert_args;
419: --
420: end pqp_shp_shd;