1: PACKAGE BODY ast_ams_source_pkg AS
2: /* $Header: astmsrcb.pls 115.2 2002/02/05 18:03:48 pkm ship $ */
3: -- Start of Comments
4: -- Package name : ast_ams_source_pkg
5: -- Purpose : Function to provide source code name in AST_AMS_SOURCE_CODES_V view
1: PACKAGE BODY ast_ams_source_pkg AS
2: /* $Header: astmsrcb.pls 115.2 2002/02/05 18:03:48 pkm ship $ */
3: -- Start of Comments
4: -- Package name : ast_ams_source_pkg
5: -- Purpose : Function to provide source code name in AST_AMS_SOURCE_CODES_V view
6: -- History :
7: -- NOTE :
8: -- End of Comments
57: CLOSE c_event_ofr;
58: END IF;
59: RETURN l_source_code_name;
60: END fetch_source_code_name;
61: END ast_ams_source_pkg;