DBA Data[Home] [Help]

APPS.WIP_BOMROUTINGUTIL_PVT dependencies on WIP_CONSTANTS

Line 40: if (l_logLevel <= wip_constants.trace_logging) then

36: where fad.pk1_value = to_char(wo.operation_sequence_id)
37: and fad.entity_name = 'BOM_OPERATION_SEQUENCES');
38: begin
39: x_returnStatus := fnd_api.g_ret_sts_success;
40: if (l_logLevel <= wip_constants.trace_logging) then
41: l_params(1).paramName := 'p_orgID';
42: l_params(1).paramValue := p_orgID;
43: l_params(2).paramName := 'p_wipEntityID';
44: l_params(2).paramValue := p_wipEntityID;

Line 79: if(l_logLevel <= wip_constants.trace_logging) then

75: and nvl(alternate_routing_designator, '@@@^@@@') = nvl(p_altRouting, '@@@^@@@')
76: and nvl(cfm_routing_flag, 2) = 2;
77: exception
78: when NO_DATA_FOUND then
79: if(l_logLevel <= wip_constants.trace_logging) then
80: wip_logger.exitPoint(p_procName => g_pkgName || '.' || l_procName,
81: p_procReturnStatus => 'true',
82: p_msg => 'this item does not have a routing',
83: x_returnStatus => l_retStatus);

Line 115: if ( l_logLevel <= wip_constants.full_logging ) then

111:
112:
113: l_excludeECO := fnd_profile.value('WIP_RELEASED_REVS');
114:
115: if ( l_logLevel <= wip_constants.full_logging ) then
116: wip_logger.log('exclude ECO is: ' || l_excludeECO, l_retStatus);
117: wip_logger.log('RoutingSeqID is: ' || l_routingSeqID, l_retStatus);
118: end if;
119:

Line 265: if ( l_logLevel <= wip_constants.full_logging ) then

261: and operation_seq_num > wo.operation_seq_num)
262: where wo.wip_entity_id = p_wipEntityID
263: and wo.organization_id = p_orgID;
264:
265: if ( l_logLevel <= wip_constants.full_logging ) then
266: wip_logger.log('begin to load resources', l_retStatus);
267: end if;
268:
269:

Line 394: if ( l_logLevel <= wip_constants.full_logging ) then

390: and eng.routing_sequence_id = l_routingSeqID
391: and ((eng.status_type in (4, 7) and l_excludeECO = 1) or
392: (eng.status_type in (1, 4, 7) and l_excludeECO = 2)))));
393:
394: if ( l_logLevel <= wip_constants.full_logging ) then
395: wip_logger.log('begin to load substitute resources', l_retStatus);
396: end if;
397:
398: select max(resource_seq_num)

Line 510: if ( l_logLevel <= wip_constants.full_logging ) then

506: and wo.operation_sequence_id = bsor.operation_sequence_id
507: and bsor.resource_id = br.resource_id
508: and nvl(bsor.acd_type, 0) <> 3;
509:
510: if ( l_logLevel <= wip_constants.full_logging ) then
511: wip_logger.log('begin to load attachment', l_retStatus);
512: end if;
513:
514:

Line 531: if ( l_logLevel <= wip_constants.full_logging ) then

527: x_request_id => fnd_global.conc_request_id);
528: END LOOP;
529:
530: /* Added for 12.1.1 Skills Validation project.*/
531: if ( l_logLevel <= wip_constants.full_logging ) then
532: wip_logger.log('begin to load competence', l_retStatus);
533: end if;
534:
535: DELETE FROM WIP_OPERATION_COMPETENCIES

Line 565: if (l_logLevel <= wip_constants.trace_logging) then

561: AND WO.ORGANIZATION_ID = BOS.ORGANIZATION_ID
562: AND BOS.OPERATION_SEQUENCE_ID = WO.OPERATION_SEQUENCE_ID
563: AND BOS.LEVEL_ID = 2;
564:
565: if (l_logLevel <= wip_constants.trace_logging) then
566: wip_logger.exitPoint(p_procName => g_pkgName || '.' || l_procName,
567: p_procReturnStatus => x_returnStatus,
568: p_msg => 'success',
569: x_returnStatus => l_retStatus);

Line 573: if(l_logLevel <= wip_constants.trace_logging) then

569: x_returnStatus => l_retStatus);
570: end if;
571: exception
572: when others then
573: if(l_logLevel <= wip_constants.trace_logging) then
574: wip_logger.exitPoint(p_procName => g_pkgName || '.' || l_procName,
575: p_procReturnStatus => x_returnStatus,
576: p_msg => 'unexp error:' || SQLERRM,
577: x_returnStatus => l_retStatus);

Line 635: and wip_supply_type = wip_constants.phantom;

631: where organization_id = p_orgID
632: and wip_entity_id = p_wipEntityID
633: and nvl(repetitive_schedule_id, -1) = nvl(p_repSchedID, -1)
634: and operation_seq_num < 0
635: and wip_supply_type = wip_constants.phantom;
636:
637: begin
638: x_returnStatus := fnd_api.g_ret_sts_success;
639: if (l_logLevel <= wip_constants.trace_logging) then

Line 639: if (l_logLevel <= wip_constants.trace_logging) then

635: and wip_supply_type = wip_constants.phantom;
636:
637: begin
638: x_returnStatus := fnd_api.g_ret_sts_success;
639: if (l_logLevel <= wip_constants.trace_logging) then
640: l_params(1).paramName := 'p_orgID';
641: l_params(1).paramValue := p_orgID;
642: l_params(2).paramName := 'p_wipEntityID';
643: l_params(2).paramValue := p_wipEntityID;

Line 674: l_entityType := wip_constants.discrete;

670: raise fnd_api.g_exc_unexpected_error;
671: end if;
672: end if;
673:
674: l_entityType := wip_constants.discrete;
675: if ( p_repSchedID is not null ) then
676: l_entityType := wip_constants.repetitive;
677: end if;
678:

Line 676: l_entityType := wip_constants.repetitive;

672: end if;
673:
674: l_entityType := wip_constants.discrete;
675: if ( p_repSchedID is not null ) then
676: l_entityType := wip_constants.repetitive;
677: end if;
678:
679: l_mrpFlag := wip_constants.yes;
680: /*If non-standard job, set mrpFlag based on WIP: Enable MRP Net for Non-standard Job Requirements profile value for bug 7719689 (FP of bug 7506349) */

Line 679: l_mrpFlag := wip_constants.yes;

675: if ( p_repSchedID is not null ) then
676: l_entityType := wip_constants.repetitive;
677: end if;
678:
679: l_mrpFlag := wip_constants.yes;
680: /*If non-standard job, set mrpFlag based on WIP: Enable MRP Net for Non-standard Job Requirements profile value for bug 7719689 (FP of bug 7506349) */
681: if ( p_jobType = wip_constants.nonstandard ) then
682: l_mrpFlag := TO_NUMBER(FND_PROFILE.value('WIP_NON_STD_MRP_NET')); /*code changed for bug 7719689 (FP of bug 7506349) */
683: end if;

Line 681: if ( p_jobType = wip_constants.nonstandard ) then

677: end if;
678:
679: l_mrpFlag := wip_constants.yes;
680: /*If non-standard job, set mrpFlag based on WIP: Enable MRP Net for Non-standard Job Requirements profile value for bug 7719689 (FP of bug 7506349) */
681: if ( p_jobType = wip_constants.nonstandard ) then
682: l_mrpFlag := TO_NUMBER(FND_PROFILE.value('WIP_NON_STD_MRP_NET')); /*code changed for bug 7719689 (FP of bug 7506349) */
683: end if;
684:
685: /*

Line 750: if (l_opSeq = 1 AND l_compTbl(l_count).wip_supply_type = WIP_CONSTANTS.OP_PULL) then

746: l_opSeq := l_minOp;
747:
748: /* Fix for bug 8588333: If routing or the specific operation doesn't exists then only
749: Op pull components should become Assy Pull. */
750: if (l_opSeq = 1 AND l_compTbl(l_count).wip_supply_type = WIP_CONSTANTS.OP_PULL) then
751: l_compTbl(l_count).wip_supply_type := WIP_CONSTANTS.ASSY_PULL;
752: end if;
753:
754: end;

Line 751: l_compTbl(l_count).wip_supply_type := WIP_CONSTANTS.ASSY_PULL;

747:
748: /* Fix for bug 8588333: If routing or the specific operation doesn't exists then only
749: Op pull components should become Assy Pull. */
750: if (l_opSeq = 1 AND l_compTbl(l_count).wip_supply_type = WIP_CONSTANTS.OP_PULL) then
751: l_compTbl(l_count).wip_supply_type := WIP_CONSTANTS.ASSY_PULL;
752: end if;
753:
754: end;
755:

Line 765: if(l_primary_item is null AND (l_compTbl(l_count).wip_supply_type = WIP_CONSTANTS.OP_PULL or

761: from wip_discrete_jobs
762: where organization_id = p_orgID
763: and wip_entity_id = p_wipEntityID;
764:
765: if(l_primary_item is null AND (l_compTbl(l_count).wip_supply_type = WIP_CONSTANTS.OP_PULL or
766: l_compTbl(l_count).wip_supply_type = WIP_CONSTANTS.ASSY_PULL)) then
767: l_compTbl(l_count).wip_supply_type := WIP_CONSTANTS.PUSH;
768: end if;
769: /*End for 12355035*/

Line 766: l_compTbl(l_count).wip_supply_type = WIP_CONSTANTS.ASSY_PULL)) then

762: where organization_id = p_orgID
763: and wip_entity_id = p_wipEntityID;
764:
765: if(l_primary_item is null AND (l_compTbl(l_count).wip_supply_type = WIP_CONSTANTS.OP_PULL or
766: l_compTbl(l_count).wip_supply_type = WIP_CONSTANTS.ASSY_PULL)) then
767: l_compTbl(l_count).wip_supply_type := WIP_CONSTANTS.PUSH;
768: end if;
769: /*End for 12355035*/
770:

Line 767: l_compTbl(l_count).wip_supply_type := WIP_CONSTANTS.PUSH;

763: and wip_entity_id = p_wipEntityID;
764:
765: if(l_primary_item is null AND (l_compTbl(l_count).wip_supply_type = WIP_CONSTANTS.OP_PULL or
766: l_compTbl(l_count).wip_supply_type = WIP_CONSTANTS.ASSY_PULL)) then
767: l_compTbl(l_count).wip_supply_type := WIP_CONSTANTS.PUSH;
768: end if;
769: /*End for 12355035*/
770:
771: if( l_compTbl(l_count).basis_type = WIP_CONSTANTS.LOT_BASED_MTL) then

Line 771: if( l_compTbl(l_count).basis_type = WIP_CONSTANTS.LOT_BASED_MTL) then

767: l_compTbl(l_count).wip_supply_type := WIP_CONSTANTS.PUSH;
768: end if;
769: /*End for 12355035*/
770:
771: if( l_compTbl(l_count).basis_type = WIP_CONSTANTS.LOT_BASED_MTL) then
772: l_multipleFactor := 1 ;
773: else
774: l_multipleFactor := p_qty ;
775: end if;

Line 779: if (l_opSeq = 1 AND l_compTbl(l_count).wip_supply_type = WIP_CONSTANTS.OP_PULL) then

775: end if;
776:
777: /* Moved This fix inside exception block of SQL on wip_operations.
778: /* Fix for bug 4703486. If no rtg exists, Op pull components should become Assy Pull
779: if (l_opSeq = 1 AND l_compTbl(l_count).wip_supply_type = WIP_CONSTANTS.OP_PULL) then
780: l_compTbl(l_count).wip_supply_type := WIP_CONSTANTS.ASSY_PULL;
781: end if;
782: */
783:

Line 780: l_compTbl(l_count).wip_supply_type := WIP_CONSTANTS.ASSY_PULL;

776:
777: /* Moved This fix inside exception block of SQL on wip_operations.
778: /* Fix for bug 4703486. If no rtg exists, Op pull components should become Assy Pull
779: if (l_opSeq = 1 AND l_compTbl(l_count).wip_supply_type = WIP_CONSTANTS.OP_PULL) then
780: l_compTbl(l_count).wip_supply_type := WIP_CONSTANTS.ASSY_PULL;
781: end if;
782: */
783:
784:

Line 787: if( l_compTbl(l_count).wip_supply_type = wip_constants.phantom) then

783:
784:
785: /* bug 4688276 - if the same component in op 1 and op 10, for example, we'll try
786: to merge the qties into op 10, as long as their baisis type is the same */
787: if( l_compTbl(l_count).wip_supply_type = wip_constants.phantom) then
788: l_wro_op := -1*l_opSeq;
789: else
790: l_wro_op := l_opSeq;
791: end if;

Line 809: wip_constants.max_displayed_precision) + wro.required_quantity /*Bug 13527184*/

805: or l_compTbl(l_count).basis_type = l_basis ) then
806: update wip_requirement_operations wro
807: set wro.quantity_per_assembly = l_compTbl(l_count).primary_quantity + wro.quantity_per_assembly,/*Bug 13527184*/
808: wro.required_quantity = round( l_compTbl(l_count).primary_quantity*l_multipleFactor/l_compTbl(l_count).component_yield_factor,
809: wip_constants.max_displayed_precision) + wro.required_quantity /*Bug 13527184*/
810: where wro.inventory_item_id = l_compTbl(l_count).inventory_item_id
811: and wro.organization_id = p_orgID
812: and wro.wip_entity_id = p_wipEntityID
813: and wro.operation_seq_num = l_wro_op;

Line 818: wip_constants.max_displayed_precision))

814:
815: update wip_requirement_operations wro
816: /*Fix for bug 7486594*/
817: set wro.component_yield_factor = decode(wro.quantity_per_assembly,0,1,round( wro.quantity_per_assembly * l_multipleFactor / wro.required_quantity,
818: wip_constants.max_displayed_precision))
819: where wro.inventory_item_id = l_compTbl(l_count).inventory_item_id
820: and wro.organization_id = p_orgID
821: and wro.wip_entity_id = p_wipEntityID
822: and wro.operation_seq_num = l_wro_op;

Line 827: if (l_logLevel <= wip_constants.full_logging) then

823: else
824: x_returnStatus := fnd_api.g_ret_sts_error;
825: fnd_message.set_name('WIP', 'WIP_COMP_DUP_OP_ONE');
826: fnd_msg_pub.add;
827: if (l_logLevel <= wip_constants.full_logging) then
828: wip_logger.log(p_msg => 'Item ' || l_compTbl(l_count).inventory_item_id ||
829: ' has duplicates in op 1, failed explosion!',
830: x_returnStatus => x_returnStatus);
831:

Line 870: wip_constants.phantom, -1*l_opSeq, l_opSeq),

866: l_compTbl(l_count).inventory_item_id,
867: p_orgID,
868: p_wipEntityID,
869: decode(l_compTbl(l_count).wip_supply_type,
870: wip_constants.phantom, -1*l_opSeq, l_opSeq),
871: null,
872: sysdate,
873: fnd_global.user_id,
874: sysdate,

Line 885: l_compTbl(l_count).component_yield_factor, wip_constants.max_displayed_precision),/*Bug 13527184*/

881: l_compTbl(l_count).component_sequence_id,
882: l_compTbl(l_count).wip_supply_type,
883: p_jobStartDate,
884: round(l_compTbl(l_count).primary_quantity*l_multipleFactor/
885: l_compTbl(l_count).component_yield_factor, wip_constants.max_displayed_precision),/*Bug 13527184*/
886: /*For Component Yield Enhancement(Bug 4369064)->Always need to consider yield factor*/
887: 0,
888: l_compTbl(l_count).primary_quantity,/*Bug 13527184*/
889: l_compTbl(l_count).component_yield_factor, /*For Component Yield Enhancement(Bug 4369064) */

Line 890: decode(l_compTbl(l_count).basis_type,WIP_CONSTANTS.LOT_BASED_MTL,2,NULL),

886: /*For Component Yield Enhancement(Bug 4369064)->Always need to consider yield factor*/
887: 0,
888: l_compTbl(l_count).primary_quantity,/*Bug 13527184*/
889: l_compTbl(l_count).component_yield_factor, /*For Component Yield Enhancement(Bug 4369064) */
890: decode(l_compTbl(l_count).basis_type,WIP_CONSTANTS.LOT_BASED_MTL,2,NULL),
891: l_compTbl(l_count).supply_subinventory,
892: l_compTbl(l_count).supply_locator_id,
893: decode(l_compTbl(l_count).wip_supply_type, 5, 2,
894: decode(sign(l_compTbl(l_count).primary_quantity), -1, 2, l_mrpFlag)));

Line 902: if ( l_usePhantomRouting = wip_constants.yes ) then

898: l_count := l_compTbl.next(l_count);
899: end loop;
900:
901: l_usePhantomRouting := wip_globals.use_phantom_routings(p_orgID);
902: if ( l_usePhantomRouting = wip_constants.yes ) then
903: for phan in c_phantoms loop
904: wip_explode_phantom_rtgs.explode_resources(
905: p_wip_entity_id => p_wipEntityID,
906: p_sched_id => p_repSchedID,

Line 925: if (l_logLevel <= wip_constants.full_logging) then

921: x_return_status => x_returnStatus,
922: x_msg_data => x_errorMsg );
923:
924: if (x_returnStatus <> fnd_api.g_ret_sts_success) then
925: if (l_logLevel <= wip_constants.full_logging) then
926: wip_logger.log(p_msg => 'Post_Explosion_Cleanup failed for wip_entity_id '||p_wipEntityID,
927: x_returnStatus => x_returnStatus);
928: end if;
929: return;

Line 940: decode(wro.wip_supply_type, wip_constants.assy_pull,

936: department_id,
937: wip_supply_type) =
938: (select nvl(max(wo.first_unit_start_date), wro.date_required),
939: max(department_id),
940: decode(wro.wip_supply_type, wip_constants.assy_pull,
941: decode(nvl(max(wo.count_point_type), 0),
942: wip_constants.no_manual, wip_constants.op_pull,
943: wro.wip_supply_type),
944: wro.wip_supply_type)

Line 942: wip_constants.no_manual, wip_constants.op_pull,

938: (select nvl(max(wo.first_unit_start_date), wro.date_required),
939: max(department_id),
940: decode(wro.wip_supply_type, wip_constants.assy_pull,
941: decode(nvl(max(wo.count_point_type), 0),
942: wip_constants.no_manual, wip_constants.op_pull,
943: wro.wip_supply_type),
944: wro.wip_supply_type)
945: from wip_operations wo
946: where wo.organization_id = wro.organization_id

Line 1033: if (l_logLevel <= wip_constants.trace_logging) then

1029: where wro.wip_entity_id = p_wipEntityID
1030: and nvl(wro.repetitive_schedule_id, -1) = nvl(p_repSchedID, -1)
1031: and wro.organization_id = p_orgID;
1032:
1033: if (l_logLevel <= wip_constants.trace_logging) then
1034: wip_logger.exitPoint(p_procName => g_pkgName || '.' || l_procName,
1035: p_procReturnStatus => x_returnStatus,
1036: p_msg => 'success',
1037: x_returnStatus => l_retStatus);

Line 1041: if (l_logLevel <= wip_constants.trace_logging) then

1037: x_returnStatus => l_retStatus);
1038: end if;
1039: exception
1040: when fnd_api.g_exc_unexpected_error then
1041: if (l_logLevel <= wip_constants.trace_logging) then
1042: wip_logger.exitPoint(p_procName => g_pkgName || '.' || l_procName,
1043: p_procReturnStatus => x_returnStatus,
1044: p_msg => 'failed at exploding requirements',
1045: x_returnStatus => l_retStatus); --discard logging return status

Line 1048: if(l_logLevel <= wip_constants.trace_logging) then

1044: p_msg => 'failed at exploding requirements',
1045: x_returnStatus => l_retStatus); --discard logging return status
1046: end if;
1047: when others then
1048: if(l_logLevel <= wip_constants.trace_logging) then
1049: wip_logger.exitPoint(p_procName => g_pkgName || '.' || l_procName,
1050: p_procReturnStatus => x_returnStatus,
1051: p_msg => 'unexp error:' || SQLERRM,
1052: x_returnStatus => l_retStatus);

Line 1081: if (l_logLevel <= wip_constants.trace_logging) then

1077: l_updateFlag number :=0;/* add for Bug 8413228 (FP of 8392916).*/
1078: begin
1079:
1080: x_returnStatus := fnd_api.g_ret_sts_success;
1081: if (l_logLevel <= wip_constants.trace_logging) then
1082: l_params(1).paramName := 'p_orgID';
1083: l_params(1).paramValue := p_orgID;
1084: l_params(2).paramName := 'p_wipEntityID';
1085: l_params(2).paramValue := p_wipEntityID;

Line 1106: l_jobStatus not in (wip_constants.unreleased,

1102: where organization_id = p_orgID
1103: and wip_entity_id = p_wipEntityID;
1104:
1105: if ( p_qty is null or
1106: l_jobStatus not in (wip_constants.unreleased,
1107: wip_constants.released,
1108: wip_constants.comp_chrg,
1109: wip_constants.hold) ) then
1110: if(l_logLevel <= wip_constants.trace_logging) then

Line 1107: wip_constants.released,

1103: and wip_entity_id = p_wipEntityID;
1104:
1105: if ( p_qty is null or
1106: l_jobStatus not in (wip_constants.unreleased,
1107: wip_constants.released,
1108: wip_constants.comp_chrg,
1109: wip_constants.hold) ) then
1110: if(l_logLevel <= wip_constants.trace_logging) then
1111: wip_logger.exitPoint(p_procName => g_pkgName || '.' || l_procName,

Line 1108: wip_constants.comp_chrg,

1104:
1105: if ( p_qty is null or
1106: l_jobStatus not in (wip_constants.unreleased,
1107: wip_constants.released,
1108: wip_constants.comp_chrg,
1109: wip_constants.hold) ) then
1110: if(l_logLevel <= wip_constants.trace_logging) then
1111: wip_logger.exitPoint(p_procName => g_pkgName || '.' || l_procName,
1112: p_procReturnStatus => x_returnStatus,

Line 1109: wip_constants.hold) ) then

1105: if ( p_qty is null or
1106: l_jobStatus not in (wip_constants.unreleased,
1107: wip_constants.released,
1108: wip_constants.comp_chrg,
1109: wip_constants.hold) ) then
1110: if(l_logLevel <= wip_constants.trace_logging) then
1111: wip_logger.exitPoint(p_procName => g_pkgName || '.' || l_procName,
1112: p_procReturnStatus => x_returnStatus,
1113: p_msg => 'no qty change or job status is not right',

Line 1110: if(l_logLevel <= wip_constants.trace_logging) then

1106: l_jobStatus not in (wip_constants.unreleased,
1107: wip_constants.released,
1108: wip_constants.comp_chrg,
1109: wip_constants.hold) ) then
1110: if(l_logLevel <= wip_constants.trace_logging) then
1111: wip_logger.exitPoint(p_procName => g_pkgName || '.' || l_procName,
1112: p_procReturnStatus => x_returnStatus,
1113: p_msg => 'no qty change or job status is not right',
1114: x_returnStatus => l_retStatus);

Line 1120: if ( l_jobStatus <> wip_constants.unreleased ) then

1116: return;
1117: end if;
1118:
1119:
1120: if ( l_jobStatus <> wip_constants.unreleased ) then
1121: select nvl(min(operation_seq_num), fnd_api.g_miss_num)
1122: into l_minOp
1123: from wip_operations
1124: where organization_id = p_orgID

Line 1137: if(l_logLevel <= wip_constants.trace_logging) then

1133: round(quantity_per_assembly/nvl(component_yield_factor,1) * p_qty, 6))
1134: where organization_id = p_orgID
1135: and wip_entity_id = p_wipEntityID;
1136: /* End of Fix bug 9540544 */
1137: if(l_logLevel <= wip_constants.trace_logging) then
1138: wip_logger.exitPoint(p_procName => g_pkgName || '.' || l_procName,
1139: p_procReturnStatus => x_returnStatus,
1140: p_msg => 'no operation exist',
1141: x_returnStatus => l_retStatus);

Line 1217: if (l_logLevel <= wip_constants.trace_logging) then

1213: round(quantity_per_assembly/nvl(component_yield_factor,1) * p_qty, 6))
1214: where organization_id = p_orgID
1215: and wip_entity_id = p_wipEntityID;
1216:
1217: if (l_logLevel <= wip_constants.trace_logging) then
1218: wip_logger.exitPoint(p_procName => g_pkgName || '.' || l_procName,
1219: p_procReturnStatus => x_returnStatus,
1220: p_msg => 'success',
1221: x_returnStatus => l_retStatus);

Line 1226: if(l_logLevel <= wip_constants.trace_logging) then

1222: end if;
1223:
1224: exception
1225: when others then
1226: if(l_logLevel <= wip_constants.trace_logging) then
1227: wip_logger.exitPoint(p_procName => g_pkgName || '.' || l_procName,
1228: p_procReturnStatus => x_returnStatus,
1229: p_msg => 'unexp error:' || SQLERRM,
1230: x_returnStatus => l_retStatus);