56: l_Txn_Date Date;
57: l_get_uom varchar2(2000); /* Bug 3817950 */
58: Begin
59:
60: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Time = '|| to_char(sysdate,'HH:MI:SS'));
61: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Validated parameters are as follows:');
62: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Num_Of_Processes = ' || p_num_of_processes);
63: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_worker_id = ' || p_worker_id);
64: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id = ' || p_org_id);
57: l_get_uom varchar2(2000); /* Bug 3817950 */
58: Begin
59:
60: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Time = '|| to_char(sysdate,'HH:MI:SS'));
61: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Validated parameters are as follows:');
62: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Num_Of_Processes = ' || p_num_of_processes);
63: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_worker_id = ' || p_worker_id);
64: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id = ' || p_org_id);
65: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Date = ' || P_Txn_Date);
58: Begin
59:
60: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Time = '|| to_char(sysdate,'HH:MI:SS'));
61: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Validated parameters are as follows:');
62: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Num_Of_Processes = ' || p_num_of_processes);
63: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_worker_id = ' || p_worker_id);
64: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id = ' || p_org_id);
65: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Date = ' || P_Txn_Date);
66: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Type = ' || P_Txn_Type);
59:
60: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Time = '|| to_char(sysdate,'HH:MI:SS'));
61: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Validated parameters are as follows:');
62: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Num_Of_Processes = ' || p_num_of_processes);
63: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_worker_id = ' || p_worker_id);
64: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id = ' || p_org_id);
65: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Date = ' || P_Txn_Date);
66: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Type = ' || P_Txn_Type);
67: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_TXN_SRC = ' || P_TXN_SRC);
60: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Time = '|| to_char(sysdate,'HH:MI:SS'));
61: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Validated parameters are as follows:');
62: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Num_Of_Processes = ' || p_num_of_processes);
63: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_worker_id = ' || p_worker_id);
64: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id = ' || p_org_id);
65: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Date = ' || P_Txn_Date);
66: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Type = ' || P_Txn_Type);
67: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_TXN_SRC = ' || P_TXN_SRC);
68: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Min_Project_Id = ' || P_Min_Project_Id);
61: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Validated parameters are as follows:');
62: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Num_Of_Processes = ' || p_num_of_processes);
63: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_worker_id = ' || p_worker_id);
64: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id = ' || p_org_id);
65: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Date = ' || P_Txn_Date);
66: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Type = ' || P_Txn_Type);
67: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_TXN_SRC = ' || P_TXN_SRC);
68: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Min_Project_Id = ' || P_Min_Project_Id);
69: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Max_Project_Id = ' || P_Max_Project_Id);
62: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Num_Of_Processes = ' || p_num_of_processes);
63: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_worker_id = ' || p_worker_id);
64: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id = ' || p_org_id);
65: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Date = ' || P_Txn_Date);
66: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Type = ' || P_Txn_Type);
67: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_TXN_SRC = ' || P_TXN_SRC);
68: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Min_Project_Id = ' || P_Min_Project_Id);
69: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Max_Project_Id = ' || P_Max_Project_Id);
70:
63: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_worker_id = ' || p_worker_id);
64: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id = ' || p_org_id);
65: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Date = ' || P_Txn_Date);
66: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Type = ' || P_Txn_Type);
67: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_TXN_SRC = ' || P_TXN_SRC);
68: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Min_Project_Id = ' || P_Min_Project_Id);
69: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Max_Project_Id = ' || P_Max_Project_Id);
70:
71: l_Txn_Date := fnd_date.canonical_to_date(P_Txn_Date);
64: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id = ' || p_org_id);
65: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Date = ' || P_Txn_Date);
66: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Type = ' || P_Txn_Type);
67: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_TXN_SRC = ' || P_TXN_SRC);
68: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Min_Project_Id = ' || P_Min_Project_Id);
69: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Max_Project_Id = ' || P_Max_Project_Id);
70:
71: l_Txn_Date := fnd_date.canonical_to_date(P_Txn_Date);
72:
65: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Date = ' || P_Txn_Date);
66: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Txn_Type = ' || P_Txn_Type);
67: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_TXN_SRC = ' || P_TXN_SRC);
68: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Min_Project_Id = ' || P_Min_Project_Id);
69: FND_FILE.PUT_LINE(FND_FILE.LOG, 'P_Max_Project_Id = ' || P_Max_Project_Id);
70:
71: l_Txn_Date := fnd_date.canonical_to_date(P_Txn_Date);
72:
73: -- Update only projects and tasks for the given project type in the given OU
146: --Code Changes for Bug No.2984871 start
147: l_rowcount:=sql%rowcount;
148: --Code Changes for Bug No.2984871 end
149:
150: FND_FILE.PUT_LINE(FND_FILE.LOG,'....................');
151:
152: -- Commented for Bug 2984871
153: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No of Project Records updated = '||SQL%ROWCOUNT);
154:
149:
150: FND_FILE.PUT_LINE(FND_FILE.LOG,'....................');
151:
152: -- Commented for Bug 2984871
153: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No of Project Records updated = '||SQL%ROWCOUNT);
154:
155: --Code Changes for Bug No.2984871 start
156: FND_FILE.PUT_LINE(FND_FILE.LOG,'No of Project Records updated = '||l_rowcount);
157: --dbms_output.PUT_LINE('No of Project Records updated = '||l_rowcount);
152: -- Commented for Bug 2984871
153: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No of Project Records updated = '||SQL%ROWCOUNT);
154:
155: --Code Changes for Bug No.2984871 start
156: FND_FILE.PUT_LINE(FND_FILE.LOG,'No of Project Records updated = '||l_rowcount);
157: --dbms_output.PUT_LINE('No of Project Records updated = '||l_rowcount);
158: --Code Changes for Bug No.2984871 end
159:
160: FORALL i in l_PrjIdTab.first .. l_PrjIdTab.last
164: and work_type_id is null;
165:
166: l_rowcount:=sql%rowcount;
167:
168: FND_FILE.PUT_LINE(FND_FILE.LOG,'No of Task Records updated = '||l_rowcount);
169: --dbms_output.PUT_LINE('No of Task Records updated = '||l_rowcount);
170:
171: commit;
172:
179: END IF; -- P_TXN_TYPE = 'WORK TYPE' -- PJM Changes
180:
181: IF P_Txn_Type = 'SUPPLIER TYPE' THEN -- R12 changes
182:
183: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start EI Upgrade Process'|| to_char(sysdate, 'HH:MI:SS'));
184:
185: -- Get the project range if not supplied
186: /* bug 9132581 changes start: break the statement into two, as P_Max_Project_Id may be null even when P_Min_Project_Id is not null */
187: IF P_Min_Project_Id IS NULL THEN
205: /* bug 9132581 changes end */
206:
207: l_remainder := MOD((Max_Project_Id-Min_Project_Id),p_num_of_processes);
208:
209: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Min_Project_Id = ' || Min_Project_Id);
210: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Max_Project_Id = ' || Max_Project_Id);
211:
212: l_Max := MIN_Project_Id ;
213:
206:
207: l_remainder := MOD((Max_Project_Id-Min_Project_Id),p_num_of_processes);
208:
209: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Min_Project_Id = ' || Min_Project_Id);
210: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Max_Project_Id = ' || Max_Project_Id);
211:
212: l_Max := MIN_Project_Id ;
213:
214: IF Min_Project_Id = Max_Project_Id THEN
212: l_Max := MIN_Project_Id ;
213:
214: IF Min_Project_Id = Max_Project_Id THEN
215:
216: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '.....................');
217: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project_Id = ' || Min_Project_Id);
218:
219: -- Call FND API to submit the same request for the EI update
220: l_child_req_id := FND_REQUEST.SUBMIT_REQUEST('PA',
213:
214: IF Min_Project_Id = Max_Project_Id THEN
215:
216: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '.....................');
217: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project_Id = ' || Min_Project_Id);
218:
219: -- Call FND API to submit the same request for the EI update
220: l_child_req_id := FND_REQUEST.SUBMIT_REQUEST('PA',
221: 'PAWKTPUP',
240: IF i = P_Num_Of_Processes THEN
241: l_max := l_max + l_remainder;
242: END IF;
243:
244: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '.....................');
245: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Min Project_Id = ' || l_Min);
246: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Max Project_Id = ' || l_Max);
247:
248: -- Call FND API to submit the same request for the EI update
241: l_max := l_max + l_remainder;
242: END IF;
243:
244: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '.....................');
245: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Min Project_Id = ' || l_Min);
246: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Max Project_Id = ' || l_Max);
247:
248: -- Call FND API to submit the same request for the EI update
249: l_child_req_id := FND_REQUEST.SUBMIT_REQUEST('PA',
242: END IF;
243:
244: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '.....................');
245: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Min Project_Id = ' || l_Min);
246: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Max Project_Id = ' || l_Max);
247:
248: -- Call FND API to submit the same request for the EI update
249: l_child_req_id := FND_REQUEST.SUBMIT_REQUEST('PA',
250: 'PAWKTPUP',
259: fnd_date.date_to_canonical(l_TXN_DATE),
260: l_min,
261: l_max);
262: IF (l_child_req_id = 0) THEN
263: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
264: '...An attempt to submit the upgrade request has failed.');
265: FND_FILE.PUT_LINE(FND_FILE.LOG,
266: '...An attempt to submit the upgrade request has failed.');
267: ELSE
261: l_max);
262: IF (l_child_req_id = 0) THEN
263: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
264: '...An attempt to submit the upgrade request has failed.');
265: FND_FILE.PUT_LINE(FND_FILE.LOG,
266: '...An attempt to submit the upgrade request has failed.');
267: ELSE
268: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
269: 'The process to upgrade the records has been submitted.
264: '...An attempt to submit the upgrade request has failed.');
265: FND_FILE.PUT_LINE(FND_FILE.LOG,
266: '...An attempt to submit the upgrade request has failed.');
267: ELSE
268: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
269: 'The process to upgrade the records has been submitted.
270: Please check Request ID: '|| to_char(l_child_req_id));
271: FND_FILE.PUT_LINE(FND_FILE.LOG,
272: 'The process to upgrade the records has been submitted.
267: ELSE
268: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
269: 'The process to upgrade the records has been submitted.
270: Please check Request ID: '|| to_char(l_child_req_id));
271: FND_FILE.PUT_LINE(FND_FILE.LOG,
272: 'The process to upgrade the records has been submitted.
273: Please check Request ID: '|| to_char(l_child_req_id));
274: END IF;
275:
278:
279: END IF; -- P_TXN_TYPE = 'SUPPLIER TYPE' -- R12 changes
280:
281:
282: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Insert into Temp Table '|| to_char(sysdate, 'HH:MI:SS'));
283:
284: IF P_TXN_TYPE <> 'SUPPLIER TYPE' THEN -- R12 changes
285: execute immediate 'alter session enable parallel dml';
286: END IF;
300: and work_type_id is null;
301:
302: l_ins_rowcount := SQL%ROWCOUNT;
303:
304: FND_FILE.PUT_LINE(FND_FILE.LOG, l_ins_rowcount||' Records inserted for WORK TYPE '|| to_char(sysdate, 'HH:MI:SS'));
305:
306: ELSIF P_Txn_Type = 'PJM' THEN
307:
308: /* 3968368: Added two unions to handle the PJM invoice charges upgrade. For such txns,
382: AND CDL.line_num = 1;
383:
384: l_ins_rowcount := SQL%ROWCOUNT;
385:
386: FND_FILE.PUT_LINE(FND_FILE.LOG, l_ins_rowcount || ' Records inserted for PJM '|| to_char(sysdate, 'HH:MI:SS'));
387:
388: END IF;
389:
390: commit;
399: l_ReqStsTab.delete; -- PJM Changes
400:
401: For i in 1..P_Num_Of_Processes Loop
402:
403: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '.....................');
404:
405: -- Call FND API to submit the same request for the EI update
406: l_child_req_id := FND_REQUEST.SUBMIT_REQUEST('PA',
407: 'PAWKTPUP',
415: p_org_id,
416: fnd_date.date_to_canonical(l_TXN_DATE) );
417:
418: IF (l_child_req_id = 0) THEN
419: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
420: '...An attempt to submit the upgrade request has failed.');
421: FND_FILE.PUT_LINE(FND_FILE.LOG,
422: '...An attempt to submit the upgrade request has failed.');
423: ELSE
417:
418: IF (l_child_req_id = 0) THEN
419: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
420: '...An attempt to submit the upgrade request has failed.');
421: FND_FILE.PUT_LINE(FND_FILE.LOG,
422: '...An attempt to submit the upgrade request has failed.');
423: ELSE
424: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
425: 'The process to upgrade the records has been submitted.
420: '...An attempt to submit the upgrade request has failed.');
421: FND_FILE.PUT_LINE(FND_FILE.LOG,
422: '...An attempt to submit the upgrade request has failed.');
423: ELSE
424: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
425: 'The process to upgrade the records has been submitted.
426: Please check Request ID: '|| to_char(l_child_req_id));
427: FND_FILE.PUT_LINE(FND_FILE.LOG,
428: 'The process to upgrade the records has been submitted.
423: ELSE
424: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
425: 'The process to upgrade the records has been submitted.
426: Please check Request ID: '|| to_char(l_child_req_id));
427: FND_FILE.PUT_LINE(FND_FILE.LOG,
428: 'The process to upgrade the records has been submitted.
429: Please check Request ID: '|| to_char(l_child_req_id));
430: END IF;
431:
446: end if;
447:
448: l_ReqStsTab(i).Status := l_dev_phase;
449:
450: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Req = ' || l_ReqStsTab(i).Request_Id || ' Sts = ' || l_ReqStsTab(i).Status);
451:
452: End Loop;
453:
454: commit;
456: While NOTCOMPLETE Loop
457:
458: dbms_lock.sleep(60); /* changed sleep seconds from 300 to 60 for 4130368 */
459:
460: FND_FILE.PUT_LINE(FND_FILE.LOG,'Inside Loop forever '|| to_char(sysdate,'HH:MI:SS') );
461:
462: NOTCOMPLETE := FALSE;
463:
464: FOR j in l_ReqStsTab.first..l_ReqStsTab.LAST LOOP
479:
480: l_ReqStsTab(j).Status := l_dev_phase;
481:
482: If l_dev_phase <> 'COMPLETE' Then
483: FND_FILE.PUT_LINE(FND_FILE.LOG,'Loop Again'|| to_char(sysdate,'HH:MI:SS'));
484: NOTCOMPLETE := TRUE;
485: exit;
486: End If;
487:
492: IF (NOT FND_INSTALLATION.GET_APP_INFO('PA', l_inssts, l_industry, l_pa_schema)) THEN
493: raise_application_error(-20001,SQLERRM);
494: END IF;
495:
496: FND_FILE.PUT_LINE(FND_FILE.LOG,'Truncating Table '|| l_pa_schema || '.pa_txn_upgrade_temp '||
497: to_char(sysdate,'HH:MI:SS') );
498:
499: execute immediate ('Truncate table ' || l_pa_schema || '.pa_txn_upgrade_temp');
500:
497: to_char(sysdate,'HH:MI:SS') );
498:
499: execute immediate ('Truncate table ' || l_pa_schema || '.pa_txn_upgrade_temp');
500:
501: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling pa_uom.get_uom for updating UOM Meaning '|| to_char(sysdate,'HH:MI:SS') );
502:
503: l_get_uom := 'F';
504:
505: l_get_uom := pa_uom.get_uom(fnd_global.USER_ID);
505: l_get_uom := pa_uom.get_uom(fnd_global.USER_ID);
506:
507: IF (l_get_uom = 'S') THEN
508:
509: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Successfully Updated UOM Meanings in PA '|| to_char(sysdate,'HH:MI:SS'));
510:
511: ELSE
512:
513: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error While Updating UOM Meanings in PA '||l_get_uom);
509: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Successfully Updated UOM Meanings in PA '|| to_char(sysdate,'HH:MI:SS'));
510:
511: ELSE
512:
513: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error While Updating UOM Meanings in PA '||l_get_uom);
514: raise_application_error(-20001,SQLERRM);
515:
516: END IF;
517:
523: End If; -- p_worker_id
524:
525: If (p_worker_id <> 0) Then
526:
527: FND_FILE.PUT_LINE(FND_FILE.LOG, p_worker_id|| ' is the worker_id '|| to_char(sysdate,'HH:MI:SS'));
528:
529: Declare
530:
531: Cursor C_Ei Is
768: where Expenditure_Item_Id = l_EIIdTab(i);
769:
770: l_rowcount:=sql%rowcount;
771:
772: FND_FILE.PUT_LINE(FND_FILE.LOG,'No of EI Records updated = '||l_rowcount);
773: commit;
774:
775: FORALL j in l_EIIdTab.first .. l_EIIdTab.last
776: update pa_cost_distribution_lines_all
779: and line_type = 'R';
780:
781: l_rowcount:=sql%rowcount;
782:
783: FND_FILE.PUT_LINE(FND_FILE.LOG,'No of CDL Records updated = '||l_rowcount);
784: commit;
785:
786: FORALL k in l_EIIdTab.first .. l_EIIdTab.last
787: update pa_cc_dist_lines_all
790: and tp_amt_type_code is null;
791:
792: l_rowcount:=sql%rowcount;
793:
794: FND_FILE.PUT_LINE(FND_FILE.LOG,'No of CCDL Records updated = '||l_rowcount);
795: commit;
796:
797: FORALL l in l_EIIdTab.first .. l_EIIdTab.last
798: update pa_draft_invoice_details_all
801: and tp_amt_type_code is null;
802:
803: l_rowcount:=sql%rowcount;
804:
805: FND_FILE.PUT_LINE(FND_FILE.LOG,'No of DID Records updated = '||l_rowcount);
806: commit;
807:
808: End Loop;
809:
842: where Expenditure_Item_Id = l_EIIdTab(i);
843:
844: l_rowcount:=sql%rowcount;
845:
846: FND_FILE.PUT_LINE(FND_FILE.LOG, l_rowcount || ' EI Records updated '||to_char(sysdate,'HH:MI:SS'));
847: commit;
848:
849: End Loop;
850:
851: Close Cur_PJM_Attr;
852:
853: ELSIF P_Txn_Type = 'SUPPLIER TYPE' THEN --R12 changes
854:
855: FND_FILE.PUT_LINE(FND_FILE.LOG,'Initializing variables for cur_ap_po_ei');
856:
857: l_ei_rowid_tbl := rowid_typ(null);
858: l_exp_item_id_tbl := exp_item_id_typ(null);
859: l_vendor_id_tbl := vendor_id_typ(null);
863: l_doc_payment_id_tbl := doc_payment_id_typ(null);
864: l_document_tbl := document_typ(null);
865: l_document_dist_tbl := document_dist_typ(null);
866:
867: FND_FILE.PUT_LINE(FND_FILE.LOG,'Opening cursor cur_upg_proj');
868:
869: FOR upg_proj in cur_upg_project LOOP
870:
871: FND_FILE.PUT_LINE(FND_FILE.LOG,'Opening cursor cur_ap_po_ei');
867: FND_FILE.PUT_LINE(FND_FILE.LOG,'Opening cursor cur_upg_proj');
868:
869: FOR upg_proj in cur_upg_project LOOP
870:
871: FND_FILE.PUT_LINE(FND_FILE.LOG,'Opening cursor cur_ap_po_ei');
872:
873: OPEN cur_ap_po_ei(upg_proj.project_id);
874: LOOP
875:
883: l_doc_payment_id_tbl.delete;
884: l_document_tbl.delete;
885: l_document_dist_tbl.delete;
886:
887: FND_FILE.PUT_LINE(FND_FILE.LOG,'Fetching Cusor cur_ap_po_ei');
888:
889: FETCH cur_ap_po_ei BULK COLLECT INTO
890: l_ei_rowid_tbl,
891: l_exp_item_id_tbl,
897: l_document_tbl,
898: l_document_dist_tbl
899: limit l_plsql_max_array_size;
900:
901: FND_FILE.PUT_LINE(FND_FILE.LOG,'After Bulk Collecting Cusor cur_ap_po_ei');
902:
903: If l_ei_rowid_tbl.count = 0 Then
904: Exit;
905: End If;
903: If l_ei_rowid_tbl.count = 0 Then
904: Exit;
905: End If;
906:
907: FND_FILE.PUT_LINE(FND_FILE.LOG,'Updating EI columns -R12 ');
908:
909: FORALL i in l_ei_rowid_tbl.first..l_ei_rowid_tbl.last
910: UPDATE pa_expenditure_items_all ei
911: SET ei.vendor_id = l_vendor_id_tbl(i),
921:
922: l_rowcount := nvl(l_rowcount, 0) + SQL%ROWCOUNT;
923:
924: -- commit transaction here
925: FND_FILE.PUT_LINE(FND_FILE.LOG,'Commit in Loop');
926: commit;
927:
928: END LOOP;
929: CLOSE cur_ap_po_ei;
927:
928: END LOOP;
929: CLOSE cur_ap_po_ei;
930:
931: FND_FILE.PUT_LINE(FND_FILE.LOG,'Updating uncosted EI columns ');
932: -- Update the adjusted and uncosted expenditures. Bug#5381198.
933: FOR uncosted_ei in cur_uncosted_ei(upg_proj.project_id) LOOP
934:
935: UPDATE pa_expenditure_items_all ei
959:
960: END LOOP;
961:
962: /* Added for the bug 14284376 starts */
963: FND_FILE.PUT_LINE(FND_FILE.LOG,'Updating costed BTC columns starts');
964:
965: FOR costed_btc in cur_ap_po_btc(upg_proj.project_id) LOOP
966:
967: update pa_expenditure_items_all ei
972:
973: l_rowcount := nvl(l_rowcount, 0) + SQL%ROWCOUNT;
974: end loop;
975:
976: fnd_file.put_line(fnd_file.log,'Updating costed BTC columns ends | lines updated ='||l_rowcount);
977: /* Added for the bug 14284376 ends */
978:
979: -- commit transaction here
980: FND_FILE.PUT_LINE(FND_FILE.LOG,'Commit in Loop - Uncosted Expenditures ');
976: fnd_file.put_line(fnd_file.log,'Updating costed BTC columns ends | lines updated ='||l_rowcount);
977: /* Added for the bug 14284376 ends */
978:
979: -- commit transaction here
980: FND_FILE.PUT_LINE(FND_FILE.LOG,'Commit in Loop - Uncosted Expenditures ');
981: commit;
982: END LOOP;
983:
984: END IF;