50 lines
1.4 KiB
Plaintext
50 lines
1.4 KiB
Plaintext
CREATE OR REPLACE PACKAGE EFT_NOM.cout_units_of_measure IS
|
|
|
|
/**
|
|
-- Purpose : Verify and confirm units of measure
|
|
-- #version $Revision: 1 $
|
|
-- #author $Author: Gilberta $
|
|
-- Created : 13/09/2004 10:02:18
|
|
*/
|
|
|
|
/*
|
|
$Header: /Isle Of Grain/database/PLSQL/cout_units_of_measure.pck 1 7/01/05 12:54 Gilberta $ Logfile, Revision, Date, Author
|
|
|
|
13/09/2004: $ Date and time of last checkin
|
|
$Modtime: 4/01/05 16:41 $ Date and time of last modification
|
|
|
|
$History: cout_units_of_measure.pck $
|
|
*
|
|
* ***************** Version 1 *****************
|
|
* User: Gilberta Date: 7/01/05 Time: 12:54
|
|
* Created in $/Isle Of Grain/database/PLSQL
|
|
* Initial Version
|
|
*/
|
|
|
|
/*
|
|
* SI Prefix
|
|
*/
|
|
SUBTYPE g_t_si_prefix IS NUMBER;
|
|
g_c_unit CONSTANT NUMBER := 1;
|
|
g_c_kilo CONSTANT NUMBER := 1000 * g_c_unit;
|
|
g_c_mega CONSTANT NUMBER := 1000 * g_c_kilo;
|
|
g_c_giga CONSTANT NUMBER := 1000 * g_c_mega;
|
|
|
|
/*
|
|
* Volume or Mass
|
|
*/
|
|
SUBTYPE g_t_volume_or_mass IS VARCHAR2(6);
|
|
g_c_volume CONSTANT g_t_volume_or_mass := 'volume';
|
|
g_c_mass CONSTANT g_t_volume_or_mass := 'mass';
|
|
|
|
/*
|
|
* Energy unit Joule or watt
|
|
*/
|
|
SUBTYPE g_t_joule_or_watthour IS VARCHAR2(10);
|
|
g_c_joule CONSTANT g_t_joule_or_watthour := 'joule';
|
|
g_c_watthour CONSTANT g_t_joule_or_watthour := 'watthour';
|
|
|
|
END cout_units_of_measure;
|
|
/
|
|
|