[Home] [Help]
12:
13:
14:
15: -- finds interface id of an interface record that is created for processing
16: -- cycle count entry whose id is stored inside mtl_cceoi_var_pvt.G_CYCLE_COUNT_ENTRY_REC.CYCLE_COUNT_ENTRY_ID
17: -- pre: mtl_var_cceoi_pvt.g_cycle_count_entry_rec is filled out by call to
18: -- mtl_cceoi_prcess_pvt.validate_countlistseq
19: -- this function relies on invariant: at any time there shall be no more than
20: -- one interface record that contains pointer to exported cycle count entry
32: counter number := 0;
33:
34: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
35: begin
36: for c_rec in l_mcei_csr(mtl_cceoi_var_pvt.G_CYCLE_COUNT_ENTRY_REC.CYCLE_COUNT_ENTRY_ID) loop
37: p_cei_id := c_rec.cc_entry_interface_id;
38: counter := counter + 1;
39: end loop;
40:
54: update mtl_cc_entries_interface
55: set
56: lock_flag = 2
57: , last_update_date = sysdate
58: , last_updated_by = MTL_CCEOI_VAR_PVT.G_UserID
59: , last_update_login = MTL_CCEOI_VAR_PVT.G_LoginID
60: , request_id = MTL_CCEOI_VAR_PVT.G_RequestID
61: , program_application_id = MTL_CCEOI_VAR_PVT.G_ProgramAppID
62: , program_id = MTL_CCEOI_VAR_PVT.G_ProgramID
55: set
56: lock_flag = 2
57: , last_update_date = sysdate
58: , last_updated_by = MTL_CCEOI_VAR_PVT.G_UserID
59: , last_update_login = MTL_CCEOI_VAR_PVT.G_LoginID
60: , request_id = MTL_CCEOI_VAR_PVT.G_RequestID
61: , program_application_id = MTL_CCEOI_VAR_PVT.G_ProgramAppID
62: , program_id = MTL_CCEOI_VAR_PVT.G_ProgramID
63: , program_update_date = sysdate
56: lock_flag = 2
57: , last_update_date = sysdate
58: , last_updated_by = MTL_CCEOI_VAR_PVT.G_UserID
59: , last_update_login = MTL_CCEOI_VAR_PVT.G_LoginID
60: , request_id = MTL_CCEOI_VAR_PVT.G_RequestID
61: , program_application_id = MTL_CCEOI_VAR_PVT.G_ProgramAppID
62: , program_id = MTL_CCEOI_VAR_PVT.G_ProgramID
63: , program_update_date = sysdate
64: where
57: , last_update_date = sysdate
58: , last_updated_by = MTL_CCEOI_VAR_PVT.G_UserID
59: , last_update_login = MTL_CCEOI_VAR_PVT.G_LoginID
60: , request_id = MTL_CCEOI_VAR_PVT.G_RequestID
61: , program_application_id = MTL_CCEOI_VAR_PVT.G_ProgramAppID
62: , program_id = MTL_CCEOI_VAR_PVT.G_ProgramID
63: , program_update_date = sysdate
64: where
65: cc_entry_interface_id = p_iface_id;
58: , last_updated_by = MTL_CCEOI_VAR_PVT.G_UserID
59: , last_update_login = MTL_CCEOI_VAR_PVT.G_LoginID
60: , request_id = MTL_CCEOI_VAR_PVT.G_RequestID
61: , program_application_id = MTL_CCEOI_VAR_PVT.G_ProgramAppID
62: , program_id = MTL_CCEOI_VAR_PVT.G_ProgramID
63: , program_update_date = sysdate
64: where
65: cc_entry_interface_id = p_iface_id;
66:
74: -- the interface row
75: -- pre: p_cce_rec is a copy of valid mtl_cycle_count_entry record
76: PROCEDURE derive_CCE_Info
77: (
78: x_iface_rec IN OUT NOCOPY MTL_CCEOI_VAR_PVT.INV_CCEOI_TYPE,
79: p_cce_rec IN MTL_CYCLE_COUNT_ENTRIES%ROWTYPE )
80: IS
81: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
82: BEGIN
160: x_iface_rec.attribute14 := p_cce_rec.attribute14;
161: x_iface_rec.attribute15 := p_cce_rec.attribute15;
162:
163: -- account
164: x_iface_rec.adjustment_account_id := mtl_cceoi_var_pvt.g_cycle_count_header_rec.inventory_adjustment_account;
165: x_iface_rec.account_segment1 := null;
166: x_iface_rec.account_segment2 := null;
167: x_iface_rec.account_segment3 := null;
168: x_iface_rec.account_segment4 := null;
217: x_return_status OUT NOCOPY VARCHAR2 ,
218: x_errorcode OUT NOCOPY NUMBER,
219: x_msg_count OUT NOCOPY NUMBER ,
220: x_msg_data OUT NOCOPY VARCHAR2 ,
221: x_iface_rec IN OUT NOCOPY MTL_CCEOI_VAR_PVT.INV_CCEOI_TYPE)
222: IS
223: l_api_version number := 0.9;
224: l_api_name VARCHAR2(30) := 'Enforce_SKU_CountEntry_Match';
225:
279: x_msg_count => x_msg_count,
280: x_msg_data => x_msg_data,
281: x_return_status => x_return_status,
282: x_errorcode => x_errorcode,
283: p_cycle_count_header_id => MTL_CCEOI_VAR_PVT.G_CC_HEADER_ID,
284: p_cycle_count_entry_id => x_iface_rec.cycle_count_entry_id,
285: p_count_list_sequence => x_iface_rec.count_list_sequence,
286: p_organization_id =>
287: MTL_CCEOI_VAR_PVT.G_CYCLE_COUNT_HEADER_REC.organization_id);
283: p_cycle_count_header_id => MTL_CCEOI_VAR_PVT.G_CC_HEADER_ID,
284: p_cycle_count_entry_id => x_iface_rec.cycle_count_entry_id,
285: p_count_list_sequence => x_iface_rec.count_list_sequence,
286: p_organization_id =>
287: MTL_CCEOI_VAR_PVT.G_CYCLE_COUNT_HEADER_REC.organization_id);
288:
289: if (x_return_status <> fnd_api.g_ret_sts_success) then
290: raise fnd_api.g_exc_error;
291: end if;
299:
300: -- if we're here that means we have found a corresponding entry
301: -- in the cycle count
302: x_iface_rec.cycle_count_entry_id :=
303: mtl_cceoi_var_pvt.g_cycle_count_entry_rec.cycle_count_entry_id;
304: end if;
305:
306: for c_rec in l_mcce_csr(x_iface_rec.cycle_count_entry_id) loop
307:
327: -- TODO: print warning about deriving stuff
328:
329: derive_CCE_Info(x_iface_rec => x_iface_rec, p_cce_rec => c_rec);
330:
331: if (x_iface_rec.action_code <> mtl_cceoi_var_pvt.g_valsim) then
332: IF (l_debug = 1) THEN
333: mdebug('Exporting: ' || to_char(x_iface_rec.cycle_count_entry_id));
334: END IF;
335: mtl_cceoi_process_pvt.Set_CCExport(
418: x_return_status OUT NOCOPY VARCHAR2 ,
419: x_errorcode OUT NOCOPY NUMBER,
420: x_msg_count OUT NOCOPY NUMBER ,
421: x_msg_data OUT NOCOPY VARCHAR2 ,
422: x_iface_rec IN OUT NOCOPY MTL_CCEOI_VAR_PVT.INV_CCEOI_TYPE)
423: IS
424: -- Start OF comments
425: -- API name : Initial_Insert
426: -- TYPE : Private
501: END IF;
502: -- if record is in the interface already
503: for c_rec in l_mcei_csr(x_iface_rec.cc_entry_interface_id) loop
504:
505: MTL_CCEOI_VAR_PVT.G_CC_ENTRY_INTERFACE_ID :=
506: x_iface_rec.cc_entry_interface_id;
507:
508: if (c_rec.lock_flag = 1) then
509:
592: x_iface_rec.valid_flag := 2;--c_rec.valid_flag;
593: x_iface_rec.status_flag := c_rec.status_flag;
594: x_iface_rec.error_flag := c_rec.error_flag;
595: x_iface_rec.lock_flag := 1;
596: x_iface_rec.cycle_count_header_id := mtl_cceoi_var_pvt.g_cc_header_id;
597:
598: mtl_cceoi_process_pvt.Update_CCIEntry(x_iface_rec,x_return_status);
599:
600: if (x_return_status <> fnd_api.g_ret_sts_success) then
613: SELECT MTL_CC_ENTRIES_INTERFACE_S1.nextval
614: INTO x_iface_rec.cc_entry_interface_id
615: FROM dual;
616:
617: MTL_CCEOI_VAR_PVT.G_CC_ENTRY_INTERFACE_ID :=
618: x_iface_rec.cc_entry_interface_id;
619: MTL_CCEOI_VAR_PVT.G_REC_IN_SYSTEM := FALSE;
620:
621: Enforce_SKU_CountEntry_Match(
615: FROM dual;
616:
617: MTL_CCEOI_VAR_PVT.G_CC_ENTRY_INTERFACE_ID :=
618: x_iface_rec.cc_entry_interface_id;
619: MTL_CCEOI_VAR_PVT.G_REC_IN_SYSTEM := FALSE;
620:
621: Enforce_SKU_CountEntry_Match(
622: p_api_version=>0.9,
623: x_msg_data => x_msg_data,
642: end if;
643:
644: -- mark record to be initially valid, unprocessed, no errors, locked
645: x_iface_rec.valid_flag := 2;
646: -- if header name was supplied then mtl_cceoi_var_pvt.g_cc_header_id
647: -- contains its id, if id was supplied instead of name then
648: -- mtl_cceoi_var_pvt.g_cc_header_id is equal to that
649: -- if no id or header name was supplied then this variable is still
650: -- null
644: -- mark record to be initially valid, unprocessed, no errors, locked
645: x_iface_rec.valid_flag := 2;
646: -- if header name was supplied then mtl_cceoi_var_pvt.g_cc_header_id
647: -- contains its id, if id was supplied instead of name then
648: -- mtl_cceoi_var_pvt.g_cc_header_id is equal to that
649: -- if no id or header name was supplied then this variable is still
650: -- null
651: IF mtl_cceoi_var_pvt.g_cc_header_id IS NOT NULL THEN
652: x_iface_rec.cycle_count_header_id := mtl_cceoi_var_pvt.g_cc_header_id;
647: -- contains its id, if id was supplied instead of name then
648: -- mtl_cceoi_var_pvt.g_cc_header_id is equal to that
649: -- if no id or header name was supplied then this variable is still
650: -- null
651: IF mtl_cceoi_var_pvt.g_cc_header_id IS NOT NULL THEN
652: x_iface_rec.cycle_count_header_id := mtl_cceoi_var_pvt.g_cc_header_id;
653: END IF;
654: x_iface_rec.status_flag := null;
655: x_iface_rec.error_flag := null;
648: -- mtl_cceoi_var_pvt.g_cc_header_id is equal to that
649: -- if no id or header name was supplied then this variable is still
650: -- null
651: IF mtl_cceoi_var_pvt.g_cc_header_id IS NOT NULL THEN
652: x_iface_rec.cycle_count_header_id := mtl_cceoi_var_pvt.g_cc_header_id;
653: END IF;
654: x_iface_rec.status_flag := null;
655: x_iface_rec.error_flag := null;
656: x_iface_rec.lock_flag := 1;
670: end if;
671: end if;
672:
673: --
674: MTL_CCEOI_VAR_PVT.G_REC_IN_SYSTEM := TRUE; -- XXX do not need this anymore
675: --
676: -- END of API body
677: --
678:
733: X_return_status OUT NOCOPY VARCHAR2 ,
734: x_errorcode OUT NOCOPY NUMBER,
735: x_msg_count OUT NOCOPY NUMBER ,
736: x_msg_data OUT NOCOPY VARCHAR2 ,
737: p_interface_rec IN MTL_CCEOI_VAR_PVT.INV_CCEOI_TYPE,
738: x_interface_id OUT NOCOPY NUMBER)
739: IS
740:
741: l_return_status VARCHAR2(1);
775: DECLARE
776: L_api_version CONSTANT NUMBER := 0.9;
777: L_api_name CONSTANT VARCHAR2(30) := 'Import_CountRequest';
778: L_CCEOIId NUMBER;
779: L_interface_rec MTL_CCEOI_VAR_PVT.INV_CCEOI_TYPE;
780: L_id NUMBER;
781: BEGIN
782: -- Standard start of API savepoint
783: SAVEPOINT Import_CountRequest_PUB;
821: END IF;
822: END IF;
823:
824: --Set Cost Group ID Global variable
825: MTL_CCEOI_VAR_PVT.G_COST_GROUP_ID := p_interface_rec.cost_group_id;
826:
827: --Set Cost Group ID Global variable
828: MTL_CCEOI_VAR_PVT.G_COST_GROUP_ID := p_interface_rec.cost_group_id;
829:
824: --Set Cost Group ID Global variable
825: MTL_CCEOI_VAR_PVT.G_COST_GROUP_ID := p_interface_rec.cost_group_id;
826:
827: --Set Cost Group ID Global variable
828: MTL_CCEOI_VAR_PVT.G_COST_GROUP_ID := p_interface_rec.cost_group_id;
829:
830: -- check for locks, exports / derive necessary data from cc entry
831: -- so that we do not store junk
832:
863:
864:
865: -- IF (p_interface_rec.process_mode = 1) then -- online mode
866: IF
867: P_interface_rec.action_code = MTL_CCEOI_VAR_PVT.G_VALIDATE THEN
868: MTL_CCEOI_ACTION_PVT.Validate_CountRequest(
869: p_api_version => 0.9
870: , p_init_msg_list => FND_API.G_TRUE
871: , x_return_status => x_return_status
872: , x_msg_count => x_msg_count
873: , x_msg_data => x_msg_data
874: , p_interface_rec => L_interface_rec);
875: ELSIF
876: P_interface_rec.action_code = MTL_CCEOI_VAR_PVT.G_CREATE THEN
877: MTL_CCEOI_ACTION_PVT.Create_CountRequest(
878: p_api_version => 0.9
879: , p_init_msg_list => FND_API.G_TRUE
880: , x_return_status => x_return_status
881: , x_msg_count => x_msg_count
882: , x_msg_data => x_msg_data
883: , p_interface_rec => L_interface_rec);
884: ELSIF
885: P_interface_rec.action_code = MTL_CCEOI_VAR_PVT.G_VALSIM THEN
886: MTL_CCEOI_ACTION_PVT.ValSim_CountRequest(
887: p_api_version => 0.9
888: , p_init_msg_list => FND_API.G_TRUE
889: , x_return_status => x_return_status
890: , x_msg_count => x_msg_count
891: , x_msg_data => x_msg_data
892: , p_interface_rec => L_interface_rec);
893: ELSIF
894: P_interface_rec.action_code = MTL_CCEOI_VAR_PVT.G_PROCESS THEN
895:
896: MTL_CCEOI_ACTION_PVT.Process_CountRequest(
897: p_api_version => 0.9
898: , p_init_msg_list => FND_API.G_TRUE
909:
910: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_UNKNOWN_ACTION_CODE');
911: FND_MSG_PUB.Add;
912:
913: if (MTL_CCEOI_VAR_PVT.G_REC_IN_SYSTEM = FALSE) THEN
914:
915: -- this is a really dangerous call since
916: -- some of the mandatory fields may be null in which case
917: -- insert will raise an exception
921: end if;
922:
923: MTL_CCEOI_PROCESS_PVT.Insert_CCEOIError(
924: p_cc_entry_interface_id =>
925: MTL_CCEOI_VAR_PVT.G_CC_ENTRY_INTERFACE_ID,
926: p_error_column_name => 'ACTION_CODE'
927: , p_error_table_name => 'MTL_CC_ENTRIES_INTERFACE_ID'
928: , p_message_name => 'INV_CCEOI_UNKNOWN_ACTION_CODE');
929:
941: -- If the record exists in database and the record is processed successful
942: -- mark it for deletion, and unexport the record from MCCE
943: -- if necessary
944: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
945: -- if (mtl_cceoi_var_pvt.g_rec_in_system) then
946: -- it is unnecessary to mark it for deletion since
947: -- it will be deleted by purge if status_flag in (0,1)
948: /* MTL_CCEOI_PROCESS_PVT.Set_CCEOIFlags(
949: p_api_version => 0.9
950: , p_init_msg_list => FND_API.G_TRUE
951: , x_return_status => x_return_status
952: , x_msg_count => x_msg_count
953: , x_msg_data => x_msg_data
954: , p_cc_entry_interface_id => MTL_CCEOI_VAR_PVT.G_CC_ENTRY_INTERFACE_ID,
955: --=>L_interface_rec.cc_entry_interface_id,
956: p_flags => '$1$$');
957:
958: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
964: -- need to unexport record if it was exported unless it was in
965: -- simulate mode in which case cce record was not exported
966: -- or validate in which case it should stay exported
967: if ((l_interface_rec.action_code not in
968: (mtl_cceoi_var_pvt.g_valsim, mtl_cceoi_var_pvt.g_validate))
969: AND ( MTL_CCEOI_VAR_PVT.G_CYCLE_COUNT_ENTRY_REC.CYCLE_COUNT_ENTRY_ID is not null )) then
970: -- record must have been exported in order
971: -- to be processed, unless it is just validation
972: -- an of unscheduled entry in which case
965: -- simulate mode in which case cce record was not exported
966: -- or validate in which case it should stay exported
967: if ((l_interface_rec.action_code not in
968: (mtl_cceoi_var_pvt.g_valsim, mtl_cceoi_var_pvt.g_validate))
969: AND ( MTL_CCEOI_VAR_PVT.G_CYCLE_COUNT_ENTRY_REC.CYCLE_COUNT_ENTRY_ID is not null )) then
970: -- record must have been exported in order
971: -- to be processed, unless it is just validation
972: -- an of unscheduled entry in which case
973: -- no cycle count entry id will exist
975: p_api_version => 0.9,
976: x_return_status => x_return_status,
977: x_msg_data => x_msg_data,
978: x_msg_count => x_msg_count,
979: p_cycle_count_entry_id => mtl_cceoi_var_pvt.G_CYCLE_COUNT_ENTRY_REC.CYCLE_COUNT_ENTRY_ID,
980: p_export_flag => null);
981:
982: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
990:
991: -- END IF;
992: --Before unlocking record, updating the item id, locator id
993: -- into the interface table, which are missing
994: IF MTL_CCEOI_VAR_PVT.G_INVENTORY_ITEM_ID is not null and
995: mtl_cceoi_var_pvt.g_cc_entry_interface_id is not null
996: THEN
997: begin
998: update mtl_cc_entries_interface
991: -- END IF;
992: --Before unlocking record, updating the item id, locator id
993: -- into the interface table, which are missing
994: IF MTL_CCEOI_VAR_PVT.G_INVENTORY_ITEM_ID is not null and
995: mtl_cceoi_var_pvt.g_cc_entry_interface_id is not null
996: THEN
997: begin
998: update mtl_cc_entries_interface
999: set inventory_item_id = MTL_CCEOI_VAR_PVT.G_INVENTORY_ITEM_ID,
995: mtl_cceoi_var_pvt.g_cc_entry_interface_id is not null
996: THEN
997: begin
998: update mtl_cc_entries_interface
999: set inventory_item_id = MTL_CCEOI_VAR_PVT.G_INVENTORY_ITEM_ID,
1000: locator_id = MTL_CCEOI_VAR_PVT.G_LOCATOR_ID
1001: where cc_entry_interface_id = mtl_cceoi_var_pvt.g_cc_entry_interface_id
1002: and inventory_item_id is null;
1003: exception
996: THEN
997: begin
998: update mtl_cc_entries_interface
999: set inventory_item_id = MTL_CCEOI_VAR_PVT.G_INVENTORY_ITEM_ID,
1000: locator_id = MTL_CCEOI_VAR_PVT.G_LOCATOR_ID
1001: where cc_entry_interface_id = mtl_cceoi_var_pvt.g_cc_entry_interface_id
1002: and inventory_item_id is null;
1003: exception
1004: when others then null;
997: begin
998: update mtl_cc_entries_interface
999: set inventory_item_id = MTL_CCEOI_VAR_PVT.G_INVENTORY_ITEM_ID,
1000: locator_id = MTL_CCEOI_VAR_PVT.G_LOCATOR_ID
1001: where cc_entry_interface_id = mtl_cceoi_var_pvt.g_cc_entry_interface_id
1002: and inventory_item_id is null;
1003: exception
1004: when others then null;
1005: end;
1016:
1017: -- use a different x_return_status
1018:
1019:
1020: x_interface_id := mtl_cceoi_var_pvt.g_cc_entry_interface_id;
1021: --
1022: -- END of API body
1023: -- Standard check of p_commit
1024: IF FND_API.to_Boolean(p_commit) THEN
1074:
1075: --- temporary adhoc which helps concurrent programs to work properly
1076: --- since the only place where we set this variable is public api
1077: --- function that is not used by concurrent programs
1078: MTL_CCEOI_VAR_PVT.G_REC_IN_SYSTEM := TRUE;
1079:
1080: END;
1081:
1082:
1090: , x_return_status OUT NOCOPY VARCHAR2
1091: , x_errorcode OUT NOCOPY NUMBER
1092: , x_msg_count OUT NOCOPY NUMBER
1093: , x_msg_data OUT NOCOPY VARCHAR2
1094: , p_interface_rec IN MTL_CCEOI_VAR_PVT.INV_CCEOI_TYPE
1095: , x_interface_id_list OUT NOCOPY MTL_CCEOI_VAR_PVT.INV_CCEOI_ID_TABLE_TYPE
1096: )
1097: IS
1098: l_api_version NUMBER := 0.9;
1091: , x_errorcode OUT NOCOPY NUMBER
1092: , x_msg_count OUT NOCOPY NUMBER
1093: , x_msg_data OUT NOCOPY VARCHAR2
1094: , p_interface_rec IN MTL_CCEOI_VAR_PVT.INV_CCEOI_TYPE
1095: , x_interface_id_list OUT NOCOPY MTL_CCEOI_VAR_PVT.INV_CCEOI_ID_TABLE_TYPE
1096: )
1097: IS
1098: l_api_version NUMBER := 0.9;
1099: L_api_name VARCHAR2(30) := 'Process_LPN_CountRequest';
1099: L_api_name VARCHAR2(30) := 'Process_LPN_CountRequest';
1100:
1101: l_lpn WMS_CONTAINER_PUB.LPN;
1102: l_expl_tbl WMS_CONTAINER_PUB.WMS_Container_Tbl_Type;
1103: l_item_rec MTL_CCEOI_VAR_PVT.INV_CCEOI_TYPE := p_interface_rec;
1104: l_temp_int_id NUMBER;
1105: l_counter NUMBER := 0;
1106: l_unsched_allowed NUMBER;
1107: v_index NUMBER;
1221: END IF;
1222:
1223: -- Set global variables for container adjustment and discrepancies
1224: SELECT container_enabled_flag, container_adjustment_option, container_discrepancy_option
1225: INTO MTL_CCEOI_VAR_PVT.G_CONTAINER_ENABLED_FLAG, MTL_CCEOI_VAR_PVT.G_CONTAINER_ADJUSTMENT_OPTION,
1226: MTL_CCEOI_VAR_PVT.G_CONTAINER_DISCREPANCY_OPTION
1227: FROM MTL_CYCLE_COUNT_HEADERS
1228: WHERE cycle_count_header_id = p_interface_rec.cycle_count_header_id;
1229: -- If either flag is null if container enabled flag is enabled (1), set to default.
1222:
1223: -- Set global variables for container adjustment and discrepancies
1224: SELECT container_enabled_flag, container_adjustment_option, container_discrepancy_option
1225: INTO MTL_CCEOI_VAR_PVT.G_CONTAINER_ENABLED_FLAG, MTL_CCEOI_VAR_PVT.G_CONTAINER_ADJUSTMENT_OPTION,
1226: MTL_CCEOI_VAR_PVT.G_CONTAINER_DISCREPANCY_OPTION
1227: FROM MTL_CYCLE_COUNT_HEADERS
1228: WHERE cycle_count_header_id = p_interface_rec.cycle_count_header_id;
1229: -- If either flag is null if container enabled flag is enabled (1), set to default.
1230: IF MTL_CCEOI_VAR_PVT.G_CONTAINER_ENABLED_FLAG = 1 THEN
1226: MTL_CCEOI_VAR_PVT.G_CONTAINER_DISCREPANCY_OPTION
1227: FROM MTL_CYCLE_COUNT_HEADERS
1228: WHERE cycle_count_header_id = p_interface_rec.cycle_count_header_id;
1229: -- If either flag is null if container enabled flag is enabled (1), set to default.
1230: IF MTL_CCEOI_VAR_PVT.G_CONTAINER_ENABLED_FLAG = 1 THEN
1231: MTL_CCEOI_VAR_PVT.G_CONTAINER_ADJUSTMENT_OPTION := NVL(MTL_CCEOI_VAR_PVT.G_CONTAINER_ADJUSTMENT_OPTION, 1);
1232: MTL_CCEOI_VAR_PVT.G_CONTAINER_DISCREPANCY_OPTION := NVL(MTL_CCEOI_VAR_PVT.G_CONTAINER_DISCREPANCY_OPTION, 1);
1233: END IF;
1234:
1227: FROM MTL_CYCLE_COUNT_HEADERS
1228: WHERE cycle_count_header_id = p_interface_rec.cycle_count_header_id;
1229: -- If either flag is null if container enabled flag is enabled (1), set to default.
1230: IF MTL_CCEOI_VAR_PVT.G_CONTAINER_ENABLED_FLAG = 1 THEN
1231: MTL_CCEOI_VAR_PVT.G_CONTAINER_ADJUSTMENT_OPTION := NVL(MTL_CCEOI_VAR_PVT.G_CONTAINER_ADJUSTMENT_OPTION, 1);
1232: MTL_CCEOI_VAR_PVT.G_CONTAINER_DISCREPANCY_OPTION := NVL(MTL_CCEOI_VAR_PVT.G_CONTAINER_DISCREPANCY_OPTION, 1);
1233: END IF;
1234:
1235: --Check id interface record is an item or LPN
1228: WHERE cycle_count_header_id = p_interface_rec.cycle_count_header_id;
1229: -- If either flag is null if container enabled flag is enabled (1), set to default.
1230: IF MTL_CCEOI_VAR_PVT.G_CONTAINER_ENABLED_FLAG = 1 THEN
1231: MTL_CCEOI_VAR_PVT.G_CONTAINER_ADJUSTMENT_OPTION := NVL(MTL_CCEOI_VAR_PVT.G_CONTAINER_ADJUSTMENT_OPTION, 1);
1232: MTL_CCEOI_VAR_PVT.G_CONTAINER_DISCREPANCY_OPTION := NVL(MTL_CCEOI_VAR_PVT.G_CONTAINER_DISCREPANCY_OPTION, 1);
1233: END IF;
1234:
1235: --Check id interface record is an item or LPN
1236: IF (l_item_rec.inventory_item_id IS NOT NULL) THEN -- record is not a container
1376: -- END INVCONV
1377: l_item_rec.cost_group_id := l_expl_tbl(v_index).cost_group_id;
1378:
1379: -- Assign count quantity to global variable
1380: MTL_CCEOI_VAR_PVT.G_LPN_ITEM_SYSTEM_QTY := l_expl_tbl(v_index).quantity;
1381: MTL_CCEOI_VAR_PVT.G_LPN_ITEM_SEC_SYSTEM_QTY := l_expl_tbl(v_index).sec_quantity; -- INVCONV
1382:
1383: -- Assign parent_lpn_id to global variable
1384: MTL_CCEOI_VAR_PVT.G_LPN_ID := l_expl_tbl(v_index).parent_lpn_id;
1377: l_item_rec.cost_group_id := l_expl_tbl(v_index).cost_group_id;
1378:
1379: -- Assign count quantity to global variable
1380: MTL_CCEOI_VAR_PVT.G_LPN_ITEM_SYSTEM_QTY := l_expl_tbl(v_index).quantity;
1381: MTL_CCEOI_VAR_PVT.G_LPN_ITEM_SEC_SYSTEM_QTY := l_expl_tbl(v_index).sec_quantity; -- INVCONV
1382:
1383: -- Assign parent_lpn_id to global variable
1384: MTL_CCEOI_VAR_PVT.G_LPN_ID := l_expl_tbl(v_index).parent_lpn_id;
1385:
1380: MTL_CCEOI_VAR_PVT.G_LPN_ITEM_SYSTEM_QTY := l_expl_tbl(v_index).quantity;
1381: MTL_CCEOI_VAR_PVT.G_LPN_ITEM_SEC_SYSTEM_QTY := l_expl_tbl(v_index).sec_quantity; -- INVCONV
1382:
1383: -- Assign parent_lpn_id to global variable
1384: MTL_CCEOI_VAR_PVT.G_LPN_ID := l_expl_tbl(v_index).parent_lpn_id;
1385:
1386: Import_CountRequest(
1387: p_api_version => 0.9,
1388: p_init_msg_list => FND_API.G_TRUE,
1410: v_index := l_expl_tbl.NEXT(v_index);
1411: END LOOP;
1412:
1413: -- If discrepancy existed in lpn and no approval needed, then do a subinventory trasfer
1414: IF (l_lpn_discrepancy = 1 AND MTL_CCEOI_VAR_PVT.G_CONTAINER_ENABLED_FLAG = 1
1415: AND MTL_CCEOI_VAR_PVT.G_CONTAINER_ADJUSTMENT_OPTION = 1
1416: AND MTL_CCEOI_VAR_PVT.G_CONTAINER_DISCREPANCY_OPTION = 1 )THEN
1417: IF (l_debug = 1) THEN
1418: mdebug('lpn subinventory move in progress');
1411: END LOOP;
1412:
1413: -- If discrepancy existed in lpn and no approval needed, then do a subinventory trasfer
1414: IF (l_lpn_discrepancy = 1 AND MTL_CCEOI_VAR_PVT.G_CONTAINER_ENABLED_FLAG = 1
1415: AND MTL_CCEOI_VAR_PVT.G_CONTAINER_ADJUSTMENT_OPTION = 1
1416: AND MTL_CCEOI_VAR_PVT.G_CONTAINER_DISCREPANCY_OPTION = 1 )THEN
1417: IF (l_debug = 1) THEN
1418: mdebug('lpn subinventory move in progress');
1419: END IF;
1412:
1413: -- If discrepancy existed in lpn and no approval needed, then do a subinventory trasfer
1414: IF (l_lpn_discrepancy = 1 AND MTL_CCEOI_VAR_PVT.G_CONTAINER_ENABLED_FLAG = 1
1415: AND MTL_CCEOI_VAR_PVT.G_CONTAINER_ADJUSTMENT_OPTION = 1
1416: AND MTL_CCEOI_VAR_PVT.G_CONTAINER_DISCREPANCY_OPTION = 1 )THEN
1417: IF (l_debug = 1) THEN
1418: mdebug('lpn subinventory move in progress');
1419: END IF;
1420:
1431: , sub => l_sub
1432: , PUOMQty=> 1
1433: , TxnQty=> 1
1434: , TxnUOM=> null
1435: , TxnDate => MTL_CCEOI_VAR_PVT.G_count_date
1436: , TxnAcctId => MTL_CCEOI_VAR_PVT.G_ADJUST_ACCOUNT_ID
1437: , LotNum => NULL
1438: , LotExpDate => NULL
1439: , rev => NULL
1432: , PUOMQty=> 1
1433: , TxnQty=> 1
1434: , TxnUOM=> null
1435: , TxnDate => MTL_CCEOI_VAR_PVT.G_count_date
1436: , TxnAcctId => MTL_CCEOI_VAR_PVT.G_ADJUST_ACCOUNT_ID
1437: , LotNum => NULL
1438: , LotExpDate => NULL
1439: , rev => NULL
1440: , locator_id => l_loc_id
1439: , rev => NULL
1440: , locator_id => l_loc_id
1441: , TxnRef=> p_interface_rec.reference
1442: , ReasonId=> p_interface_rec.transaction_reason_id
1443: , UserId=> MTL_CCEOI_VAR_PVT.G_userid
1444: , cc_entry_id=> p_interface_rec.cycle_count_header_id
1445: , LoginId => MTL_CCEOI_VAR_PVT.G_LoginId
1446: , TxnProcMode => 1
1447: , TxnHeaderId=>L_txn_header_id
1441: , TxnRef=> p_interface_rec.reference
1442: , ReasonId=> p_interface_rec.transaction_reason_id
1443: , UserId=> MTL_CCEOI_VAR_PVT.G_userid
1444: , cc_entry_id=> p_interface_rec.cycle_count_header_id
1445: , LoginId => MTL_CCEOI_VAR_PVT.G_LoginId
1446: , TxnProcMode => 1
1447: , TxnHeaderId=>L_txn_header_id
1448: , SerialNum=> NULL
1449: , TxnTempId=> NULL