165: BEGIN
166:
167: l_api_name := 'PURGE_WR_ITEM';
168: l_audit_log_val := FND_PROFILE.VALUE('IEU_WR_DIST_AUDIT_LOG');
169: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_PURGE_INP_PARAMS');
170: FND_MESSAGE.SET_TOKEN('WS_CODE', p_ws_code);
171: FND_MESSAGE.SET_TOKEN('LU_DATE', p_last_update_date);
172: l_message := FND_MESSAGE.GET;
173: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
166:
167: l_api_name := 'PURGE_WR_ITEM';
168: l_audit_log_val := FND_PROFILE.VALUE('IEU_WR_DIST_AUDIT_LOG');
169: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_PURGE_INP_PARAMS');
170: FND_MESSAGE.SET_TOKEN('WS_CODE', p_ws_code);
171: FND_MESSAGE.SET_TOKEN('LU_DATE', p_last_update_date);
172: l_message := FND_MESSAGE.GET;
173: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
174:
167: l_api_name := 'PURGE_WR_ITEM';
168: l_audit_log_val := FND_PROFILE.VALUE('IEU_WR_DIST_AUDIT_LOG');
169: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_PURGE_INP_PARAMS');
170: FND_MESSAGE.SET_TOKEN('WS_CODE', p_ws_code);
171: FND_MESSAGE.SET_TOKEN('LU_DATE', p_last_update_date);
172: l_message := FND_MESSAGE.GET;
173: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
174:
175: BEGIN
168: l_audit_log_val := FND_PROFILE.VALUE('IEU_WR_DIST_AUDIT_LOG');
169: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_PURGE_INP_PARAMS');
170: FND_MESSAGE.SET_TOKEN('WS_CODE', p_ws_code);
171: FND_MESSAGE.SET_TOKEN('LU_DATE', p_last_update_date);
172: l_message := FND_MESSAGE.GET;
173: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
174:
175: BEGIN
176:
265: WHEN OTHERS THEN
266: l_parent_ws_code := null;
267: END;
268:
269: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_PURGE_PARENT_WI');
270: FND_MESSAGE.SET_TOKEN('WS_CODE', l_parent_ws_code);
271: l_message := FND_MESSAGE.GET;
272: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
273:
266: l_parent_ws_code := null;
267: END;
268:
269: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_PURGE_PARENT_WI');
270: FND_MESSAGE.SET_TOKEN('WS_CODE', l_parent_ws_code);
271: l_message := FND_MESSAGE.GET;
272: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
273:
274: RAISE fnd_api.g_exc_error;
267: END;
268:
269: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_PURGE_PARENT_WI');
270: FND_MESSAGE.SET_TOKEN('WS_CODE', l_parent_ws_code);
271: l_message := FND_MESSAGE.GET;
272: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
273:
274: RAISE fnd_api.g_exc_error;
275: END IF;
297: l_task_det_rec.l_work_item_number_list,
298: l_task_det_rec.l_work_item_id_list;
299: CLOSE c1_purge_assct_wi; */
300: /* FOR i IN 1..l_task_det_rec.l_workitem_pk_id_list.COUNT loop
301: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_PURGED_WI_DETAILS');
302: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
303: l_message := FND_MESSAGE.GET;
304: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
305: END LOOP;*/
298: l_task_det_rec.l_work_item_id_list;
299: CLOSE c1_purge_assct_wi; */
300: /* FOR i IN 1..l_task_det_rec.l_workitem_pk_id_list.COUNT loop
301: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_PURGED_WI_DETAILS');
302: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
303: l_message := FND_MESSAGE.GET;
304: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
305: END LOOP;*/
306: /* --** Audit logging starts here ** --
299: CLOSE c1_purge_assct_wi; */
300: /* FOR i IN 1..l_task_det_rec.l_workitem_pk_id_list.COUNT loop
301: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_PURGED_WI_DETAILS');
302: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
303: l_message := FND_MESSAGE.GET;
304: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
305: END LOOP;*/
306: /* --** Audit logging starts here ** --
307: l_audit_log_val := FND_PROFILE.VALUE('IEU_WR_DIST_AUDIT_LOG');
465: l_task_det_rec.l_source_object_id_list,
466: l_task_det_rec.l_source_object_type_code_list;
467: CLOSE c1_open_parent_assct_Wi;
468: FOR i IN 1..l_task_det_rec.l_workitem_pk_id_list.COUNT LOOP
469: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_NOT_PURGED_PARENT_WI');
470: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
471: FND_MESSAGE.SET_TOKEN('PARENT_WI_PK_ID', l_task_det_rec.l_source_object_id_list(i));
472: FND_MESSAGE.SET_TOKEN('PARENT_WI_OBJ_CODE',l_task_det_rec.l_source_object_type_code_list(i));
473: l_message := FND_MESSAGE.GET;
466: l_task_det_rec.l_source_object_type_code_list;
467: CLOSE c1_open_parent_assct_Wi;
468: FOR i IN 1..l_task_det_rec.l_workitem_pk_id_list.COUNT LOOP
469: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_NOT_PURGED_PARENT_WI');
470: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
471: FND_MESSAGE.SET_TOKEN('PARENT_WI_PK_ID', l_task_det_rec.l_source_object_id_list(i));
472: FND_MESSAGE.SET_TOKEN('PARENT_WI_OBJ_CODE',l_task_det_rec.l_source_object_type_code_list(i));
473: l_message := FND_MESSAGE.GET;
474: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
467: CLOSE c1_open_parent_assct_Wi;
468: FOR i IN 1..l_task_det_rec.l_workitem_pk_id_list.COUNT LOOP
469: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_NOT_PURGED_PARENT_WI');
470: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
471: FND_MESSAGE.SET_TOKEN('PARENT_WI_PK_ID', l_task_det_rec.l_source_object_id_list(i));
472: FND_MESSAGE.SET_TOKEN('PARENT_WI_OBJ_CODE',l_task_det_rec.l_source_object_type_code_list(i));
473: l_message := FND_MESSAGE.GET;
474: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
475: END LOOP;
468: FOR i IN 1..l_task_det_rec.l_workitem_pk_id_list.COUNT LOOP
469: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_NOT_PURGED_PARENT_WI');
470: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
471: FND_MESSAGE.SET_TOKEN('PARENT_WI_PK_ID', l_task_det_rec.l_source_object_id_list(i));
472: FND_MESSAGE.SET_TOKEN('PARENT_WI_OBJ_CODE',l_task_det_rec.l_source_object_type_code_list(i));
473: l_message := FND_MESSAGE.GET;
474: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
475: END LOOP;
476:
469: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_NOT_PURGED_PARENT_WI');
470: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
471: FND_MESSAGE.SET_TOKEN('PARENT_WI_PK_ID', l_task_det_rec.l_source_object_id_list(i));
472: FND_MESSAGE.SET_TOKEN('PARENT_WI_OBJ_CODE',l_task_det_rec.l_source_object_type_code_list(i));
473: l_message := FND_MESSAGE.GET;
474: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
475: END LOOP;
476:
477: --** delete all associate work items where parent work items are closed **--
534: CLOSE c2_purge_primary_wi; */
535:
536: /* FOR i IN 1..l_task_det_rec.l_workitem_pk_id_list.COUNT LOOP
537:
538: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_PURGED_WI_DETAILS');
539: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
540: l_message := FND_MESSAGE.GET;
541: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
542:
535:
536: /* FOR i IN 1..l_task_det_rec.l_workitem_pk_id_list.COUNT LOOP
537:
538: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_PURGED_WI_DETAILS');
539: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
540: l_message := FND_MESSAGE.GET;
541: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
542:
543: END LOOP;*/
536: /* FOR i IN 1..l_task_det_rec.l_workitem_pk_id_list.COUNT LOOP
537:
538: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_PURGED_WI_DETAILS');
539: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
540: l_message := FND_MESSAGE.GET;
541: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
542:
543: END LOOP;*/
544:
702: close c2_open_child_primary_wi;
703:
704:
705: FOR i IN 1..l_task_det_rec.l_workitem_pk_id_list.COUNT LOOP
706: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_NOT_PURGED_CHILD_WI');
707: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
708: FND_MESSAGE.SET_TOKEN('CHILD_WI_PK_ID', l_task_det_rec.l_source_object_id_list(i));
709: FND_MESSAGE.SET_TOKEN('CHILD_WI_OBJ_CODE', l_task_det_rec.l_source_object_type_Code_list(i));
710: l_message := FND_MESSAGE.GET;
703:
704:
705: FOR i IN 1..l_task_det_rec.l_workitem_pk_id_list.COUNT LOOP
706: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_NOT_PURGED_CHILD_WI');
707: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
708: FND_MESSAGE.SET_TOKEN('CHILD_WI_PK_ID', l_task_det_rec.l_source_object_id_list(i));
709: FND_MESSAGE.SET_TOKEN('CHILD_WI_OBJ_CODE', l_task_det_rec.l_source_object_type_Code_list(i));
710: l_message := FND_MESSAGE.GET;
711: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
704:
705: FOR i IN 1..l_task_det_rec.l_workitem_pk_id_list.COUNT LOOP
706: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_NOT_PURGED_CHILD_WI');
707: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
708: FND_MESSAGE.SET_TOKEN('CHILD_WI_PK_ID', l_task_det_rec.l_source_object_id_list(i));
709: FND_MESSAGE.SET_TOKEN('CHILD_WI_OBJ_CODE', l_task_det_rec.l_source_object_type_Code_list(i));
710: l_message := FND_MESSAGE.GET;
711: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
712: END LOOP;
705: FOR i IN 1..l_task_det_rec.l_workitem_pk_id_list.COUNT LOOP
706: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_NOT_PURGED_CHILD_WI');
707: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
708: FND_MESSAGE.SET_TOKEN('CHILD_WI_PK_ID', l_task_det_rec.l_source_object_id_list(i));
709: FND_MESSAGE.SET_TOKEN('CHILD_WI_OBJ_CODE', l_task_det_rec.l_source_object_type_Code_list(i));
710: l_message := FND_MESSAGE.GET;
711: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
712: END LOOP;
713: END IF; -- l_assct_ws_id
706: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_NOT_PURGED_CHILD_WI');
707: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
708: FND_MESSAGE.SET_TOKEN('CHILD_WI_PK_ID', l_task_det_rec.l_source_object_id_list(i));
709: FND_MESSAGE.SET_TOKEN('CHILD_WI_OBJ_CODE', l_task_det_rec.l_source_object_type_Code_list(i));
710: l_message := FND_MESSAGE.GET;
711: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
712: END LOOP;
713: END IF; -- l_assct_ws_id
714:
753:
754:
755: /* FOR i in 1..l_task_det_rec.l_workitem_pk_id_list.COUNT LOOP
756:
757: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_PURGED_WI_DETAILS');
758: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
759: l_message := FND_MESSAGE.GET;
760: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
761: END LOOP;*/
754:
755: /* FOR i in 1..l_task_det_rec.l_workitem_pk_id_list.COUNT LOOP
756:
757: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_PURGED_WI_DETAILS');
758: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
759: l_message := FND_MESSAGE.GET;
760: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
761: END LOOP;*/
762:
755: /* FOR i in 1..l_task_det_rec.l_workitem_pk_id_list.COUNT LOOP
756:
757: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_PURGED_WI_DETAILS');
758: FND_MESSAGE.SET_TOKEN('WI_PK_ID', l_task_det_rec.l_workitem_pk_id_list(i));
759: l_message := FND_MESSAGE.GET;
760: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
761: END LOOP;*/
762:
763: /* --** Audit logging starts here ** --
956: l_message VARCHAR2(4000);
957:
958: BEGIN
959:
960: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_AUDIT_PURGE_INP_PARAMS');
961: FND_MESSAGE.SET_TOKEN('OBJECT_CODE', p_obj_code);
962: FND_MESSAGE.SET_TOKEN('CR_DATE', p_creation_date);
963: l_message := FND_MESSAGE.GET;
964: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
957:
958: BEGIN
959:
960: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_AUDIT_PURGE_INP_PARAMS');
961: FND_MESSAGE.SET_TOKEN('OBJECT_CODE', p_obj_code);
962: FND_MESSAGE.SET_TOKEN('CR_DATE', p_creation_date);
963: l_message := FND_MESSAGE.GET;
964: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
965:
958: BEGIN
959:
960: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_AUDIT_PURGE_INP_PARAMS');
961: FND_MESSAGE.SET_TOKEN('OBJECT_CODE', p_obj_code);
962: FND_MESSAGE.SET_TOKEN('CR_DATE', p_creation_date);
963: l_message := FND_MESSAGE.GET;
964: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
965:
966: IF ( (p_creation_date IS not null) AND (p_obj_code IS not null) )
959:
960: FND_MESSAGE.SET_NAME('IEU', 'IEU_WR_AUDIT_PURGE_INP_PARAMS');
961: FND_MESSAGE.SET_TOKEN('OBJECT_CODE', p_obj_code);
962: FND_MESSAGE.SET_TOKEN('CR_DATE', p_creation_date);
963: l_message := FND_MESSAGE.GET;
964: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
965:
966: IF ( (p_creation_date IS not null) AND (p_obj_code IS not null) )
967: THEN