1 PACKAGE BODY GL_AUTO_ALLOC_BHD_PKG as
2 /* $Header: glialhdb.pls 120.3 2005/05/05 00:58:57 kvora ship $ */
3
4 --
5 -- PUBLIC FUNCTIONS
6 --
7 PROCEDURE populate_fields(p_request_id IN NUMBER, s_number IN NUMBER,
8 request_id IN OUT NOCOPY NUMBER) IS
9 CURSOR c_request IS
10 SELECT request_id
11 FROM GL_AUTO_ALLOC_BAT_HIST_DET
12 WHERE parent_request_id = p_request_id
13 AND step_number = s_number;
14 BEGIN
15 OPEN c_request;
16 FETCH c_request INTO request_id;
17 CLOSE c_request;
18
19 END populate_fields;
20
21 END GL_AUTO_ALLOC_BHD_PKG;