[Home] [Help]
PACKAGE BODY: APPS.AR_CLE_STUB_PKG
Source
1 PACKAGE BODY AR_CLE_STUB_PKG
2 -- $Header: ARCLESTUBB.pls 120.1.12010000.2 2008/09/17 14:08:11 tthangav ship $
3 --*************************************************************************
4 -- Copyright (c) 2000 Oracle Product Development
5 -- All rights reserved
6 --*************************************************************************
7 --
8 -- HEADER
9 -- Source control header
10 --
11 -- PROGRAM NAME
12 -- ARCLESTUBB.pls
13 --
14 -- DESCRIPTION
15 -- This script creates the package body of AR_CLE_STUB_PKG
16 -- This checks where the localization program exists or not and to submit the localization program if exists.
17 --
18 -- USAGE
19 -- To install sqlplus <apps_user>/<apps_pwd> @ARCLESTUBB.pls
20 -- To execute sqlplus <apps_user>/<apps_pwd> AR_CLE_STUB_PKG
21 --
22 -- PROGRAM LIST DESCRIPTION
23 -- localization_prog_exists It is a function of AR_CLE_STUB_PKG package.
24 -- This checks where the localization program exists or not.
25 -- submit_prog It is a procedure of AR_CLE_STUB_PKG package.
26 -- This is used to submit the localization program if exists.
27 --
28 -- DEPENDENCIES
29 -- None
30 --
31 -- CALLED BY
32 -- Statement Generation Program.
33 --
34 -- LAST UPDATE DATE 24-Jun-2007
35 -- Date the program has been modified for the last time
36 --
37 -- HISTORY
38 -- =======
39 --
40 -- VERSION DATE AUTHOR(S) DESCRIPTION
41 -- ------- ----------- --------------- ------------------------------------
42 -- Draft1A 02-Feb-2007 Sajana Doma Initial Creation
43 -- 11-Apr-2007 TTHANGAV Modified localization_prog_exists to return
44 -- true only for EMEA Countries
45 --************************************************************************
46 AS
47 FUNCTION localization_prog_exists RETURN BOOLEAN
48 IS
49 lb_prog_exists BOOLEAN;
50 lv_def_country VARCHAR2(200);
51 ln_count NUMBER;
52 BEGIN
53 select default_country into lv_def_country from AR_SYSTEM_PARAMETERS;
54
55 SELECT count(*) INTO ln_count
56 FROM ar_lookups
57 WHERE lookup_type = 'AR_EMEA_COUNTRIES'
58 AND lookup_code = lv_def_country
59 AND enabled_flag = 'Y'
60 AND SYSDATE BETWEEN start_date_active AND NVL(end_date_active,SYSDATE);
61
62 IF (ln_count > 0) THEN
63 RETURN(TRUE);
64 ELSE
65 RETURN(FALSE);
66 END IF;
67 END;
68
69 PROCEDURE submit_prog
70 IS
71 ln_request_id NUMBER;
72 lb_layout BOOLEAN;
73 lc_phase VARCHAR2(50);
74 lc_status VARCHAR2(50);
75 lc_dev_phase VARCHAR2(50);
76 lc_dev_status VARCHAR2(50);
77 lc_message VARCHAR2(100);
78 lb_wait BOOLEAN;
79 BEGIN
80
81 lb_layout := FND_REQUEST.ADD_LAYOUT
82 ('CLE',
83 'CLE_F_ARCUSBALSL',
84 'en',
85 'US',
86 'PDF');
87 IF lb_layout THEN
88 ln_request_id := FND_REQUEST.SUBMIT_REQUEST
89 ('AR',
90 'ARCUSBALSL',
91 'AR Customer Balance Statement Letter',
92 NULL,
93 FALSE,'','','',
94 '', '', '', '', '', '', '',
95 '', '', '', '', '', '', '', '', '', '',
96 '', '', '', '', '', '', '', '', '', '',
97 '', '', '', '', '', '', '', '', '', '',
98 '', '', '', '', '', '', '', '', '', '',
99 '', '', '', '', '', '', '', '', '', '',
100 '', '', '', '', '', '', '', '', '', '',
101 '', '', '', '', '', '', '', '', '', '',
102 '', '', '', '', '', '', '', '', '', '',
103 '', '', '', '', '', '', '', '', '', '');
104
105 COMMIT;
106
107 lb_wait:= FND_CONCURRENT.WAIT_FOR_REQUEST
108 (ln_request_id,
109 60,
110 0,
111 lc_phase,
112 lc_status,
113 lc_dev_phase,
114 lc_dev_status,
115 lc_message);
116 COMMIT;
117
118 END IF;
119
120 END;
121
122 END AR_CLE_STUB_PKG;