141: -- Local Variables
142: dummy NUMBER;
143: l_return_status VARCHAR2(1);
144:
145: l_spec GMD_SPECIFICATIONS%ROWTYPE;
146: l_spec_out GMD_SPECIFICATIONS%ROWTYPE;
147: l_mon_vr GMD_MONITORING_SPEC_VRS%ROWTYPE;
148: l_mon_vr_tmp GMD_MONITORING_SPEC_VRS%ROWTYPE;
149: l_item_mst IC_ITEM_MST%ROWTYPE;
142: dummy NUMBER;
143: l_return_status VARCHAR2(1);
144:
145: l_spec GMD_SPECIFICATIONS%ROWTYPE;
146: l_spec_out GMD_SPECIFICATIONS%ROWTYPE;
147: l_mon_vr GMD_MONITORING_SPEC_VRS%ROWTYPE;
148: l_mon_vr_tmp GMD_MONITORING_SPEC_VRS%ROWTYPE;
149: l_item_mst IC_ITEM_MST%ROWTYPE;
150: l_item_mst_out IC_ITEM_MST%ROWTYPE;
167: END IF;
168:
169: -- Verify that the specification exists.
170: l_spec.spec_id := p_mon_vr.spec_id;
171: IF NOT (GMD_Specifications_PVT.Fetch_Row(
172: p_specifications => l_spec,
173: x_specifications => l_spec_out)
174: ) THEN
175: -- Fetch Error
292:
293: PROCEDURE check_for_null_and_fks_in_mvr
294: (
295: p_mon_vr IN GMD_MONITORING_SPEC_VRS%ROWTYPE
296: , p_spec IN GMD_SPECIFICATIONS%ROWTYPE
297: , x_mon_vr OUT NOCOPY GMD_MONITORING_SPEC_VRS%ROWTYPE
298: , x_return_status OUT NOCOPY VARCHAR2
299: )
300: IS
556: --+========================================================================+
557: -- End of comments
558:
559: FUNCTION mon_vr_exist(p_mon_vr GMD_MONITORING_SPEC_VRS%ROWTYPE,
560: p_spec GMD_SPECIFICATIONS%ROWTYPE)
561: RETURN BOOLEAN IS
562:
563: CURSOR c_mon_vr IS
564: SELECT vr.spec_vr_id, s.spec_name, s.spec_vers
561: RETURN BOOLEAN IS
562:
563: CURSOR c_mon_vr IS
564: SELECT vr.spec_vr_id, s.spec_name, s.spec_vers
565: FROM gmd_specifications_b s, gmd_monitoring_spec_vrs vr
566: WHERE s.spec_id = vr.spec_id
567: AND ((s.grade_code is NULL AND p_spec.grade_code is NULL) OR
568: (s.grade_code = p_spec.grade_code)
569: )
678: -- Local Variables
679: dummy NUMBER;
680: l_return_status VARCHAR2(1);
681:
682: l_spec GMD_SPECIFICATIONS%ROWTYPE;
683: l_spec_out GMD_SPECIFICATIONS%ROWTYPE;
684: l_inv_vr GMD_INVENTORY_SPEC_VRS%ROWTYPE;
685: l_inv_vr_tmp GMD_INVENTORY_SPEC_VRS%ROWTYPE;
686: l_item_mst MTL_SYSTEM_ITEMS_B%ROWTYPE;
679: dummy NUMBER;
680: l_return_status VARCHAR2(1);
681:
682: l_spec GMD_SPECIFICATIONS%ROWTYPE;
683: l_spec_out GMD_SPECIFICATIONS%ROWTYPE;
684: l_inv_vr GMD_INVENTORY_SPEC_VRS%ROWTYPE;
685: l_inv_vr_tmp GMD_INVENTORY_SPEC_VRS%ROWTYPE;
686: l_item_mst MTL_SYSTEM_ITEMS_B%ROWTYPE;
687: l_sampling_plan GMD_SAMPLING_PLANS%ROWTYPE;
706: END IF;
707:
708: -- Verify that the specification exists.
709: l_spec.spec_id := p_inv_vr.spec_id;
710: IF NOT (GMD_Specifications_PVT.Fetch_Row(
711: p_specifications => l_spec,
712: x_specifications => l_spec_out)
713: ) THEN
714: -- Fetch Error
793:
794: -- Sample Quantity UOM must be convertible to Item's UOM
795: BEGIN
796: SELECT inventory_item_id INTO l_inventory_item_id FROM
797: gmd_specifications WHERE spec_id = p_inv_vr.spec_id;
798: SELECT owner_organization_id INTO l_organization_id FROM
799: gmd_specifications WHERE spec_id = p_inv_vr.spec_id;
800: SELECT * INTO l_item_mst
801: FROM mtl_system_items_b
795: BEGIN
796: SELECT inventory_item_id INTO l_inventory_item_id FROM
797: gmd_specifications WHERE spec_id = p_inv_vr.spec_id;
798: SELECT owner_organization_id INTO l_organization_id FROM
799: gmd_specifications WHERE spec_id = p_inv_vr.spec_id;
800: SELECT * INTO l_item_mst
801: FROM mtl_system_items_b
802: WHERE inventory_item_id = l_inventory_item_id
803: AND organization_id = l_organization_id;
915:
916: PROCEDURE check_for_null_and_fks_in_ivr
917: (
918: p_inv_vr IN GMD_INVENTORY_SPEC_VRS%ROWTYPE
919: , p_spec IN GMD_SPECIFICATIONS%ROWTYPE
920: , x_inv_vr OUT NOCOPY GMD_INVENTORY_SPEC_VRS%ROWTYPE
921: , x_return_status OUT NOCOPY VARCHAR2
922: )
923: IS
922: )
923: IS
924:
925: l_inv_vr GMD_INVENTORY_SPEC_VRS%ROWTYPE;
926: l_spec GMD_SPECIFICATIONS%ROWTYPE;
927:
928: CURSOR c_item_lot_number IS
929: SELECT 1
930: FROM mtl_lot_numbers
1188: --+========================================================================+
1189: -- End of comments
1190:
1191: FUNCTION inv_vr_exist(p_inv_vr GMD_INVENTORY_SPEC_VRS%ROWTYPE,
1192: p_spec GMD_SPECIFICATIONS%ROWTYPE)
1193: RETURN BOOLEAN IS
1194:
1195: CURSOR c_inv_vr IS
1196: SELECT vr.spec_vr_id, s.spec_name, s.spec_vers
1193: RETURN BOOLEAN IS
1194:
1195: CURSOR c_inv_vr IS
1196: SELECT vr.spec_vr_id, s.spec_name, s.spec_vers
1197: FROM gmd_specifications_b s, gmd_inventory_spec_vrs vr
1198: WHERE s.spec_id = vr.spec_id
1199: AND s.owner_organization_id = p_spec.owner_organization_id
1200: AND s.inventory_item_id = p_spec.inventory_item_id
1201: AND ( (s.revision is null and p_spec.revision is NULL ) OR -- handle item revision 5117733
1307: -- Local Variables
1308: dummy NUMBER;
1309: l_return_status VARCHAR2(1);
1310:
1311: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1312: l_spec_out GMD_SPECIFICATIONS%ROWTYPE;
1313: l_wip_vr GMD_WIP_SPEC_VRS%ROWTYPE;
1314: l_wip_vr_tmp GMD_WIP_SPEC_VRS%ROWTYPE;
1315: l_item_mst MTL_SYSTEM_ITEMS_B%ROWTYPE;
1308: dummy NUMBER;
1309: l_return_status VARCHAR2(1);
1310:
1311: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1312: l_spec_out GMD_SPECIFICATIONS%ROWTYPE;
1313: l_wip_vr GMD_WIP_SPEC_VRS%ROWTYPE;
1314: l_wip_vr_tmp GMD_WIP_SPEC_VRS%ROWTYPE;
1315: l_item_mst MTL_SYSTEM_ITEMS_B%ROWTYPE;
1316: l_sampling_plan GMD_SAMPLING_PLANS%ROWTYPE;
1335: END IF;
1336:
1337: -- Verify that the specification exists.
1338: l_spec.spec_id := p_wip_vr.spec_id;
1339: IF NOT (GMD_Specifications_PVT.Fetch_Row(
1340: p_specifications => l_spec,
1341: x_specifications => l_spec_out)
1342: ) THEN
1343: -- Fetch Error
1421:
1422: -- Sample Quantity UOM must be convertible to Item's UOM
1423: BEGIN
1424: SELECT inventory_item_id INTO l_inventory_item_id FROM
1425: gmd_specifications WHERE spec_id = p_wip_vr.spec_id;
1426: SELECT owner_organization_id INTO l_organization_id FROM
1427: gmd_specifications WHERE spec_id = p_wip_vr.spec_id;
1428: SELECT * INTO l_item_mst
1429: FROM mtl_system_items_b
1423: BEGIN
1424: SELECT inventory_item_id INTO l_inventory_item_id FROM
1425: gmd_specifications WHERE spec_id = p_wip_vr.spec_id;
1426: SELECT owner_organization_id INTO l_organization_id FROM
1427: gmd_specifications WHERE spec_id = p_wip_vr.spec_id;
1428: SELECT * INTO l_item_mst
1429: FROM mtl_system_items_b
1430: WHERE inventory_item_id = l_inventory_item_id
1431: AND organization_id = l_organization_id;
1528:
1529: PROCEDURE check_for_null_and_fks_in_wvr
1530: (
1531: p_wip_vr IN GMD_WIP_SPEC_VRS%ROWTYPE
1532: , p_spec IN GMD_SPECIFICATIONS%ROWTYPE
1533: , x_wip_vr OUT NOCOPY GMD_WIP_SPEC_VRS%ROWTYPE
1534: , x_return_status OUT NOCOPY VARCHAR2
1535: )
1536: IS
1535: )
1536: IS
1537:
1538: l_wip_vr GMD_WIP_SPEC_VRS%ROWTYPE;
1539: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1540:
1541: -- bug 4924483 sql id 14687134 MJC take out org_access_view as not used in query
1542: -- bug 5223014 - sql id 17532478 NO change required as added created an index on Organization_Id
1543: -- to stop FTS on gmd_parameters_hdr
2380: --+========================================================================+
2381: -- End of comments
2382:
2383: FUNCTION wip_vr_exist(p_wip_vr GMD_WIP_SPEC_VRS%ROWTYPE,
2384: p_spec GMD_SPECIFICATIONS%ROWTYPE)
2385: RETURN BOOLEAN IS
2386:
2387: -- added material detail to cursor
2388: CURSOR c_wip_vr IS
2386:
2387: -- added material detail to cursor
2388: CURSOR c_wip_vr IS
2389: SELECT vr.spec_vr_id, s.spec_name, s.spec_vers
2390: FROM gmd_specifications_b s,
2391: gmd_wip_spec_vrs vr
2392: WHERE s.spec_id = vr.spec_id
2393: AND s.owner_organization_id = p_spec.owner_organization_id
2394: AND s.inventory_item_id = p_spec.inventory_item_id
2528: -- Local Variables
2529: dummy NUMBER;
2530: l_return_status VARCHAR2(1);
2531:
2532: l_spec GMD_SPECIFICATIONS%ROWTYPE;
2533: l_spec_out GMD_SPECIFICATIONS%ROWTYPE;
2534: l_item_mst MTL_SYSTEM_ITEMS_B%ROWTYPE;
2535: l_sampling_plan GMD_SAMPLING_PLANS%ROWTYPE;
2536: l_sampling_plan_out GMD_SAMPLING_PLANS%ROWTYPE;
2529: dummy NUMBER;
2530: l_return_status VARCHAR2(1);
2531:
2532: l_spec GMD_SPECIFICATIONS%ROWTYPE;
2533: l_spec_out GMD_SPECIFICATIONS%ROWTYPE;
2534: l_item_mst MTL_SYSTEM_ITEMS_B%ROWTYPE;
2535: l_sampling_plan GMD_SAMPLING_PLANS%ROWTYPE;
2536: l_sampling_plan_out GMD_SAMPLING_PLANS%ROWTYPE;
2537: l_inventory_item_id NUMBER;
2554: END IF;
2555:
2556: -- Verify that the specification exists.
2557: l_spec.spec_id := p_cust_vr.spec_id;
2558: IF NOT (GMD_Specifications_PVT.Fetch_Row(
2559: p_specifications => l_spec,
2560: x_specifications => l_spec_out)
2561: ) THEN
2562: -- Fetch Error
2614:
2615: -- Sample Quantity UOM must be convertible to Item's UOM
2616: BEGIN
2617: SELECT inventory_item_id INTO l_inventory_item_id FROM
2618: gmd_specifications WHERE spec_id = p_cust_vr.spec_id;
2619: SELECT owner_organization_id INTO l_organization_id FROM
2620: gmd_specifications WHERE spec_id = p_cust_vr.spec_id;
2621: SELECT * INTO l_item_mst
2622: FROM mtl_system_items_b
2616: BEGIN
2617: SELECT inventory_item_id INTO l_inventory_item_id FROM
2618: gmd_specifications WHERE spec_id = p_cust_vr.spec_id;
2619: SELECT owner_organization_id INTO l_organization_id FROM
2620: gmd_specifications WHERE spec_id = p_cust_vr.spec_id;
2621: SELECT * INTO l_item_mst
2622: FROM mtl_system_items_b
2623: WHERE inventory_item_id = l_inventory_item_id
2624: AND organization_id = l_organization_id;
2711:
2712: PROCEDURE check_for_null_and_fks_in_cvr
2713: (
2714: p_cust_vr IN gmd_customer_spec_vrs%ROWTYPE
2715: , p_spec IN gmd_specifications%ROWTYPE
2716: , x_return_status OUT NOCOPY VARCHAR2
2717: )
2718: IS
2719:
3054: --+========================================================================+
3055: -- End of comments
3056:
3057: FUNCTION cust_vr_exist(p_cust_vr GMD_CUSTOMER_SPEC_VRS%ROWTYPE,
3058: p_spec GMD_SPECIFICATIONS%ROWTYPE)
3059: RETURN BOOLEAN IS
3060:
3061: CURSOR c_cust_vr IS
3062: SELECT vr.spec_vr_id, s.spec_name, s.spec_vers
3059: RETURN BOOLEAN IS
3060:
3061: CURSOR c_cust_vr IS
3062: SELECT vr.spec_vr_id, s.spec_name, s.spec_vers
3063: FROM gmd_specifications_b s, gmd_customer_spec_vrs vr
3064: WHERE s.spec_id = vr.spec_id
3065: AND s.owner_organization_id = p_spec.owner_organization_id
3066: AND s.inventory_item_id = p_spec.inventory_item_id
3067: AND ( (s.revision is null and p_spec.revision is NULL ) OR -- handle item revision 5117733
3178: -- Local Variables
3179: dummy NUMBER;
3180: l_return_status VARCHAR2(1);
3181:
3182: l_spec GMD_SPECIFICATIONS%ROWTYPE;
3183: l_spec_out GMD_SPECIFICATIONS%ROWTYPE;
3184: l_item_mst MTL_SYSTEM_ITEMS_B%ROWTYPE;
3185: l_sampling_plan GMD_SAMPLING_PLANS%ROWTYPE;
3186: l_sampling_plan_out GMD_SAMPLING_PLANS%ROWTYPE;
3179: dummy NUMBER;
3180: l_return_status VARCHAR2(1);
3181:
3182: l_spec GMD_SPECIFICATIONS%ROWTYPE;
3183: l_spec_out GMD_SPECIFICATIONS%ROWTYPE;
3184: l_item_mst MTL_SYSTEM_ITEMS_B%ROWTYPE;
3185: l_sampling_plan GMD_SAMPLING_PLANS%ROWTYPE;
3186: l_sampling_plan_out GMD_SAMPLING_PLANS%ROWTYPE;
3187: l_inventory_item_id NUMBER;
3204: END IF;
3205:
3206: -- Verify that the specification exists.
3207: l_spec.spec_id := p_supp_vr.spec_id;
3208: IF NOT (GMD_Specifications_PVT.Fetch_Row(
3209: p_specifications => l_spec,
3210: x_specifications => l_spec_out)
3211: ) THEN
3212: -- Fetch Error
3280:
3281: -- Sample Quantity UOM must be convertible to Item's UOM
3282: BEGIN
3283: SELECT inventory_item_id INTO l_inventory_item_id FROM
3284: gmd_specifications WHERE spec_id = p_supp_vr.spec_id;
3285: SELECT owner_organization_id INTO l_organization_id FROM
3286: gmd_specifications WHERE spec_id = p_supp_vr.spec_id;
3287: SELECT * INTO l_item_mst
3288: FROM mtl_system_items_b
3282: BEGIN
3283: SELECT inventory_item_id INTO l_inventory_item_id FROM
3284: gmd_specifications WHERE spec_id = p_supp_vr.spec_id;
3285: SELECT owner_organization_id INTO l_organization_id FROM
3286: gmd_specifications WHERE spec_id = p_supp_vr.spec_id;
3287: SELECT * INTO l_item_mst
3288: FROM mtl_system_items_b
3289: WHERE inventory_item_id = l_inventory_item_id
3290: AND organization_id = l_organization_id;
3377:
3378: PROCEDURE check_for_null_and_fks_in_svr
3379: (
3380: p_supp_vr IN gmd_supplier_spec_vrs%ROWTYPE
3381: , p_spec IN gmd_specifications%ROWTYPE
3382: , x_return_status OUT NOCOPY VARCHAR2
3383: )
3384: IS
3385:
3688: --+========================================================================+
3689: -- End of comments
3690:
3691: FUNCTION supp_vr_exist(p_supp_vr GMD_SUPPLIER_SPEC_VRS%ROWTYPE,
3692: p_spec GMD_SPECIFICATIONS%ROWTYPE)
3693: RETURN BOOLEAN IS
3694:
3695: CURSOR c_supp_vr IS
3696: SELECT vr.spec_vr_id, s.spec_name, s.spec_vers
3693: RETURN BOOLEAN IS
3694:
3695: CURSOR c_supp_vr IS
3696: SELECT vr.spec_vr_id, s.spec_name, s.spec_vers
3697: FROM gmd_specifications_b s, gmd_supplier_spec_vrs vr
3698: WHERE s.spec_id = vr.spec_id
3699: AND s.owner_organization_id = p_spec.owner_organization_id
3700: AND s.inventory_item_id = p_spec.inventory_item_id
3701: AND ( (s.revision is null and p_spec.revision is NULL ) OR -- handle item revision 5117733