216: p_sampling_event GMD_SAMPLING_EVENTS%ROWTYPE;
217: x_sampling_event GMD_SAMPLING_EVENTS%ROWTYPE;
218: p_event_spec_disp GMD_EVENT_SPEC_DISP%ROWTYPE;
219: x_event_spec_disp GMD_EVENT_SPEC_DISP%ROWTYPE;
220: p_sample_spec_disp GMD_SAMPLE_SPEC_DISP%ROWTYPE;
221: x_sample_spec_disp GMD_SAMPLE_SPEC_DISP%ROWTYPE;
222:
223: -- M. Grosser 12-Apr-2006 BUG 4695552 - Modified procedures variant_retianed_sample and events_for_status_change
224: -- to pass revision for creation of samples and sampling events
217: x_sampling_event GMD_SAMPLING_EVENTS%ROWTYPE;
218: p_event_spec_disp GMD_EVENT_SPEC_DISP%ROWTYPE;
219: x_event_spec_disp GMD_EVENT_SPEC_DISP%ROWTYPE;
220: p_sample_spec_disp GMD_SAMPLE_SPEC_DISP%ROWTYPE;
221: x_sample_spec_disp GMD_SAMPLE_SPEC_DISP%ROWTYPE;
222:
223: -- M. Grosser 12-Apr-2006 BUG 4695552 - Modified procedures variant_retianed_sample and events_for_status_change
224: -- to pass revision for creation of samples and sampling events
225: --
494: -- insert into bfs_msg
495: -- values
496: -- (' sample_id = ' || x_sample.sample_id );
497: --commit;
498: IF not GMD_SAMPLE_SPEC_DISP_PVT.insert_row (
499: p_sample_spec_disp ) THEN
500: raise fnd_api.g_exc_error;
501: END IF;
502: -- insert into bfs_msg
599: values
600: (' sample_id = ' || x_sample.sample_id );
601: commit; */
602: p_sample_spec_disp.sample_id := x_sample.sample_id;
603: IF not GMD_SAMPLE_SPEC_DISP_PVT.insert_row (
604: p_sample_spec_disp ) THEN
605: raise fnd_api.g_exc_error;
606:
607: END IF;
693: /* insert into bfs_msg
694: values
695: (' sample_id = ' || x_sample.sample_id );
696: commit; */
697: IF not GMD_SAMPLE_SPEC_DISP_PVT.insert_row (
698: p_sample_spec_disp ) THEN
699: raise fnd_api.g_exc_error;
700: END IF;
701: /* insert into bfs_msg