5: L_spec_id number,
6: L_spec_vr_id number,
7: X_return_status OUT NOCOPY varchar2) IS
8:
9: p_sample GMD_SAMPLES%ROWTYPE;
10: x_sample GMD_SAMPLES%ROWTYPE;
11: p_event_spec_disp GMD_EVENT_SPEC_DISP%ROWTYPE;
12: x_event_spec_disp GMD_EVENT_SPEC_DISP%ROWTYPE;
13: p_sample_spec_disp GMD_SAMPLE_SPEC_DISP%ROWTYPE;
6: L_spec_vr_id number,
7: X_return_status OUT NOCOPY varchar2) IS
8:
9: p_sample GMD_SAMPLES%ROWTYPE;
10: x_sample GMD_SAMPLES%ROWTYPE;
11: p_event_spec_disp GMD_EVENT_SPEC_DISP%ROWTYPE;
12: x_event_spec_disp GMD_EVENT_SPEC_DISP%ROWTYPE;
13: p_sample_spec_disp GMD_SAMPLE_SPEC_DISP%ROWTYPE;
14: x_sample_spec_disp GMD_SAMPLE_SPEC_DISP%ROWTYPE;
254: fetch get_item_desc into p_sample.sample_desc ;
255: close get_item_desc;
256:
257: p_sample.sample_instance := sample_instance;
258: IF not GMD_SAMPLES_PVT.insert_row (
259: p_sample, x_sample ) THEN
260: raise fnd_api.g_exc_error;
261: END IF;
262:
344: p_sample.sample_instance := sample_instance;
345: p_sample.retain_as := 'A' ;
346: p_sample.sample_disposition := '0PL' ;
347:
348: IF not GMD_SAMPLES_PVT.insert_row (
349: p_sample, x_sample ) THEN
350: raise fnd_api.g_exc_error;
351: END IF;
352:
428: p_sample.sample_instance := sample_instance;
429: p_sample.retain_as := 'R' ;
430: p_sample.sample_disposition := '0PL' ;
431:
432: IF not GMD_SAMPLES_PVT.insert_row (
433: p_sample, x_sample ) THEN
434: raise fnd_api.g_exc_error;
435: END IF;
436: