DROP TABLE IF EXISTS t_bango;
CREATE TEMP TABLE t_bango (bango integer primal key, sakumotsu varchar);
--作物が指定されている場合は下文実行
INSERT INTO t_bango SELECT DISTINCT bango, sakumotsu FROM m_tekiyo
WHERE sakumotsu IN (SELECT sakumotsu FROM m_sakumotsu WHERE idSaku REGEXP '^(作物IDリスト)' AND sakumotsu NOT REGEXP '\((.*、)?(作物名リスト).*?(、.*)?を除く')
ORDER BY bango;

/* 該当薬剤リストボックス */
DROP TABLE IF EXISTS t_yaku;
CREATE TEMP TABLE t_yaku AS SELECT DISTINCT bango,meisho,tsusho FROM kihon
WHERE concat(x'09',tsusho,shurui,keito,koka,iso,RAC系統,mid,sayoten, sayokiko,fgroup) MATCH '%キーワード%'
AND ((SELECT COUNT(*) FROM t_bango)=0 OR bango IN (SELECT DISTINCT bango FROM t_bango));
--通称タブ
SELECT DISTINCT tsusho FROM t_yaku;
--登録番号タブ
SELECT DISTINCT bango,meisho FROM t_yaku;

/* 類似薬剤リストボックス */
--通称選択時の成分/系統/作用点ドロップダウンリスト
SELECT DISTINCT ifnullstr(seibun,ippanmei) FROM kihon WHERE tsusho = '選択通称';
SELECT DISTINCT keito FROM kihon WHERE tsusho = '選択通称';
SELECT DISTINCT sayoten FROM kihon WHERE tsusho = '選択通称';
/*
--番号選択時の成分/系統/作用点ドロップダウンリスト
SELECT DISTINCT ifnullstr(seibun,ippanmei) FROM kihon WHERE bango = 選択番号;
SELECT DISTINCT keito FROM kihon WHERE bango = 選択番号;
SELECT DISTINCT sayoten FROM kihon WHERE bango = 選択番号;
*/
--成分タブ
SELECT DISTINCT tsusho FROM kihon WHERE ifnullstr(seibun,ippanmei) = '選択成分'
AND ((SELECT COUNT(*) FROM t_bango)=0 OR bango IN (SELECT DISTINCT bango FROM t_bango))
ORDER BY tsusho;
--系統タブ
SELECT DISTINCT tsusho FROM kihon WHERE keito = '選択系統'
AND ((SELECT COUNT(*) FROM t_bango)=0 OR bango IN (SELECT DISTINCT bango FROM t_bango))
ORDER BY tsusho;
--作用点タブ
SELECT DISTINCT tsusho FROM kihon WHERE sayoten = '選択作用点'
AND ((SELECT COUNT(*) FROM t_bango)=0 OR bango IN (SELECT DISTINCT bango FROM t_bango))
ORDER BY tsusho;

/* 概要ペイン */
--剤の概要
SELECT bango,shurui,yoto,koka,zaikei,ryakusho,dokusei,torokubi,kousin,a.kigen AS kigen
FROM m_kihon as a LEFT JOIN seizai USING(bango) WHERE bango = 選択登録番号;
--有効成分表(変更無し)
SELECT DISTINCT ippanmei,seibun,ifnullstr(iso, seibun) AS ISO物質名,s.keito AS 系統,koka, JPP系統名, kagakumei,nodo,nodochu, MAX(gyodoku) AS gyodoku,seizaieikyo,seibuneikyo,dokusei,jogai,jyogai1,jyogai2,biko,mid,rac.keito as RAC系統,sayoten,sayokiko,fgroup,risk
FROM tvSeibun AS s LEFT JOIN rac USING(ippanmei) LEFT JOIN iso USING(ippanmei)
WHERE bango = 選択登録番号 GROUP BY ippanmei;
--水産動植物への影響(変更無し)
SELECT chuijiko,koshin FROM suisan WHERE bango = 選択登録番号;

/* 適用ペイン */
SELECT sakumotsu,byochu,mokuteki,baisu,ekiryo,jiki,kaisu,hoho,basho,jikan,ondo,dojo,chitai,tekiyaku,kaisu1,kaisu2,kaisu3,kaisu4,kaisu5
FROM m_tekiyo WHERE bango = 選択登録番号
AND ((SELECT COUNT(*) FROM t_bango)=0 OR bango IN (SELECT DISTINCT bango FROM t_bango));