[Home] [Help]
266:
267:
268: -- constructing the query
269:
270: l_sql_string := 'Select task_id, entity From JTF_TASKS_B Where source_object_type_code = ''TASK''';
271:
272: -- when p_creation_date_to is not null
273: IF l_creation_date_to IS NOT NULL
274: THEN
848: x_msg_count OUT NOCOPY NUMBER )
849: IS
850: l_api_version CONSTANT NUMBER := 1.0;
851: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_TASK_ATTACHMENTS';
852: l_entity_name VARCHAR2(40):='JTF_TASKS_B';
853:
854: Cursor C_Task_Id Is
855:
856: Select temp.object_id From JTF_OBJECT_PURGE_PARAM_TMP temp, fnd_attached_documents fad
856: Select temp.object_id From JTF_OBJECT_PURGE_PARAM_TMP temp, fnd_attached_documents fad
857: Where temp.object_type = 'TASK'
858: And temp.processing_set_id = p_processing_set_id
859: And NVL(temp.purge_status,'Y') <> 'E'
860: and fad.entity_name='JTF_TASKS_B'
861: and fad.pk1_value=to_char(temp.object_id);
862:
863: TYPE t_tab_num Is Table Of NUMBER;
864:
923:
924: FOR j IN 1..l_tab_task_id.LAST LOOP
925:
926: FND_ATTACHED_DOCUMENTS2_PKG.Delete_Attachments (
927: X_entity_name => 'JTF_TASKS_B' ,
928: X_pk1_value => to_char(l_tab_task_id(j)) ,
929: X_pk2_value => NULL ,
930: X_pk3_value => NULL ,
931: X_pk4_value => NULL ,
1760:
1761: --Delete data from JTF_TASK_PHONES table
1762: Forall j In l_tab_task_id.FIRST..l_tab_task_id.LAST
1763: Delete JTF_TASK_PHONES
1764: WHERE owner_table_name = 'JTF_TASKS_B'
1765: AND task_contact_id = l_tab_task_id(j);
1766:
1767: --Added By MPADHIAR for Bug#5216358
1768: IF l_tab_task_contact_id.COUNT > 0 THEN
1879: -- Statement level Logging
1880: ----------------------------
1881: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1882: THEN
1883: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'CAC_TASK_PURGE_PVT.PURGE_TASK_ENTITIES', 'Breaking parent-child relationship for the tasks to be purged in JTF_TASKS_B');
1884: END IF;
1885:
1886:
1887: --Break parent-child relationship for the tasks to be purged
1885:
1886:
1887: --Break parent-child relationship for the tasks to be purged
1888: Forall j In l_tab_task_id.FIRST..l_tab_task_id.LAST
1889: Update JTF_TASKS_B
1890: Set parent_task_id = NULL
1891: Where parent_task_id = l_tab_task_id(j);
1892:
1893:
1895: -- Statement level Logging
1896: ----------------------------
1897: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1898: THEN
1899: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'CAC_TASK_PURGE_PVT.PURGE_TASK_ENTITIES', 'Deleting from table - JTF_TASKS_B');
1900: END IF;
1901:
1902:
1903: --Delete data from JTF_TASKS_B table
1899: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'CAC_TASK_PURGE_PVT.PURGE_TASK_ENTITIES', 'Deleting from table - JTF_TASKS_B');
1900: END IF;
1901:
1902:
1903: --Delete data from JTF_TASKS_B table
1904: Forall j In l_tab_task_id.FIRST..l_tab_task_id.LAST
1905: Delete JTF_TASKS_B
1906: Where task_id = l_tab_task_id(j)
1907: Returning recurrence_rule_id Bulk Collect Into l_tab_rec_rule_id;
1901:
1902:
1903: --Delete data from JTF_TASKS_B table
1904: Forall j In l_tab_task_id.FIRST..l_tab_task_id.LAST
1905: Delete JTF_TASKS_B
1906: Where task_id = l_tab_task_id(j)
1907: Returning recurrence_rule_id Bulk Collect Into l_tab_rec_rule_id;
1908:
1909:
1938: Forall j In l_tab_rec_rule_id.FIRST..l_tab_rec_rule_id.LAST
1939: Delete JTF_TASK_RECUR_RULES
1940: Where recurrence_rule_id = l_tab_rec_rule_id(j)
1941: And l_tab_rec_rule_id(j) IS NOT NULL
1942: And NOT EXISTS (Select task_id From JTF_TASKS_B
1943: Where recurrence_rule_id = l_tab_rec_rule_id(j));
1944:
1945: END IF;
1946: