40 lines
1.1 KiB
Plaintext
40 lines
1.1 KiB
Plaintext
CREATE OR REPLACE PACKAGE EFT_NOM.svg IS
|
|
--
|
|
-- Globals
|
|
--
|
|
g_availcapacity NUMBER DEFAULT 100; -- will remove
|
|
g_gasflowed NUMBER DEFAULT 100; -- will remove
|
|
g_remainflow NUMBER DEFAULT 100; -- will remove
|
|
--
|
|
-- Object Types
|
|
--
|
|
TYPE t_pie_rec IS RECORD ( l_descr VARCHAR2(1000)
|
|
, l_quantity NUMBER
|
|
, l_units VARCHAR2(20)
|
|
);
|
|
--
|
|
TYPE t_pie_tab IS TABLE OF t_pie_rec INDEX BY BINARY_INTEGER;
|
|
--
|
|
g_pie_tab t_pie_tab;
|
|
--
|
|
-- Procedural Logic
|
|
--
|
|
PROCEDURE piechart ( p_availcapacity IN NUMBER DEFAULT g_availcapacity
|
|
, p_gasflowed IN NUMBER DEFAULT g_gasflowed
|
|
, p_remainflow IN NUMBER DEFAULT g_remainflow
|
|
);
|
|
-- PROCEDURE codedpiechart;
|
|
PROCEDURE barchart;
|
|
--
|
|
PROCEDURE piechart2 ( p_pie_tab IN t_pie_tab );
|
|
--
|
|
-- PROCEDURE barchart2;
|
|
--
|
|
-- PROCEDURE barchart3(p_type IN VARCHAR2 DEFAULT 'A');
|
|
--
|
|
PROCEDURE piechart3;
|
|
--
|
|
END svg;
|
|
/
|
|
|