git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@50874 248e525c-4dfb-0310-94bc-949c084e9493

This commit is contained in:
andrew.gilmore
2012-03-19 11:57:19 +00:00
parent 2a0f4900c3
commit 0e9ca75d77
1587 changed files with 500863 additions and 0 deletions

View File

@@ -0,0 +1,39 @@
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;
/