DBA Data[Home] [Help]

APPS.ECO_ERROR_HANDLER dependencies on BOM_RTG_GLOBALS

Line 820: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Setting sub operation resources records to ' || p_other_status); END IF ;

816: IS
817: l_idx NUMBER;
818: BEGIN
819:
820: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Setting sub operation resources records to ' || p_other_status); END IF ;
821:
822: IF p_error_scope = G_SCOPE_ALL
823: THEN
824: FOR l_idx IN 1..g_rev_sub_resource_tbl.COUNT

Line 843: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Children in Sub Op Resource'); END IF;

839: ELSIF p_error_scope = G_SCOPE_CHILDREN AND
840: p_ri_idx <> 0
841: THEN
842:
843: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Children in Sub Op Resource'); END IF;
844: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item index <> 0'); END IF;
845:
846: FOR l_idx IN 1..g_rev_sub_resource_tbl.COUNT
847: LOOP

Line 844: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item index <> 0'); END IF;

840: p_ri_idx <> 0
841: THEN
842:
843: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Children in Sub Op Resource'); END IF;
844: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item index <> 0'); END IF;
845:
846: FOR l_idx IN 1..g_rev_sub_resource_tbl.COUNT
847: LOOP
848: IF NVL(g_rev_sub_resource_tbl(l_idx).revised_item_name, ' ') =

Line 881: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Children in Sub Op Resources'); END IF;

877: ELSIF p_error_scope = G_SCOPE_CHILDREN AND
878: p_op_idx <> 0
879: THEN
880:
881: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Children in Sub Op Resources'); END IF;
882: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Operation Sequence index <> 0'); END IF;
883:
884: FOR l_idx IN 1..g_rev_sub_resource_tbl.COUNT
885: LOOP

Line 882: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Operation Sequence index <> 0'); END IF;

878: p_op_idx <> 0
879: THEN
880:
881: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Children in Sub Op Resources'); END IF;
882: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Operation Sequence index <> 0'); END IF;
883:
884: FOR l_idx IN 1..g_rev_sub_resource_tbl.COUNT
885: LOOP
886: IF NVL(g_rev_sub_resource_tbl(l_idx).operation_sequence_number, 0 ) =

Line 917: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope = Siblings in Sub Op Resources'); END IF;

913:
914: ELSIF p_error_scope = G_SCOPE_SIBLINGS AND p_res_idx <> 0
915: THEN
916:
917: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope = Siblings in Sub Op Resources'); END IF;
918: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Operation Resource Index <> 0'); END IF ;
919:
920: FOR l_idx IN 1..g_rev_sub_resource_tbl.COUNT
921: LOOP

Line 918: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Operation Resource Index <> 0'); END IF ;

914: ELSIF p_error_scope = G_SCOPE_SIBLINGS AND p_res_idx <> 0
915: THEN
916:
917: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope = Siblings in Sub Op Resources'); END IF;
918: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Operation Resource Index <> 0'); END IF ;
919:
920: FOR l_idx IN 1..g_rev_sub_resource_tbl.COUNT
921: LOOP
922: IF NVL(g_rev_sub_resource_tbl(l_idx).operation_sequence_number, 0) =

Line 970: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Siblings in Sub Op Resources'); END IF;

966: -- Match the operation key information at the entity index
967: -- location with rest of the records, all those that are found
968: -- will be siblings and should get an error.
969: --
970: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Siblings in Sub Op Resources'); END IF;
971: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('All entity indexes = 0'); END IF;
972:
973: FOR l_idx IN (p_entity_index+1)..g_rev_sub_resource_tbl.COUNT
974: LOOP

Line 971: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('All entity indexes = 0'); END IF;

967: -- location with rest of the records, all those that are found
968: -- will be siblings and should get an error.
969: --
970: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Siblings in Sub Op Resources'); END IF;
971: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('All entity indexes = 0'); END IF;
972:
973: FOR l_idx IN (p_entity_index+1)..g_rev_sub_resource_tbl.COUNT
974: LOOP
975: IF NVL(g_rev_sub_resource_tbl(l_idx).operation_sequence_number, 0) =

Line 1037: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Setting Opration Rsource records to ' || p_other_status);

1033: IS
1034: l_idx NUMBER;
1035: BEGIN
1036:
1037: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Setting Opration Rsource records to ' || p_other_status);
1038: END IF;
1039:
1040:
1041: IF p_error_scope = G_SCOPE_ALL

Line 1074: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Children in Operation Resource'); END IF;

1070: ELSIF p_error_scope = G_SCOPE_CHILDREN AND
1071: p_ri_idx <> 0
1072: THEN
1073:
1074: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Children in Operation Resource'); END IF;
1075: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item index <> 0'); END IF;
1076:
1077:
1078: FOR l_idx IN 1..g_rev_op_resource_tbl.COUNT

Line 1075: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item index <> 0'); END IF;

1071: p_ri_idx <> 0
1072: THEN
1073:
1074: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Children in Operation Resource'); END IF;
1075: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item index <> 0'); END IF;
1076:
1077:
1078: FOR l_idx IN 1..g_rev_op_resource_tbl.COUNT
1079: LOOP

Line 1097: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Op Resource at ' || to_char(l_idx) || ' set to status ' || p_other_status);

1093: NVL(g_revised_item_tbl(p_ri_idx).new_revised_item_revision, 'X')
1094: THEN
1095: g_rev_op_resource_tbl(l_idx).return_status := p_other_status;
1096:
1097: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Op Resource at ' || to_char(l_idx) || ' set to status ' || p_other_status);
1098: END IF;
1099:
1100: Error_Handler.Add_Message
1101: ( p_mesg_text => p_other_mesg_text

Line 1113: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Children in Operation Resource'); END IF;

1109: ELSIF p_error_scope = G_SCOPE_CHILDREN AND
1110: p_op_idx <> 0
1111: THEN
1112:
1113: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Children in Operation Resource'); END IF;
1114: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Operation Sequence index <> 0'); END IF;
1115:
1116: FOR l_idx IN 1..g_rev_op_resource_tbl.COUNT
1117: LOOP

Line 1114: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Operation Sequence index <> 0'); END IF;

1110: p_op_idx <> 0
1111: THEN
1112:
1113: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Children in Operation Resource'); END IF;
1114: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Operation Sequence index <> 0'); END IF;
1115:
1116: FOR l_idx IN 1..g_rev_op_resource_tbl.COUNT
1117: LOOP
1118: IF NVL(g_rev_op_resource_tbl(l_idx).operation_sequence_number, 0)=

Line 1158: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Siblings in Operation Resource'); END IF;

1154: -- location with rest of the records, all those that are found
1155: -- will be siblings and should get an error.
1156: --
1157:
1158: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Siblings in Operation Resource'); END IF;
1159: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('All Indexes = 0'); END IF;
1160:
1161: FOR l_idx IN (p_entity_index+1)..g_rev_op_resource_tbl.COUNT
1162: LOOP

Line 1159: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('All Indexes = 0'); END IF;

1155: -- will be siblings and should get an error.
1156: --
1157:
1158: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Siblings in Operation Resource'); END IF;
1159: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('All Indexes = 0'); END IF;
1160:
1161: FOR l_idx IN (p_entity_index+1)..g_rev_op_resource_tbl.COUNT
1162: LOOP
1163: IF NVL(g_rev_op_resource_tbl(l_idx).operation_sequence_number, 0) =

Line 1237: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Setting Revised operation records to '

1233: IS
1234: l_Idx NUMBER;
1235: BEGIN
1236:
1237: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Setting Revised operation records to '
1238: || p_other_status);
1239: END IF;
1240:
1241: IF p_error_scope = G_SCOPE_CHILDREN AND

Line 1245: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Children in Revised Operation'); END IF;

1241: IF p_error_scope = G_SCOPE_CHILDREN AND
1242: p_ri_idx <> 0
1243: THEN
1244:
1245: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Children in Revised Operation'); END IF;
1246: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item index <> 0'); END IF;
1247:
1248: FOR l_idx IN 1..g_rev_operation_tbl.COUNT
1249: LOOP

Line 1246: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item index <> 0'); END IF;

1242: p_ri_idx <> 0
1243: THEN
1244:
1245: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=Children in Revised Operation'); END IF;
1246: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item index <> 0'); END IF;
1247:
1248: FOR l_idx IN 1..g_rev_operation_tbl.COUNT
1249: LOOP
1250: IF NVL(g_rev_operation_tbl(l_Idx).eco_name, ' ') =

Line 1272: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1268: -- matches that of the revised item then
1269: -- error that revised operation too.
1270: --
1271:
1272: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1273: ('Comp. errored at index: '||to_char(l_idx));
1274: END IF;
1275:
1276: g_rev_operation_tbl(l_Idx).return_status := p_other_status;

Line 1343: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Operation at ' || to_char(l_idx) || ' set to status ' ||p_other_status);

1339: -- Set the operation error status
1340: --
1341: g_rev_operation_tbl(l_idx).return_status := p_other_status;
1342:
1343: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Operation at ' || to_char(l_idx) || ' set to status ' ||p_other_status);
1344: END IF;
1345: Error_Handler.Add_Message
1346: ( p_mesg_text => p_other_mesg_text
1347: , p_entity_id => G_RC_LEVEL

Line 1376: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=All in Operation Sequences'); END IF;

1372:
1373: ELSIF p_error_scope = G_SCOPE_ALL
1374: THEN
1375:
1376: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Scope=All in Operation Sequences'); END IF;
1377:
1378: FOR l_idx IN 1..g_rev_operation_tbl.COUNT
1379: LOOP
1380: g_rev_operation_tbl(l_idx).return_status := p_other_status;

Line 2347: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Error Level = Ope ration Resource . . .'); END IF;

2343: --
2344: -- Set operation resource record status at entity_idx
2345: -- This will take care of Scope = RECORD.
2346: --
2347: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Error Level = Ope ration Resource . . .'); END IF;
2348:
2349: g_rev_op_resource_tbl(p_entity_index).return_status := l_error_status;
2350: IF l_error_scope <> G_SCOPE_RECORD
2351: THEN

Line 2373: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Error Level = Sub

2369: THEN
2370: -- Set substitute resource record status at entity_idx
2371: -- This will take care of Scope = RECORD.
2372: --
2373: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Error Level = Sub
2374: stitute Op Resources . . .'); END IF;
2375:
2376: g_rev_sub_resource_tbl(p_entity_index).return_status := l_error_status;
2377: