[Home] [Help]
PACKAGE BODY: APPS.PO_CLM_SEED_DATA_PKG
Source
1 PACKAGE BODY PO_CLM_SEED_DATA_PKG AS
2 /* $Header: PO_CLM_SEED_DATA_PKG.plb 120.5.12020000.3 2013/02/10 18:50:18 vegajula ship $ */
3
4 FUNCTION submit_request(application varchar2,
5 program varchar2,
6 description varchar2,
7 start_time varchar2,
8 sub_request boolean,
9 argument1 varchar2 DEFAULT NULL,
10 argument2 varchar2 DEFAULT NULL,
11 argument3 varchar2 DEFAULT NULL,
12 argument4 varchar2 DEFAULT NULL,
13 argument5 varchar2 DEFAULT NULL,
14 argument6 varchar2 DEFAULT NULL,
15 argument7 varchar2 DEFAULT NULL,
16 argument8 varchar2 DEFAULT NULL,
17 argument9 varchar2 DEFAULT NULL,
18 argument10 varchar2 DEFAULT NULL)
19 RETURN NUMBER IS
20
21 req_id NUMBER;
22
23 BEGIN
24 req_id := FND_REQUEST.SUBMIT_REQUEST (application => application,
25 program => program,
26 description => description,
27 start_time => start_time,
28 sub_request => sub_request,
29 argument1 => argument1,
30 argument2 => argument2,
31 argument3 => argument3,
32 argument4 => argument4,
33 argument5 => argument5,
34 argument6 => argument6,
35 argument7 => argument7,
36 argument8 => argument8,
37 argument9 => argument9,
38 argument10 => argument10);
39 return(req_id);
40 END submit_request;
41
42
43 PROCEDURE process(errbuf OUT NOCOPY VARCHAR2,
44 retcode OUT NOCOPY VARCHAR2,
45 process_mode IN VARCHAR2,
46 p_style_id IN NUMBER) IS
47 req_id number;
48
49 BEGIN
50
51 IF FND_PROFILE.VALUE('PO_CLM_INSTALLED') = 'Y' THEN
52
53 IF process_mode = 'LOAD' THEN
54 --CLMpomsg.ldt
55 req_id := SUBMIT_REQUEST('FND', 'FNDLOAD',
56 NULL, NULL, FALSE, 'UPLOAD',
57 '@fnd:patch/115/import/afmdmsg.lct',
58 '@po:patch/115/import/US/CLMpomsg.ldt',
59 '-',
60 'CUSTOM_MODE=FORCE_SEED');
61
62 FND_FILE.put_line(FND_FILE.log,'Request submitted to upload CLM nomenclature messages for Purchasing');
63 FND_FILE.put_line(FND_FILE.log,'REQUEST ID: '||req_id);
64
65 --CLMpolkup.ldt
66 req_id := SUBMIT_REQUEST('FND', 'FNDLOAD',
67 NULL, NULL, FALSE, 'UPLOAD',
68 '@fnd:patch/115/import/aflvmlu.lct',
69 '@po:patch/115/import/US/CLMpolkup.ldt',
70 '-',
71 'CUSTOM_MODE=FORCE_SEED');
72 FND_FILE.put_line(FND_FILE.log,'Request submitted to upload CLM nomenclature lookups for Purchasing');
73 FND_FILE.put_line(FND_FILE.log,'REQUEST ID: '||req_id);
74
75 --CLMpoprog.ldt
76 req_id := SUBMIT_REQUEST('FND', 'FNDLOAD',
77 NULL, NULL, FALSE, 'UPLOAD',
78 '@fnd:patch/115/import/afcpprog.lct',
79 '@po:patch/115/import/US/CLMpoprog.ldt',
80 '-',
81 'CUSTOM_MODE=FORCE_SEED');
82 FND_FILE.put_line(FND_FILE.log,'Request submitted to upload CLM nomenclature Programs for Purchasing');
83 FND_FILE.put_line(FND_FILE.log,'REQUEST ID: '||req_id);
84
85 --poclmnommenu.ldt
86 req_id := SUBMIT_REQUEST('FND', 'FNDLOAD',
87 NULL, NULL, FALSE, 'UPLOAD',
88 '@fnd:patch/115/import/afsload.lct',
89 '@po:patch/115/import/US/poclmnommenu.ldt',
90 '-',
91 'CUSTOM_MODE=FORCE_SEED');
92 FND_FILE.put_line(FND_FILE.log,'Request submitted to upload CLM nomenclature Menus for Purchasing');
93 FND_FILE.put_line(FND_FILE.log,'REQUEST ID: '||req_id);
94
95 --pocclmdoctyp.ldt
96 req_id := SUBMIT_REQUEST('FND', 'FNDLOAD',
97 NULL, NULL, FALSE, 'UPLOAD',
98 '@okc:patch/115/import/okcbdtsd.lct',
99 '@po:patch/115/import/US/pocclmdoctyp.ldt',
100 '-',
101 'CUSTOM_MODE=FORCE_SEED');
102 FND_FILE.put_line(FND_FILE.log,'Request submitted to upload CLM nomenclature for contract Document Types');
103 FND_FILE.put_line(FND_FILE.log,'REQUEST ID: '||req_id);
104
105 --ponclmlkup.ldt
106 req_id := SUBMIT_REQUEST('FND', 'FNDLOAD',
107 NULL, NULL, FALSE, 'UPLOAD',
108 '@fnd:patch/115/import/aflvmlu.lct',
109 '@pon:patch/115/import/US/ponclmlkup.ldt',
110 '-',
111 'CUSTOM_MODE=FORCE_SEED');
112 FND_FILE.put_line(FND_FILE.log,'Request submitted to upload CLM nomenclature lookups for Sourcing');
113 FND_FILE.put_line(FND_FILE.log,'REQUEST ID: '||req_id);
114
115 --ponclmmsg.ldt
116 req_id := SUBMIT_REQUEST('FND', 'FNDLOAD',
117 NULL, NULL, FALSE, 'UPLOAD',
118 '@fnd:patch/115/import/afmdmsg.lct',
119 '@pon:patch/115/import/US/ponclmmsg.ldt',
120 '-',
121 'CUSTOM_MODE=FORCE_SEED');
122 FND_FILE.put_line(FND_FILE.log,'Request submitted to upload CLM nomenclature messages for Sourcing');
123 FND_FILE.put_line(FND_FILE.log,'REQUEST ID: '||req_id);
124
125 --CLMicxmsg.ldt
126 req_id := SUBMIT_REQUEST('FND', 'FNDLOAD',
127 NULL, NULL, FALSE, 'UPLOAD',
128 '@fnd:patch/115/import/afmdmsg.lct',
129 '@icx:patch/115/import/US/CLMicxmsg.ldt',
130 '-',
131 'CUSTOM_MODE=FORCE_SEED');
132 FND_FILE.put_line(FND_FILE.log,'Request submitted to upload CLM nomenclature messages for iProcurement');
133 FND_FILE.put_line(FND_FILE.log,'REQUEST ID: '||req_id);
134
135 --CLMicxlkup.ldt
136 req_id := SUBMIT_REQUEST('FND', 'FNDLOAD',
137 NULL, NULL, FALSE, 'UPLOAD',
138 '@fnd:patch/115/import/aflvmlu.lct',
139 '@icx:patch/115/import/US/CLMicxlkup.ldt',
140 '-',
141 'CUSTOM_MODE=FORCE_SEED');
142 FND_FILE.put_line(FND_FILE.log,'Request submitted to upload CLM nomenclature lookups for iProcurement');
143 FND_FILE.put_line(FND_FILE.log,'REQUEST ID: '||req_id);
144
145 --posclmnommenu.ldt
146 req_id := SUBMIT_REQUEST('FND', 'FNDLOAD',
147 NULL, NULL, FALSE, 'UPLOAD',
148 '@fnd:patch/115/import/afsload.lct',
149 '@pos:patch/115/import/US/posclmnommenu.ldt',
150 '-',
151 'CUSTOM_MODE=FORCE_SEED');
152 FND_FILE.put_line(FND_FILE.log,'Request submitted to upload CLM nomenclature menus for iSupplier Portal');
153 FND_FILE.put_line(FND_FILE.log,'REQUEST ID: '||req_id);
154
155 --CLMposlkup.ldt
156 req_id := SUBMIT_REQUEST('FND', 'FNDLOAD',
157 NULL, NULL, FALSE, 'UPLOAD',
158 '@fnd:patch/115/import/aflvmlu.lct',
159 '@pos:patch/115/import/US/CLMposlkup.ldt',
160 '-',
161 'CUSTOM_MODE=FORCE_SEED');
162 FND_FILE.put_line(FND_FILE.log,'Request submitted to upload CLM nomenclature lookups for iSupplier Portal');
163 FND_FILE.put_line(FND_FILE.log,'REQUEST ID: '||req_id);
164
165 --CLMposmsg.ldt
166 req_id := SUBMIT_REQUEST('FND', 'FNDLOAD',
167 NULL, NULL, FALSE, 'UPLOAD',
168 '@fnd:patch/115/import/afmdmsg.lct',
169 '@pos:patch/115/import/US/CLMposmsg.ldt',
170 '-',
171 'CUSTOM_MODE=FORCE_SEED');
172 FND_FILE.put_line(FND_FILE.log,'Request submitted to upload CLM nomenclature messages for iSupplier Portal');
173 FND_FILE.put_line(FND_FILE.log,'REQUEST ID: '||req_id);
174
175 errbuf := '';
176 retcode :='0';
177
178 ELSIF process_mode = 'ENABLE_CONC_MODS' THEN
179 PO_CLM_UPG_PVT.enable_conc_mod(p_style_id);
180
181 END IF;
182
183 ELSE
184 errbuf := '';
185 retcode := '1';
186 FND_FILE.put_line(FND_FILE.log,'This program cannot be run as CLM is not installed');
187 END IF;
188
189 EXCEPTION
190 WHEN OTHERS THEN
191 errbuf := sqlerrm;
192 retcode := '2';
193 END process;
194
195 END;
196