PACKAGE BODY: APPS.IEU_FRM_PVT

Source

1 PACKAGE BODY IEU_FRM_PVT AS
2 /* $Header: IEUFRMB.pls 115.5 2003/08/07 17:01:47 fsuthar ship $ */
3 
4 PROCEDURE uwq_get_media_func(p_apps_proc		IN  varchar2,
5 					p_ieu_media_data  IN  t_ieu_media_data,
6 				    	p_action_type 	OUT NOCOPY number,
7 				    	p_action_name 	OUT NOCOPY varchar2,
8 				    	p_action_param  	OUT NOCOPY varchar2 ) IS
9 
10 	v_media_data SYSTEM.IEU_UWQ_MEDIA_DATA_NST;
11 
12 	l_name  varchar2(120);
13 	l_param varchar2(4000);
14 	l_type  number;
15 
16 BEGIN
17 
18 	v_media_data := SYSTEM.IEU_UWQ_MEDIA_DATA_NST();
19 
20 	FOR i IN p_ieu_media_data.first..p_ieu_media_data.last
21 	LOOP
22 
23 	v_media_data.EXTEND;
24 	v_media_data(v_media_data.LAST) := SYSTEM.IEU_UWQ_MEDIA_DATA_OBJ(p_ieu_media_data(i).param_name,
25 							p_ieu_media_data(i).param_value,
26 							p_ieu_media_data(i).param_type);
27 
28 	END LOOP;
29 
30 
31 	EXECUTE IMMEDIATE 'BEGIN '||p_apps_proc||'( :1, :2, :3, :4 );  END;'
32 	USING IN v_media_data, OUT l_type, OUT l_name, OUT l_param;
33 
34 	p_action_type 	:= l_type;
35 	p_action_name 	:= l_name;
36 	p_action_param	:= l_param;
37 
38   END;
39 
40 
41 PROCEDURE uwq_get_action_func(p_apps_proc IN  varchar2,
42                              p_ieu_action_data  IN  t_ieu_media_data,
43 			     p_action_type 	OUT NOCOPY number,
44 			     p_action_name 	OUT NOCOPY varchar2,
45 			     p_action_param  	OUT NOCOPY varchar2,
46                              p_msg_name          OUT NOCOPY varchar2,
47                              p_msg_param         OUT NOCOPY varchar2,
48                              p_dialog_style      OUT NOCOPY number ,
49                              p_msg_appl_short_name OUT NOCOPY varchar2) IS
50 
51 	v_media_data SYSTEM.IEU_UWQ_MEDIA_DATA_NST;
52 
53 	l_name  varchar2(120);
54 	l_param varchar2(4000);
55 	l_type  number;
56         l_msg_name varchar2(1000);
57         l_msg_param  varchar2(100);
58         l_dialog_style number;
59         l_msg_appl_short_name varchar2(100);
60 BEGIN
61 
62 
63 	v_media_data := SYSTEM.IEU_UWQ_MEDIA_DATA_NST();
64 
65 	FOR i IN p_ieu_action_data.first..p_ieu_action_data.last
66 	LOOP
67 
68 	v_media_data.EXTEND;
69 	v_media_data(v_media_data.LAST) :=                           SYSTEM.IEU_UWQ_MEDIA_DATA_OBJ(p_ieu_action_data(i).param_name,
70 							p_ieu_action_data(i).param_value,
71 							p_ieu_action_data(i).param_type);
72 
73 	END LOOP;
74 
75 
76 	EXECUTE IMMEDIATE 'BEGIN '||p_apps_proc||'( :1, :2, :3, :4 ,:5, :6, :7, :8);  END;'
77 	USING IN v_media_data, OUT l_type, OUT l_name, OUT l_param, out l_msg_name, out l_msg_param,               out l_dialog_style, out l_msg_appl_short_name;
78 
79 
80 
81 	p_action_type 	:= l_type;
82 	p_action_name 	:= l_name;
83 	p_action_param	:= l_param;
84         p_msg_name      := l_msg_name;
85         p_msg_param     := l_msg_param;
86         p_dialog_style  := l_dialog_style;
87         p_msg_appl_short_name := l_msg_appl_short_name;
88 
89   END;
90 
91 END IEU_FRM_PVT;