PACKAGE BODY: APPS.JTS_CONFIG_UTIL_PVT

Source

1 PACKAGE BODY JTS_CONFIG_UTIL_PVT  as
2 /* $Header: jtsvcutb.pls 115.1 2002/04/10 18:10:16 pkm ship    $ */
3 
4 
5 -- --------------------------------------------------------------------
6 -- Package name     : JTS_CONFIG_UTIL_PVT
7 -- Purpose          : Utilities Package.
8 -- History          : 25-Feb-02  Sung Ha Huh  Created.
9 -- NOTE             :
10 -- --------------------------------------------------------------------
11 
12 -- Opens the Versions cursor with its Select.
13 PROCEDURE GET_VERSIONS_CURSOR(p_api_version	IN  Number,
14    		p_config_id			IN  Number,
15 		x_versions_csr 			OUT NOCOPY Versions_Csr_Type)
16 IS
17    l_api_version   CONSTANT NUMBER        := 1.0;
18    l_api_name      CONSTANT VARCHAR2 (30) := 'GET_VERSIONS_CURSOR';
19 BEGIN
20 OPEN x_versions_csr FOR
21 SELECT  version_id
22 FROM    jts_config_versions_b
23 WHERE	  configuration_id = p_config_id;
24 
25 EXCEPTION
26    WHEN OTHERS THEN
27 	APP_EXCEPTION.RAISE_EXCEPTION;
28 END GET_VERSIONS_CURSOR;
29 
30 
31 END JTS_CONFIG_UTIL_PVT;