 ********************/
 
 /*
-
--- create XXX type concept_codes for hte new ones
+-- create XXX type concept_codes for new packs
 drop table pack_seq purge;
 create table pack_seq as
 select 

  )
;
commit;

-- create an xxx version of the existing (later all) packs
drop table complete_pack purge;

  left join rxnorm_unit nu on nu.concept_id=numerator_unit_concept_id
  left join rxnorm_unit de on de.concept_id=denominator_unit_concept_id
),
-- Add a 0 before a leading dot
u as (
  select
    rd_combo,
    concept_name||case when v is null then null else ' '||regexp_replace(v, '^\.', '0.') ||' '||u end as comp_name
  from ds_comp
)
-- build the component
select
