eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.XNP_WEB_UTILS

Source


1 PACKAGE BODY XNP_WEB_UTILS AS
2 /* $Header: XNPWEBUB.pls 120.0 2005/05/30 11:44:49 appldev noship $ */
3 
4 
5 PROCEDURE print (p_text VARCHAR2) IS
6 BEGIN
7     if G_FORMAT = 'HTML'
8     then
9 	htp.p(p_text);
10     elsif G_FORMAT = 'DBMS'
11     then
12         -- standard --  dbms_output.enable(20000);
13 	null;
14         if p_text = '<P>'
15         then
16            	-- standard -- dbms_output.put_line (fnd_global.local_chr(10));
17 		null;
18 	else
19 		-- standard -- dbms_output.put_line (substr(p_text,1,255));
20 		null;
21 	end if;
22     end if;
23 END print;
24 
25 PROCEDURE show_msg_body
26 	(p_msg_id NUMBER,
27 	 p_print_header VARCHAR2 DEFAULT 'Y')
28 IS
29 
30   l_body_text  VARCHAR2(32767);
31 
32 BEGIN
33 
34   XNP_MESSAGE.GET(p_msg_id, l_body_text) ;
35 
36   IF (l_body_text IS NULL)
37   THEN
38 	print('Error: Message not found.');
39   END IF;
40 
41   IF p_print_header = 'Y'
42   THEN
43 	owa_util.mime_header('text/xml');
44   	--print(C_XML_HEADER);
45   END IF;
46 
47   print(l_body_text) ;
48 
49 EXCEPTION
50 WHEN OTHERS THEN
51   print('SQL Error: ' || SQLERRM);
52 END show_msg_body;
53 
54 PROCEDURE show_indicator_item (p_itemname VARCHAR2,p_num NUMBER,p_afternum VARCHAR2) IS
55 BEGIN
56   FND_MESSAGE.set_name('XNP', p_itemname);
57   print('<tr><td></td>');
58   print('<td><b><font color="#006600">'||FND_MESSAGE.get||'</b></td><td> </td>');
59   print('<td ALIGN=LEFT><b><font color="#006600">'||to_char(p_num)||
60         p_afternum||'</b></td></tr>');
61 END show_indicator_item;
62 
63 PROCEDURE show_indicators IS
64   l_msg_days        NUMBER(5,2);
65 BEGIN
66 
67   select avg (send_rcv_date - msg_creation_date ) into l_msg_days from xnp_msgs
68     where send_rcv_date is not null;
69 
70   htp.bodyOpen;
71 
72   show_indicator_item('SDPHOME_MSG_STATISTICS', NVL(l_msg_days,0), ' days');
73 
74   htp.bodyClose;
75 END;
76 
77 PROCEDURE show_menu_item (p_itemname VARCHAR2,p_linkname VARCHAR2) IS
78 BEGIN
79 	FND_MESSAGE.set_name('XNP', p_itemname);
80 	print('<tr><td></td><td WIDTH="100%">
81 	       <b><u><font color="#3333FF">');
82   print('<a href='||'"'||p_linkname||'">'||FND_MESSAGE.get);
83   print('</a></font></u></b></td></tr>');
84 
85 END show_menu_item;
86 
87 PROCEDURE show_menu IS
88 	l_wa_path VARCHAR2(80);
89 BEGIN
90 	FND_PROFILE.GET('APPS_WEB_AGENT', l_wa_path);
91 
92 	htp.bodyOpen;
93   show_menu_item('SDPHOME_APP_LOGIN','/OA_FORMS60/forms6');
94   show_menu_item('SDPHOME_NP_CENTER',l_wa_path||'/xnp_center$.startup');
95   show_menu_item('SDPHOME_MSG_DIAGNOSTICS',l_wa_path||'/xnp_msg_diagnostics$.startup');
96   show_menu_item('SDPHOME_TIMER_DIAGNOSTICS',l_wa_path||'/xnp_timers$.startup');
97   show_menu_item('SDPHOME_CALLBACK_DIAGNOSTICS',l_wa_path||'/xnp_callback_events$.startup');
98   htp.bodyClose;
99 END show_menu;
100 
101 PROCEDURE show_statistics_item (p_itemname VARCHAR2,p_num NUMBER,p_afternum VARCHAR2) IS
102 BEGIN
103 	FND_MESSAGE.set_name('XNP', p_itemname);
104   print('<tr><td></td>');
105   print('<td> <b><font color="#006600">'||FND_MESSAGE.get||'</b></td><td> </td>');
106   print('<td><b><font color="#006600">'||to_char(p_num)||
107         p_afternum||'</b></td></tr>');
108 END show_statistics_item;
109 
110 PROCEDURE show_statistics IS
111   l_total_portings        NUMBER;
112   l_inprogress_portings   NUMBER;
113   l_xdp_workitems         NUMBER;
114   l_inquery_portings      NUMBER;
115 BEGIN
116   select count(*)  into l_total_portings from xnp_sv_soa_vl
117     where status_phase IN ('ACTIVE', 'OLD');
118 
119   select count(*)  into l_inprogress_portings from xnp_sv_soa_vl
120     where status_phase IN ('ORDER');
121 
122   select count(*)  into l_inquery_portings from xnp_sv_soa_vl
123     where status_phase IN ('INQUIRY');
124 
125   select count(*)  into l_xdp_workitems from XDP_FULFILL_WORKLIST ;
126 
127   htp.bodyOpen;
128   show_statistics_item('SDPHOME_INPROGRESS_PORTING', l_inprogress_portings, '');
129   show_statistics_item('SDPHOME_INQUERY_PORTING', l_inquery_portings, '');
130   show_statistics_item('SDPHOME_TOTAL_PORTING', l_total_portings, '');
131   show_statistics_item('SDPHOME_XDP_WORKITEMS', l_xdp_workitems, '');
132 
133 
134   htp.bodyClose;
135 END;
136 
137 
138 PROCEDURE show_alert_item1 (p_itemname VARCHAR2, p_num NUMBER,
139                             p_link VARCHAR2, p_imgname VARCHAR2) IS
140 BEGIN
141   if(p_num > 0) THEN
142     fnd_message.set_name('XNP',p_itemname);
143     fnd_message.set_token('NUM',to_char(p_num));
144     if(p_link<>'N') THEN
145 	   print('<tr><td><img SRC="'||'/OA_MEDIA/'||p_imgname||'" height=12 width=8></td>'||
146          '<td><b><font color="#3333FF">'||
147          '<a href='||'"'||p_link||'">'||fnd_message.get||'</a></font></b></td></tr>');
148     else
149  	   print('<tr><td><img SRC="'||'/OA_MEDIA/'||p_imgname||'" height=12 width=8></td>'||
150          '<td><b><font color="#3333FF">'||
151          fnd_message.get||'</font></b></td></tr>');
152     end if;
153 
154   END IF;
155 END show_alert_item1;
156 
157 PROCEDURE show_alert_item2 (p_itemname VARCHAR2, p_name VARCHAR2,
158                             p_link VARCHAR2, p_imgname VARCHAR2) IS
159 BEGIN
160 if(p_name is not NULL) THEN
161     fnd_message.set_name('XNP',p_itemname);
162     fnd_message.set_token('NAME',p_name);
163 
164     if(p_link<>'N') THEN
165 	   print('<tr><td><img SRC="'||'/OA_MEDIA/'||p_imgname||'" height=12 width=8></td>'||
166          '<td><b><font color="#3333FF">'||
167          '<a href='||'"'||p_link||'">'||fnd_message.get||'</a></font></b></td></tr>');
168     else
169  	   print('<tr><td><img SRC="'||'/OA_MEDIA/'||p_imgname||'" height=12 width=8></td>'||
170          '<td><b><font color="#3333FF">'||
171          fnd_message.get||'</font></b></td></tr>');
172     end if;
173 
174 END IF;
175 END show_alert_item2;
176 
177 
178 PROCEDURE show_alerts IS
179   l_num1 NUMBER;
180   l_num2 NUMBER;
181   l_num3 NUMBER;
182   l_num4 NUMBER;
183   l_num5 NUMBER;
184   l_num6 NUMBER;
185   l_num7 NUMBER;
186   l_num8 NUMBER;
187   l_link1 VARCHAR2(300);
188   l_link2 VARCHAR2(300);
189   l_link3 VARCHAR2(300);
190   l_link4 VARCHAR2(300);
191   l_link5 VARCHAR2(300);
192   l_link6 VARCHAR2(300);
193   l_link7 VARCHAR2(300);
194   l_link8 VARCHAR2(300);
195   l_name  VARCHAR2(300);
196   tmp     VARCHAR2(40);
197 	l_wf_path VARCHAR2(80);
198 	l_wa_path VARCHAR2(80);
199   cursor c_queue IS
200   select q_alias from XDP_DQ_CONFIGURATION WHERE state = 'DISABLED';
201 
202 BEGIN
203 	select text into l_wf_path from wf_resources where name = 'WF_WEB_AGENT';
204 	FND_PROFILE.GET('APPS_WEB_AGENT', l_wa_path);
205 
206 	select count(*) into l_num1 from WF_NOTIFICATIONS where status = 'OPEN';
207 --	l_link1 := l_wf_path||'/wfa_html.WorkList?status=OPEN&ittype=*&user=WFADMIN&resetcookie=1&priority=*';
208 	l_link1 := l_wf_path||'/wfa_html.login';
209 
210 	select count(*) into l_num2 from XDP_ADAPTER_REG  where ADAPTER_STATUS = 'ERROR';
211 	l_link2 := '/OA_FORMS60/forms6';
212 
213 	select count(*) into l_num3 from XDP_FULFILL_WORKLIST  where STATUS_CODE = 'ERROR';
214 	l_link3 := '/OA_FORMS60/forms6';
215 
216 	select count(*) into l_num4 from XNP_CALLBACK_EVENTS where status ='WAITING' and MSG_CODE='ADAPTER_READY';
217 	l_link4 := '/OA_FORMS60/forms6';
218 
219 	select count(*) into l_num5 from XNP_MSGS where MSG_STATUS = 'FAILED';
220 	l_link5 := l_wa_path||'/xnp_msg_diagnostics$xnp_msgs.actionquery?Z_CHK=0&p_msg_status=FAILED';
221 
222 	select count(*) into l_num6 from WF_ITEM_ACTIVITY_STATUSES
223     where (ITEM_TYPE like 'XNP%' and ACTIVITY_STATUS = 'ERROR');
224 	l_link6 := l_wf_path||'/wf_monitor.instance_list?x_active=ALL&x_itemtype=*&x_status=ERROR&x_admin_privilege=Y';
225 
226 	select count(*) into l_num8 from WF_ITEM_ACTIVITY_STATUSES
227     where (ITEM_TYPE like 'XDP%' and ACTIVITY_STATUS = 'ERROR');
228 	l_link8 := l_wf_path||'/wf_monitor.instance_list?x_active=ALL&x_itemtype=*&x_status=ERROR&x_admin_privilege=Y';
229 
230 	l_name := '';
231   for c_queue_rec in c_queue LOOP
232   		l_name := l_name || c_queue_rec.q_alias || ' ';
233   END LOOP;
234 	--select count(*) into l_num7 from XDP_DQ_CONFIGURATION where state = 'DISABLED';
235 	l_link7 := '/OA_FORMS60/forms6';
236 
237 	  htp.bodyOpen;
238 	  show_alert_item1('SDPHOME_ALERT_ADAPTER',l_num2, l_link2, 'XNPRDFLG.gif');
239 	  show_alert_item1('SDPHOME_ALERT_WORKITEM',l_num3,l_link3, 'XNPRDFLG.gif');
240 	  show_alert_item1('SDPHOME_ALERT_MESSAGE', l_num5,l_link5, 'XNPRDFLG.gif');
241 	  show_alert_item1('SDPHOME_ALERT_PORTING',l_num6, l_link6, 'XNPRDFLG.gif');
242 	  show_alert_item1('SDPHOME_ALERT_WFXDPACT',l_num8, l_link8, 'XNPRDFLG.gif');
243 	  show_alert_item1('SDPHOME_ALERT_NOTIFICATION',l_num1, l_link1, 'XNPYLFLG.gif');
244 	  show_alert_item1('SDPHOME_ALERT_TRANSACTION',l_num4, l_link4, 'XNPYLFLG.gif');
245 	  show_alert_item2('SDPHOME_DQ_DISABLE',l_name, l_link7, 'XNPYLFLG.gif');
246 	  htp.bodyClose;
247 END show_alerts;
248 
249 END XNP_WEB_UTILS ;