#! /bin/sh

# this is a short ingres script for creating a medical database
# ask Dr Eberhard W Lisse <el@lisse.NA>

destroydb icd
creatdb icd;

ingres icd <<_EOF
create icd (primcode=i4,sekcode=i2,short=c30,long=c255)
\p\g
append to icd (primcode=001,sekcode=00,short="CHOLERA D/T VIB CHOLERAE",long="CHOLERA DUE TO VIBRIO CHOLERAE")
append to icd (primcode=001,sekcode=10,short="CHOLERA D/T VIB EL TOR",long="CHOLERA DUE TO VIBRIO CHOLERAE EL TOR")
append to icd (primcode=001,sekcode=90,short="CHOLERA NOS",long="CHOLERA, UNSPECIFIED")
append to icd (primcode=002,sekcode=00,short="TYPHOID FEVER",long="TYPHOID FEVER")
append to icd (primcode=002,sekcode=10,short="PARATYPHOID FEVER A",long="PARATYPHOID FEVER A")
append to icd (primcode=002,sekcode=20,short="PARATYPHOID FEVER B",long="PARATYPHOID FEVER B")
append to icd (primcode=002,sekcode=30,short="PARATYPHOID FEVER C",long="PARATYPHOID FEVER C")
append to icd (primcode=002,sekcode=90,short="PARATYPHOID FEVER NOS",long="PARATYPHOID FEVER, UNSPECIFIED")
append to icd (primcode=003,sekcode=00,short="SALMONELLA ENTERITIS",long="SALMONELLA GASTROENTERITIS")
append to icd (primcode=003,sekcode=10,short="SALMONELLA SEPTICEMIA",long="SALMONELLA SEPTICEMIA")
\g
modify icd to cisam on primcode,sekcode
\p\g
define permit all on icd to all
\p\g
help icd
\p\g
range of i is icd
retrieve (i.primcode,i.sekcode,i.short)
\g
_EOF