29: /*********************** Entity **********************************************/
30:
31: PROCEDURE CHECK_REQUIRED( x_return_status IN OUT NOCOPY VARCHAR2
32: , p_sub_component_rec IN
33: Bom_Bo_Pub.Sub_Component_Rec_Type
34: , x_Mesg_Token_tbl IN OUT NOCOPY
35: Error_Handler.Mesg_Token_Tbl_Type
36: )
37: IS
86: *********************************************************************/
87: PROCEDURE Check_Entity
88: ( x_return_status IN OUT NOCOPY VARCHAR2
89: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
90: , p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
91: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
92: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
93: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
94: )
87: PROCEDURE Check_Entity
88: ( x_return_status IN OUT NOCOPY VARCHAR2
89: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
90: , p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
91: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
92: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
93: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
94: )
95: IS
88: ( x_return_status IN OUT NOCOPY VARCHAR2
89: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
90: , p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
91: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
92: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
93: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
94: )
95: IS
96: l_temp_var NUMBER :=0;
89: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
90: , p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
91: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
92: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
93: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
94: )
95: IS
96: l_temp_var NUMBER :=0;
97: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
725:
726: PROCEDURE Check_Attributes
727: ( x_return_status IN OUT NOCOPY VARCHAR2
728: , x_Mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
729: , p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
730: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
731: )
732: IS
733: l_dummy VARCHAR2(1);
726: PROCEDURE Check_Attributes
727: ( x_return_status IN OUT NOCOPY VARCHAR2
728: , x_Mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
729: , p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
730: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
731: )
732: IS
733: l_dummy VARCHAR2(1);
734: l_return_status VARCHAR2(1);
818:
819: PROCEDURE Check_Entity_Delete
820: ( x_return_status IN OUT NOCOPY VARCHAR2
821: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
822: , p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
823: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
824: )
825: IS
826: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
819: PROCEDURE Check_Entity_Delete
820: ( x_return_status IN OUT NOCOPY VARCHAR2
821: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
822: , p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
823: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
824: )
825: IS
826: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
827: l_err_text VARCHAR2(255);
848: * the procedure will query the existing record and return them
849: * as old records.
850: ***************************************************************************/
851: PROCEDURE Check_Existence
852: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
853: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
854: , x_old_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
855: , x_old_sub_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
856: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
849: * as old records.
850: ***************************************************************************/
851: PROCEDURE Check_Existence
852: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
853: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
854: , x_old_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
855: , x_old_sub_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
856: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
857: , x_Return_Status IN OUT NOCOPY VARCHAR2
850: ***************************************************************************/
851: PROCEDURE Check_Existence
852: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
853: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
854: , x_old_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
855: , x_old_sub_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
856: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
857: , x_Return_Status IN OUT NOCOPY VARCHAR2
858: )
851: PROCEDURE Check_Existence
852: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
853: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
854: , x_old_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
855: , x_old_sub_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
856: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
857: , x_Return_Status IN OUT NOCOPY VARCHAR2
858: )
859: IS
953: * hold good in the production tables based on the data that
954: * the user has given.
955: *****************************************************************************/
956: PROCEDURE Check_Lineage
957: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
958: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
959: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
960: , x_Return_Status IN OUT NOCOPY VARCHAR2
961: )
954: * the user has given.
955: *****************************************************************************/
956: PROCEDURE Check_Lineage
957: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
958: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
959: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
960: , x_Return_Status IN OUT NOCOPY VARCHAR2
961: )
962: IS
1017: * Component. It will also verify that the revised item is not
1018: * already implemented or canceled.
1019: ****************************************************************************/
1020: PROCEDURE Check_Access
1021: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
1022: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
1023: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1024: , x_Return_Status IN OUT NOCOPY VARCHAR2
1025: )
1018: * already implemented or canceled.
1019: ****************************************************************************/
1020: PROCEDURE Check_Access
1021: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
1022: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
1023: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1024: , x_Return_Status IN OUT NOCOPY VARCHAR2
1025: )
1026: IS
1111: ** Procedures for BOM Business Object
1112: */
1113: PROCEDURE Check_Required
1114: ( x_return_status IN OUT NOCOPY VARCHAR2
1115: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1116: , x_Mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1117: )
1118: IS
1119: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1115: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1116: , x_Mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1117: )
1118: IS
1119: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1120: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1121: BEGIN
1122: --
1123: -- Convert the BOM Record
1116: , x_Mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1117: )
1118: IS
1119: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1120: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1121: BEGIN
1122: --
1123: -- Convert the BOM Record
1124: --
1121: BEGIN
1122: --
1123: -- Convert the BOM Record
1124: --
1125: Bom_Bo_Pub.Convert_BomSComp_To_EcoSComp
1126: ( p_bom_sub_component_rec => p_bom_sub_component_rec
1127: , x_sub_component_rec => l_sub_component_rec
1128: , x_sub_comp_unexp_rec => l_sub_comp_unexp_rec
1129: );
1144:
1145: PROCEDURE Check_Entity
1146: ( x_return_status IN OUT NOCOPY VARCHAR2
1147: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1148: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1149: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1150: )
1151: IS
1152: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1145: PROCEDURE Check_Entity
1146: ( x_return_status IN OUT NOCOPY VARCHAR2
1147: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1148: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1149: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1150: )
1151: IS
1152: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1153: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1148: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1149: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1150: )
1151: IS
1152: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1153: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1154: BEGIN
1155: --
1156: -- Convert the BOM Record
1149: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1150: )
1151: IS
1152: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1153: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1154: BEGIN
1155: --
1156: -- Convert the BOM Record
1157: --
1154: BEGIN
1155: --
1156: -- Convert the BOM Record
1157: --
1158: Bom_Bo_Pub.Convert_BomSComp_To_EcoSComp
1159: ( p_bom_sub_component_rec => p_bom_sub_component_rec
1160: , p_bom_sub_comp_unexp_rec => p_bom_sub_comp_unexp_rec
1161: , x_sub_component_rec => l_sub_component_rec
1162: , x_sub_comp_unexp_rec => l_sub_comp_unexp_rec
1178:
1179: PROCEDURE Check_Attributes
1180: ( x_return_status IN OUT NOCOPY VARCHAR2
1181: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1182: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1183: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1184: )
1185: IS
1186: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1179: PROCEDURE Check_Attributes
1180: ( x_return_status IN OUT NOCOPY VARCHAR2
1181: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1182: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1183: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1184: )
1185: IS
1186: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1187: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1182: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1183: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1184: )
1185: IS
1186: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1187: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1188: BEGIN
1189:
1190: --
1183: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1184: )
1185: IS
1186: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1187: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1188: BEGIN
1189:
1190: --
1191: -- Convert the BOM Record
1189:
1190: --
1191: -- Convert the BOM Record
1192: --
1193: Bom_Bo_Pub.Convert_BomSComp_To_EcoSComp
1194: ( p_bom_sub_component_rec => p_bom_sub_component_rec
1195: , p_bom_sub_comp_unexp_rec => p_bom_sub_comp_unexp_rec
1196: , x_sub_component_rec => l_sub_component_rec
1197: , x_sub_comp_unexp_rec => l_sub_comp_unexp_rec
1212:
1213: PROCEDURE Check_Entity_Delete
1214: ( x_return_status IN OUT NOCOPY VARCHAR2
1215: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1216: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1217: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1218: )
1219: IS
1220: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1213: PROCEDURE Check_Entity_Delete
1214: ( x_return_status IN OUT NOCOPY VARCHAR2
1215: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1216: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1217: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1218: )
1219: IS
1220: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1221: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1216: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1217: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1218: )
1219: IS
1220: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1221: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1222: BEGIN
1223:
1224: --
1217: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1218: )
1219: IS
1220: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1221: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1222: BEGIN
1223:
1224: --
1225: -- Convert the BOM Record
1223:
1224: --
1225: -- Convert the BOM Record
1226: --
1227: Bom_Bo_Pub.Convert_BomSComp_To_EcoSComp
1228: ( p_bom_sub_component_rec => p_bom_sub_component_rec
1229: , x_sub_component_rec => l_sub_component_rec
1230: , x_sub_comp_unexp_rec => l_sub_comp_unexp_rec
1231: );
1241:
1242: END Check_Entity_Delete;
1243:
1244: PROCEDURE Check_Existence
1245: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1246: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1247: , x_old_bom_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1248: , x_old_bom_sub_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1249: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1242: END Check_Entity_Delete;
1243:
1244: PROCEDURE Check_Existence
1245: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1246: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1247: , x_old_bom_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1248: , x_old_bom_sub_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1249: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1250: , x_Return_Status IN OUT NOCOPY VARCHAR2
1243:
1244: PROCEDURE Check_Existence
1245: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1246: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1247: , x_old_bom_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1248: , x_old_bom_sub_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1249: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1250: , x_Return_Status IN OUT NOCOPY VARCHAR2
1251: )
1244: PROCEDURE Check_Existence
1245: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1246: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1247: , x_old_bom_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1248: , x_old_bom_sub_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1249: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1250: , x_Return_Status IN OUT NOCOPY VARCHAR2
1251: )
1252: IS
1249: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1250: , x_Return_Status IN OUT NOCOPY VARCHAR2
1251: )
1252: IS
1253: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1254: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1255: l_old_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1256: l_old_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1257: BEGIN
1250: , x_Return_Status IN OUT NOCOPY VARCHAR2
1251: )
1252: IS
1253: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1254: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1255: l_old_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1256: l_old_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1257: BEGIN
1258:
1251: )
1252: IS
1253: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1254: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1255: l_old_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1256: l_old_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1257: BEGIN
1258:
1259: --
1252: IS
1253: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1254: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1255: l_old_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1256: l_old_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1257: BEGIN
1258:
1259: --
1260: -- Convert the BOM Record
1258:
1259: --
1260: -- Convert the BOM Record
1261: --
1262: Bom_Bo_Pub.Convert_BomSComp_To_EcoSComp
1263: ( p_bom_sub_component_rec => p_bom_sub_component_rec
1264: , p_bom_sub_comp_unexp_rec => p_bom_sub_comp_unexp_rec
1265: , x_sub_component_rec => l_sub_component_rec
1266: , x_sub_comp_unexp_rec => l_sub_comp_unexp_rec
1278: --
1279: -- Convert the Old record received from Check Existence
1280: --
1281:
1282: Bom_Bo_Pub.Convert_EcoSComp_To_BomSComp
1283: ( p_sub_component_rec => l_old_sub_component_rec
1284: , p_sub_comp_unexp_rec => l_old_sub_comp_unexp_rec
1285: , x_bom_sub_component_rec => x_old_bom_sub_component_rec
1286: , x_bom_sub_comp_unexp_rec => x_old_bom_sub_comp_unexp_rec
1288:
1289: END Check_Existence;
1290:
1291: PROCEDURE Check_Lineage
1292: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1293: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1294: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1295: , x_Return_Status IN OUT NOCOPY VARCHAR2
1296: )
1289: END Check_Existence;
1290:
1291: PROCEDURE Check_Lineage
1292: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1293: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1294: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1295: , x_Return_Status IN OUT NOCOPY VARCHAR2
1296: )
1297: IS
1294: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1295: , x_Return_Status IN OUT NOCOPY VARCHAR2
1296: )
1297: IS
1298: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1299: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1300: BEGIN
1301:
1302: --
1295: , x_Return_Status IN OUT NOCOPY VARCHAR2
1296: )
1297: IS
1298: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1299: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1300: BEGIN
1301:
1302: --
1303: -- Convert the BOM Record
1301:
1302: --
1303: -- Convert the BOM Record
1304: --
1305: Bom_Bo_Pub.Convert_BomSComp_To_EcoSComp
1306: ( p_bom_sub_component_rec => p_bom_sub_component_rec
1307: , x_sub_component_rec => l_sub_component_rec
1308: , x_sub_comp_unexp_rec => l_sub_comp_unexp_rec
1309: );
1317:
1318: END Check_Lineage;
1319:
1320: PROCEDURE Check_Access
1321: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1322: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1323: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1324: , x_Return_Status IN OUT NOCOPY VARCHAR2
1325: )
1318: END Check_Lineage;
1319:
1320: PROCEDURE Check_Access
1321: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1322: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1323: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1324: , x_Return_Status IN OUT NOCOPY VARCHAR2
1325: )
1326: IS
1323: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1324: , x_Return_Status IN OUT NOCOPY VARCHAR2
1325: )
1326: IS
1327: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1328: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1329: BEGIN
1330:
1331: --
1324: , x_Return_Status IN OUT NOCOPY VARCHAR2
1325: )
1326: IS
1327: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1328: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1329: BEGIN
1330:
1331: --
1332: -- Convert the BOM Record
1330:
1331: --
1332: -- Convert the BOM Record
1333: --
1334: Bom_Bo_Pub.Convert_BomSComp_To_EcoSComp
1335: ( p_bom_sub_component_rec => p_bom_sub_component_rec
1336: , p_bom_sub_comp_unexp_rec => p_bom_sub_comp_unexp_rec
1337: , x_sub_component_rec => l_sub_component_rec
1338: , x_sub_comp_unexp_rec => l_sub_comp_unexp_rec