2166: x_progress := '105';
2167:
2168: -- initialize parameters passed to the bom bo api
2169:
2170: g_bom_header_rec := Bom_Bo_Pub.G_MISS_BOM_HEADER_REC;
2171: g_component_tbl.delete;
2172: g_component_tbl := Bom_Bo_Pub.G_MISS_BOM_COMPONENT_TBL;
2173: /*coprod enh p2*/
2174: --if ((g_subs_rec_set IS NULL) OR (g_subs_rec_set <> 'Y')) then
2168: -- initialize parameters passed to the bom bo api
2169:
2170: g_bom_header_rec := Bom_Bo_Pub.G_MISS_BOM_HEADER_REC;
2171: g_component_tbl.delete;
2172: g_component_tbl := Bom_Bo_Pub.G_MISS_BOM_COMPONENT_TBL;
2173: /*coprod enh p2*/
2174: --if ((g_subs_rec_set IS NULL) OR (g_subs_rec_set <> 'Y')) then
2175: g_subs_comp_tbl.delete;
2176: g_subs_comp_tbl := Bom_Bo_Pub.G_MISS_BOM_SUB_COMPONENT_TBL;
2172: g_component_tbl := Bom_Bo_Pub.G_MISS_BOM_COMPONENT_TBL;
2173: /*coprod enh p2*/
2174: --if ((g_subs_rec_set IS NULL) OR (g_subs_rec_set <> 'Y')) then
2175: g_subs_comp_tbl.delete;
2176: g_subs_comp_tbl := Bom_Bo_Pub.G_MISS_BOM_SUB_COMPONENT_TBL;
2177: -- end if;
2178: /*end coprod enh p2*/
2179:
2180: END IF;
2378: -- End of Debug code test.
2379:
2380:
2381: -- initialize parameters passed to the bom bo api
2382: g_bom_header_rec := Bom_Bo_Pub.G_MISS_BOM_HEADER_REC;
2383: g_component_tbl.delete;
2384: g_component_tbl := Bom_Bo_Pub.G_MISS_BOM_COMPONENT_TBL;
2385: /*coprod enh p2*/
2386: --if ((g_subs_rec_set IS NULL) OR (g_subs_rec_set <> 'Y')) then
2380:
2381: -- initialize parameters passed to the bom bo api
2382: g_bom_header_rec := Bom_Bo_Pub.G_MISS_BOM_HEADER_REC;
2383: g_component_tbl.delete;
2384: g_component_tbl := Bom_Bo_Pub.G_MISS_BOM_COMPONENT_TBL;
2385: /*coprod enh p2*/
2386: --if ((g_subs_rec_set IS NULL) OR (g_subs_rec_set <> 'Y')) then
2387: g_subs_comp_tbl.delete;
2388: g_subs_comp_tbl := Bom_Bo_Pub.G_MISS_BOM_SUB_COMPONENT_TBL;
2384: g_component_tbl := Bom_Bo_Pub.G_MISS_BOM_COMPONENT_TBL;
2385: /*coprod enh p2*/
2386: --if ((g_subs_rec_set IS NULL) OR (g_subs_rec_set <> 'Y')) then
2387: g_subs_comp_tbl.delete;
2388: g_subs_comp_tbl := Bom_Bo_Pub.G_MISS_BOM_SUB_COMPONENT_TBL;
2389: --end if;
2390: /*end coprod enh p2*/
2391:
2392: -- now call a private bom api to obtain the bill_sequence_id and
3394:
3395: ===========================================================================*/
3396:
3397: PROCEDURE call_bom_bo_api (
3398: p_bom_header_rec IN Bom_Bo_Pub.Bom_Head_Rec_Type :=
3399: Bom_Bo_Pub.G_MISS_BOM_HEADER_REC,
3400: p_component_tbl IN Bom_Bo_Pub.Bom_Comps_Tbl_Type :=
3401: Bom_Bo_Pub.G_MISS_BOM_COMPONENT_TBL,
3402: p_subs_comp_tbl IN Bom_Bo_Pub.Bom_Sub_Component_Tbl_Type :=
3395: ===========================================================================*/
3396:
3397: PROCEDURE call_bom_bo_api (
3398: p_bom_header_rec IN Bom_Bo_Pub.Bom_Head_Rec_Type :=
3399: Bom_Bo_Pub.G_MISS_BOM_HEADER_REC,
3400: p_component_tbl IN Bom_Bo_Pub.Bom_Comps_Tbl_Type :=
3401: Bom_Bo_Pub.G_MISS_BOM_COMPONENT_TBL,
3402: p_subs_comp_tbl IN Bom_Bo_Pub.Bom_Sub_Component_Tbl_Type :=
3403: Bom_Bo_Pub.G_MISS_BOM_SUB_COMPONENT_TBL,
3396:
3397: PROCEDURE call_bom_bo_api (
3398: p_bom_header_rec IN Bom_Bo_Pub.Bom_Head_Rec_Type :=
3399: Bom_Bo_Pub.G_MISS_BOM_HEADER_REC,
3400: p_component_tbl IN Bom_Bo_Pub.Bom_Comps_Tbl_Type :=
3401: Bom_Bo_Pub.G_MISS_BOM_COMPONENT_TBL,
3402: p_subs_comp_tbl IN Bom_Bo_Pub.Bom_Sub_Component_Tbl_Type :=
3403: Bom_Bo_Pub.G_MISS_BOM_SUB_COMPONENT_TBL,
3404: x_error_code IN OUT NOCOPY NUMBER,
3397: PROCEDURE call_bom_bo_api (
3398: p_bom_header_rec IN Bom_Bo_Pub.Bom_Head_Rec_Type :=
3399: Bom_Bo_Pub.G_MISS_BOM_HEADER_REC,
3400: p_component_tbl IN Bom_Bo_Pub.Bom_Comps_Tbl_Type :=
3401: Bom_Bo_Pub.G_MISS_BOM_COMPONENT_TBL,
3402: p_subs_comp_tbl IN Bom_Bo_Pub.Bom_Sub_Component_Tbl_Type :=
3403: Bom_Bo_Pub.G_MISS_BOM_SUB_COMPONENT_TBL,
3404: x_error_code IN OUT NOCOPY NUMBER,
3405: x_error_msg IN OUT NOCOPY VARCHAR2)
3398: p_bom_header_rec IN Bom_Bo_Pub.Bom_Head_Rec_Type :=
3399: Bom_Bo_Pub.G_MISS_BOM_HEADER_REC,
3400: p_component_tbl IN Bom_Bo_Pub.Bom_Comps_Tbl_Type :=
3401: Bom_Bo_Pub.G_MISS_BOM_COMPONENT_TBL,
3402: p_subs_comp_tbl IN Bom_Bo_Pub.Bom_Sub_Component_Tbl_Type :=
3403: Bom_Bo_Pub.G_MISS_BOM_SUB_COMPONENT_TBL,
3404: x_error_code IN OUT NOCOPY NUMBER,
3405: x_error_msg IN OUT NOCOPY VARCHAR2)
3406: IS
3399: Bom_Bo_Pub.G_MISS_BOM_HEADER_REC,
3400: p_component_tbl IN Bom_Bo_Pub.Bom_Comps_Tbl_Type :=
3401: Bom_Bo_Pub.G_MISS_BOM_COMPONENT_TBL,
3402: p_subs_comp_tbl IN Bom_Bo_Pub.Bom_Sub_Component_Tbl_Type :=
3403: Bom_Bo_Pub.G_MISS_BOM_SUB_COMPONENT_TBL,
3404: x_error_code IN OUT NOCOPY NUMBER,
3405: x_error_msg IN OUT NOCOPY VARCHAR2)
3406: IS
3407:
3405: x_error_msg IN OUT NOCOPY VARCHAR2)
3406: IS
3407:
3408: --define local variables
3409: l_bom_header_rec Bom_Bo_Pub.bom_Head_Rec_Type;
3410: l_bom_revision_tbl Bom_Bo_Pub.Bom_Revision_Tbl_Type;
3411: l_bom_component_tbl Bom_Bo_pub.Bom_Comps_Tbl_Type;
3412: l_bom_ref_designator_tbl Bom_Bo_Pub.Bom_Ref_Designator_Tbl_Type;
3413: l_bom_sub_component_tbl Bom_Bo_Pub.Bom_Sub_Component_Tbl_Type;
3406: IS
3407:
3408: --define local variables
3409: l_bom_header_rec Bom_Bo_Pub.bom_Head_Rec_Type;
3410: l_bom_revision_tbl Bom_Bo_Pub.Bom_Revision_Tbl_Type;
3411: l_bom_component_tbl Bom_Bo_pub.Bom_Comps_Tbl_Type;
3412: l_bom_ref_designator_tbl Bom_Bo_Pub.Bom_Ref_Designator_Tbl_Type;
3413: l_bom_sub_component_tbl Bom_Bo_Pub.Bom_Sub_Component_Tbl_Type;
3414: l_return_status VARCHAR2(1);
3407:
3408: --define local variables
3409: l_bom_header_rec Bom_Bo_Pub.bom_Head_Rec_Type;
3410: l_bom_revision_tbl Bom_Bo_Pub.Bom_Revision_Tbl_Type;
3411: l_bom_component_tbl Bom_Bo_pub.Bom_Comps_Tbl_Type;
3412: l_bom_ref_designator_tbl Bom_Bo_Pub.Bom_Ref_Designator_Tbl_Type;
3413: l_bom_sub_component_tbl Bom_Bo_Pub.Bom_Sub_Component_Tbl_Type;
3414: l_return_status VARCHAR2(1);
3415: l_msg_count NUMBER;
3408: --define local variables
3409: l_bom_header_rec Bom_Bo_Pub.bom_Head_Rec_Type;
3410: l_bom_revision_tbl Bom_Bo_Pub.Bom_Revision_Tbl_Type;
3411: l_bom_component_tbl Bom_Bo_pub.Bom_Comps_Tbl_Type;
3412: l_bom_ref_designator_tbl Bom_Bo_Pub.Bom_Ref_Designator_Tbl_Type;
3413: l_bom_sub_component_tbl Bom_Bo_Pub.Bom_Sub_Component_Tbl_Type;
3414: l_return_status VARCHAR2(1);
3415: l_msg_count NUMBER;
3416: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
3409: l_bom_header_rec Bom_Bo_Pub.bom_Head_Rec_Type;
3410: l_bom_revision_tbl Bom_Bo_Pub.Bom_Revision_Tbl_Type;
3411: l_bom_component_tbl Bom_Bo_pub.Bom_Comps_Tbl_Type;
3412: l_bom_ref_designator_tbl Bom_Bo_Pub.Bom_Ref_Designator_Tbl_Type;
3413: l_bom_sub_component_tbl Bom_Bo_Pub.Bom_Sub_Component_Tbl_Type;
3414: l_return_status VARCHAR2(1);
3415: l_msg_count NUMBER;
3416: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
3417:
3497: END LOOP;
3498: END IF;
3499: -- ST : Bug fix 5081436 end
3500:
3501: Bom_Bo_Pub.Process_Bom (
3502: p_init_msg_list => TRUE
3503: , p_bom_header_rec => p_bom_header_rec
3504: , p_bom_component_tbl => p_component_tbl
3505: , p_bom_sub_component_tbl => p_subs_comp_tbl
3658:
3659: x_progress := '035';
3660: -- prepare the bill header for the business object
3661:
3662: g_bom_header_rec := Bom_Bo_Pub.G_MISS_BOM_HEADER_REC; /* initialize */
3663: -- now populate the header record before calling the API
3664: g_bom_header_rec.Transaction_Type := BOM_Globals.G_OPR_UPDATE;
3665: g_bom_header_rec.Assembly_Item_Name := l_co_product_name;
3666: g_bom_header_rec.Organization_Code := p_organization_code;