[Home] [Help]
PACKAGE BODY: APPS.PQP_WEBADI_INTEGRATION_UTILS
Source
1 PACKAGE BODY pqp_webadi_integration_utils AS
2 /* $Header: pqwadiut.pkb 120.1 2006/02/21 06:39:05 bshukla noship $ */
3
4 --
5 -- ------------------------------------------------------------------------
6 -- | -----------------< register_integrator_to_form >---------------------|
7 -- ------------------------------------------------------------------------
8 PROCEDURE webadi_meta_data_info(p_application_id IN NUMBER
9 ,p_caller_identifier IN VARCHAR2
10 ,p_integrator_code OUT NOCOPY VARCHAR2
11 ,p_layout_code OUT NOCOPY VARCHAR2
12 ,p_supported_spreasheet OUT NOCOPY VARCHAR2
13 ) IS
14 CURSOR integrator_layout_codes IS
15 SELECT pltl.prompt_left integrator_code,
16 pltl.prompt_above layout_code
17 FROM bne_param_lists_b plb,
18 bne_param_lists_tl pltl
19 WHERE plb.param_list_code = p_caller_identifier
20 AND plb.param_list_code = pltl.param_list_code
21 AND decode(pltl.user_tip, NULL, 'Y', decode(substr(pltl.user_tip,1,1), '+',
22 decode(sign(instr(pltl.user_tip, HR_API.GET_LEGISLATION_CONTEXT)), 1, 'Y', 'N'), '-', decode(sign(instr(pltl.user_tip,
23 HR_API.GET_LEGISLATION_CONTEXT)), 1, 'N', 'Y'), 'Y' ) ) = 'Y'
24 AND pltl.application_id = p_application_id
25 AND plb.application_id = p_application_id
26 AND pltl.language = userenv('lang');
27
28 CURSOR spreadsheet_version IS
29 SELECT viewer_code,
30 user_name
31 FROM bne_viewers_tl
32 WHERE viewer_code IN ('EXCEL97', 'EXCEL2000', 'EXCELXP')
33 and language = userenv('lang');
34
35 l_viewer_information VARCHAR2(2000):= NULL;
36 BEGIN
37 FOR ilc IN integrator_layout_codes
38 LOOP
39 p_integrator_code := ilc.integrator_code;
40 p_layout_code := ilc.layout_code;
41 END LOOP;
42
43 FOR sv IN spreadsheet_version
44 LOOP
45 l_viewer_information := l_viewer_information ||
46 sv.viewer_code || '::' || sv.user_name || '##';
47 END LOOP;
48 p_supported_spreasheet := l_viewer_information;
49 END webadi_meta_data_info;
50 END pqp_webadi_integration_utils;