[Home] [Help]
821:
822: pef_index INTEGER := 0 ; /* Process Effectivity Global counter */
823:
824: /* ------------------------------- Routng declarations --------------------------- */
825: TYPE routing_comment IS TABLE OF msc_st_routings.routing_comment%TYPE
826: INDEX BY BINARY_INTEGER;
827: rtg_routing_comment routing_comment ;
828: empty_rtg_comment routing_comment ;
829:
827: rtg_routing_comment routing_comment ;
828: empty_rtg_comment routing_comment ;
829:
830:
831: TYPE alt_routing_designator IS TABLE OF msc_st_routings.alternate_routing_designator%TYPE
832: INDEX BY BINARY_INTEGER;
833: rtg_alt_routing_designator alt_routing_designator ;
834: empty_rtg_designator alt_routing_designator ;
835: l_1237_count number; -- Biogen
833: rtg_alt_routing_designator alt_routing_designator ;
834: empty_rtg_designator alt_routing_designator ;
835: l_1237_count number; -- Biogen
836: l_1238_count number; -- Biogen
837: TYPE routing_quantity IS TABLE OF msc_st_routings.routing_quantity%TYPE
838: INDEX BY BINARY_INTEGER;
839: rtg_routing_quantity routing_quantity ;
840: /* Bug: 6522250 Vpedarla modfied the type frpm pls_idx_tbl to routing_quantity */
841:
4990: write_step_dependency(p_x_aps_fmeff_id);
4991:
4992: EXCEPTION
4993: WHEN OTHERS THEN
4994: log_message('Error writing to msc_st_routings: '||sqlerrm);
4995: return_status := FALSE;
4996: END write_routing;
4997:
4998: /*
7003: stmt_no := 904 ;
7004: i := 1 ;
7005: IF rtg_organization_id.FIRST > 0 THEN
7006: FORALL i IN rtg_organization_id.FIRST..rtg_organization_id.LAST
7007: INSERT INTO msc_st_routings (
7008: routing_sequence_id,
7009: sr_instance_id,
7010: routing_type,
7011: routing_comment,