1 PACKAGE BODY OKE_FUNDING_INQUIRY AS
2 /* $Header: OKEFINQB.pls 115.1 2002/09/25 21:16:03 syho noship $ */
3
4 --
5 -- Global Variables
6 --
7 G_Major_Version NUMBER := 9E+99;
8 G_Group_By1 VARCHAR2(30) := NULL;
9 G_Group_By2 VARCHAR2(30) := NULL;
10 G_Group_By3 VARCHAR2(30) := NULL;
11
12 PROCEDURE set_major_version ( Major_Version IN NUMBER ) IS
13 BEGIN
14 G_Major_Version := Major_Version;
15 END set_major_version;
16
17
18 PROCEDURE set_group_by1 ( Group_By IN VARCHAR2 ) IS
19 BEGIN
20 G_Group_By1 := Group_By;
21 END set_group_by1;
22
23
24 PROCEDURE set_group_by2 ( Group_By IN VARCHAR2 ) IS
25 BEGIN
26 G_Group_By2 := Group_By;
27 END set_group_by2;
28
29
30 PROCEDURE set_group_by3 ( Group_By IN VARCHAR2 ) IS
31 BEGIN
32 G_Group_By3 := Group_By;
33 END set_group_by3;
34
35
36 FUNCTION major_version RETURN NUMBER IS
37 BEGIN
38 RETURN ( G_Major_Version );
39 END major_version;
40
41
42 FUNCTION group_by1 RETURN VARCHAR2 IS
43 BEGIN
44 RETURN ( G_Group_By1 );
45 END group_by1;
46
47
48 FUNCTION group_by2 RETURN VARCHAR2 IS
49 BEGIN
50 RETURN ( G_Group_By2 );
51 END group_by2;
52
53
54 FUNCTION group_by3 RETURN VARCHAR2 IS
55 BEGIN
56 RETURN ( G_Group_By3 );
57 END group_by3;
58
59
60 --
61 -- Function : get_version_date
62 -- Purpose : get the creation date for a particular version of a document
63 -- Parameters : (IN) p_header_id NUMBER k_header_id of the document
64 -- p_version NUMBER version number of the document
65 -- Return : creation date of a particular version
66 --
67
68 FUNCTION get_version_date (p_header_id IN NUMBER,
69 p_version IN NUMBER ) RETURN DATE IS
70
71 CURSOR c_date IS
72 SELECT creation_date
73 FROM oke_k_vers_numbers_h
74 WHERE k_header_id = p_header_id
75 AND major_version = p_version;
76
77 x_date DATE;
78
79 BEGIN
80
81 OPEN c_date;
82 FETCH c_date INTO x_date;
83 CLOSE c_date;
84
85 RETURN x_date;
86
87 EXCEPTION
88 WHEN OTHERS THEN
89 IF (c_date%ISOPEN) THEN
90 CLOSE c_date;
91 END IF;
92
93 END get_version_date;
94
95
96 END OKE_FUNDING_INQUIRY;
[Home] [Help]