[Home] [Help]
19:
20: SEQ_NEXTVAL := i_group_id;
21: Error_number := 0;
22: /* check for both the organization_id and code to be null */
23: fnd_file.put_line(fnd_file.log,'--------entering the validate_resource_costs procedure----------');
24:
25: Update CST_RESOURCE_COSTS_INTERFACE crci
26: SET error_flag = 'E',
27: error_code = 'CST_NULL_ORGANIZATION',
30: AND error_flag is null
31: AND crci.group_id = SEQ_NEXTVAL;
32:
33: l_stmt_no := 10;
34: fnd_file.put_line(fnd_file.log,'done checking for null organization ID and code ');
35:
36: /* check to see if the input organization_id or code is valid */
37:
38: Update CST_RESOURCE_COSTS_INTERFACE crci
46: AND NVL(crci.organization_code,mp.organization_code) = mp.organization_code
47: );
48:
49: l_stmt_no := 20;
50: fnd_file.put_line(fnd_file.log,'done checking for the organization to be invalid');
51:
52: /* Get the organization_id from the code */
53:
54: Update CST_RESOURCE_COSTS_INTERFACE crci
83:
84: /* End OPM INVCONV changes */
85:
86: l_stmt_no := 30;
87: fnd_file.put_line(fnd_file.log,'done getting the organization_id from the code if it has not been provided');
88:
89: /* Set the unique transaction_id for each row */
90:
91: Update CST_RESOURCE_COSTS_INTERFACE crci
102: AND process_flag = 1;
103:
104:
105: l_stmt_no := 50;
106: fnd_file.put_line(fnd_file.log,'done assiging unique transaction_id to every row');
107: COMMIT;
108:
109: /* check for the organization to be a costing org */
110:
118: WHERE mp.cost_organization_id <> mp.organization_id
119: AND mp.organization_id = crci.organization_id);
120:
121: l_stmt_no := 55;
122: fnd_file.put_line(fnd_file.log,'done checking for costing org or not');
123:
124:
125: /* now set teh cost type and cost type id */
126:
146: AND crci.group_id = SEQ_NEXTVAL
147: AND (crci.resource_id is null AND crci.resource_code is null);
148:
149: l_stmt_no := 90;
150: fnd_file.put_line(fnd_file.log,'done checking for null sub element');
151:
152: /* check if the entered resource_id or code is actually valid and also that functional currency flag is not = 1 */
153: Update CST_RESOURCE_COSTS_INTERFACE crci set
154: error_flag = 'E',
177: WHERE crci.error_flag is null
178: AND crci.resource_id is null
179: AND crci.group_id = SEQ_NEXTVAL;
180:
181: fnd_file.put_line(fnd_file.log,'done setting the resource_id if it has not been provided');
182: l_stmt_no := 105;
183:
184: /* check for the validity date of the resource_id */
185:
194: AND (bm.cost_element_id = 3 OR bm.cost_element_id = 4)
195: AND bm.resource_id = crci.resource_id
196: AND ((sysdate >= NVL(bm.disable_date,sysdate+1)) OR (bm.allow_costs_flag = 2)));
197:
198: fnd_file.put_line(fnd_file.log,'done checking for the validity date and allow costs flag of resource id');
199: l_stmt_no := 106;
200:
201:
202: /* check for the resource rate that is provided to be not null */
232: AND crci.cost_type_id = crci2.cost_type_id
233: AND crci.rowid <> crci2.rowid
234: AND crci2.group_id = SEQ_NEXTVAL);
235:
236: fnd_file.put_line(fnd_file.log,'done checking for duplicate rows');
237:
238: Update CST_RESOURCE_COSTS_INTERFACE crci
239: set process_flag = 4
240: WHERE crci.process_flag = 3
272: where crc.organization_id = crci.organization_id
273: AND crc.cost_type_id = crci.cost_type_id
274: AND crc.resource_id = crci.resource_id
275: );
276: fnd_file.put_line(fnd_file.log,'done deleting or erroring out rows as per run option');
277: end if;
278:
279: l_stmt_no := 117;
280:
337: attribute15
338: FROM CST_RESOURCE_COSTS_INTERFACE
339: WHERE error_flag is null
340: AND group_id = SEQ_NEXTVAL;
341: fnd_file.put_line(fnd_file.log,'done inserting ' || to_char(SQL%ROWCOUNT) ||' rows into CST_RESOURCE_COSTS');
342:
343: l_stmt_no := 120;
344:
345: UPDATE CST_RESOURCE_COSTS_INTERFACE
353: WHERE process_flag = 5
354: AND error_flag is null
355: AND group_id = SEQ_NEXTVAL;
356:
357: fnd_file.put_line(fnd_file.log,'done deleting ' || to_char(SQL%ROWCOUNT) || ' rows that were successfully processed ');
358: END IF;
359: COMMIT;
360:
361: fnd_file.put_line(fnd_file.log,'--------done , exiting Validate_resource_costs--------');
357: fnd_file.put_line(fnd_file.log,'done deleting ' || to_char(SQL%ROWCOUNT) || ' rows that were successfully processed ');
358: END IF;
359: COMMIT;
360:
361: fnd_file.put_line(fnd_file.log,'--------done , exiting Validate_resource_costs--------');
362: EXCEPTION
363:
364: when others then
365: rollback;
362: EXCEPTION
363:
364: when others then
365: rollback;
366: fnd_file.put_line(fnd_file.log,'Validate_resource_costs(' || to_char(l_stmt_no) ||'),' || to_char(SQLCODE) || ',' || substr(SQLERRM,1,180));
367: Error_number := 1;
368: CONC_REQUEST := fnd_concurrent.set_completion_status('ERROR',substrb((fnd_message.get_string('BOM','CST_EXCEPTION_OCCURED')),1,240));
369:
370: END Validate_resource_costs;
399: AND crci.process_flag = 1
400: AND rownum =1;
401:
402: If l_crci_count = 0 then
403: fnd_file.put_line(fnd_file.log,'no rows to process in CST_RESOURCE_COSTS_INTERFACE,quitting.....');
404: return;
405: end If;
406:
407: Validate_resource_costs(Err,i_grp_id,i_cst_type,i_del_option,i_run_option);
416: and error_flag ='E';
417:
418: IF i_count > 0 then
419: CONC_REQUEST := fnd_concurrent.set_completion_status('WARNING',substrb((fnd_message.get_string('BOM','CST_EXCEPTION_OCCURED')),1,240));
420: fnd_file.put_line(fnd_file.log,(fnd_message.get_string('BOM','CST_MSG_CRCI')));
421: END IF;
422:
423: EXCEPTION
424: when others then
422:
423: EXCEPTION
424: when others then
425: rollback;
426: fnd_file.put_line(fnd_file.log,'CST_RES_IMPORT_PROCESS.Start_res_cost_import_process() Exception occured');
427: CONC_REQUEST := fnd_concurrent.set_completion_status('ERROR',substrb((fnd_message.get_string('BOM','CST_EXCEPTION_OCCURED')),1,240));
428:
429:
430: END Start_res_cost_import_process;