PACKAGE BODY: APPS.AST_UWQ_FORECASTS_ENUMS_PVT

Source

1 PACKAGE BODY AST_UWQ_FORECASTS_ENUMS_PVT AS
2 /* $Header: ASTENFRB.pls 115.3 2002/02/06 12:32:34 pkm ship     $ */
3 
4 -- Sub-Program Units
5 
6 PROCEDURE ENUMERATE_FORECASTS_NODES
7   (P_RESOURCE_ID      IN NUMBER
8   ,P_LANGUAGE         IN VARCHAR2
9   ,P_SOURCE_LANG      IN VARCHAR2
10   ,P_SEL_ENUM_ID      IN NUMBER
11   )
12   AS
13 
14   l_node_label VARCHAR2(200);
15   l_fr_list  IEU_PUB.EnumeratorDataRecordList;
16 
17 BEGIN
18 
19   /* label, view, and where for main node taken from enum table anyway */
20 
21   Select meaning into l_node_label
22   from ast_lookups
23   where lookup_type = 'AST_UWQ_LABELS'
24   and lookup_code = 'FORECASTS_WORK_CLASS_LABEL';
25 
26   l_fr_list(0).NODE_LABEL := l_node_label;
27   l_fr_list(0).VIEW_NAME := 'AST_FORECAST_UWQ_V';
28   l_fr_list(0).DATA_SOURCE := 'AST_FORECAST_UWQ_DS';
29   l_fr_list(0).MEDIA_TYPE_ID := '';
30   l_fr_list(0).WHERE_CLAUSE := '';
31   l_fr_list(0).NODE_TYPE := 0;
32   l_fr_list(0).HIDE_IF_EMPTY := '';
33   l_fr_list(0).NODE_DEPTH := 1;
34 
35   IEU_PUB.ADD_UWQ_NODE_DATA
36   (P_RESOURCE_ID,
37    P_SEL_ENUM_ID,
38    l_fr_list
39   );
40 
41 END ENUMERATE_FORECASTS_NODES;
42 
43 -- PL/SQL Block
44 END AST_UWQ_FORECASTS_ENUMS_PVT;