[Home] [Help]
PACKAGE BODY: APPS.IEC_DEFAULT_MEDIA_ENUMS_PVT
Source
1 PACKAGE BODY IEC_DEFAULT_MEDIA_ENUMS_PVT AS
2 /* $Header: IECENMVB.pls 115.8 2003/08/22 20:41:25 hhuang ship $ */
3
4
5 PROCEDURE ENUMERATE_ADV_OUTB_NODES
6 (P_RESOURCE_ID IN NUMBER
7 ,P_LANGUAGE IN VARCHAR2
8 ,P_SOURCE_LANG IN VARCHAR2
9 ,P_SEL_ENUM_ID IN NUMBER
10 )
11 AS
12 l_node_label VARCHAR2(100);
13 l_tk_list IEU_PUB.EnumeratorDataRecordList;
14
15
16 BEGIN
17
18 select MEANING into l_node_label
19 from
20 FND_LOOKUP_VALUES_VL
21 where
22 LOOKUP_TYPE='IEU_NODE_LABELS'
23 and VIEW_APPLICATION_ID=696
24 and LOOKUP_CODE='IEU_ADVANCED_OUTBOUND_LBL';
25
26 l_tk_list(0).NODE_LABEL := l_node_label;
27 l_tk_list(0).VIEW_NAME := 'IEC_ADV_OUTB_WORKNODE_UWQ_V';
28 l_tk_list(0).DATA_SOURCE := 'IEC_ADV_OUTB_WORKNODE_UWQ_DS';
29 l_tk_list(0).MEDIA_TYPE_ID := 10009;
30 l_tk_list(0).WHERE_CLAUSE := '';
31
32 l_tk_list(0).NODE_TYPE := 0;
33 l_tk_list(0).HIDE_IF_EMPTY := '';
34 l_tk_list(0).NODE_DEPTH := 1;
35 l_tk_list(0).BIND_VARS := '';
36 l_tk_list(0).RES_CAT_ENUM_FLAG := 'Y';
37
38 IEU_PUB.ADD_UWQ_NODE_DATA
39 (
40 P_RESOURCE_ID,
41 P_SEL_ENUM_ID,
42 l_tk_list
43 );
44
45 EXCEPTION
46 WHEN OTHERS THEN
47 -- dbms_output.put_line(SQLERRM);
48 ROLLBACK TO start_ao_enumeration;
49 RAISE;
50
51 END ENUMERATE_ADV_OUTB_NODES;
52
53 END IEC_DEFAULT_MEDIA_ENUMS_PVT;