PACKAGE BODY: APPS.OKL_UWQ_CONTRACTS_ENUMS_PVT

Source

1 Package BODY Okl_Uwq_Contracts_Enums_Pvt AS
2 /* $Header: OKLRSWQB.pls 115.1 2002/04/23 11:26:03 pkm ship       $ */
3 
4 -- Sub-Program Units
5 
6 PROCEDURE ENUMERATE_CONTRACTS_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 fnd_lookups
23   WHERE lookup_type = 'OKL_UWQ_LABELS'
24   AND lookup_code = 'OKL_UWQ_CONTRACT_LABEL';
25 
26   l_fr_list(0).NODE_LABEL := l_node_label;
27   l_fr_list(0).VIEW_NAME := 'OKL_WORKNODE_UWQ_UV';
28   l_fr_list(0).DATA_SOURCE := 'OKL_WORKNODE_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 := 'Y';
33   l_fr_list(0).NODE_DEPTH := 1;
34   l_fr_list(0).REFRESH_VIEW_NAME := 'OKL_WORKNODE_UWQ_REFRESH_UV';
35   l_fr_list(0).RES_CAT_ENUM_FLAG := 'Y';
36 
37   Ieu_Pub.ADD_UWQ_NODE_DATA
38   (P_RESOURCE_ID,
39    P_SEL_ENUM_ID,
40    l_fr_list
41   );
42 
43 END ENUMERATE_CONTRACTS_NODES;
44 
45 -- PL/SQL Block
46 END Okl_Uwq_Contracts_Enums_Pvt;