PACKAGE BODY: APPS.BSC_HELP

Source

1 PACKAGE BODY BSC_HELP AS
2 /* $Header: BSCUHLPB.pls 115.6 2003/02/12 14:30:04 adeulgao ship $ */
3 
4 
5 /*===========================================================================+
6 | FUNCTION Get_Help_Url
7 +============================================================================*/
8 
9 FUNCTION Get_Help_Url(
10 	x_apps_name	IN VARCHAR2,
11 	x_target	IN VARCHAR2,
12 	x_help_system	IN NUMBER DEFAULT 1,
13         x_target_type	IN VARCHAR2 DEFAULT 'TARGET',
14 	x_ret_status	OUT NOCOPY NUMBER
15         ) RETURN VARCHAR2 IS
16     l_help_system BOOLEAN;
17     l_url	VARCHAR2(2000);	-- URL string.
18     HELPERR	VARCHAR2(2000) := 'BSC_IHELP_FAIL'; -- generic error message.
19     errmesg	VARCHAR2(2000);
20 BEGIN
21 
22     IF x_help_system = 1 THEN
23 	l_help_system := TRUE;
24     ELSE
25 	l_help_system := FALSE;
26     END IF;
27 
28     -- Call FND_HELP.Get_Url.
29     l_url := FND_HELP.Get_Url(
30 		appsname	=> x_apps_name,
31 		target		=> x_target,
32 		HELPSYSTEM	=> l_help_system,
33 		TARGETTYPE	=> x_target_type);
34 
35     -- The FND method above may complete without exception,
36     -- but could contain error message.  Signal failure and return
37     -- error message instead.
38     errmesg := fnd_message.get;
39     IF errmesg IS NOT NULL THEN
40 	x_ret_status := -1;
41 	RETURN errmesg;
42     END IF;
43 
44     -- The FND method above may return a null URL.  Signal failure
45     -- and return a genric error message.
46     IF l_url IS NULL THEN
47 	x_ret_status := -1;
48 	fnd_message.set_name('BSC', HELPERR);
49 	errmesg := fnd_message.get;
50 	RETURN errmesg;
51     END IF;
52 
53     x_ret_status := 0;
54     RETURN l_url;
55 
56 EXCEPTION
57     WHEN OTHERS THEN
58 	x_ret_status := -1;
59 	errmesg := fnd_message.get;
60         -- Give a generic error message, if one does not yet exist.
61         IF errmesg IS NULL THEN
62 	    fnd_message.set_name('BSC', HELPERR);
63 	    errmesg := fnd_message.get;
64 	END IF;
65 	RETURN errmesg;
66 END Get_Help_Url;
67 
68 
69 END BSC_HELP;