1: Package Body pqh_txh_shd as
2: /* $Header: pqtxhrhi.pkb 120.2 2005/12/21 11:29:59 hpandya noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pqh_txh_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |---------------------------< constraint_error >---------------------------|
12: -- ----------------------------------------------------------------------------
74: --
75: l_fct_ret := false;
76: Else
77: If (p_transaction_history_id
78: = pqh_txh_shd.g_old_rec.transaction_history_id
79: ) Then
80: --
81: -- The g_old_rec is current therefore we must
82: -- set the returning function to true
86: --
87: -- Select the current row into g_old_rec
88: --
89: Open C_Sel1;
90: Fetch C_Sel1 Into pqh_txh_shd.g_old_rec;
91: If C_Sel1%notfound Then
92: Close C_Sel1;
93: --
94: -- The primary key is invalid therefore we must error
145: ,p_argument_value => p_transaction_history_id
146: );
147: --
148: Open C_Sel1;
149: Fetch C_Sel1 Into pqh_txh_shd.g_old_rec;
150: If C_Sel1%notfound then
151: Close C_Sel1;
152: --
153: -- The primary key is invalid therefore we must error
220: Return(l_rec);
221: --
222: End convert_args;
223: --
224: end pqh_txh_shd;