130: -- End of comments
131:
132: PROCEDURE validate_mon_vr
133: (
134: p_mon_vr IN GMD_MONITORING_SPEC_VRS%ROWTYPE
135: , p_called_from IN VARCHAR2
136: , p_operation IN VARCHAR2
137: , x_mon_vr OUT NOCOPY GMD_MONITORING_SPEC_VRS%ROWTYPE
138: , x_return_status OUT NOCOPY VARCHAR2
133: (
134: p_mon_vr IN GMD_MONITORING_SPEC_VRS%ROWTYPE
135: , p_called_from IN VARCHAR2
136: , p_operation IN VARCHAR2
137: , x_mon_vr OUT NOCOPY GMD_MONITORING_SPEC_VRS%ROWTYPE
138: , x_return_status OUT NOCOPY VARCHAR2
139: ) IS
140:
141: -- Local Variables
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;
151: l_sampling_plan GMD_SAMPLING_PLANS%ROWTYPE;
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;
151: l_sampling_plan GMD_SAMPLING_PLANS%ROWTYPE;
152: l_sampling_plan_out GMD_SAMPLING_PLANS%ROWTYPE;
291: -- End of comments
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: )
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
301:
298: , x_return_status OUT NOCOPY VARCHAR2
299: )
300: IS
301:
302: l_mon_vr GMD_MONITORING_SPEC_VRS%ROWTYPE;
303:
304: CURSOR c_subinventory IS
305: SELECT 1
306: FROM mtl_secondary_inventories
555: --| Saikiran 12-Apr-2005 Convergence Changes |
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
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: )