APPS.IRC_IDO_SHD dependencies on IRC_IDO_SHD

Line 1: Package Body irc_ido_shd as

1: Package Body irc_ido_shd as
2: /* $Header: iridorhi.pkb 120.5.12010000.2 2008/09/26 13:55:20 pvelugul ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 88: = irc_ido_shd.g_old_rec.document_id and

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

Line 90: = irc_ido_shd.g_old_rec.object_version_number

86: Else
87: If (p_document_id
88: = irc_ido_shd.g_old_rec.document_id and
89: p_object_version_number
90: = irc_ido_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 irc_ido_shd.g_old_rec;

98: --
99: -- Select the current row into g_old_rec
100: --
101: Open C_Sel1;
102: Fetch C_Sel1 Into irc_ido_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: <> irc_ido_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: <> irc_ido_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 169: Fetch C_Sel1 Into irc_ido_shd.g_old_rec;

165: ,p_argument_value => p_object_version_number
166: );
167: --
168: Open C_Sel1;
169: Fetch C_Sel1 Into irc_ido_shd.g_old_rec;
170: If C_Sel1%notfound then
171: Close C_Sel1;
172: --
173: -- The primary key is invalid therefore we must error

Line 180: <> irc_ido_shd.g_old_rec.object_version_number) Then

176: fnd_message.raise_error;
177: End If;
178: Close C_Sel1;
179: If (p_object_version_number
180: <> irc_ido_shd.g_old_rec.object_version_number) Then
181: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
182: fnd_message.raise_error;
183: End If;
184: --

Line 242: end irc_ido_shd;

238: Return(l_rec);
239: --
240: End convert_args;
241: --
242: end irc_ido_shd;