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;