1: Package Body pqh_doc_bus as
2: /* $Header: pqdocrhi.pkb 120.2 2005/09/19 14:55:19 rthiagar noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pqh_doc_bus.'; -- Global package name
9: --
10: -- The following two global variables are only to be
11: -- used by the return_legislation_code function.
12: --
119: ,p_argument => 'document_id'
120: ,p_argument_value => p_document_id
121: );
122: --
123: if ( nvl(pqh_doc_bus.g_document_id, hr_api.g_number)
124: = p_document_id) then
125: --
126: -- The legislation code has already been found with a previous
127: -- call to this function. Just return the value in the global
126: -- The legislation code has already been found with a previous
127: -- call to this function. Just return the value in the global
128: -- variable.
129: --
130: l_legislation_code := pqh_doc_bus.g_legislation_code;
131: hr_utility.set_location(l_proc, 20);
132: else
133: --
134: -- The ID is different to the last call to this function
150: -- Set the global variables so the values are
151: -- available for the next call to this function.
152: --
153: close csr_leg_code;
154: pqh_doc_bus.g_document_id := p_document_id;
155: pqh_doc_bus.g_legislation_code := l_legislation_code;
156: end if;
157: hr_utility.set_location(' Leaving:'|| l_proc, 40);
158: return l_legislation_code;
151: -- available for the next call to this function.
152: --
153: close csr_leg_code;
154: pqh_doc_bus.g_document_id := p_document_id;
155: pqh_doc_bus.g_legislation_code := l_legislation_code;
156: end if;
157: hr_utility.set_location(' Leaving:'|| l_proc, 40);
158: return l_legislation_code;
159: end return_legislation_code;
524: --
525: hr_utility.set_location(' Leaving:'||l_proc, 10);
526: End delete_validate;
527: --
528: end pqh_doc_bus;