[Home] [Help]
9: that are used in the Package **/
10:
11: l_error_code VARCHAR2(3000);
12: l_error_exp VARCHAR2(3000);
13: l_debug number := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14: l_acctid_validated BOOLEAN := FALSE ; --Bug#4247753. Added this variable
15: --to indicate if 'validate_acctid' has
16: --already been called in 'GETACCTID'
17: g_pkg_name VARCHAR2(80) ;
1533:
1534: BEGIN
1535: IF (l_debug is null)
1536: THEN
1537: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1538: END IF;
1539:
1540: IF (l_debug = 1) THEN
1541: inv_log_util.trace('validate_quantities: Start ', 'INV_TXN_MANAGER_GRP', 9);
1875:
1876:
1877: BEGIN
1878: if (l_debug is null) then
1879: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1880: end if;
1881:
1882:
1883: /*---------------------------------------------------------+
2465: | You cannot issue from a non-tracked sub
2466: | All other transfers are valid
2467: |exp_to_ast_allowed = 1 means that the exp to ast trx are not alowed
2468: +----------------------------------------------------------------------*/
2469: SELECT FND_PROFILE.VALUE('INV:EXPENSE_TO_ASSET_TRANSFER')
2470: INTO l_profile
2471: FROM dual;
2472:
2473: IF SQL%FOUND THEN
3488: user_entered = 2 (user must provide valid exp type)
3489: system derived = 1 (user must NOT provide any value for exp type)
3490: */
3491:
3492: SELECT FND_PROFILE.VALUE('INV_PROJ_MISC_TXN_EXP_TYPE')
3493: INTO l_profile
3494: FROM dual;
3495:
3496: IF SQL%FOUND THEN
4102: BEGIN
4103: g_pkg_name := 'Lot_check';
4104:
4105: if (l_debug is null) then
4106: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4107: end if;
4108: if l_debug = 1 then
4109: mydebug ('In lot check ...' );
4110: mydebug ('p_rowid : ' || p_rowid );
6087: l_count number;
6088:
6089: BEGIN
6090: if ( l_debug is null) then
6091: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6092: end if;
6093:
6094: fnd_flex_key_api.set_session_mode('seed_data');
6095:
6274:
6275: BEGIN
6276:
6277: if (l_debug is null) then
6278: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6279: end if;
6280: IF (l_debug = 1) THEN
6281: inv_log_util.trace('in Validate_lines ....','INV_TXN_MANAGER_GRP', 9);
6282: END IF;
6348: l_loci := -1;
6349: END IF;
6350:
6351: IF (l_debug = 1) THEN
6352: inv_log_util.trace('Before calling fnd_profile.put MFG_ORGANIZATION_ID','INV_TXN_MANAGER_PUB',9);
6353: END IF;
6354:
6355: fnd_profile.put('MFG_ORGANIZATION_ID',l_orgid);
6356:
6351: IF (l_debug = 1) THEN
6352: inv_log_util.trace('Before calling fnd_profile.put MFG_ORGANIZATION_ID','INV_TXN_MANAGER_PUB',9);
6353: END IF;
6354:
6355: fnd_profile.put('MFG_ORGANIZATION_ID',l_orgid);
6356:
6357: /**J-dev check we need to perform a full validation*/
6358: IF (l_debug = 1) THEN
6359: inv_log_util.trace('wip_constants.DMF_PATCHSET_LEVEL'||wip_constants.dmf_patchset_level,'INV_TXN_MANAGER_GRP', 9);
6615: /*For Bug#5044059, added the following code to read the profilele value
6616: 'INV_CREATE_LOC_AT' that indicates whether locators should be created
6617: in autonomous mode or not*/
6618: IF (g_create_loc_at is null) THEN
6619: SELECT Nvl(FND_PROFILE.Value('INV_CREATE_LOC_AT'), 2)
6620: INTO g_create_loc_at
6621: FROM DUAL;
6622: END IF;
6623:
6890: IF (l_srctype in (8, 13)) and (l_acttype = 3) and (l_xorgid is not null) THEN
6891: IF (NOT setorgclientinfo(l_xorgid)) THEN
6892: RAISE fnd_api.g_exc_error;
6893: END IF;
6894: fnd_profile.put('MFG_ORGANIZATION_ID',l_xorgid);
6895: END IF;
6896:
6897: IF (NOT getxlocid(l_xlocid, l_xorgid, l_xsubinv, l_rowid,
6898: l_xlocctrl)) THEN
6930: IF (l_srctype in (8, 13)) and (l_acttype = 3) and (l_xorgid is not null) then
6931: IF (NOT setorgclientinfo(l_orgid)) THEN
6932: RAISE fnd_api.g_exc_error;
6933: END IF;
6934: fnd_profile.put('MFG_ORGANIZATION_ID',l_orgid);
6935: END IF;
6936:
6937: /* get the default locator status */
6938: IF l_wms_installed THEN
8146: -- 1. Process-Discrete Transfers
8147: -- 2. Process-to-Process Orgs transfer across OUs
8148: -- 3. Discrete-to-Discrete Orgs transfer across OUs with IC Invoicing enabled.
8149: --
8150: l_ic_invoicing_enabled := fnd_profile.value('INV_INTERCOMPANY_INVOICE_INTERNAL_ORDER');
8151:
8152: IF (l_process_enabled_flag_from <> l_process_enabled_flag_to) OR
8153: (l_process_enabled_flag_from = 'Y' AND l_process_enabled_flag_to = 'Y' AND
8154: l_from_ou <> l_to_ou) OR
8433: acct_period_id NUMBER; /* period_close_id of current period */
8434:
8435: BEGIN
8436: if ( l_debug is null) then
8437: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
8438: end if;
8439:
8440: acct_period_id := 0; /* default value */
8441:
8493: l_patchset_j NUMBER := 0; /* 0 = No 1 = Yes */
8494:
8495: BEGIN
8496: IF (l_debug is null) then
8497: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
8498: end if;
8499:
8500: --bug 4574806. this will be used in the statements below for final
8501: --completion flag AS a decode
10395: PROCEDURE get_serial_attr_table
10396: IS
10397: l_lot_ser_attr_tbl inv_lot_sel_attr.lot_sel_attributes_tbl_type;
10398: l_debug NUMBER
10399: := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
10400:
10401: BEGIN
10402:
10403: inv_log_util.trace('Before setting all the column names and types' , 'get_serial_attr_table',9);
10682: l_rows_processed INTEGER;
10683: l_line NUMBER;
10684: l_stmt LONG;
10685: l_debug NUMBER
10686: := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
10687: BEGIN
10688:
10689: /*Bug:5408823. Copying the global table which is populated in get_serial_attr_table procedure. */
10690: l_lot_ser_attr_tbl := g_lot_ser_attr_tbl;
11552: l_patchset_j NUMBER := 0; /* 0 = No 1 = Yes */
11553:
11554: BEGIN
11555:
11556: l_debug := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
11557:
11558: IF (l_debug = 1)
11559: THEN
11560: mydebug ('breadcrumb 10', 'tmpinsert2');
13393: ******************************************************************/
13394: PROCEDURE poget(p_prof IN VARCHAR2, x_ret OUT NOCOPY VARCHAR2)
13395: IS
13396: BEGIN
13397: SELECT FND_PROFILE.value(p_prof)
13398: INTO x_ret
13399: FROM dual;
13400: END poget;
13401:
13678: (p_line_rec_type.transaction_source_type_id = 5 AND
13679: p_line_rec_type.wip_entity_type = 10 ));--J-dev verify
13680:
13681: BEGIN
13682: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
13683:
13684: l_header_id := p_header_id;
13685:
13686: IF (l_debug = 1)
14183: IN (inv_globals.G_ACTION_ISSUE, inv_globals.G_ACTION_NEGCOMPRETURN) AND (l_line_rec_type.completion_transaction_id is not null OR l_line_rec_type.move_transaction_id is not null))) THEN
14184: -- It is a backflush transaction. Get the
14185: -- override flag.
14186: l_override_neg_for_backflush :=
14187: fnd_profile.value('INV_OVERRIDE_NEG_FOR_BACKFLUSH');
14188: /*Bug 4764343 Base Bug:4645686. Introducing a new profile
14189: 'INV_OVERRIDE_RSV_FOR_BACKFLUSH' for a specific customer.If set to 'Yes',
14190: backflush transaction can drive inventory negative, even if any reservations
14191: exist for the item*/
14188: /*Bug 4764343 Base Bug:4645686. Introducing a new profile
14189: 'INV_OVERRIDE_RSV_FOR_BACKFLUSH' for a specific customer.If set to 'Yes',
14190: backflush transaction can drive inventory negative, even if any reservations
14191: exist for the item*/
14192: l_override_rsv_for_backflush := NVL(fnd_profile.value('INV_OVERRIDE_RSV_FOR_BACKFLUSH'), 2);
14193: ELSE
14194: l_override_neg_for_backflush := 0;
14195: l_override_rsv_for_backflush := 2;
14196: END IF;
14827: BEGIN
14828:
14829: IF (l_debug is null)
14830: THEN
14831: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
14832: END IF;
14833:
14834: IF (l_debug = 1) THEN
14835: inv_log_util.trace('inside Validate_Additional_Attr' , 'INV_TXN_MANAGER_GRP', 9);