49: l_op_network_unexp_rec Bom_Rtg_Pub.op_network_Unexposed_Rec_Type;
50: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
51: l_dummy varchar2(10);
52: BEGIN
53: IF BOM_Rtg_Globals.Get_Debug = 'Y'
54: THEN Error_Handler.Write_Debug('Query row for operation network');
55: END IF;
56:
57: SELECT from_op_seq_id
101: FROM bom_operation_networks
102: WHERE from_op_seq_id = p_from_op_seq_id
103: AND to_op_seq_id = p_to_op_seq_id;
104:
105: x_return_status := BOM_Rtg_Globals.G_RECORD_FOUND;
106: x_op_network_rec := l_op_network_rec;
107: x_op_network_unexp_rec := l_op_network_unexp_rec;
108:
109: EXCEPTION
107: x_op_network_unexp_rec := l_op_network_unexp_rec;
108:
109: EXCEPTION
110: WHEN NO_DATA_FOUND THEN
111: x_return_status := BOM_Rtg_Globals.G_RECORD_NOT_FOUND;
112: x_op_network_rec := l_op_network_rec;
113: x_op_network_unexp_rec := l_op_network_unexp_rec;
114: WHEN OTHERS THEN
115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
138: p_implementation_date DATE;
139:
140: BEGIN
141:
142: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
143: Error_Handler.Write_Debug('Writing Operation networker rec for '
144: || p_op_network_rec.assembly_item_name);
145: END IF;
146:
202: , p_op_network_rec.attribute13
203: , p_op_network_rec.attribute14
204: , p_op_network_rec.attribute15
205: , SYSDATE
206: , BOM_Rtg_Globals.Get_User_Id
207: , SYSDATE
208: , BOM_Rtg_Globals.Get_User_Id
209: , BOM_Rtg_Globals.Get_Login_Id
210: , p_op_network_rec.original_system_reference -- Added by MK 05/01
204: , p_op_network_rec.attribute15
205: , SYSDATE
206: , BOM_Rtg_Globals.Get_User_Id
207: , SYSDATE
208: , BOM_Rtg_Globals.Get_User_Id
209: , BOM_Rtg_Globals.Get_Login_Id
210: , p_op_network_rec.original_system_reference -- Added by MK 05/01
211: , Fnd_Global.Conc_Request_Id
212: , Fnd_Global.Conc_Program_Id
205: , SYSDATE
206: , BOM_Rtg_Globals.Get_User_Id
207: , SYSDATE
208: , BOM_Rtg_Globals.Get_User_Id
209: , BOM_Rtg_Globals.Get_Login_Id
210: , p_op_network_rec.original_system_reference -- Added by MK 05/01
211: , Fnd_Global.Conc_Request_Id
212: , Fnd_Global.Conc_Program_Id
213: , Fnd_Global.Prog_Appl_Id
218: update BOM_OPERATION_SEQUENCES set
219: X_COORDINATE = p_op_network_rec.From_X_Coordinate
220: ,Y_COORDINATE = p_op_network_rec.From_Y_Coordinate
221: , last_update_date = SYSDATE
222: , last_updated_by = BOM_Rtg_Globals.Get_User_Id
223: , last_update_login = BOM_Rtg_Globals.Get_Login_Id
224: , request_id = Fnd_Global.Conc_Request_Id
225: , program_id = Fnd_Global.Conc_Program_Id
226: , program_application_id = Fnd_Global.Prog_Appl_Id
219: X_COORDINATE = p_op_network_rec.From_X_Coordinate
220: ,Y_COORDINATE = p_op_network_rec.From_Y_Coordinate
221: , last_update_date = SYSDATE
222: , last_updated_by = BOM_Rtg_Globals.Get_User_Id
223: , last_update_login = BOM_Rtg_Globals.Get_Login_Id
224: , request_id = Fnd_Global.Conc_Request_Id
225: , program_id = Fnd_Global.Conc_Program_Id
226: , program_application_id = Fnd_Global.Prog_Appl_Id
227: , program_update_date = SYSDATE
231: update BOM_OPERATION_SEQUENCES set
232: X_COORDINATE = p_op_network_rec.To_X_Coordinate
233: ,Y_COORDINATE = p_op_network_rec.To_Y_Coordinate
234: , last_update_date = SYSDATE
235: , last_updated_by = BOM_Rtg_Globals.Get_User_Id
236: , last_update_login = BOM_Rtg_Globals.Get_Login_Id
237: , request_id = Fnd_Global.Conc_Request_Id
238: , program_id = Fnd_Global.Conc_Program_Id
239: , program_application_id = Fnd_Global.Prog_Appl_Id
232: X_COORDINATE = p_op_network_rec.To_X_Coordinate
233: ,Y_COORDINATE = p_op_network_rec.To_Y_Coordinate
234: , last_update_date = SYSDATE
235: , last_updated_by = BOM_Rtg_Globals.Get_User_Id
236: , last_update_login = BOM_Rtg_Globals.Get_Login_Id
237: , request_id = Fnd_Global.Conc_Request_Id
238: , program_id = Fnd_Global.Conc_Program_Id
239: , program_application_id = Fnd_Global.Prog_Appl_Id
240: , program_update_date = SYSDATE
280: -- The fields that are updateable in Operation networker
281: -- are...
282: --
283:
284: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
285: Error_Handler.Write_Debug('Updating operation network ');
286: END IF;
287:
288: UPDATE bom_operation_networks
297: )
298: , planning_pct = p_op_network_rec.planning_percent
299: , transition_type =p_op_network_rec.connection_type
300: , last_update_date = SYSDATE
301: , last_updated_by = BOM_Rtg_Globals.Get_User_Id
302: , last_update_login = BOM_Rtg_Globals.Get_Login_Id
303: , attribute_category =p_op_network_rec.attribute_category
304: , attribute1 = p_op_network_rec.attribute1
305: , attribute2 = p_op_network_rec.attribute2
298: , planning_pct = p_op_network_rec.planning_percent
299: , transition_type =p_op_network_rec.connection_type
300: , last_update_date = SYSDATE
301: , last_updated_by = BOM_Rtg_Globals.Get_User_Id
302: , last_update_login = BOM_Rtg_Globals.Get_Login_Id
303: , attribute_category =p_op_network_rec.attribute_category
304: , attribute1 = p_op_network_rec.attribute1
305: , attribute2 = p_op_network_rec.attribute2
306: , attribute3 = p_op_network_rec.attribute3
329: update BOM_OPERATION_SEQUENCES set
330: X_COORDINATE = p_op_network_rec.From_X_Coordinate
331: ,Y_COORDINATE = p_op_network_rec.From_Y_Coordinate
332: , last_update_date = SYSDATE
333: , last_updated_by = BOM_Rtg_Globals.Get_User_Id
334: , last_update_login = BOM_Rtg_Globals.Get_Login_Id
335: , request_id = Fnd_Global.Conc_Request_Id
336: , program_id = Fnd_Global.Conc_Program_Id
337: , program_application_id = Fnd_Global.Prog_Appl_Id
330: X_COORDINATE = p_op_network_rec.From_X_Coordinate
331: ,Y_COORDINATE = p_op_network_rec.From_Y_Coordinate
332: , last_update_date = SYSDATE
333: , last_updated_by = BOM_Rtg_Globals.Get_User_Id
334: , last_update_login = BOM_Rtg_Globals.Get_Login_Id
335: , request_id = Fnd_Global.Conc_Request_Id
336: , program_id = Fnd_Global.Conc_Program_Id
337: , program_application_id = Fnd_Global.Prog_Appl_Id
338: , program_update_date = SYSDATE
345: update BOM_OPERATION_SEQUENCES set
346: X_COORDINATE = p_op_network_rec.To_X_Coordinate
347: ,Y_COORDINATE = p_op_network_rec.To_Y_Coordinate
348: , last_update_date = SYSDATE
349: , last_updated_by = BOM_Rtg_Globals.Get_User_Id
350: , last_update_login = BOM_Rtg_Globals.Get_Login_Id
351: , request_id = Fnd_Global.Conc_Request_Id
352: , program_id = Fnd_Global.Conc_Program_Id
353: , program_application_id = Fnd_Global.Prog_Appl_Id
346: X_COORDINATE = p_op_network_rec.To_X_Coordinate
347: ,Y_COORDINATE = p_op_network_rec.To_Y_Coordinate
348: , last_update_date = SYSDATE
349: , last_updated_by = BOM_Rtg_Globals.Get_User_Id
350: , last_update_login = BOM_Rtg_Globals.Get_Login_Id
351: , request_id = Fnd_Global.Conc_Request_Id
352: , program_id = Fnd_Global.Conc_Program_Id
353: , program_application_id = Fnd_Global.Prog_Appl_Id
354: , program_update_date = SYSDATE
381:
382: BEGIN
383: x_return_status := FND_API.G_RET_STS_SUCCESS;
384:
385: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
386: Error_Handler.Write_Debug('Delete operation network.'
387: );
388: END IF;
389:
427: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
428: l_err_text VARCHAR2(2000) ;
429:
430: BEGIN
431: IF p_op_network_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
432: THEN
433: Insert_Row
434: ( p_op_network_rec => p_op_network_rec
435: , p_op_network_unexp_rec => p_op_network_unexp_rec
436: , x_mesg_token_Tbl => l_mesg_token_tbl
437: , x_return_Status => l_return_status
438: );
439: ELSIF p_op_network_rec.transaction_type =
440: Bom_Rtg_Globals.G_OPR_UPDATE
441: THEN
442: Update_Row
443: ( p_op_network_rec => p_op_network_rec
444: , p_op_network_unexp_rec => p_op_network_unexp_rec
446: , x_return_Status => l_return_status
447: );
448:
449: ELSIF p_op_network_rec.transaction_type =
450: BOM_Rtg_Globals.G_OPR_DELETE
451: THEN
452: Delete_Row
453: ( p_op_network_rec => p_op_network_rec
454: , p_op_network_unexp_rec => p_op_network_unexp_rec
461: x_mesg_token_tbl := l_mesg_token_tbl;
462:
463: EXCEPTION
464: WHEN OTHERS THEN
465: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
466: ('Some unknown error in Perform Writes . . .' || SQLERRM );
467: END IF ;
468:
469:
518: from bom_operational_routings where
519: routing_sequence_id = p_routing_sequence_id;
520: -- Get Common Routing Seq Id from System Info Rec.
521: -- If the value is Null, set Common Routing Seq Id.
522: l_common_routing_sequence_id := BOM_Rtg_Globals.Get_Common_Rtg_Seq_id ;
523:
524: IF l_common_routing_sequence_id IS NULL OR
525: l_common_routing_sequence_id = FND_API.G_MISS_NUM THEN
526: BEGIN
528: INTO l_common_routing_sequence_id
529: FROM bom_operational_routings
530: WHERE routing_sequence_id = l_routing_sequence_id;
531: END ;
532: BOM_Rtg_Globals.Set_Common_Rtg_Seq_id
533: ( p_common_rtg_seq_id => l_common_routing_sequence_id );
534: END IF;
535: IF nvl(l_cfm_routing_flag,2) = 3 THEN
536: WSMPUTIL.FIND_ROUTING_START(l_common_routing_sequence_id,
650: routing_sequence_id = p_routing_sequence_id;
651:
652: -- Get Common Routing Seq Id from System Info Rec.
653: -- If the value is Null, set Common Routing Seq Id.
654: l_common_routing_sequence_id := BOM_Rtg_Globals.Get_Common_Rtg_Seq_id ;
655:
656: IF l_common_routing_sequence_id IS NULL OR
657: l_common_routing_sequence_id = FND_API.G_MISS_NUM THEN
658: BEGIN
660: INTO l_common_routing_sequence_id
661: FROM bom_operational_routings
662: WHERE routing_sequence_id = l_routing_sequence_id;
663: END ;
664: BOM_Rtg_Globals.Set_Common_Rtg_Seq_id
665: ( p_common_rtg_seq_id => l_common_routing_sequence_id );
666: END IF;
667:
668: IF nvl(l_cfm_routing_flag,2) = 3 THEN
822: AND bos.ROUTING_SEQUENCE_ID = c_routing_sequence_id
823: ORDER BY bos.EFFECTIVITY_DATE DESC;
824:
825: BEGIN
826: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
827: Error_Handler.Write_Debug( ' Copying the First/Last operation if disabled');
828: END IF;
829:
830: FOR l_operation IN First_Op_Of_Nw( p_routing_sequence_id )
868: IS
869: l_op_seq_id NUMBER;
870: BEGIN
871:
872: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
873: Error_Handler.Write_Debug( ' Copying operation ' || p_operation_sequence_id );
874: END IF;
875:
876: -- Get a new operation sequence id
953: l_op_seq_id,
954: BOS.ROUTING_SEQUENCE_ID,
955: BOS.OPERATION_SEQ_NUM,
956: SYSDATE, --LAST_UPDATE_DATE
957: BOM_Rtg_Globals.Get_User_Id, --LAST_UPDATED_BY
958: SYSDATE, --CREATION_DATE
959: BOM_Rtg_Globals.Get_User_Id, --CREATED_BY
960: BOM_Rtg_Globals.Get_Login_Id, --LAST_UPDATE_LOGIN
961: BOS.STANDARD_OPERATION_ID,
955: BOS.OPERATION_SEQ_NUM,
956: SYSDATE, --LAST_UPDATE_DATE
957: BOM_Rtg_Globals.Get_User_Id, --LAST_UPDATED_BY
958: SYSDATE, --CREATION_DATE
959: BOM_Rtg_Globals.Get_User_Id, --CREATED_BY
960: BOM_Rtg_Globals.Get_Login_Id, --LAST_UPDATE_LOGIN
961: BOS.STANDARD_OPERATION_ID,
962: BOS.DEPARTMENT_ID,
963: BOS.OPERATION_LEAD_TIME_PERCENT,
956: SYSDATE, --LAST_UPDATE_DATE
957: BOM_Rtg_Globals.Get_User_Id, --LAST_UPDATED_BY
958: SYSDATE, --CREATION_DATE
959: BOM_Rtg_Globals.Get_User_Id, --CREATED_BY
960: BOM_Rtg_Globals.Get_Login_Id, --LAST_UPDATE_LOGIN
961: BOS.STANDARD_OPERATION_ID,
962: BOS.DEPARTMENT_ID,
963: BOS.OPERATION_LEAD_TIME_PERCENT,
964: BOS.MINIMUM_TRANSFER_QUANTITY,
983: BOS.ATTRIBUTE12,
984: BOS.ATTRIBUTE13,
985: BOS.ATTRIBUTE14,
986: BOS.ATTRIBUTE15,
987: BOM_Rtg_Globals.Get_Request_Id,
988: BOM_Rtg_Globals.Get_Prog_AppId,
989: BOM_Rtg_Globals.Get_Prog_Id,
990: SYSDATE, --PROGRAM_UPDATE_DATE
991: DECODE(BOS.OPERATION_TYPE, 4, 1, BOS.OPERATION_TYPE),
984: BOS.ATTRIBUTE13,
985: BOS.ATTRIBUTE14,
986: BOS.ATTRIBUTE15,
987: BOM_Rtg_Globals.Get_Request_Id,
988: BOM_Rtg_Globals.Get_Prog_AppId,
989: BOM_Rtg_Globals.Get_Prog_Id,
990: SYSDATE, --PROGRAM_UPDATE_DATE
991: DECODE(BOS.OPERATION_TYPE, 4, 1, BOS.OPERATION_TYPE),
992: BOS.REFERENCE_FLAG,
985: BOS.ATTRIBUTE14,
986: BOS.ATTRIBUTE15,
987: BOM_Rtg_Globals.Get_Request_Id,
988: BOM_Rtg_Globals.Get_Prog_AppId,
989: BOM_Rtg_Globals.Get_Prog_Id,
990: SYSDATE, --PROGRAM_UPDATE_DATE
991: DECODE(BOS.OPERATION_TYPE, 4, 1, BOS.OPERATION_TYPE),
992: BOS.REFERENCE_FLAG,
993: BOS.PROCESS_OP_SEQ_ID,
1081: BOR.USAGE_RATE_OR_AMOUNT_INVERSE,
1082: BOR.BASIS_TYPE,
1083: BOR.SCHEDULE_FLAG,
1084: SYSDATE, --LAST_UPDATE_DATE,
1085: BOM_Rtg_Globals.Get_User_Id, --LAST_UPDATED_BY
1086: SYSDATE, --CREATION_DATE
1087: BOM_Rtg_Globals.Get_User_Id, --CREATED_BY
1088: BOM_Rtg_Globals.Get_Login_Id, --LAST_UPDATE_LOGIN
1089: BOR.RESOURCE_OFFSET_PERCENT,
1083: BOR.SCHEDULE_FLAG,
1084: SYSDATE, --LAST_UPDATE_DATE,
1085: BOM_Rtg_Globals.Get_User_Id, --LAST_UPDATED_BY
1086: SYSDATE, --CREATION_DATE
1087: BOM_Rtg_Globals.Get_User_Id, --CREATED_BY
1088: BOM_Rtg_Globals.Get_Login_Id, --LAST_UPDATE_LOGIN
1089: BOR.RESOURCE_OFFSET_PERCENT,
1090: BOR.AUTOCHARGE_TYPE,
1091: BOR.ATTRIBUTE_CATEGORY,
1084: SYSDATE, --LAST_UPDATE_DATE,
1085: BOM_Rtg_Globals.Get_User_Id, --LAST_UPDATED_BY
1086: SYSDATE, --CREATION_DATE
1087: BOM_Rtg_Globals.Get_User_Id, --CREATED_BY
1088: BOM_Rtg_Globals.Get_Login_Id, --LAST_UPDATE_LOGIN
1089: BOR.RESOURCE_OFFSET_PERCENT,
1090: BOR.AUTOCHARGE_TYPE,
1091: BOR.ATTRIBUTE_CATEGORY,
1092: BOR.ATTRIBUTE1,
1103: BOR.ATTRIBUTE12,
1104: BOR.ATTRIBUTE13,
1105: BOR.ATTRIBUTE14,
1106: BOR.ATTRIBUTE15,
1107: BOM_Rtg_Globals.Get_Request_Id,
1108: BOM_Rtg_Globals.Get_Prog_AppId,
1109: BOM_Rtg_Globals.Get_Prog_Id,
1110: SYSDATE, --PROGRAM_UPDATE_DATE
1111: BOR.SCHEDULE_SEQ_NUM,
1104: BOR.ATTRIBUTE13,
1105: BOR.ATTRIBUTE14,
1106: BOR.ATTRIBUTE15,
1107: BOM_Rtg_Globals.Get_Request_Id,
1108: BOM_Rtg_Globals.Get_Prog_AppId,
1109: BOM_Rtg_Globals.Get_Prog_Id,
1110: SYSDATE, --PROGRAM_UPDATE_DATE
1111: BOR.SCHEDULE_SEQ_NUM,
1112: BOR.SUBSTITUTE_GROUP_NUM,
1105: BOR.ATTRIBUTE14,
1106: BOR.ATTRIBUTE15,
1107: BOM_Rtg_Globals.Get_Request_Id,
1108: BOM_Rtg_Globals.Get_Prog_AppId,
1109: BOM_Rtg_Globals.Get_Prog_Id,
1110: SYSDATE, --PROGRAM_UPDATE_DATE
1111: BOR.SCHEDULE_SEQ_NUM,
1112: BOR.SUBSTITUTE_GROUP_NUM,
1113: BOR.PRINCIPLE_FLAG,
1181: BSOR.USAGE_RATE_OR_AMOUNT_INVERSE,
1182: BSOR.BASIS_TYPE,
1183: BSOR.SCHEDULE_FLAG,
1184: SYSDATE, --LAST_UPDATE_DATE,
1185: BOM_Rtg_Globals.Get_User_Id, --LAST_UPDATED_BY
1186: SYSDATE, --CREATION_DATE
1187: BOM_Rtg_Globals.Get_User_Id, --CREATED_BY
1188: BOM_Rtg_Globals.Get_Login_Id, --LAST_UPDATE_LOGIN
1189: BSOR.RESOURCE_OFFSET_PERCENT,
1183: BSOR.SCHEDULE_FLAG,
1184: SYSDATE, --LAST_UPDATE_DATE,
1185: BOM_Rtg_Globals.Get_User_Id, --LAST_UPDATED_BY
1186: SYSDATE, --CREATION_DATE
1187: BOM_Rtg_Globals.Get_User_Id, --CREATED_BY
1188: BOM_Rtg_Globals.Get_Login_Id, --LAST_UPDATE_LOGIN
1189: BSOR.RESOURCE_OFFSET_PERCENT,
1190: BSOR.AUTOCHARGE_TYPE,
1191: BSOR.ATTRIBUTE_CATEGORY,
1184: SYSDATE, --LAST_UPDATE_DATE,
1185: BOM_Rtg_Globals.Get_User_Id, --LAST_UPDATED_BY
1186: SYSDATE, --CREATION_DATE
1187: BOM_Rtg_Globals.Get_User_Id, --CREATED_BY
1188: BOM_Rtg_Globals.Get_Login_Id, --LAST_UPDATE_LOGIN
1189: BSOR.RESOURCE_OFFSET_PERCENT,
1190: BSOR.AUTOCHARGE_TYPE,
1191: BSOR.ATTRIBUTE_CATEGORY,
1192: BOM_Rtg_Globals.Get_Request_Id,
1188: BOM_Rtg_Globals.Get_Login_Id, --LAST_UPDATE_LOGIN
1189: BSOR.RESOURCE_OFFSET_PERCENT,
1190: BSOR.AUTOCHARGE_TYPE,
1191: BSOR.ATTRIBUTE_CATEGORY,
1192: BOM_Rtg_Globals.Get_Request_Id,
1193: BOM_Rtg_Globals.Get_Prog_AppId,
1194: BOM_Rtg_Globals.Get_Prog_Id,
1195: SYSDATE, --PROGRAM_UPDATE_DATE
1196: BSOR.ATTRIBUTE1,
1189: BSOR.RESOURCE_OFFSET_PERCENT,
1190: BSOR.AUTOCHARGE_TYPE,
1191: BSOR.ATTRIBUTE_CATEGORY,
1192: BOM_Rtg_Globals.Get_Request_Id,
1193: BOM_Rtg_Globals.Get_Prog_AppId,
1194: BOM_Rtg_Globals.Get_Prog_Id,
1195: SYSDATE, --PROGRAM_UPDATE_DATE
1196: BSOR.ATTRIBUTE1,
1197: BSOR.ATTRIBUTE2,
1190: BSOR.AUTOCHARGE_TYPE,
1191: BSOR.ATTRIBUTE_CATEGORY,
1192: BOM_Rtg_Globals.Get_Request_Id,
1193: BOM_Rtg_Globals.Get_Prog_AppId,
1194: BOM_Rtg_Globals.Get_Prog_Id,
1195: SYSDATE, --PROGRAM_UPDATE_DATE
1196: BSOR.ATTRIBUTE1,
1197: BSOR.ATTRIBUTE2,
1198: BSOR.ATTRIBUTE3,