APPS.PQH_VER_SHD dependencies on PQH_VER_SHD

Line 1: Package Body pqh_ver_shd as

1: Package Body pqh_ver_shd as
2: /* $Header: pqverrhi.pkb 115.3 2002/12/05 00:30:42 rpasapul noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 88: = pqh_ver_shd.g_old_rec.wrkplc_vldtn_ver_id and

84: --
85: l_fct_ret := false;
86: Else
87: If (p_wrkplc_vldtn_ver_id
88: = pqh_ver_shd.g_old_rec.wrkplc_vldtn_ver_id and
89: p_object_version_number
90: = pqh_ver_shd.g_old_rec.object_version_number
91: ) Then
92: --

Line 90: = pqh_ver_shd.g_old_rec.object_version_number

86: Else
87: If (p_wrkplc_vldtn_ver_id
88: = pqh_ver_shd.g_old_rec.wrkplc_vldtn_ver_id and
89: p_object_version_number
90: = pqh_ver_shd.g_old_rec.object_version_number
91: ) Then
92: --
93: -- The g_old_rec is current therefore we must
94: -- set the returning function to true

Line 102: Fetch C_Sel1 Into pqh_ver_shd.g_old_rec;

98: --
99: -- Select the current row into g_old_rec
100: --
101: Open C_Sel1;
102: Fetch C_Sel1 Into pqh_ver_shd.g_old_rec;
103: If C_Sel1%notfound Then
104: Close C_Sel1;
105: --
106: -- The primary key is invalid therefore we must error

Line 113: <> pqh_ver_shd.g_old_rec.object_version_number) Then

109: fnd_message.raise_error;
110: End If;
111: Close C_Sel1;
112: If (p_object_version_number
113: <> pqh_ver_shd.g_old_rec.object_version_number) Then
114: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
115: fnd_message.raise_error;
116: End If;
117: l_fct_ret := true;

Line 175: Fetch C_Sel1 Into pqh_ver_shd.g_old_rec;

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

Line 186: <> pqh_ver_shd.g_old_rec.object_version_number) Then

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

Line 260: end pqh_ver_shd;

256: Return(l_rec);
257: --
258: End convert_args;
259: --
260: end pqh_ver_shd;