APPS.PQH_BPL_SHD dependencies on PQH_BPL_SHD

Line 1: Package Body pqh_bpl_shd as

1: Package Body pqh_bpl_shd as
2: /* $Header: pqbplrhi.pkb 115.9 2003/04/11 11:44:23 mvankada noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 102: = pqh_bpl_shd.g_old_rec.pool_id and

98: --
99: l_fct_ret := false;
100: Else
101: If (p_pool_id
102: = pqh_bpl_shd.g_old_rec.pool_id and
103: p_object_version_number
104: = pqh_bpl_shd.g_old_rec.object_version_number
105: ) Then
106: --

Line 104: = pqh_bpl_shd.g_old_rec.object_version_number

100: Else
101: If (p_pool_id
102: = pqh_bpl_shd.g_old_rec.pool_id and
103: p_object_version_number
104: = pqh_bpl_shd.g_old_rec.object_version_number
105: ) Then
106: --
107: -- The g_old_rec is current therefore we must
108: -- set the returning function to true

Line 116: Fetch C_Sel1 Into pqh_bpl_shd.g_old_rec;

112: --
113: -- Select the current row into g_old_rec
114: --
115: Open C_Sel1;
116: Fetch C_Sel1 Into pqh_bpl_shd.g_old_rec;
117: If C_Sel1%notfound Then
118: Close C_Sel1;
119: --
120: -- The primary key is invalid therefore we must error

Line 127: <> pqh_bpl_shd.g_old_rec.object_version_number) Then

123: fnd_message.raise_error;
124: End If;
125: Close C_Sel1;
126: If (p_object_version_number
127: <> pqh_bpl_shd.g_old_rec.object_version_number) Then
128: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
129: fnd_message.raise_error;
130: End If;
131: l_fct_ret := true;

Line 182: Fetch C_Sel1 Into pqh_bpl_shd.g_old_rec;

178: ,p_argument_value => p_object_version_number
179: );
180: --
181: Open C_Sel1;
182: Fetch C_Sel1 Into pqh_bpl_shd.g_old_rec;
183: If C_Sel1%notfound then
184: Close C_Sel1;
185: --
186: -- The primary key is invalid therefore we must error

Line 193: <> pqh_bpl_shd.g_old_rec.object_version_number) Then

189: fnd_message.raise_error;
190: End If;
191: Close C_Sel1;
192: If (p_object_version_number
193: <> pqh_bpl_shd.g_old_rec.object_version_number) Then
194: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
195: fnd_message.raise_error;
196: End If;
197: --

Line 253: end pqh_bpl_shd;

249: Return(l_rec);
250: --
251: End convert_args;
252: --
253: end pqh_bpl_shd;