[Home] [Help]
3: PROCEDURE do_sql(p_sql_stmt IN VARCHAR2) IS
4: cursor_id INTEGER;
5: return_val INTEGER;
6: sql_stmt VARCHAR2(8192);
7: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8: BEGIN
9: -- set sql statement
10: sql_stmt := p_sql_stmt;
11: -- open a cursor
133: FROM mtl_material_transactions_temp
134: WHERE move_order_line_id = v_line_id
135: AND pick_slip_number IS NULL;
136:
137: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
138: BEGIN
139: IF p_org_id IS NULL
140: OR p_move_order_type IS NULL THEN
141: RETURN;
146: IF p_move_order_type NOT IN(1, 2, 99) THEN
147: RETURN;
148: END IF;
149:
150: l_max_batch := TO_NUMBER(fnd_profile.VALUE('INV_PICK_SLIP_BATCH_SIZE'));
151:
152: IF (l_debug = 1) THEN
153: inv_log_util.TRACE('max batch: ' || l_max_batch, 'INV_UTILITIES', 9);
154: END IF;
344: PROCEDURE parse_vector(vector_in IN VARCHAR2, delimiter IN VARCHAR2, table_of_strings OUT NOCOPY vector_tabtype) IS
345: delimiter_index NUMBER;
346: string_in VARCHAR2(32767);
347: counter NUMBER;
348: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
349: BEGIN
350: --parse the input vector of strings
351: --by separating the strings that are delimitted by commas
352: string_in := vector_in;
449: AND a.enabled_flag = 'Y'
450: AND a.display_flag = 'Y'
451: ORDER BY a.segment_num;
452:
453: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
454: BEGIN
455: SELECT id_flex_num
456: INTO v_flex_num
457: FROM fnd_id_flex_structures
475:
476: -- bug 4662395 set the profile mfg_organization_id so
477: -- the call to MTL_PROJECT_V will return data.
478:
479: FND_PROFILE.put('MFG_ORGANIZATION_ID',x_org_id);
480:
481: SELECT DISTINCT project_number
482: INTO v_proj_name
483: FROM mtl_project_v
591: -- cost group ID = 1. For average costed orgs, use the org's
592: -- default cost group ID
593: -- Bug # 2180251: All primary costing methods not equal to 1 should
594: -- also be considered as an average costed org
595: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
596: --Forward port bug7037252 of bugs 6349028 and 6343400
597: --Added DECODE on wms_enabled_flag in the 2nd SELECT stmt.
598: --For WMS enabled average costing org, the org level CG may not be same as the onhand CG because you can have CG rules.
599: l_wms_enabled_flag VARCHAR2(1) := 'N';