1 PACKAGE INV_MGD_POS_UTIL AUTHID CURRENT_USER AS
2 /* $Header: INVUPOSS.pls 115.1 2002/12/24 23:38:35 vjavli ship $ */
3 --+=======================================================================+
4 --| Copyright (c) 2000 Oracle Corporation |
5 --| Redwood Shores, CA, USA |
6 --| All rights reserved. |
7 --+=======================================================================+
8 --| FILENAME |
9 --| INVUPOSS.pls |
10 --| |
11 --| DESCRIPTION |
12 --| Utilities for Inventory Position View and Export |
13 --| HISTORY |
14 --| 09/01/2000 Paolo Juvara Created |
15 --+======================================================================*/
16
17
18 --===================
19 -- CONSTANTS
20 --===================
21
22 G_LOG_ERROR CONSTANT NUMBER := 5;
23 G_LOG_EXCEPTION CONSTANT NUMBER := 4;
24 G_LOG_EVENT CONSTANT NUMBER := 3;
25 G_LOG_PROCEDURE CONSTANT NUMBER := 2;
26 G_LOG_STATEMENT CONSTANT NUMBER := 1;
27
28 --===================
29 -- DATA TYPES
30 --===================
31
32 TYPE bucket_rec_type IS RECORD
33 ( name VARCHAR2(30)
34 , start_date DATE
35 , end_date DATE
36 , bucket_size VARCHAR2(30)
37 );
38
39 TYPE organization_rec_type IS RECORD
40 ( id NUMBER
41 , code VARCHAR2(3)
42 , complete_flag BOOLEAN := FALSE
43 );
44
45 TYPE item_rec_type IS RECORD
46 ( organization_id NUMBER
47 , organization_code VARCHAR2(3)
48 , item_id NUMBER
49 , item_code VARCHAR2(2000)
50 );
51
52 TYPE bucket_tbl_type IS TABLE OF bucket_rec_type
53 INDEX BY BINARY_INTEGER;
54
55 TYPE organization_tbl_type IS TABLE OF organization_rec_type
56 INDEX BY BINARY_INTEGER;
57
58 TYPE item_tbl_type IS TABLE OF item_rec_type
59 INDEX BY BINARY_INTEGER;
60
61 --===================
62 -- PROCEDURES AND FUNCTIONS
63 --===================
64
65 --========================================================================
66 -- PROCEDURE : Log_Initialize PUBLIC
67 -- COMMENT : Initializes the log facility. It should be called from
68 -- the top level procedure of each concurrent program
69 --=======================================================================--
70 PROCEDURE Log_Initialize;
71
72 --========================================================================
73 -- PROCEDURE : Log PUBLIC
74 -- PARAMETERS: p_level IN priority of the message - from
75 -- highest to lowest:
76 -- -- G_LOG_ERROR
77 -- -- G_LOG_EXCEPTION
78 -- -- G_LOG_EVENT
79 -- -- G_LOG_PROCEDURE
80 -- -- G_LOG_STATEMENT
81 -- p_msg IN message to be print on the log
82 -- file
83 -- COMMENT : Add an entry to the log
84 --=======================================================================--
85 PROCEDURE Log
86 ( p_priority IN NUMBER
87 , p_msg IN VARCHAR2
88 );
89
90 END INV_MGD_POS_UTIL;