141: -- End of comments
142:
143: PROCEDURE validate_mon_vr
144: (
145: p_mon_vr IN GMD_MONITORING_SPEC_VRS%ROWTYPE
146: , p_called_from IN VARCHAR2
147: , p_operation IN VARCHAR2
148: , x_mon_vr OUT NOCOPY GMD_MONITORING_SPEC_VRS%ROWTYPE
149: , x_return_status OUT NOCOPY VARCHAR2
144: (
145: p_mon_vr IN GMD_MONITORING_SPEC_VRS%ROWTYPE
146: , p_called_from IN VARCHAR2
147: , p_operation IN VARCHAR2
148: , x_mon_vr OUT NOCOPY GMD_MONITORING_SPEC_VRS%ROWTYPE
149: , x_return_status OUT NOCOPY VARCHAR2
150: ) IS
151:
152: -- Local Variables
154: l_return_status VARCHAR2(1);
155:
156: l_spec GMD_SPECIFICATIONS%ROWTYPE;
157: l_spec_out GMD_SPECIFICATIONS%ROWTYPE;
158: l_mon_vr GMD_MONITORING_SPEC_VRS%ROWTYPE;
159: l_mon_vr_tmp GMD_MONITORING_SPEC_VRS%ROWTYPE;
160: l_item_mst IC_ITEM_MST%ROWTYPE;
161: l_item_mst_out IC_ITEM_MST%ROWTYPE;
162: l_sampling_plan GMD_SAMPLING_PLANS%ROWTYPE;
155:
156: l_spec GMD_SPECIFICATIONS%ROWTYPE;
157: l_spec_out GMD_SPECIFICATIONS%ROWTYPE;
158: l_mon_vr GMD_MONITORING_SPEC_VRS%ROWTYPE;
159: l_mon_vr_tmp GMD_MONITORING_SPEC_VRS%ROWTYPE;
160: l_item_mst IC_ITEM_MST%ROWTYPE;
161: l_item_mst_out IC_ITEM_MST%ROWTYPE;
162: l_sampling_plan GMD_SAMPLING_PLANS%ROWTYPE;
163: l_sampling_plan_out GMD_SAMPLING_PLANS%ROWTYPE;
302: -- End of comments
303:
304: PROCEDURE check_for_null_and_fks_in_mvr
305: (
306: p_mon_vr IN GMD_MONITORING_SPEC_VRS%ROWTYPE
307: , p_spec IN GMD_SPECIFICATIONS%ROWTYPE
308: , x_mon_vr OUT NOCOPY GMD_MONITORING_SPEC_VRS%ROWTYPE
309: , x_return_status OUT NOCOPY VARCHAR2
310: )
304: PROCEDURE check_for_null_and_fks_in_mvr
305: (
306: p_mon_vr IN GMD_MONITORING_SPEC_VRS%ROWTYPE
307: , p_spec IN GMD_SPECIFICATIONS%ROWTYPE
308: , x_mon_vr OUT NOCOPY GMD_MONITORING_SPEC_VRS%ROWTYPE
309: , x_return_status OUT NOCOPY VARCHAR2
310: )
311: IS
312:
309: , x_return_status OUT NOCOPY VARCHAR2
310: )
311: IS
312:
313: l_mon_vr GMD_MONITORING_SPEC_VRS%ROWTYPE;
314:
315: CURSOR c_subinventory IS
316: SELECT 1
317: FROM mtl_secondary_inventories
566: --| Saikiran 12-Apr-2005 Convergence Changes |
567: --+========================================================================+
568: -- End of comments
569:
570: FUNCTION mon_vr_exist(p_mon_vr GMD_MONITORING_SPEC_VRS%ROWTYPE,
571: p_spec GMD_SPECIFICATIONS%ROWTYPE)
572: RETURN BOOLEAN IS
573:
574: CURSOR c_mon_vr IS
572: RETURN BOOLEAN IS
573:
574: CURSOR c_mon_vr IS
575: SELECT vr.spec_vr_id, s.spec_name, s.spec_vers
576: FROM gmd_specifications_b s, gmd_monitoring_spec_vrs vr
577: WHERE s.spec_id = vr.spec_id
578: AND ((s.grade_code is NULL AND p_spec.grade_code is NULL) OR
579: (s.grade_code = p_spec.grade_code)
580: )