1 PACKAGE BODY pay_payvibal_pkg AS
2 /* $Header: pyvibal.pkb 115.0 99/07/17 06:48:42 porting ship $
3 ******************************************************************
4 * *
5 * Copyright (C) 1992 Oracle Corporation UK Ltd., *
6 * Chertsey, England. *
7 * *
8 * All rights reserved. *
9 * *
10 * This material has been provided pursuant to an agreement *
11 * containing restrictions on its use. The material is also *
12 * protected by copyright law. No part of this material may *
13 * be copied or distributed, transmitted or transcribed, in *
14 * any form or by any means, electronic, mechanical, magnetic, *
15 * manual, or otherwise, or disclosed to third parties without *
16 * the express written permission of Oracle Corporation UK Ltd, *
17 * Oracle Park, Bittams Lane, Guildford Road, Chertsey, Surrey, *
18 * England. *
19 * *
20 ******************************************************************
21 Name : pay_payvibal_pkg (BODY)
22 File : pyvibal.pkb
23 Description : This package declares functions and procedures which are used
24 in the form PAYVIBAL.
25
26 Change List
27 -----------
28
29 Version Date Author ER/CR No. Description of Change
30 -------+---------+----------+---------+--------------------------
31 40.0 11-NOV-93 AKelly Date Created
32 40.1 13-NOV-93 AKelly rewrote using a cursor instead of the
33 expensive select within LOOP.
34 40.2 05-OCT-93 RFine prepended 'PAY_' to package name
35 40.4 11-OCT-95 JThuringer Removed spurious end of comment marker
36 =================================================================
37 */
38 --
39 --
40 procedure get_dimension_contexts(p_route_id in number, p_context1 out varchar2,
41 p_context2 out varchar2,
42 p_context3 out varchar2) IS
43 cursor c_route_context_usage is
44 SELECT c.context_name
45 , u.sequence_no
46 from ff_contexts c
47 , ff_route_context_usages u
48 where u.route_id = p_route_id
49 and c.context_id = u.context_id
50 order by u.sequence_no;
51 --
52 begin
53 --
54 -- initializing the 3 output parameters to null, because p_context2 or
55 -- p_context3 may not always be set to any other value, ie. in the case
56 -- where there are only 1 or 2 contexts being used by the dimensions route.
57 --
58 p_context1 := NULL;
59 p_context2 := NULL;
60 p_context2 := NULL;
61 --
62 hr_utility.set_location('pay_payvibal_pkg.get_dimension_contexts',11);
63 FOR c_route_context_usage_rec in c_route_context_usage LOOP
64 --
65 if c_route_context_usage_rec.sequence_no = 1 then
66 p_context1 := c_route_context_usage_rec.context_name;
67 elsif c_route_context_usage_rec.sequence_no = 2 then
68 p_context2 := c_route_context_usage_rec.context_name;
69 elsif c_route_context_usage_rec.sequence_no = 3 then
70 p_context3 := c_route_context_usage_rec.context_name;
71 end if;
72 END LOOP;
73 --
74 end get_dimension_contexts;
75 --
76 --
77 --
78 end pay_payvibal_pkg;