[Home] [Help]
107: l_toOpSeqNum number := null;
108: l_cfmFlag number;
109: l_orgID number;
110:
111: l_params wip_logger.param_tbl_t;
112: l_returnStatus varchar2(1);
113: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
114: l_org_code VARCHAR2(3); --bug 5231366
115:
117: l_params(1).paramName := 'p_txnTempID';
118: l_params(1).paramValue := p_txnTempID;
119: x_returnStatus := fnd_api.g_ret_sts_success;
120: if (l_logLevel <= wip_constants.trace_logging) then
121: wip_logger.entryPoint(p_procName => 'wip_flowResCharge.chargeResourceAndOverhead',
122: p_params => l_params,
123: x_returnStatus => x_returnStatus);
124: if(x_returnStatus <> fnd_api.g_ret_sts_success) then
125: raise fnd_api.g_exc_unexpected_error;
161:
162: chargePhantomResource(p_txnTempID, l_orgID, l_effDate, false, x_returnStatus);
163:
164: if (l_logLevel <= wip_constants.trace_logging) then
165: wip_logger.exitPoint(p_procName => 'wip_flowResCharge.chargeResourceAndOverhead',
166: p_procReturnStatus => x_returnStatus,
167: p_msg => 'No routing, tried to charge phantom',
168: x_returnStatus => l_returnStatus); --discard logging return status
169: end if;
217: -- iterate through that and find all the applicable resources attached to them
218: l_count := l_chargeTbl.first;
219: while ( l_count is not null ) loop
220: if (l_logLevel <= wip_constants.full_logging) then
221: wip_logger.log(p_msg => 'Inserting Resources for op seq/event: ' ||
222: l_chargeTbl(l_count).operation_seq_num,
223: x_returnStatus => l_returnStatus);
224: end if;
225:
404: mmtt.project_id,
405: mmtt.task_id;
406:
407: if (l_logLevel <= wip_constants.full_logging) then
408: wip_logger.log(p_msg => 'Inserting item overheads for op seq/event: ' ||
409: l_chargeTbl(l_count).operation_seq_num,
410: x_returnStatus => l_returnStatus);
411: end if;
412:
499: and wfs.organization_id = mmtt.organization_id
500: and wfs.wip_entity_id = mmtt.transaction_source_id;
501:
502: if (l_logLevel <= wip_constants.full_logging) then
503: wip_logger.log(p_msg => 'Inserting lot overheads for op seq/event: ' ||
504: l_chargeTbl(l_count).operation_seq_num,
505: x_returnStatus => l_returnStatus);
506: end if;
507:
610: -- now charge the phantom routing is applicable
611: chargePhantomResource(p_txnTempID, l_orgID, l_effDate, true, x_returnStatus);
612:
613: if (l_logLevel <= wip_constants.trace_logging) then
614: wip_logger.exitPoint(p_procName => 'wip_flowResCharge.chargeResourceAndOverhead',
615: p_procReturnStatus => x_returnStatus,
616: p_msg => 'Exit resource charge either successfully or failed in charging phantom!',
617: x_returnStatus => l_returnStatus); --discard logging return status
618: end if;
619: exception
620: when others then
621: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
622: if (l_logLevel <= wip_constants.trace_logging) then
623: wip_logger.exitPoint(p_procName => 'wip_flowResCharge.chargeResourceAndOverhead',
624: p_procReturnStatus => x_returnStatus,
625: p_msg => 'unexpected error: ' || SQLERRM,
626: x_returnStatus => l_returnStatus);
627: end if;
696: and mmtt.process_flag = 'Y';
697:
698: l_logLevel number := fnd_log.g_current_runtime_level;
699: l_returnStatus varchar2(1);
700: l_params wip_logger.param_tbl_t;
701:
702: l_compID number;
703: begin
704: x_returnStatus := fnd_api.g_ret_sts_success;
712: else
713: l_params(3).paramValue := 'False';
714: end if;
715: if (l_logLevel <= wip_constants.trace_logging) then
716: wip_logger.entryPoint(p_procName => 'wip_flowResCharge.chargePhantomResource',
717: p_params => l_params,
718: x_returnStatus => x_returnStatus);
719: if(x_returnStatus <> fnd_api.g_ret_sts_success) then
720: raise fnd_api.g_exc_unexpected_error;
725: if ( wip_globals.use_phantom_routings(p_orgID) = WIP_CONSTANTS.YES) then
726: if ( p_hasRouting ) then
727: for phantoms_rec in phantoms_c1 loop
728: if (l_logLevel <= wip_constants.full_logging) then
729: wip_logger.log(p_msg => 'Charging phantom: ' ||
730: phantoms_rec.phantom_item_id || ' at op: ' ||
731: phantoms_rec.operation_seq_num || ' tmp id: ' ||
732: phantoms_rec.transaction_temp_id,
733: x_returnStatus => l_returnStatus);
746: end loop;
747: else -- it doens't have a routing, use the second cursor
748: for phantoms_rec in phantoms_c2 loop
749: if (l_logLevel <= wip_constants.full_logging) then
750: wip_logger.log(p_msg => 'Charging phantom: ' ||
751: phantoms_rec.phantom_item_id || ' at op: ' ||
752: phantoms_rec.operation_seq_num || ' tmp id: ' ||
753: phantoms_rec.transaction_temp_id,
754: x_returnStatus => l_returnStatus);
772: exception
773: when others then
774: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
775: if (l_logLevel <= wip_constants.trace_logging) then
776: wip_logger.exitPoint(p_procName => 'wip_flowResCharge.chargePhantomResource',
777: p_procReturnStatus => x_returnStatus,
778: p_msg => 'unexpected error: ' || SQLERRM,
779: x_returnStatus => l_returnStatus);
780: end if;