1 PACKAGE BODY hr_api_utils AS -- Body
2 /* $Header: hrapiutl.pkb 115.1 2002/11/29 12:22:44 apholt ship $ */
3 --
4 --
5 -- A procedure which will parse dynamic sql on the server.
6 procedure call_parse(p_cursor IN OUT NOCOPY NUMBER
7 ,p_proc IN OUT NOCOPY varchar2
8 ) IS
9 BEGIN
10 dbms_sql.parse(p_cursor, p_proc, dbms_sql.v7);
11 END call_parse;
12 --
13 --
14 -- A procedure which will bind variables within a dynamic sql block.
15 -- Variables will be of the type varchar2.
16 --
17 PROCEDURE bind_var(p_cursor IN NUMBER
18 ,p_bind_var IN VARCHAR2
19 ,p_out_val IN OUT NOCOPY VARCHAR2
20 ) IS
21 BEGIN
22 dbms_sql.bind_variable(p_cursor, p_bind_var, p_out_val, 240);
23 END bind_var;
24 --
25 --
26 -- A procedure which will bind variables within a dynamic sql block.
27 -- Variables are of the type number.
28 --
29 PROCEDURE bind_num(p_cursor IN NUMBER
30 ,p_bind_var IN VARCHAR2
31 ,p_out_val IN OUT NOCOPY NUMBER
32 ) IS
33 BEGIN
34 dbms_sql.bind_variable(p_cursor, p_bind_var, p_out_val);
35 END bind_num;
36 --
37 --
38 -- A procedure which will bind variables within a dynamic sql block.
39 -- Variables are of the type date.
40 --
41 PROCEDURE bind_date(p_cursor IN NUMBER
42 ,p_bind_var IN VARCHAR2
43 ,p_out_val IN OUT NOCOPY DATE
44 ) IS
45 BEGIN
46 dbms_sql.bind_variable(p_cursor, p_bind_var, p_out_val);
47 END bind_date;
48 --
49 -- The following are procedures which will return values from
50 -- bound varibales.
51 --
52 -- For values of the type varchar2.
53 --
54 PROCEDURE get_var(p_cursor IN NUMBER
55 ,p_bind_var IN VARCHAR2
56 ,p_out_val IN OUT NOCOPY VARCHAR2
57 ) IS
58 BEGIN
59 dbms_sql.variable_value(p_cursor, p_bind_var, p_out_val);
60 END get_var;
61 --
62 --
63 -- For values of the type number.
64 --
65 PROCEDURE get_num(p_cursor IN NUMBER
66 ,p_bind_var IN VARCHAR2
67 ,p_out_val IN OUT NOCOPY NUMBER
68 ) IS
69 BEGIN
70 dbms_sql.variable_value(p_cursor, p_bind_var, p_out_val);
71 END get_num;
72 --
73 --
74 -- For values of the type date.
75 --
76 PROCEDURE get_date(p_cursor IN NUMBER
77 ,p_bind_var IN VARCHAR2
78 ,p_out_val IN OUT NOCOPY DATE
79 ) IS
80 BEGIN
81 dbms_sql.variable_value(p_cursor, p_bind_var, p_out_val);
82 END get_date;
83 --
84 --
85 END hr_api_utils;