[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
2488: return;
2489: end if;
2490:
2491: l_stmt_num := 10;
2492: l_layer_hook := CSTPACHK.layer_hook(
2493: i_org_id,
2494: i_txn_id,
2495: i_layer_id,
2496: i_cost_method,
2506: IF l_debug = 'Y' THEN
2507: l_stmt_num := 15;
2508: fnd_file.put_line(
2509: fnd_file.log,
2510: 'CSTPACHK.layer_hook errors out with '||
2511: 'l_err_num = '||l_err_num||','||
2512: 'l_err_code = '||l_err_code||','||
2513: 'l_err_msg = '||l_err_msg
2514: );
2908: l_pos_layer_exist NUMBER;
2909: l_layers_hook NUMBER;
2910: l_rtr NUMBER;
2911: l_rtr_txn_id NUMBER;
2912: l_custom_layers CSTPACHK.inv_layer_tbl;
2913: l_layers_list VARCHAR2(240);
2914: sql_stmt VARCHAR2(360);
2915: l_inv_layer_rec cst_layer_rec_type;
2916: inv_layer_cursor LayerCurType;
2925: l_required_qty := ABS(i_txn_qty);
2926: l_custom_layer := NVL(i_layer_hook,-1);
2927: l_source_id := NVL(i_src_id,-1);
2928: l_rtr_txn_id := 0;
2929: l_custom_layers := CSTPACHK.inv_layer_tbl();
2930: l_err_num := 0;
2931: l_err_code := '';
2932: l_err_msg := '';
2933: IF l_debug = 'Y' THEN
3059: IF l_debug = 'Y' THEN
3060: fnd_file.put_line(fnd_file.log,'Trying custom layers');
3061: END IF;
3062: l_stmt_num := 50;
3063: CSTPACHK.layers_hook (
3064: i_txn_id => i_txn_id,
3065: i_required_qty => l_required_qty,
3066: i_cost_method => i_cost_method,
3067: o_custom_layers => l_custom_layers,
3069: o_err_code => l_err_code,
3070: o_err_msg => l_err_msg
3071: );
3072: IF l_err_num <> 0 THEN
3073: fnd_file.put_line(fnd_file.log,'Error in calling CSTPACHK.layers_hook');
3074: RAISE process_error;
3075: END IF;
3076: l_layers_hook := 0;
3077: l_layers_list := '(-1';
5764: l_err_code := '';
5765: l_err_msg := '';
5766:
5767: l_stmt_num := 1;
5768: l_hook := CSTPACHK.cost_dist_hook(i_org_id,
5769: i_txn_id,
5770: i_user_id,
5771: i_login_id,
5772: i_req_id,
5951:
5952: if (l_cost is not NULL ) then
5953: -- First post to inventory.
5954: IF (l_cost <> 0) THEN
5955: l_acct := CSTPACHK.get_account_id(i_org_id, i_txn_id,
5956: sign(l_cost), 1,
5957: cost_element, NULL, NULL,
5958: 0, NULL, l_err_num, l_err_code,
5959: l_err_msg);
5991: END IF;
5992: -- Second post to adjustment.
5993: if (l_cost <> 0 OR l_var <> 0 OR l_onhand_var <> 0) then
5994: l_cost := -1 * l_cost;
5995: l_acct := CSTPACHK.get_account_id(i_org_id, i_txn_id,
5996: sign((l_qty_adj * l_cost) - l_var - l_onhand_var), 2,
5997: cost_element, NULL, NULL,
5998: 0, NULL, l_err_num, l_err_code,
5999: l_err_msg);
6031: end if;
6032: end if;
6033: if (l_onhand_var <> 0) then
6034:
6035: l_acct := CSTPACHK.get_account_id(i_org_id, i_txn_id,
6036: sign(l_onhand_var), 20,
6037: cost_element, NULL, NULL,
6038: 0, NULL, l_err_num, l_err_code,
6039: l_err_msg);
6077: and organization_id = i_org_id;
6078:
6079: if (l_var <> 0) then
6080:
6081: l_acct := CSTPACHK.get_account_id(i_org_id, i_txn_id,
6082: sign(l_var), 13,
6083: NULL, NULL, NULL,
6084: 0, NULL, l_err_num, l_err_code,
6085: l_err_msg);