[Home] [Help]
1682: IF (l_debug = 'Y') THEN
1683: FND_FILE.PUT_LINE(FND_FILE.LOG,' l_inv_layer_id ' ||l_inv_layer_id);
1684: END IF;
1685: /* Check if a layer need to be created */
1686: l_merge := CSTPACHK.LayerMerge_Hook(
1687: i_txn_id => i_txn_id,
1688: o_err_num => l_err_num,
1689: o_err_code => l_err_code,
1690: o_err_msg => l_err_msg
1694: IF l_debug = 'Y' THEN
1695: l_stmt_num := 15;
1696: fnd_file.put_line(
1697: fnd_file.log,
1698: 'CSTPACHK.layer_hook errors out with '||
1699: 'l_merge ='||l_merge||','||
1700: 'l_err_num = '||l_err_num||','||
1701: 'l_err_code = '||l_err_code||','||
1702: 'l_err_msg = '||l_err_msg
2489: return;
2490: end if;
2491:
2492: l_stmt_num := 10;
2493: l_layer_hook := CSTPACHK.layer_hook(
2494: i_org_id,
2495: i_txn_id,
2496: i_layer_id,
2497: i_cost_method,
2507: IF l_debug = 'Y' THEN
2508: l_stmt_num := 15;
2509: fnd_file.put_line(
2510: fnd_file.log,
2511: 'CSTPACHK.layer_hook errors out with '||
2512: 'l_err_num = '||l_err_num||','||
2513: 'l_err_code = '||l_err_code||','||
2514: 'l_err_msg = '||l_err_msg
2515: );
2925: l_pos_layer_exist NUMBER;
2926: l_layers_hook NUMBER;
2927: l_rtr NUMBER;
2928: l_rtr_txn_id NUMBER;
2929: l_custom_layers CSTPACHK.inv_layer_tbl;
2930: l_layers_list VARCHAR2(2000);
2931: sql_stmt VARCHAR2(2000);
2932: l_inv_layer_rec cst_layer_rec_type;
2933: inv_layer_cursor LayerCurType;
2942: l_required_qty := ABS(i_txn_qty);
2943: l_custom_layer := NVL(i_layer_hook,-1);
2944: l_source_id := NVL(i_src_id,-1);
2945: l_rtr_txn_id := 0;
2946: l_custom_layers := CSTPACHK.inv_layer_tbl();
2947: l_err_num := 0;
2948: l_err_code := '';
2949: l_err_msg := '';
2950: IF l_debug = 'Y' THEN
3076: IF l_debug = 'Y' THEN
3077: fnd_file.put_line(fnd_file.log,'Trying custom layers');
3078: END IF;
3079: l_stmt_num := 50;
3080: CSTPACHK.layers_hook (
3081: i_txn_id => i_txn_id,
3082: i_required_qty => l_required_qty,
3083: i_cost_method => i_cost_method,
3084: o_custom_layers => l_custom_layers,
3086: o_err_code => l_err_code,
3087: o_err_msg => l_err_msg
3088: );
3089: IF l_err_num <> 0 THEN
3090: fnd_file.put_line(fnd_file.log,'Error in calling CSTPACHK.layers_hook');
3091: RAISE process_error;
3092: END IF;
3093: l_layers_hook := 0;
3094: l_layers_list := '(-1';
5868: l_err_code := '';
5869: l_err_msg := '';
5870:
5871: l_stmt_num := 1;
5872: l_hook := CSTPACHK.cost_dist_hook(i_org_id,
5873: i_txn_id,
5874: i_user_id,
5875: i_login_id,
5876: i_req_id,
6055: /*ADDED 'l_cost_grp_id' FOR #BUG8881927*/
6056: if (l_cost is not NULL ) then
6057: -- First post to inventory.
6058: IF (l_cost <> 0) THEN
6059: l_acct := CSTPACHK.get_account_id(i_org_id, i_txn_id,
6060: sign(l_cost), 1,
6061: cost_element, NULL, NULL,
6062: 0, NULL, l_err_num, l_err_code,
6063: l_err_msg,l_cost_grp_id);
6096: -- Second post to adjustment.
6097: if (l_cost <> 0 OR l_var <> 0 OR l_onhand_var <> 0) then
6098: l_cost := -1 * l_cost;
6099: /*ADDED 'l_cost_grp_id' FOR #BUG8881927*/
6100: l_acct := CSTPACHK.get_account_id(i_org_id, i_txn_id,
6101: sign((l_qty_adj * l_cost) - l_var - l_onhand_var), 2,
6102: cost_element, NULL, NULL,
6103: 0, NULL, l_err_num, l_err_code,
6104: l_err_msg,l_cost_grp_id);
6136: end if;
6137: end if;
6138: if (l_onhand_var <> 0) then
6139: /*ADDED 'l_cost_grp_id' FOR #BUG8881927*/
6140: l_acct := CSTPACHK.get_account_id(i_org_id, i_txn_id,
6141: sign(l_onhand_var), 20,
6142: cost_element, NULL, NULL,
6143: 0, NULL, l_err_num, l_err_code,
6144: l_err_msg,l_cost_grp_id);
6182: and organization_id = i_org_id;
6183:
6184: if (l_var <> 0) then
6185: /*ADDED 'l_cost_grp_id' FOR #BUG8881927*/
6186: l_acct := CSTPACHK.get_account_id(i_org_id, i_txn_id,
6187: sign(l_var), 13,
6188: NULL, NULL, NULL,
6189: 0, NULL, l_err_num, l_err_code,
6190: l_err_msg,l_cost_grp_id);