[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) ;
1580:
1581: BEGIN
1582: IF (l_debug is null)
1583: THEN
1584: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1585: END IF;
1586:
1587: IF (l_debug = 1) THEN
1588: inv_log_util.trace('validate_quantities: Start ', 'INV_TXN_MANAGER_GRP', 9);
1967:
1968:
1969: BEGIN
1970: if (l_debug is null) then
1971: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1972: end if;
1973:
1974:
1975: /*---------------------------------------------------------+
2593: | You cannot issue from a non-tracked sub
2594: | All other transfers are valid
2595: |exp_to_ast_allowed = 1 means that the exp to ast trx are not alowed
2596: +----------------------------------------------------------------------*/
2597: SELECT FND_PROFILE.VALUE('INV:EXPENSE_TO_ASSET_TRANSFER')
2598: INTO l_profile
2599: FROM dual;
2600:
2601: IF SQL%FOUND THEN
3675: user_entered = 2 (user must provide valid exp type)
3676: system derived = 1 (user must NOT provide any value for exp type)
3677: */
3678:
3679: SELECT FND_PROFILE.VALUE('INV_PROJ_MISC_TXN_EXP_TYPE')
3680: INTO l_profile
3681: FROM dual;
3682:
3683: IF SQL%FOUND THEN
4391: -- INVCONV end fabdi
4392: l_interface_id NUMBER; -- nsinghi bug 5209065
4393: l_status_id number := NULL; -- Material Status Enhancement - Tracking bug: 13519864
4394: l_default_status_id number:= NULL; -- Material Status Enhancement - Tracking bug: 13519864
4395: l_allow_status_entry VARCHAR2(3) := NVL(fnd_profile.VALUE('INV_ALLOW_ONHAND_STATUS_ENTRY'), 'N'); -- Material Status Enhancement - Tracking bug: 13519864
4396: BEGIN
4397: g_pkg_name := 'Lot_check';
4398:
4399: if (l_debug is null) then
4396: BEGIN
4397: g_pkg_name := 'Lot_check';
4398:
4399: if (l_debug is null) then
4400: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4401: end if;
4402: if l_debug = 1 then
4403: mydebug ('In lot check ...' );
4404: mydebug ('p_rowid : ' || p_rowid );
6466: l_count number;
6467:
6468: BEGIN
6469: if ( l_debug is null) then
6470: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6471: end if;
6472:
6473: fnd_flex_key_api.set_session_mode('seed_data');
6474:
6669:
6670: BEGIN
6671:
6672: if (l_debug is null) then
6673: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6674: end if;
6675: IF (l_debug = 1) THEN
6676: inv_log_util.trace('in Validate_lines ....','INV_TXN_MANAGER_GRP', 9);
6677: END IF;
6753: l_loci := -1;
6754: END IF;
6755:
6756: IF (l_debug = 1) THEN
6757: inv_log_util.trace('Before calling fnd_profile.put MFG_ORGANIZATION_ID','INV_TXN_MANAGER_PUB',9);
6758: END IF;
6759:
6760: fnd_profile.put('MFG_ORGANIZATION_ID',l_orgid);
6761:
6756: IF (l_debug = 1) THEN
6757: inv_log_util.trace('Before calling fnd_profile.put MFG_ORGANIZATION_ID','INV_TXN_MANAGER_PUB',9);
6758: END IF;
6759:
6760: fnd_profile.put('MFG_ORGANIZATION_ID',l_orgid);
6761:
6762: /**J-dev check we need to perform a full validation*/
6763: IF (l_debug = 1) THEN
6764: inv_log_util.trace('wip_constants.DMF_PATCHSET_LEVEL'||wip_constants.dmf_patchset_level,'INV_TXN_MANAGER_GRP', 9);
7095: /*For Bug#5044059, added the following code to read the profilele value
7096: 'INV_CREATE_LOC_AT' that indicates whether locators should be created
7097: in autonomous mode or not*/
7098: IF (g_create_loc_at is null) THEN
7099: SELECT Nvl(FND_PROFILE.Value('INV_CREATE_LOC_AT'), 2)
7100: INTO g_create_loc_at
7101: FROM DUAL;
7102: END IF;
7103:
7372: IF (l_srctype in (8, 13)) and (l_acttype = 3) and (l_xorgid is not null) THEN
7373: IF (NOT setorgclientinfo(l_xorgid)) THEN
7374: RAISE fnd_api.g_exc_error;
7375: END IF;
7376: fnd_profile.put('MFG_ORGANIZATION_ID',l_xorgid);
7377: END IF;
7378:
7379: IF (NOT getxlocid(l_xlocid, l_xorgid, l_xsubinv, l_rowid,
7380: l_xlocctrl)) THEN
7460: IF (l_srctype in (8, 13)) and (l_acttype = 3) and (l_xorgid is not null) then
7461: IF (NOT setorgclientinfo(l_orgid)) THEN
7462: RAISE fnd_api.g_exc_error;
7463: END IF;
7464: fnd_profile.put('MFG_ORGANIZATION_ID',l_orgid);
7465: END IF;
7466: END IF;
7467: END IF;
7468: END IF;
7482:
7483: IF (NOT setorgclientinfo(l_xorgid)) THEN
7484: RAISE fnd_api.g_exc_error;
7485: END IF;
7486: fnd_profile.put('MFG_ORGANIZATION_ID',l_xorgid);
7487:
7488: IF (l_debug = 1) THEN
7489: inv_log_util.trace('re-setting org context, after calling setorgclientinfo', 'INV_TXN_MANAGER_GRP',9);
7490: END IF;
7512: END IF;
7513: IF (NOT setorgclientinfo(l_orgid)) THEN
7514: RAISE fnd_api.g_exc_error;
7515: END IF;
7516: fnd_profile.put('MFG_ORGANIZATION_ID',l_orgid);
7517: IF (l_debug = 1) THEN
7518: inv_log_util.trace('For transfer org, after calling setorgclientinfo', 'INV_TXN_MANAGER_GRP',9);
7519: END IF;
7520: END IF;
8643: -- 1. Process-Discrete Transfers
8644: -- 2. Process-to-Process Orgs transfer across OUs
8645: -- 3. Discrete-to-Discrete Orgs transfer across OUs with IC Invoicing enabled.
8646: --
8647: l_ic_invoicing_enabled := fnd_profile.value('INV_INTERCOMPANY_INVOICE_INTERNAL_ORDER');
8648:
8649: IF (l_process_enabled_flag_from <> l_process_enabled_flag_to) OR
8650: (l_process_enabled_flag_from = 'Y' AND l_process_enabled_flag_to = 'Y' AND
8651: l_from_ou <> l_to_ou) OR
9002: acct_period_id NUMBER; /* period_close_id of current period */
9003:
9004: BEGIN
9005: if ( l_debug is null) then
9006: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
9007: end if;
9008:
9009: acct_period_id := 0; /* default value */
9010:
9062: l_patchset_j NUMBER := 0; /* 0 = No 1 = Yes */
9063:
9064: BEGIN
9065: IF (l_debug is null) then
9066: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
9067: end if;
9068:
9069: --bug 4574806. this will be used in the statements below for final
9070: --completion flag AS a decode
10966: PROCEDURE get_serial_attr_table
10967: IS
10968: l_lot_ser_attr_tbl inv_lot_sel_attr.lot_sel_attributes_tbl_type;
10969: l_debug NUMBER
10970: := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
10971:
10972: BEGIN
10973:
10974: inv_log_util.trace('Before setting all the column names and types' , 'get_serial_attr_table',9);
11253: l_rows_processed INTEGER;
11254: l_line NUMBER;
11255: l_stmt LONG;
11256: l_debug NUMBER
11257: := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
11258: BEGIN
11259:
11260: /*Bug:5408823. Copying the global table which is populated in get_serial_attr_table procedure. */
11261: l_lot_ser_attr_tbl := g_lot_ser_attr_tbl;
12123: l_patchset_j NUMBER := 0; /* 0 = No 1 = Yes */
12124:
12125: BEGIN
12126:
12127: l_debug := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
12128:
12129: IF (l_debug = 1)
12130: THEN
12131: mydebug ('breadcrumb 10', 'tmpinsert2');
13964: ******************************************************************/
13965: PROCEDURE poget(p_prof IN VARCHAR2, x_ret OUT NOCOPY VARCHAR2)
13966: IS
13967: BEGIN
13968: SELECT FND_PROFILE.value(p_prof)
13969: INTO x_ret
13970: FROM dual;
13971: END poget;
13972:
14249: (p_line_rec_type.transaction_source_type_id = 5 AND
14250: p_line_rec_type.wip_entity_type = 10 ));--J-dev verify
14251:
14252: BEGIN
14253: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
14254:
14255: l_header_id := p_header_id;
14256:
14257: IF (l_debug = 1)
14764: 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
14765: -- It is a backflush transaction. Get the
14766: -- override flag.
14767: l_override_neg_for_backflush :=
14768: fnd_profile.value('INV_OVERRIDE_NEG_FOR_BACKFLUSH');
14769: /*Bug 4764343 Base Bug:4645686. Introducing a new profile
14770: 'INV_OVERRIDE_RSV_FOR_BACKFLUSH' for a specific customer.If set to 'Yes',
14771: backflush transaction can drive inventory negative, even if any reservations
14772: exist for the item*/
14769: /*Bug 4764343 Base Bug:4645686. Introducing a new profile
14770: 'INV_OVERRIDE_RSV_FOR_BACKFLUSH' for a specific customer.If set to 'Yes',
14771: backflush transaction can drive inventory negative, even if any reservations
14772: exist for the item*/
14773: l_override_rsv_for_backflush := NVL(fnd_profile.value('INV_OVERRIDE_RSV_FOR_BACKFLUSH'), 2);
14774: ELSE
14775: l_override_neg_for_backflush := 0;
14776: l_override_rsv_for_backflush := 2;
14777: END IF;
15424: BEGIN
15425:
15426: IF (l_debug is null)
15427: THEN
15428: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
15429: END IF;
15430:
15431: IF (l_debug = 1) THEN
15432: inv_log_util.trace('inside Validate_Additional_Attr' , 'INV_TXN_MANAGER_GRP', 9);