[Home] [Help]
3736: -- M. Grosser 29-Sep-2002 BUG 2596689 - Modified code to check to see
3737: -- if a sample no is used more than once within an
3738: -- organization. If so, add the record type to the
3739: -- sample name
3740: -- M. Grosser 08-Oct-2002 Set sampling_plan_id to NULL in gmd_sampling_events
3741: -- M. Grosser 08-Nov-2002 Added calls to spec matching functions to see if
3742: -- there is a valid spec for samples with no
3743: -- results
3744: -- B. Stone 23-Jun-2003 Added column SAMPLE_TYPE to insert for Patch K
3958: -- Bug 3859406; replaced table all_tab_columns with fnd_columns;
3959: -- per apps standards
3960:
3961: -- B3883674 Added following cursor
3962: -- Refer to GMD_SAMPLING_EVENTS for sample_type column
3963: CURSOR c_patch_level1 IS
3964: SELECT 'K+'
3965: from all_tab_columns
3966: where table_name='GMD_SAMPLING_EVENTS'
3962: -- Refer to GMD_SAMPLING_EVENTS for sample_type column
3963: CURSOR c_patch_level1 IS
3964: SELECT 'K+'
3965: from all_tab_columns
3966: where table_name='GMD_SAMPLING_EVENTS'
3967: and column_name='SAMPLE_TYPE'
3968: and owner = l_gmd;
3969:
3970: -- B3883674 Refer to GMD_SAMPLES for sample_type column
4011: l_i := 'I';
4012: l_gmd := 'GMD';
4013:
4014: /* Find the patch level */
4015: -- B3883674 Fetch sample_type for GMD_SAMPLING_EVENTS
4016: OPEN c_patch_level1;
4017: FETCH c_patch_level1 INTO l_sampling_events_level;
4018: CLOSE c_patch_level1;
4019:
4029: IF l_sampling_events_level IS NULL THEN
4030: -- IF l_patch_level IS NULL THEN
4031:
4032: -- Customer is on J
4033: l_sql_stmt1 := 'INSERT INTO gmd_sampling_events '
4034: || '('
4035: || 'item_id,'
4036: || 'sampling_event_id,'
4037: || 'original_spec_vr_id,'
4102: || ' )';
4103:
4104: ELSE
4105: -- Customer is on K
4106: l_sql_stmt1 := 'INSERT INTO gmd_sampling_events'
4107: || '('
4108: || 'item_id,'
4109: || 'sampling_event_id,'
4110: || 'original_spec_vr_id,'
5785: nores_rec GMD_SAMPLES%ROWTYPE;
5786:
5787: CURSOR c_check_validity_rule (psampling_event_id NUMBER) IS
5788: SELECT original_spec_vr_id
5789: FROM gmd_sampling_events
5790: WHERE sampling_event_id = psampling_event_id;
5791:
5792: -- Bug 3601780
5793: CURSOR c_ip_samples is
5923: where event_spec_disp_id = l_ip_samples.ip_event_spec ;
5924: update gmd_event_spec_disp
5925: set disposition = '3C'
5926: where event_spec_disp_id = l_ip_samples.ip_event_spec ;
5927: update gmd_sampling_events
5928: set disposition = '3C'
5929: where sampling_event_id = l_ip_samples.ip_sampling_event;
5930: COMMIT;
5931: