PACKAGE BODY: APPS.GMF_AP_GET_TERMS_ID

Source

1 PACKAGE BODY GMF_AP_GET_TERMS_ID AS
2 /* $Header: gmftrmib.pls 115.0 99/07/16 04:25:16 porting shi $ */
3 CURSOR get_terms_id (termscode varchar2, termsid number) IS
4 		SELECT  	distinct name, term_id
5 		FROM		ap_terms
6 		WHERE   	name like  termscode and
7 				term_id = nvl( termsid, term_id);
8 PROCEDURE ap_get_terms_id( terms_code in out varchar2,
9 		terms_id in out number,
10                 row_to_fetch in out number,
11 		statuscode out number) IS
12 Begin
13 	IF NOT get_terms_id%ISOPEN then
14 		OPEN get_terms_id(terms_code, terms_id);
15 	END IF;
16 	FETCH get_terms_id INTO terms_code, terms_id;
17 	IF get_terms_id%NOTFOUND THEN
18 		CLOSE get_terms_id;
19 		statuscode := 100;
20 	END IF;
21 	IF row_to_fetch = 1 and get_terms_id%ISOPEN then
22 		CLOSE get_terms_id;
23 	END IF;
24 	EXCEPTION
25 		WHEN OTHERS THEN
26 			statuscode := SQLCODE;
27 End;
28 END GMF_AP_GET_TERMS_ID;