PACKAGE BODY: APPS.OKL_VIEW_CONCURRENT_PVT

Source

1 PACKAGE BODY OKL_VIEW_CONCURRENT_PVT AS
2 /* $Header: OKLRVCPB.pls 115.3 2002/12/18 12:52:11 kjinger noship $ */
3 
4 PROCEDURE Get_Url_Diagnostics_Text
5 				(p_api_version      IN  NUMBER
6                  ,p_init_msg_list   IN  VARCHAR2
7                  ,x_return_status   OUT NOCOPY VARCHAR2
8                  ,x_msg_count       OUT NOCOPY NUMBER
9                  ,x_msg_data        OUT NOCOPY VARCHAR2
10 	             ,p_request_id      IN  NUMBER
11 	             ,p_log_url		    OUT NOCOPY VARCHAR2
12 	             ,p_output_url	    OUT NOCOPY VARCHAR2
13 	             ,p_diagnostices OUT NOCOPY VARCHAR2)
14 IS
15    l_log_url 		VARCHAR2(4000);
16    l_output_url 	VARCHAR2(4000);
17    l_file_type 		NUMBER;
18    l_phase 	   		VARCHAR2(80);
19    l_status    		VARCHAR2(80);
20    l_help_text 		VARCHAR2(4000);
21 
22 
23 BEGIN
24     x_return_status := OKL_API.G_RET_STS_SUCCESS;
25 
26 -- Get the URL for log  file
27 
28     l_file_type := 3;
29     l_log_url := Fnd_Webfile.get_url(
30                file_type  	=> l_file_type,
31                id  			=> p_request_id,
32                gwyuid 		=> fnd_profile.value('GWYUID'),
33                two_task 	=> fnd_profile.value('TWO_TASK'),
34                expire_time 	=> 10);
35 
36     IF l_log_url IS NOT NULL THEN
37         p_log_url := l_log_url;
38     ELSE
39         p_log_url := 'N';
40     END IF;
41 
42 -- Get the URL for output  file
43 
44     l_file_type := 4;
45     l_output_url := Fnd_Webfile.get_url(
46                file_type  	=> l_file_type,
47                id  			=> p_request_id,
48                gwyuid 		=> fnd_profile.value('GWYUID'),
49                two_task 	=> fnd_profile.value('TWO_TASK'),
50                expire_time 	=> 10);
51 
52     IF l_output_url IS NOT NULL THEN
53        p_output_url := l_output_url;
54     ELSE
55        p_output_url := 'N';
56     END IF;
57 
58 -- Get the Diagnostics Text for the Request ID
59 
60     fnd_conc.diagnose (
61 		     request_id => p_request_id,
62 		     phase => l_phase,
63 		     status => l_status,
64 		     help_text => l_help_text);
65 
66 	p_diagnostices	:= l_help_text;
67 
68 EXCEPTION
69       WHEN OTHERS THEN
70         IF  p_output_url IS NULL THEN
71 	    p_output_url	:= 'N';
72 	END IF;
73 
74 END Get_Url_Diagnostics_Text;
75 
76 END OKL_VIEW_CONCURRENT_PVT;