56: , p_resource_id IN NUMBER
57: , p_old_org_id IN NUMBER)
58: IS
59:
60: l_tab_access_id ASG_DOWNLOAD.ACCESS_LIST;
61: l_tab_resource_id ASG_DOWNLOAD.USER_LIST;
62:
63: TYPE item_Tab IS TABLE OF mtl_system_items_b.inventory_item_id%TYPE INDEX BY BINARY_INTEGER;
64: TYPE org_Tab IS TABLE OF mtl_system_items_b.organization_id%TYPE INDEX BY BINARY_INTEGER;
57: , p_old_org_id IN NUMBER)
58: IS
59:
60: l_tab_access_id ASG_DOWNLOAD.ACCESS_LIST;
61: l_tab_resource_id ASG_DOWNLOAD.USER_LIST;
62:
63: TYPE item_Tab IS TABLE OF mtl_system_items_b.inventory_item_id%TYPE INDEX BY BINARY_INTEGER;
64: TYPE org_Tab IS TABLE OF mtl_system_items_b.organization_id%TYPE INDEX BY BINARY_INTEGER;
65: items item_Tab;
127: l_tab_access_id(i), SYSDATE, 1, SYSDATE, 1, 1, p_resource_id,
128: items(i), organizations(i));
129:
130: IF l_tab_access_id.COUNT > 0 THEN -- For Expense/Labor Items
131: l_dummy := asg_download.markdirty(
132: P_PUB_ITEM => g_explab_publication_item_name(1)
133: , P_ACCESSLIST => l_tab_access_id
134: , P_RESOURCELIST => l_tab_resource_id
135: , P_DML_TYPE => 'I'
764:
765: --Bug 3724165 - To take care of this bug, this procedure will only take
766: --care of Material Items. Expense and Labor items will be taken care of
767: --by the procedure INSERT_ACC_REC_MARKDIRTY_EXP
768: l_tab_access_id ASG_DOWNLOAD.ACCESS_LIST;
769: l_tab_resource_id ASG_DOWNLOAD.USER_LIST;
770:
771: TYPE item_Tab IS TABLE OF mtl_system_items_b.inventory_item_id%TYPE INDEX BY BINARY_INTEGER;
772: TYPE org_Tab IS TABLE OF mtl_system_items_b.organization_id%TYPE INDEX BY BINARY_INTEGER;
765: --Bug 3724165 - To take care of this bug, this procedure will only take
766: --care of Material Items. Expense and Labor items will be taken care of
767: --by the procedure INSERT_ACC_REC_MARKDIRTY_EXP
768: l_tab_access_id ASG_DOWNLOAD.ACCESS_LIST;
769: l_tab_resource_id ASG_DOWNLOAD.USER_LIST;
770:
771: TYPE item_Tab IS TABLE OF mtl_system_items_b.inventory_item_id%TYPE INDEX BY BINARY_INTEGER;
772: TYPE org_Tab IS TABLE OF mtl_system_items_b.organization_id%TYPE INDEX BY BINARY_INTEGER;
773:
779: --Bug 3746689
780: TYPE billCat_Tab IS TABLE OF cs_billing_type_categories.billing_category%TYPE INDEX BY BINARY_INTEGER;
781: billCat billCat_Tab;
782:
783: accessId_Exp_Lab_Tab ASG_DOWNLOAD.ACCESS_LIST;
784: accessId_Mat_Tab ASG_DOWNLOAD.ACCESS_LIST;
785:
786: resourceId_Exp_Lab_Tab ASG_DOWNLOAD.USER_LIST;
787: resourceId_Mat_Tab ASG_DOWNLOAD.USER_LIST;
780: TYPE billCat_Tab IS TABLE OF cs_billing_type_categories.billing_category%TYPE INDEX BY BINARY_INTEGER;
781: billCat billCat_Tab;
782:
783: accessId_Exp_Lab_Tab ASG_DOWNLOAD.ACCESS_LIST;
784: accessId_Mat_Tab ASG_DOWNLOAD.ACCESS_LIST;
785:
786: resourceId_Exp_Lab_Tab ASG_DOWNLOAD.USER_LIST;
787: resourceId_Mat_Tab ASG_DOWNLOAD.USER_LIST;
788:
782:
783: accessId_Exp_Lab_Tab ASG_DOWNLOAD.ACCESS_LIST;
784: accessId_Mat_Tab ASG_DOWNLOAD.ACCESS_LIST;
785:
786: resourceId_Exp_Lab_Tab ASG_DOWNLOAD.USER_LIST;
787: resourceId_Mat_Tab ASG_DOWNLOAD.USER_LIST;
788:
789: el_ctr NUMBER;
790: m_ctr NUMBER;
783: accessId_Exp_Lab_Tab ASG_DOWNLOAD.ACCESS_LIST;
784: accessId_Mat_Tab ASG_DOWNLOAD.ACCESS_LIST;
785:
786: resourceId_Exp_Lab_Tab ASG_DOWNLOAD.USER_LIST;
787: resourceId_Mat_Tab ASG_DOWNLOAD.USER_LIST;
788:
789: el_ctr NUMBER;
790: m_ctr NUMBER;
791:
993: VALUES (
994: l_tab_access_id(i), SYSDATE, 1, SYSDATE, 1, 1, p_resource_id,
995: items(i), organizations(i));
996:
997: /*** push to oLite using asg_download ***/
998: IF l_tab_access_id.COUNT > 0 THEN -- For Material Items
999: l_dummy := asg_download.markdirty(
1000: P_PUB_ITEM => g_publication_item_name(1)
1001: , P_ACCESSLIST => l_tab_access_id
995: items(i), organizations(i));
996:
997: /*** push to oLite using asg_download ***/
998: IF l_tab_access_id.COUNT > 0 THEN -- For Material Items
999: l_dummy := asg_download.markdirty(
1000: P_PUB_ITEM => g_publication_item_name(1)
1001: , P_ACCESSLIST => l_tab_access_id
1002: , P_RESOURCELIST => l_tab_resource_id
1003: , P_DML_TYPE => 'I'
1044: VALUES (
1045: l_tab_access_id(i), SYSDATE, 1, SYSDATE, 1, 1, p_resource_id,
1046: items(i), organizations(i));
1047:
1048: /*** push to oLite using asg_download ***/
1049: IF l_tab_access_id.COUNT > 0 THEN -- For Material Items
1050: l_dummy := asg_download.markdirty(
1051: P_PUB_ITEM => g_publication_item_name(1)
1052: , P_ACCESSLIST => l_tab_access_id
1046: items(i), organizations(i));
1047:
1048: /*** push to oLite using asg_download ***/
1049: IF l_tab_access_id.COUNT > 0 THEN -- For Material Items
1050: l_dummy := asg_download.markdirty(
1051: P_PUB_ITEM => g_publication_item_name(1)
1052: , P_ACCESSLIST => l_tab_access_id
1053: , P_RESOURCELIST => l_tab_resource_id
1054: , P_DML_TYPE => 'I'
1095: VALUES (
1096: l_tab_access_id(i), SYSDATE, 1, SYSDATE, 1, 1, p_resource_id,
1097: items(i), organizations(i));
1098:
1099: /*** push to oLite using asg_download ***/
1100: IF l_tab_access_id.COUNT > 0 THEN -- For Material Items
1101: l_dummy := asg_download.markdirty(
1102: P_PUB_ITEM => g_publication_item_name(1)
1103: , P_ACCESSLIST => l_tab_access_id
1097: items(i), organizations(i));
1098:
1099: /*** push to oLite using asg_download ***/
1100: IF l_tab_access_id.COUNT > 0 THEN -- For Material Items
1101: l_dummy := asg_download.markdirty(
1102: P_PUB_ITEM => g_publication_item_name(1)
1103: , P_ACCESSLIST => l_tab_access_id
1104: , P_RESOURCELIST => l_tab_resource_id
1105: , P_DML_TYPE => 'I'
1146: VALUES (
1147: l_tab_access_id(i), SYSDATE, 1, SYSDATE, 1, 1, p_resource_id,
1148: items(i), organizations(i));
1149:
1150: /*** push to oLite using asg_download ***/
1151: IF l_tab_access_id.COUNT > 0 THEN -- For Material Items
1152: l_dummy := asg_download.markdirty(
1153: P_PUB_ITEM => g_publication_item_name(1)
1154: , P_ACCESSLIST => l_tab_access_id
1148: items(i), organizations(i));
1149:
1150: /*** push to oLite using asg_download ***/
1151: IF l_tab_access_id.COUNT > 0 THEN -- For Material Items
1152: l_dummy := asg_download.markdirty(
1153: P_PUB_ITEM => g_publication_item_name(1)
1154: , P_ACCESSLIST => l_tab_access_id
1155: , P_RESOURCELIST => l_tab_resource_id
1156: , P_DML_TYPE => 'I'
1204: AND msi.ORGANIZATION_ID = acc.ORGANIZATION_ID
1205: AND msi.material_billable_flag = cbtc.billing_type (+)
1206: AND msi.LAST_UPDATE_DATE >= b_last_date;
1207:
1208: l_tab_access_id ASG_DOWNLOAD.ACCESS_LIST;
1209: l_tab_resource_id ASG_DOWNLOAD.USER_LIST;
1210: l_dummy BOOLEAN;
1211:
1212: --Bug 3746689
1205: AND msi.material_billable_flag = cbtc.billing_type (+)
1206: AND msi.LAST_UPDATE_DATE >= b_last_date;
1207:
1208: l_tab_access_id ASG_DOWNLOAD.ACCESS_LIST;
1209: l_tab_resource_id ASG_DOWNLOAD.USER_LIST;
1210: l_dummy BOOLEAN;
1211:
1212: --Bug 3746689
1213: TYPE billCat_Tab IS TABLE OF cs_billing_type_categories.billing_category%TYPE INDEX BY BINARY_INTEGER;
1216:
1217: TYPE sourceType_Tab IS TABLE OF VARCHAR(1) INDEX BY BINARY_INTEGER;
1218: sourceType sourceType_Tab;
1219:
1220: accessId_Exp_Lab_Tab ASG_DOWNLOAD.ACCESS_LIST;
1221: accessId_Mat_Tab ASG_DOWNLOAD.ACCESS_LIST;
1222:
1223: resourceId_Exp_Lab_Tab ASG_DOWNLOAD.USER_LIST;
1224: resourceId_Mat_Tab ASG_DOWNLOAD.USER_LIST;
1217: TYPE sourceType_Tab IS TABLE OF VARCHAR(1) INDEX BY BINARY_INTEGER;
1218: sourceType sourceType_Tab;
1219:
1220: accessId_Exp_Lab_Tab ASG_DOWNLOAD.ACCESS_LIST;
1221: accessId_Mat_Tab ASG_DOWNLOAD.ACCESS_LIST;
1222:
1223: resourceId_Exp_Lab_Tab ASG_DOWNLOAD.USER_LIST;
1224: resourceId_Mat_Tab ASG_DOWNLOAD.USER_LIST;
1225:
1219:
1220: accessId_Exp_Lab_Tab ASG_DOWNLOAD.ACCESS_LIST;
1221: accessId_Mat_Tab ASG_DOWNLOAD.ACCESS_LIST;
1222:
1223: resourceId_Exp_Lab_Tab ASG_DOWNLOAD.USER_LIST;
1224: resourceId_Mat_Tab ASG_DOWNLOAD.USER_LIST;
1225:
1226: newPI BOOLEAN;
1227: el_ctr NUMBER;
1220: accessId_Exp_Lab_Tab ASG_DOWNLOAD.ACCESS_LIST;
1221: accessId_Mat_Tab ASG_DOWNLOAD.ACCESS_LIST;
1222:
1223: resourceId_Exp_Lab_Tab ASG_DOWNLOAD.USER_LIST;
1224: resourceId_Mat_Tab ASG_DOWNLOAD.USER_LIST;
1225:
1226: newPI BOOLEAN;
1227: el_ctr NUMBER;
1228: m_ctr NUMBER;
1320: m_ctr := m_ctr + 1;
1321: END IF;
1322: END LOOP;
1323:
1324: /*** push to oLite using asg_download ***/
1325: -- send the segregated data to their resp PIs.
1326: --Bug 3746689
1327: IF accessId_Exp_Lab_Tab.COUNT > 0 THEN
1328: l_dummy := asg_download.markdirty(
1324: /*** push to oLite using asg_download ***/
1325: -- send the segregated data to their resp PIs.
1326: --Bug 3746689
1327: IF accessId_Exp_Lab_Tab.COUNT > 0 THEN
1328: l_dummy := asg_download.markdirty(
1329: P_PUB_ITEM => g_explab_publication_item_name(1) --New PI for Expense and Labor items
1330: , P_ACCESSLIST => accessId_Exp_Lab_Tab
1331: , P_RESOURCELIST => resourceId_Exp_Lab_Tab
1332: , P_DML_TYPE => 'U'
1334: );
1335: END IF;
1336:
1337: IF accessId_Mat_Tab.COUNT > 0 THEN
1338: l_dummy := asg_download.markdirty(
1339: P_PUB_ITEM => g_publication_item_name(1) --PI for Material Items
1340: , P_ACCESSLIST => accessId_Mat_Tab
1341: , P_RESOURCELIST => resourceId_Mat_Tab
1342: , P_DML_TYPE => 'U'