[Home] [Help]
278: END print_debug;
279:
280: PROCEDURE print_form_messages(p_err_msg VARCHAR2) is
281:
282: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
283: begin
284:
285: print_debug(' ' || p_err_msg, l_Debug);
286:
314: customer_class_id in VARCHAR2,
315: carrier_id in number,
316: category_Set_id in number,
317: add_lines in varchar2 default 'N') IS
318: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
319: begin
320:
321: g_add_lines := add_lines;
322:
490: PROCEDURE submit_WP_conc_request(p_wave_header_id in number,
491: p_org_id in number,
492: x_request_id OUT NOCOPY number) IS
493:
494: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
495: begin
496:
497: --Calling the Concurrent Program that does the following
498: --Calls the Dynamic SQL
567: x_return_status VARCHAR2(100);
568: x_msg_data VARCHAR2(500);
569: p_BATCH_ID NUMBER;
570: P_REQUEST_ID NUMBER;
571: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'),
572: 0);
573: p_order_type_id number;
574: p_order_header_id number;
575: p_backorders_flag varchar2(1);
921: p_wave_header_id in number,
922: p_planning_criteria_id in number)
923:
924: is
925: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
926: x_return_status VARCHAR2(10);
927: begin
928:
929: g_request_data := FND_CONC_GLOBAL.Request_Data;
955: RAISE fnd_api.g_exc_unexpected_error;
956: end plan_wave_cp;
957:
958: procedure insert_wave_record(p_wave_header_id in OUT NOCOPY number) is
959: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
960: l_wave_header_id number;
961: begin
962:
963: select WMS_WP_WAVE_HEADERS_S.NEXTVAL into l_wave_header_id from dual;
1180: p_planning_criteria_id in number,
1181: p_request_id OUT NOCOPY number)
1182:
1183: is
1184: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1185: begin
1186:
1187: print_Debug('In Call Plan Wave', l_debug);
1188: p_request_id := FND_REQUEST.SUBMIT_REQUEST(application => 'WMS',
1279: l_planned_load_task NUMBER;
1280: l_planned_temp_load NUMBER;
1281: l_complete_task NUMBER; -- This will be added to planned tasks. It will become zero after assigned to 1st resource, if
1282: -- the work load is shared among 2 or more resources.
1283: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'),
1284: 0);
1285: l_complete_machine number;
1286: l_resource_okay VARCHAR2(1);
1287: l_dept_id number;
1937: l_allocation_method varchar2(1);
1938:
1939: x_labor_time_tbl labor_time_tbl;
1940: c_labor_time_tbl labor_time_tbl;
1941: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'),
1942: 0);
1943: v_destination_subinventory VARCHAR2(30);
1944: v_zone_name varchar2(100);
1945: begin
2302: m3 number := 0;
2303: l_return_status VARCHAR2(1);
2304: l_msg_data VARCHAR2(120);
2305: l_msg_count NUMBER;
2306: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2307: cursor c_crossdock_demand_lines is
2308: select wdd.source_header_number,
2309: wdd.source_line_id,
2310: wdd.customer_id,
2374:
2375: PROCEDURE initialize(p_wave_id NUMBER, p_organization_id NUMBER, x_return_status out nocopy varchar2) IS
2376:
2377:
2378: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2379:
2380: CURSOR fetch_wdd(p_wave_id number) is
2381: select wdd.delivery_detail_id,
2382: wdd.inventory_item_id,
2462: x_mo_header_id OUT NOCOPY NUMBER,
2463: x_request_number OUT NOCOPY NUMBER,
2464: x_return_status out nocopy varchar2) IS
2465:
2466: l_standalone_mode VARCHAR2(1) := nvl(fnd_profile.VALUE('WMS_DEPLOYMENT_MODE'), 'I');
2467: l_line_id NUMBER;
2468: l_result number;
2469: l_requested_quantity number;
2470: l_result2 number;
2480: l_ordered_quantity NUMBER;
2481: l_order_quantity_uom VARCHAR2(1);
2482: l_request_number number;
2483: l_mo_header_id number;
2484: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2485: -- l_count number := 0;
2486: l_tbl_count number;
2487: l_tbl_first number;
2488: l_tbl_last number;
3207:
3208: TYPE rsTblTyp IS TABLE OF mtl_reservations%rowtype INDEX BY binary_integer;
3209:
3210: l_rs_tbl rsTblTyp;
3211: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3212: BEGIN
3213:
3214: IF p_action = 'S' THEN
3215: OPEN c_reservations(p_wave_id);
3714: l_msg_data VARCHAR2(2000);
3715:
3716: l_sub_request BOOLEAN := TRUE;
3717: l_request_id NUMBER;
3718: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3719:
3720: l_phase VARCHAR2(100);
3721: l_status VARCHAR2(100);
3722: l_dev_phase VARCHAR2(100);
3812: l_inventory_item_id number;
3813: l_return_status VARCHAR2(1);
3814: l_row_id ROWID;
3815: done BOOLEAN := FALSE;
3816: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3817:
3818: record_locked_exc EXCEPTION;
3819: PRAGMA EXCEPTION_INIT (record_locked_exc, -54);
3820:
3939: l_msg_data varchar2(1000);
3940: l_conc_ret_status BOOLEAN;
3941: l_error_message VARCHAR2(2000);
3942:
3943: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3944:
3945:
3946: v_inventory_item_id NUMBER;
3947:
4427:
4428: l_msg_data VARCHAR2(1000);
4429: l_retcode NUMBER;
4430:
4431: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4432: begin
4433: print_debug('In init_allocation',l_debug);
4434: x_return_status := FND_API.G_RET_STS_SUCCESS;
4435:
4502: END IF;
4503:
4504: l_tot_worker_records := l_tot_worker_records - l_tot_smc_records;
4505:
4506: l_num_workers := NVL(fnd_profile.value('WSH_PR_NUM_WORKERS'),3);
4507: IF l_num_workers < 2 THEN
4508: l_num_workers := 3;
4509: END IF;
4510:
4552:
4553: l_mode VARCHAR2(4) := null;
4554: l_request_data VARCHAR2(100);
4555: parent_request_id number;
4556: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4557:
4558:
4559: BEGIN
4560:
4657: TYPE wp_rules_tbl IS TABLE OF wp_rules_rec INDEX BY BINARY_INTEGER;
4658:
4659: x_wp_rules_tbl wp_rules_tbl;
4660:
4661: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4662:
4663: l_enable_labor_planning varchar2(1);
4664: v_labor_count number;
4665:
4794: WHERE mmtt2.move_order_header_id=p_mo_header_id
4795: AND (mmtt1.transaction_temp_id=mmtt2.transaction_temp_id OR mmtt1.transaction_temp_id=mmtt2.parent_line_id);
4796:
4797:
4798: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4799: l_tbl_count number;
4800: l_row_count NUMBER := 0;
4801:
4802:
4923: p_wave_id in number,
4924: p_organization_id IN number) IS
4925:
4926: l_mo_header_id number;
4927: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4928: l_phase VARCHAR2(100);
4929: l_status VARCHAR2(100);
4930: l_dev_phase VARCHAR2(100);
4931: l_dev_status VARCHAR2(100);
5213: X_CONSOL_LINES_wave_line_id CONSOL_LINES_wave_line_id;
5214: X_CONSOL_LINES_fill_rate CONSOL_LINES_fill_rate;
5215:
5216: m NUMBER := 0;
5217: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'),
5218: 0);
5219: l_msg_count number;
5220: l_msg_data varchar2(1000);
5221: v_Delivery_Detail_id NUMBER;
6679: p_wave_end_time number,
6680: p_shift_start_time number,
6681: p_shift_end_time number,
6682: p_date_diff number) return number is
6683: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'),
6684: 0);
6685: wst number := p_wave_start_time;
6686: wet number := p_wave_end_time;
6687: sst number := p_shift_start_time;
6771: p_wave_end_time number,
6772: p_shift_start_time number,
6773: p_shift_end_time number,
6774: p_date_diff number) return number is
6775: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'),
6776: 0);
6777: wst number := p_wave_start_time;
6778: wet number := p_wave_end_time;
6779: sst number := p_shift_start_time;
6892: l_instance_count number := 0;
6893: l_available_capacity number := 0;
6894: l_day_diff NUMBER;
6895: l_temp_capacity number := 0;
6896: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'),
6897: 0);
6898:
6899: wst number := round((p_start_date - trunc(p_start_date)) * 24 * 60);
6900: wet number := round((p_target_date - trunc(p_target_date)) * 24 * 60);
7063: l_dept_id number := 0;
7064: l_target_date date;
7065: l_org_id number;
7066: l_24hrs number;
7067: l_debug NUMBER := nvl(fnd_profile.VALUE('INV_DEBUG_TRACE'),
7068: 0);
7069: l_total_capacity NUMBER;
7070: l_LABOR_SETUP_MODE varchar2(1); -- ssk
7071: l_start_date DATE; -- start time changes
7266: p_resource_type NUMBER) RETURN NUMBER IS
7267: i number := j + 1;
7268: l_found NUMBER := 0;
7269: l_next_resource NUMBER := -1;
7270: l_debug NUMBER := nvl(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7271: BEGIN
7272: if p_resource_type = 2 then
7273: while i < x_labor_dtl_tbl.count loop
7274: if x_labor_dtl_tbl(i).source_subinventory = p_source_subinventory AND
7318: p_source_subinventory varchar2,
7319: p_destination_subinventory varchar2,
7320: p_uom varchar2) is
7321:
7322: l_debug NUMBER := nvl(fnd_profile.VALUE('INV_DEBUG_TRACE'),
7323: 0);
7324: l_planned_load number := p_planned_load;
7325: l_planned_tasks number := p_planned_tasks;
7326: l_resource_type number := 1; -- hard coded. should not be changed
7613: x_item_tbl ITEM_TBL;
7614:
7615: L_DEMAND_QTY NUMBER;
7616:
7617: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7618:
7619: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
7620:
7621: v_total_labor_time number := 0;
8124:
8125: is
8126:
8127: l_requested_qty number := p_requested_qty;
8128: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8129: divider number;
8130: begin
8131:
8132: print_debug('Entered ideal pick scenario: '||ideal_labor_plan_tbl.count, l_debug);
8193: jump_Count NUMBER := 0;
8194: m2 NUMBER;
8195: m1 NUMBER;
8196:
8197: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8198: begin
8199:
8200: print_debug('Entered synchronize labor plan tables', l_debug);
8201:
8542: FUNCTION get_conversion_rate(p_item_id IN NUMBER,
8543: p_from_uom_code IN VARCHAR2,
8544: p_to_uom_code IN VARCHAR2) RETURN NUMBER IS
8545: l_conversion_rate NUMBER;
8546: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8547:
8548: BEGIN
8549: IF (p_from_uom_code = p_to_uom_code) THEN
8550: -- No conversion necessary
8587: l_att NUMBER;
8588: l_msg_count number;
8589: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
8590: l_msg_data varchar2(100);
8591: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'),
8592: 0);
8593: begin
8594:
8595: --Find out the total atr for the item
8673: current_conversion_rate NUMBER;
8674: next_conversion_rate NUMBER;
8675: low_picking_order NUMBER;
8676:
8677: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8678: BEGIN
8679:
8680: print_debug('Entered Bulk Labor Record API ', l_debug);
8681:
8878: x_return_status VARCHAR2(100);
8879: x_msg_data VARCHAR2(500);
8880: p_BATCH_ID NUMBER;
8881: P_REQUEST_ID NUMBER;
8882: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8883: l_phase VARCHAR2(100);
8884: l_status VARCHAR2(100);
8885: l_dev_phase VARCHAR2(100);
8886: l_dev_status VARCHAR2(100);
8996: function check_min_equip_Capacity(l_mmtt_tbl in num_t)
8997: return boolean is
8998:
8999: g_newline CONSTANT VARCHAR2(10) := fnd_global.newline;
9000: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),
9001: 0);
9002: g_bulk_fetch_limit NUMBER := 1000;
9003:
9004: g_hash_base NUMBER := 1;
9231:
9232: IS
9233:
9234: l_mmtt_count number;
9235: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'), 0);
9236: begin
9237:
9238: SELECT count(distinct mmtt.transaction_temp_id)
9239: into l_mmtt_count
9276: return boolean
9277:
9278: IS
9279: l_mmtt_count number;
9280: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'), 0);
9281: begin
9282:
9283: SELECT count(distinct mmtt.transaction_temp_id)
9284: into l_mmtt_count
9320: p_organization_id in number,
9321: p_query_name in varchar2,
9322: p_task_release_id in number) is
9323:
9324: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
9325:
9326: CURSOR c_saved_queries(p_query_name VARCHAR2) IS
9327: select field_name,
9328: --ltrim(rtrim(field_value)) field_value,
10955: p_query_type_table IN wms_wave_planning_pvt.query_type_table_type,
10956: x_return_status OUT NOCOPY VARCHAR2,
10957: x_return_message OUT NOCOPY VARCHAR2) IS
10958: i number;
10959: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
10960: BEGIN
10961: print_DEBUG('Inside SET_QUERY_TASKS_PARAMETERS', l_debug);
10962:
10963: print_DEBUG('p_field_name_table.count ' || p_field_name_table.count,
11293:
11294: l_set_of_books_id number;
11295:
11296: G_SOB_CURRENCY varchar2(10);
11297: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
11298:
11299: begin
11300:
11301: --12371804 get currency code once instead of fetching each time inside of loop
11336: p_query_type_table IN wms_wave_planning_pvt.query_type_table_type,
11337: x_return_status OUT NOCOPY VARCHAR2,
11338: x_return_message OUT NOCOPY VARCHAR2) IS
11339: i number;
11340: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
11341: BEGIN
11342: print_DEBUG('Inside SET_ACTION_TASKS_PARAMETERS', l_debug);
11343:
11344: IF p_field_name_table.count <> 0 THEN
11405: END SET_ACTION_TASKS_PARAMETERS;
11406:
11407: PROCEDURE insert_wave_header(x_return_status OUT nocopy VARCHAR2,
11408: p_wave_header_rec in wms_wp_wave_headers_vl%ROWTYPE) is
11409: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
11410: p_WAVE_NAME VARCHAR2(4000);
11411: begin
11412:
11413: -- delete from wms_wp_wave_headers_vl where wave_header_id = p_wave_header_id ;
11597: x_msg_count varchar2(100);
11598: x_msg_data varchar2(100);
11599: p_batch_id number;
11600: P_REQUEST_ID NUMBER;
11601: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
11602: BEGIN
11603:
11604: create_batch_record(x_return_status, p_wave_header_id);
11605:
11700: p_RELEASE_IMMEDIATELY varchar2(1);
11701: p_pick_subinventory varchar2(400);
11702: p_crossdock_criteria_name varchar2(400);
11703: p_append_flag varchar2(1); -- 13361256
11704: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'),
11705: 0);
11706: begin
11707:
11708: select FROM_ORDER_HEADER_ID,
11966: i NUMBER;
11967: j NUMBER;
11968: l_temp_psr psrTyp;
11969: l_cs NUMBER;
11970: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'),
11971: 0);
11972:
11973: BEGIN
11974: print_debug('Fetching pick sequence rule information for the batch',
12096: p_plan_wave in varchar2,
12097: p_request_id OUT NOCOPY number,
12098: p_add_lines in varchar2 default 'N') IS
12099:
12100: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
12101: --x_return_status varchar2(20);
12102: x_msg_count varchar2(100);
12103: x_msg_data varchar2(100);
12104: p_batch_id number;
12243:
12244: procedure get_dynamic_sql(p_wave_header_id in number,
12245: org_id in number,
12246: x_return_status OUT NOCOPY varchar2) is
12247: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
12248: l_organization_id number := org_id;
12249: l_return_status varchar2(30);
12250: l_done_flag varchar2(10);
12251: v_advanced_sql varchar2(4000);
13007: PROCEDURE Init_Cursor(p_organization_id IN NUMBER,
13008: v_advanced_sql in varchar2,
13009: V_WAVE_HEADER_ID in NUMBER,
13010: x_api_status OUT NOCOPY VARCHAR2) IS
13011: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'),
13012: 0);
13013: l_cs NUMBER;
13014: l_strlen NUMBER;
13015: i NUMBER;
13581: -- FND_API.G_RET_STS_ERROR
13582: --
13583: PROCEDURE Get_Lines(x_done_flag OUT NOCOPY VARCHAR2,
13584: x_api_status OUT NOCOPY VARCHAR2) IS
13585: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
13586: BEGIN
13587: print_debug('In Get_Lines', l_debug);
13588: -- handle uninitialized package errors here
13589: /*
13687: x_api_status := FND_API.G_RET_STS_ERROR;
13688: END Get_Lines;
13689:
13690: PROCEDURE Insert_RL_Row(x_api_status OUT NOCOPY VARCHAR2) IS
13691: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
13692: BEGIN
13693: print_debug('Map output columns', l_debug);
13694: DBMS_SQL.Column_Value(v_CursorID, 1, v_source_code);
13695: DBMS_SQL.Column_Value(v_CursorID, 2, v_header_id);
13846: l_att NUMBER;
13847: l_reserved_qty number;
13848:
13849: X_CONSOL_LINES_TBL CONSOL_LINES_TBL;
13850: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'),
13851: 0);
13852: m NUMBER := 0;
13853: l_msg_count number;
13854: l_msg_data varchar2(100);
14061: select wwl.wave_line_id
14062: from wms_wp_wave_lines wwl
14063: where wave_header_id = p_wave_header_id
14064: and nvl(remove_from_wave_flag, 'N') <> 'Y'; --11775489 added filter
14065: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14066:
14067: begin
14068: x_return_status := fnd_api.g_ret_sts_success;
14069: for l_line in c_lines loop
14091: where source_header_id = p_source_header_id;
14092:
14093: v_weight_uom varchar2(20);
14094: total_weight number := 0;
14095: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14096: begin
14097:
14098: SELECT uom_code
14099: into v_weight_uom
14136: where source_header_id = p_source_header_id;
14137:
14138: v_volume_uom varchar2(20);
14139: total_volume number := 0;
14140: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14141: begin
14142:
14143: SELECT uom_code
14144: into v_volume_uom
14195: v_volume_uom varchar2(20);
14196:
14197: total_weight number := 0;
14198: total_volume number := 0;
14199: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14200: begin
14201:
14202: SELECT uom_code
14203: into v_weight_uom
14270:
14271:
14272:
14273:
14274: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14275: begin
14276:
14277: IF(p_batch_id is not NULL) THEN
14278: print_debug('Update Wave Header Status 2: ' || Status ||'the val of batch'||p_batch_id, l_debug);
14323: x_return_msg OUT NOCOPY VARCHAR2,
14324: x_msg_count OUT NOCOPY NUMBER) IS
14325: l_task_id NUMBER;
14326: l_index NUMBER;
14327: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14328:
14329: TYPE status_table_type IS TABLE OF Varchar2(100);
14330:
14331: l_transaction_temp_ids WMS_WAVE_PLANNING_PVT.transaction_temp_table_type;
14803: l_update_date DATE;
14804: l_non_cycle_count_number NUMBER := 0;
14805: l_cycle_count_number NUMBER := 0;
14806: l_children_task_count NUMBER := 0;
14807: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'),
14808: 0);
14809:
14810: CURSOR cur_wwtt IS
14811: SELECT transaction_temp_id,
15169: RETURN 'N';
15170: END getforcesignonflagvalue;
15171:
15172: PROCEDURE set_num_of_child_tasks IS
15173: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
15174: l_progress NUMBER;
15175:
15176: TYPE num_of_child_tasks_type IS TABLE OF wms_wp_tasks_gtmp.num_of_child_tasks%TYPE;
15177: l_num_of_child_tasks_tbl num_of_child_tasks_type;
15267: and wwlv.wave_header_id = wwlv1.wave_header_id;
15268:
15269:
15270: x_return_status varchar2(10);
15271: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
15272:
15273: begin
15274:
15275: savepoint check_completed_status_sp;
15354: and wwh.wave_status in ('Completed', 'Released') -- Adding released status if direct ship is done lines will be in shipped directly
15355: and wwlv.count_lines = wwlv1.count_completed_lines
15356: and wwlv.wave_header_id = wwlv1.wave_header_id;
15357:
15358: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
15359: l_wave_header_tbl num_tab;
15360: i number := 0;
15361: begin
15362: -- Here do Bulk Update Ajith?????
15399: procedure get_pick_fill_rate(x_return_status OUT NOCOPY varchar2)
15400:
15401:
15402: is
15403: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
15404: -- Pick Fill Rate for Backordered / Replenishment Requested Status is 0.
15405: -- We calculate the Pick Fill Rate for Released lines by (sum(completed transaction qty) / requested qty ) *100.
15406:
15407: -- Transaction Qty should be converted to primary uom
15434: is
15435: v_loaded number := 0;
15436: v_total number := 0;
15437: v_status number := 0;
15438: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
15439:
15440: begin
15441: --bug12322720 changed this query to join through move_order_line_id instead of trx_source_line_id
15442: --also modified to join with wdt
15491: l_temp_previous_line_id NUMBER DEFAULT NULL;
15492: l_exception_id NUMBER := -1;
15493: l_previous_order_id NUMBER;
15494: l_previous_line_id NUMBER;
15495: l_debug NUMBER := nvl(fnd_profile.VALUE('INV_DEBUG_TRACE'),
15496: 0);
15497:
15498: l_api_is_implemented BOOLEAN;
15499: l_return_status varchar2(30);
16202:
16203: l_currval NUMBER;
16204: l_msg VARCHAR2(1000);
16205: l_addl_msg VARCHAR2(1000);
16206: l_debug NUMBER := nvl(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
16207: l_null NUMBER := null;
16208:
16209: BEGIN
16210:
16339: l_date DATE := sysdate;
16340: l_previous_delivery NUMBER DEFAULT NULL;
16341: l_previous_trip NUMBER DEFAULT NULL;
16342: l_exception_id NUMBER DEFAULT NULL;
16343: l_debug NUMBER := nvl(fnd_profile.VALUE('INV_DEBUG_TRACE'),
16344: 0);
16345:
16346: -- My information purpose
16347:
16453: l_date DATE := sysdate;
16454: l_previous_delivery NUMBER DEFAULT NULL;
16455: l_previous_trip NUMBER DEFAULT NULL;
16456: l_exception_id NUMBER DEFAULT NULL;
16457: l_debug NUMBER := nvl(fnd_profile.VALUE('INV_DEBUG_TRACE'),
16458: 0);
16459:
16460: BEGIN
16461:
16568: l_addl_msg VARCHAR2(100);
16569:
16570: l_low_min NUMBER := p_low_sev_exception_threshold * 60;
16571: l_high_min NUMBER := p_high_sev_exception_threshold * 60;
16572: l_debug NUMBER := nvl(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
16573:
16574: BEGIN
16575:
16576: print_debug('In actionable_exceptions procedure', l_debug);
16957: c cur_typ;
16958: l_task_id_table wms_wave_planning_pvt.task_id_table_type;
16959: --x_return_status VARCHAR2(1);
16960:
16961: l_debug NUMBER := nvl(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
16962: l_updated_record NUMBER := 0;
16963:
16964: l_msg_data VARCHAR2(120);
16965: l_msg_count NUMBER;
17367: l_where_cptp VARCHAR2(4000);
17368: type cur_typ IS ref CURSOR;
17369: c cur_typ;
17370: l_final_query VARCHAR2(4000) := NULL;
17371: l_debug NUMBER := nvl(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
17372: x_msg_count VARCHAR2(100);
17373: x_msg_data VARCHAR2(100);
17374: p_batch_id NUMBER;
17375: p_request_id NUMBER;
17816:
17817: PROCEDURE update_wave_lines_tbl (p_mo_line_table IN INV_Move_Order_PUB.TROLIN_TBL_TYPE
17818: ,x_return_status OUT NOCOPY VARCHAR2) IS
17819:
17820: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
17821: TYPE num_tab IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
17822: j number := 0; -- 14781148
17823: l_mo_line_table num_tab; --bug 10256506 change db issue where forall cannot reference specific columns of pl/sql table
17824:
17863:
17864: FUNCTION list_mmtt_release
17865: return num_t pipelined
17866: is
17867: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
17868: begin
17869: for i in g_mmtt_table.first..g_mmtt_table.last loop
17870: if g_mmtt_table.exists(i) then
17871: pipe row(g_mmtt_table(i));
19275: --bug 11775489 added
19276: procedure update_line_pick_fill_rate(p_wave_line_id in number)
19277: is
19278: l_pick_fill_rate number;
19279: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
19280: begin
19281: print_debug('Calculating Pick Fill Rate for wave line : ' || p_wave_line_id,
19282: l_debug);
19283: select
19320: is
19321: l_crossdocked varchar2(3):='N';
19322: l_allocated_quantity number;
19323: l_fill_rate number;
19324: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
19325: begin
19326:
19327: --line is in crossdocked status if wdd.released status is 'K' or wdd.move_order_line_id is null
19328: begin
19435: x_wave_header_id OUT NOCOPY NUMBER)
19436:
19437: IS
19438:
19439: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
19440: l_wave_header_id number;
19441: l_request_id number;
19442: BEGIN
19443: select WMS_WP_WAVE_HEADERS_S.NEXTVAL into l_wave_header_id from dual;