[Home] [Help]
39: X_Doc_Type_Po Out NOCOPY Number,
40: X_Doc_Type_Release Out NOCOPY Number,
41: X_Doc_Type_Internal_Req Out NOCOPY Number)
42: IS
43: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
44: Begin
45:
46: X_Ret_Success := FND_API.G_RET_STS_SUCCESS;
47: X_Ret_Error := FND_API.G_RET_STS_ERROR;
81: l_item_name varchar2(200);
82: l_loc_name varchar2(200);
83: l_subinventory varchar2(10);
84:
85: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
86: Begin
87: Select concatenated_segments,organization_code,
88: subinventory_name,locator_id,pull.organization_id
89: into x_item_name,x_org_code,x_subinventory,l_locator_id,
129: Where kanban_plan_id = p_kanban_plan_id;
130:
131: l_return_status Varchar2(1) := FND_API.G_RET_STS_SUCCESS;
132:
133: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
134: Begin
135: If p_kanban_plan_id = INV_kanban_PVT.G_Current_Plan
136: then
137: For pull_sequences in get_pull_sequences
179: --
180: PROCEDURE Validate_Pull_Sequence
181: (p_Pull_Sequence_Rec INV_Kanban_PVT.Pull_sequence_Rec_Type)
182: IS
183: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
184: Begin
185: if p_Pull_Sequence_Rec.Organization_Id is null
186: then
187: FND_MESSAGE.SET_NAME('INV','INV_ORG_REQUIRED');
273: p_Pull_Sequence_Rec INV_Kanban_PVT.Pull_sequence_Rec_Type)
274: IS
275: l_Pull_Sequence_Rec INV_Kanban_PVT.Pull_sequence_Rec_Type;
276: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
277: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
278: Begin
279: FND_MSG_PUB.initialize;
280: l_Pull_Sequence_Rec := INV_PullSequence_PKG.Convert_Miss_To_Null
281: (p_Pull_Sequence_Rec);
332: l_item_name VARCHAR2(30);
333: l_loc_name VARCHAR2(30);
334:
335:
336: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
337: Begin
338: FND_MSG_PUB.initialize;
339: l_Pull_Sequence_Rec := x_Pull_Sequence_Rec;
340: l_Pull_Sequence_Rec.pull_sequence_id := Null;
480: v_generate_cards BOOLEAN := FALSE;
481: l_Pull_sequence_rec INV_Kanban_PVT.Pull_sequence_Rec_Type;
482:
483:
484: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
485:
486: l_operation_tbl INV_Kanban_PVT.operation_tbl_type; --Operation to be performed update/insert
487: l_report_generate_id NUMBER := 0; --Report id for generating cards
488: l_report_print_id NUMBER := 0; --Report id for printing cards
719: l_kanban_card_rec INV_Kanban_PVT.Kanban_Card_Rec_Type;
720: l_return_status Varchar2(1) := FND_API.G_RET_STS_SUCCESS;
721: l_supply_status_from Varchar2(30);
722: l_supply_status_to Varchar2(30);
723: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
724: l_temp NUMBER := NULL;
725: l_update Boolean := TRUE; -- For Bug 3740514
726: Begin
727: FND_MSG_PUB.initialize;
867: l_reference_type_code Number;
868: l_move_order_line_id Number;
869: l_Supply_Status Number;
870:
871: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
872: Begin
873: l_Supply_Status := p_Supply_Status;
874:
875: -- Bug 3032156. The following IF condition has been added to keep the
876: -- supply status to 'Full' while partially transacting the move order.
877: -- The status changes to 'InProcess if 'INV_FILL_PARTIAL_MOVE_KANBAN'
878: -- profile value is set to 'No' and the IF conditions are satisfied.
879:
880: if nvl(fnd_profile.value('INV_FILL_PARTIAL_MOVE_KANBAN'),2) = 2 then
881: -- Bug 2383538 Checking the mtl_txn_request_lines when partially
882: -- transacting the move order to change the supply status to Inprocess
883: Begin
884: select line_id, nvl(quantity,0), nvl(reference_type_code,0)
963:
964: l_msg_data VARCHAR2(255);
965: l_msg_count NUMBER := NULL;
966:
967: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
968: Begin
969:
970: -- Standard Start of API savepoint
971:
1060: p_Document_Header_Id Number)
1061: IS
1062: l_Document_detail_id Number := FND_API.G_MISS_NUM;
1063:
1064: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1065: Begin
1066:
1067: Update_Card_Supply_Status(X_Return_Status => x_Return_Status,
1068: p_kanban_card_Id => p_Kanban_Card_Id,
1103: Return Boolean
1104: Is
1105: l_dummy varchar2(1);
1106:
1107: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1108: BEGIN
1109:
1110: Select 'x'
1111: INTO l_dummy
1153: p_kanban_size number)
1154: Return Number
1155: Is
1156: l_dummy varchar2(1);
1157: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1158: BEGIN
1159: Select 'x'
1160: INTO l_dummy
1161: FROM MTL_KANBAN_CARDS
1243: l_item_name varchar2(100);
1244: l_subinventory varchar2(10);
1245: l_loc_name varchar2(100);
1246:
1247: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1248: BEGIN
1249:
1250: if Valid_Kanban_Cards_exist(p_pull_sequence_id)
1251: then
1275: l_item_name varchar2(100);
1276: l_subinventory varchar2(10);
1277: l_loc_name varchar2(100);
1278:
1279: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1280: BEGIN
1281: if Valid_Kanban_Cards_exist(p_pull_sequence_id)
1282: then
1283: Get_Pull_sequence_Tokens(p_pull_sequence_id,l_org_code,
1308: x_loc_name Out NOCOPY varchar2,
1309: x_kanban_num Out NOCOPY varchar2 )
1310: IS
1311:
1312: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1313: Begin
1314: Select concatenated_segments,organization_code,kanban_card_number
1315: into x_item_name,x_org_code,x_kanban_num
1316: from mtl_system_items_kfv a , mtl_parameters b, mtl_kanban_cards card
1358: x_item_name varchar2(200);
1359: x_loc_name varchar2(200);
1360: x_kanban_num varchar2(30);
1361:
1362: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1363: BEGIN
1364: begin
1365: select subinventory_name, nvl(locator_id,0), inventory_item_id,
1366: organization_id, source_type, supply_status
1451: --
1452: --
1453: PROCEDURE Delete_Kanban_Cards(p_Pull_sequence_id number)
1454: IS
1455: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1456: BEGIN
1457:
1458: INV_KanbanCard_PKG.Delete_Cards_For_Pull_Seq(p_pull_sequence_id);
1459:
1483: l_loc_name varchar2(2000);
1484: l_subinventory varchar2(10);
1485: l_org_code varchar2(3);
1486:
1487: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1488: BEGIN
1489:
1490: FND_MSG_PUB.initialize;
1491: l_kanban_Card_tbl.Delete;
1662: Return Number
1663: Is
1664: l_next_replenish_cycle_Id Number;
1665:
1666: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1667: Begin
1668:
1669: Select MTL_KANBAN_REPLENISH_CYCLE_S.NextVal
1670: Into l_next_replenish_cycle_Id
1700: l_project_id NUMBER :=null;
1701: l_task_id NUMBER := null;
1702: l_project_reference_enabled NUMBER;
1703: l_project_accounting_context VARCHAR2(30);
1704: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1705: begin
1706:
1707: For l_order_count in 1..p_Kanban_Card_Rec_Tbl.Count
1708: Loop
1904: l_org_locator_control_code NUMBER;
1905: l_auto_allocate_flag NUMBER; --Added for 3905884
1906: l_mo_request_number VARCHAR2(30); --Added for 3905884
1907:
1908: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1909: begin
1910:
1911: l_trohdr_rec.created_by := FND_GLOBAL.USER_ID;
1912: l_trohdr_rec.creation_date := sysdate;
2108: Function Launch_MLP(p_group_id IN Number) return BOOLEAN IS
2109:
2110: v_req_id NUMBER;
2111:
2112: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2113: BEGIN
2114:
2115: v_req_id := FND_REQUEST.SUBMIT_REQUEST( 'WIP', 'WICMLP',
2116: NULL, NULL, FALSE,
2153: l_task_id NUMBER := null;
2154: l_project_reference_enabled NUMBER;
2155: l_first_unit_start_date DATE;
2156: l_last_unit_completion_date DATE;
2157: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2158: begin
2159:
2160: For l_order_count in 1..p_Kanban_Card_Rec_Tbl.Count
2161: LOOP
2284: l_task_id NUMBER :=NULL;
2285: l_project_reference_enabled NUMBER;
2286: l_first_unit_start_date DATE;
2287: l_last_unit_completion_date DATE;
2288: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2289: BEGIN
2290:
2291: begin
2292: select MAXIMUM_RATE into line_rate
2487: l_msg_count NUMBER;
2488: l_msg_data VARCHAR2(240);
2489: msg VARCHAR2(2000);
2490:
2491: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2492: BEGIN
2493:
2494: For l_order_count in 1..p_kanban_card_rec_tbl.Count
2495: Loop
2608: l_mode_flag NUMBER := NULL;
2609: l_job_name VARCHAR2(255);
2610: l_first_unit_start_date DATE;
2611: l_last_unit_completion_date DATE;
2612: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2613: -- Following variable is added as a part of bug fix for bug # 3301126
2614: l_scheduling_method NUMBER := 2;
2615:
2616: BEGIN
2615:
2616: BEGIN
2617:
2618: -- Following IF_ELSE block is a part of bug fix for bug # 3301126
2619: IF(to_number(NVL(FND_PROFILE.VALUE('WSM_CREATE_LBJ_COPY_ROUTING'),0)) = 1 ) THEN
2620: l_scheduling_method := 1;
2621: ELSE
2622: l_scheduling_method := 2;
2623: END IF;
2641: ELSE
2642: l_mode_flag := 2;
2643: END IF;
2644:
2645: select FND_Profile.value('WIP_JOB_PREFIX')||wip_job_number_s.nextval
2646: INTO l_job_name
2647: from dual;
2648: --3100874 Outbound Flow Sequencing
2649: --if the need_by_date is passed completion date should be set to the
2794: v_cfm_flag number;
2795: v_priority number;
2796: v_wip_line_id number := NULL;
2797: l_is_lot_control VARCHAR2(1) := NULL;
2798: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2799: BEGIN
2800:
2801: begin
2802: select nvl(repetitive_planning_flag,'N'), nvl(fixed_lead_time,0),
3032: l_Kanban_Card_Rec_Tbl Kanban_Card_Tbl_Type;
3033: p_card_supply_status Number;
3034: revision_profile Number;
3035:
3036: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3037: Begin
3038: mydebug('Inside create_replenishment');
3039:
3040: l_Kanban_Card_Rec_Tbl := p_Kanban_Card_Rec_Tbl;
3152:
3153: /* Bug 971203. Do not check for revision control code.Get the value from the
3154: profile and if the profile is Yes, then get revision */
3155:
3156: revision_profile := fnd_profile.value('INV_PURCHASING_BY_REVISION') ;
3157: if revision_profile = 1 then
3158:
3159: l_sql_stmt_no := 50;
3160:
3348: -- current card if it is in wait status as it will be considered twice.
3349: And Kanban_card_Id <> p_Kanban_Card_Rec.Kanban_card_Id
3350: For Update Of Supply_Status NoWait;
3351:
3352: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3353: Begin
3354:
3355: l_Kanban_Card_tbl.delete;
3356: l_Wait_Kanban_card_Tbl.Delete;
3507: l_pull_seq_id_tbl INV_kanban_PVT.pull_sequence_id_Tbl_Type;
3508: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
3509: l_operation_tbl INV_Kanban_PVT.operation_tbl_type;/*This new local var has been added to
3510: keep in synch with the call to procedure update_pull_sequence_tbl */
3511: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3512: begin
3513:
3514: For pull_seq_rec IN (select pull_sequence_id from MTL_KANBAN_PULL_SEQUENCES
3515: Where Kanban_plan_id = -1 ) LOOP
3555: SELECT kanban_card_id
3556: FROM mtl_kanban_cards
3557: WHERE pull_sequence_id = p_pull_sequence_id ;
3558:
3559: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3560: BEGIN
3561:
3562: for kanban_cards_ids in get_kanban_card_ids
3563: LOOP
3580: x_att OUT NOCOPY NUMBER,
3581: x_err_code OUT NOCOPY NUMBER,
3582: x_err_msg OUT NOCOPY VARCHAR2)
3583: IS
3584: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3585: BEGIN
3586:
3587: wsmputil.return_att_quantity(p_org_id => p_org_id
3588: ,p_item_id => p_item_id
3624: X_ERROR_CODE OUT NOCOPY NUMBER,
3625: X_error_msg OUT NOCOPY VARCHAR2)
3626: IS
3627:
3628: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3629: BEGIN
3630:
3631: wsmputil.get_max_kanban_asmbly_qty
3632: ( P_BILL_SEQ_ID => p_bill_seq_id,
3664: l_lot_control NUMBER := NULL;
3665: l_cfm_flag NUMBER := NULL;
3666: l_assembly_item_id NUMBER := p_inventory_item_id;
3667: l_organization_id NUMBER := p_organization_id;
3668: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3669: BEGIN
3670: --fnd_message.debug('Inside eligible');
3671:
3672: IF wsmpvers.get_osfm_release_version <= '110508' THEN
3736: x_bom_seq_id OUT NOCOPY NUMBER,
3737: x_start_seq_num OUT NOCOPY NUMBER,
3738: X_error_code OUT NOCOPY NUMBER,
3739: X_error_msg OUT NOCOPY VARCHAR2) IS
3740: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3741: BEGIN
3742: wsmputil.GET_KANBAN_REC_GRP_INFO(p_organization_id => p_organization_id,
3743: p_kanban_assembly_id => p_kanban_assembly_id,
3744: p_rtg_rev_date => p_rtg_rev_date,
3936: l_failed_lines NUMBER := 0;
3937: l_return_status VARCHAR2(1);
3938: l_msg_count NUMBER ;
3939: l_msg_data VARCHAR2(2000);
3940: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3941:
3942:
3943: /*Cursor to get mo line informations */
3944: CURSOR mo_lines_cur IS