DBA Data[Home] [Help]

APPS.PQH_BRE_SHD dependencies on PQH_BRE_SHD

Line 1: Package Body pqh_bre_shd as

1: Package Body pqh_bre_shd as
2: /* $Header: pqbrerhi.pkb 115.6 2003/06/04 08:19:51 ggnanagu noship $ */
3: -- ----------------------------------------------------------------------------
4: -- | Private Global Definitions |
5: -- ----------------------------------------------------------------------------

Line 7: g_package varchar2(33) := ' pqh_bre_shd.'; -- Global package name

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

Line 94: = pqh_bre_shd.g_old_rec.reallocation_id and

90: --
91: l_fct_ret := false;
92: Else
93: If (p_reallocation_id
94: = pqh_bre_shd.g_old_rec.reallocation_id and
95: p_object_version_number
96: = pqh_bre_shd.g_old_rec.object_version_number
97: ) Then
98: --

Line 96: = pqh_bre_shd.g_old_rec.object_version_number

92: Else
93: If (p_reallocation_id
94: = pqh_bre_shd.g_old_rec.reallocation_id and
95: p_object_version_number
96: = pqh_bre_shd.g_old_rec.object_version_number
97: ) Then
98: --
99: -- The g_old_rec is current therefore we must
100: -- set the returning function to true

Line 108: Fetch C_Sel1 Into pqh_bre_shd.g_old_rec;

104: --
105: -- Select the current row into g_old_rec
106: --
107: Open C_Sel1;
108: Fetch C_Sel1 Into pqh_bre_shd.g_old_rec;
109: If C_Sel1%notfound Then
110: Close C_Sel1;
111: --
112: -- The primary key is invalid therefore we must error

Line 119: <> pqh_bre_shd.g_old_rec.object_version_number) Then

115: fnd_message.raise_error;
116: End If;
117: Close C_Sel1;
118: If (p_object_version_number
119: <> pqh_bre_shd.g_old_rec.object_version_number) Then
120: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
121: fnd_message.raise_error;
122: End If;
123: l_fct_ret := true;

Line 177: Fetch C_Sel1 Into pqh_bre_shd.g_old_rec;

173: ,p_argument_value => p_object_version_number
174: );
175: --
176: Open C_Sel1;
177: Fetch C_Sel1 Into pqh_bre_shd.g_old_rec;
178: If C_Sel1%notfound then
179: Close C_Sel1;
180: --
181: -- The primary key is invalid therefore we must error

Line 188: <> pqh_bre_shd.g_old_rec.object_version_number) Then

184: fnd_message.raise_error;
185: End If;
186: Close C_Sel1;
187: If (p_object_version_number
188: <> pqh_bre_shd.g_old_rec.object_version_number) Then
189: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
190: fnd_message.raise_error;
191: End If;
192: --

Line 254: end pqh_bre_shd;

250: Return(l_rec);
251: --
252: End convert_args;
253: --
254: end pqh_bre_shd;