gengou
{   // ґ̐NNvZ邽߂̌ːZ
// ͑SĔpŁDFł鏑͎̂ƂD
// 20050507
// 2005 5 7
// 2005/05/07
// 2005/5/7
// 5/7/2005  <-TVłDVTi[bpj͂߁D
// 2005N57
// 2005N0507
//
// 邢͌LiLjɑāCNQȓŏL̏D
// H17/5/7 170507 Ȃǁc
// LȂ̂QNiQj͔F܂DJAN,FEB,MAR g܂D
// NƌCƓ̊Ԃ̋؂L͐ȊOȂ牽łD
// / , .  N ˂ nen Ȃǁc
// ؂LȂ̏ꍇ͕KCN͂Q܂͂SCƓ͂QD

    H = 1988;  // <- ON(Nł͂Ȃ)̐N
    h = 1988;
     = 1988;
     = 1988;

    S = 1925;
    s = 1925;
     = 1925;
    a = 1925;

    T = 1911;
    t = 1911;
     = 1911;
    吳 = 1911;

    M = 1867;
    m = 1867;
     = 1867;
     = 1867;
}

//////////////////////////////////////////////////////////////////////////////////////
//
// patient demograph  dmgcnf.txt Q
//
// remark ɊւĂ remcnf.txt Q
//
// drug volume ɊւĂ iocnf.txt Q
//
// vital sign ɊւĂ parcnf.txt Q
//
//////////////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////////////
//
// ґ Ƀ`[gp

y[W      // j^Jn牽y[WځD ŏ̃y[WPy[W
    = pageValue ( ) ;
y[W[b
    = pageTime ( ) ;
y[W[
    = y[W[b $ ' H:MM' ;
I
    = remarkEndValue
      ('', '', -1);
Iċz
    = remarkEndValue
      ('', 'ċz', -1);
I
    = remarkEndValue
      ('', '', -1);
Iqf
    = remarkEndValue
      ('', 'qf', -1);
}ǎ
    = remarkBeginValue
      ('CǑ}', '', -1);
}ǻ
    = remarkBeginValue
      ('CǑ}', 'size', -1);
}ǎs
    = remarkBeginValue
      ('CǑ}', 's', -1);
}Ƕ
    = remarkBeginValue
      ('CǑ}', 'cuff', -1);
}ذ
    = remarkBeginValue
      ('CǑ}', 'leak', -1);
}ǐ[
    = remarkBeginValue
      ('CǑ}', '[', -1);
dŊ
    = remarkBeginValue
      ('dh', 'Ŋ', -1);
doH
    = remarkBeginValue
      ('dh', 'oH', -1);
dj[
    = remarkBeginValue
      ('dh', 'j[', -1);
dޕ
    = remarkBeginValue
      ('dh', 'ޕ', -1);
dސ[
    = remarkBeginValue
      ('dh', 'ސ[', -1);
dt
    = remarkBeginValue
      ('dh', 't', -1);
dt
    = remarkBeginValue
      ('dh', 't', -1);
ҖŊ
    = remarkBeginValue
      ('Җh', 'Ŋ', -1);
ҖoH
    = remarkBeginValue
      ('Җh', 'oH', -1);
Җt
    = remarkBeginValue
      ('Җh', 't', -1);
Җt
    = remarkBeginValue
      ('Җh', 't', -1);

//////////////////////////////////////////////////////////////////////////////////////
//
// ȉC{Ȋw̖䒠 incident report ̂߂̌vZD
// '' demographږł i ͌vZ̖OłC
// jsatmplt.txtňpĂ܂D "i" incident  i łD
// generated_unique_number NV.exeɑgݍ݂̋@\Ŗ䒠ɑo鎞ɕKv
// uׂĂ̏Ǘɂ킽ėBꖳ(unique)Ȕԍv𐶐܂D

iʎq = demograph ('generated_unique_number');
ipԍ = pԍ;
iҔԍ = ID;
iҎ = ;
iҎ = Ȑ;
iN = era ('N', 'yyyy-mm-dd') ;
iN = Nߒl $ '#' ;
iҐ = ʕ == 'j' ? 'M' :
            ʕ == '' ? 'F' : '';
iABOt^ = ABO^ == 'A' ? 'a' :
                   ABO^ == 'B' ? 'b' :
                   ABO^ == 'O' ? 'o' :
                   ABO^ == 'AB' ? 'ab' : 'x';
iRHt^ = Rh^ == '+' ? 'rhD+' :
                  Rh^ == '-' ? 'rhD-' : '';
iҐg = gl $ '#';
iґ̏d = ̏dl $ '#.#';
iBMIw = ̏dl * 10000. / gl / gl $ '#.#';
iASAPSR[h = ASA;
iMRSA = MRSA;
iHBs = HBs;
iHCV = HCV;
iWa = Wa;
i = ;

ip           = demograph ('p');
ipA          = substr ('/', 0, ip);
ipB          = substr ('/', 1, ip);
ipʕރR[h = substr (':', 0, ipA);
ipʕޖ     = substr (':', 1, ipA);
ipʃR[h     = substr (':', 0, ipB);
ipʖ         = substr (':', 1, ipB);

i   = remarkTime ('', 1) ? '*' : '';
i = remarkTime ('', 1) ? '*' : '';
i = remarkTime ('', 1) |
          remarkTime ('E', 1) ? '*' : '';
iڐΈ = remarkTime ('ڐΈ', 1) ? '*' : '';
ï = remarkTime ('ެŲ', 1) |
          remarkTime ('̈', 1) ? '*' : '';
i = (i | i | i | iڐΈ | ï) ? '' : '*';

i = L^Jnb $ 'yyyy-mm-dd HH:MM' ;
iގ = L^Ib $ 'yyyy-mm-dd HH:MM' ;
iݎ = L^l $ '#' ;
iJn = Jnb $ 'yyyy-mm-dd HH:MM' ;
iI = Ib $ 'yyyy-mm-dd HH:MM' ;
i = l $ '#' ;
ipJn = pJnb $ 'yyyy-mm-dd HH:MM' ;
ipI = pIb $ 'yyyy-mm-dd HH:MM' ;
ip = pl $ '#' ;

ip\       = demograph ('p\') ;
ipJn\莞 = demograph ('pJn\莞') ;
ip\莞     = demograph ('p\莞') ;
ipJn\b         = ip\ & ipJn\莞 &
                          ~(ip\ @ ' ' @ ipJn\莞) ;
ip\b             = substr (':', 0, ip\莞) * 60 +
                          substr (':', 1, ip\莞) ;
ip\蕪             = ip\b / 60 $ '#' ;
ipJn\     = ipJn\b $ 'yyyy-mm-dd HH:MM' ;
ipI\     = ipJn\b + ip\b $ 'yyyy-mm-dd HH:MM' ;

i\莞     = demograph ('\莞') ;
i\         = ip\ & i\莞 &
                          (~(ip\ @ ' ' @ i\莞) $ 'yyyy-mm-dd HH:MM') ;
iގ\         = '' ;
iݎ\蕪             = '' ;

io     = oʒl $ '#' ;
iPAt = Ptʒl $ '#' ;
iAt = tʒl $ '#' ;
iA       = Aʒl $ '#' ;

// ȉC"R[h"炯DOɂ͕KR[ht炵D
// ȂCǂ炩ЕɂȂ̂́C܂D
// wɂ˂ĂD

i@敪R[h = ia == 'ICU' ? 3 :
                  ia == 'A' ? 2 : 1;
i@敪     = i@敪R[h == 3 ? 'ICU' :
                  i@敪R[h == 2 ? 'A' : 'a';

i@       = demograph ('@');
i@R[h = substr (':', 0, i@);
i@     = substr (':', 1, i@);

i{       = demograph ('{');
i{R[h = substr (':', 0, i{);
i{     = substr (':', 1, i{);

i       = demograph ('Ȗ');
iȃR[h = substr (':', 0, i);
iȖ     = substr (':', 1, i) | i;

ia       = demograph ('a');
iaR[h = substr (':', 0, ia);
ia     = substr (':', 1, ia) | ia;

ip       = demograph ('p');
ipR[h = substr (':', 0, ip);
ip     = substr (':', 1, ip) | ip;

iꏊR[h = substr ('*', 0, ip) ? 2 : 1;
iꏊ     = iꏊR[h > 1 ? 'pO' : 'p';

// aR[hICD10gĂ܂D
// pIDC9CMgƎv̂łCp҂dJ̎p\
// ͂یpƑΉȂ̂ŁCیԍgĂ܂D
// ea@œƎR[hgĂꍇ́CADM\DMG-a.txt
// ADM\DMG-p.txt蒼ĂD
// R[hƖOP΂PőΉĂȂƁCJSA䒠ɓ]ŁC
// Ȃ񂾂킩Ȃɕap悤łD

ipOa1       = demograph ('pOa1');
ipOa1R[h = substr (':', 0, ipOa1);
ipOa1     = substr (':', 1, ipOa1) | ipOa1;
ipOa2       = demograph ('pOa2');
ipOa2R[h = substr (':', 0, ipOa2);
ipOa2     = substr (':', 1, ipOa2) | ipOa2;
ipOa3       = demograph ('pOa3');
ipOa3R[h = substr (':', 0, ipOa3);
ipOa3     = substr (':', 1, ipOa3) | ipOa3;

i\p1       = demograph ('\p1');
i\p1R[h = substr (':', 0, i\p1);
i\p1     = substr (':', 1, i\p1) | i\p1;
i\p2       = demograph ('\p2');
i\p2R[h = substr (':', 0, i\p2);
i\p2     = substr (':', 1, i\p2) | i\p2;
i\p3       = demograph ('\p3');
i\p3R[h = substr (':', 0, i\p3);
i\p3     = substr (':', 1, i\p3) | i\p3;

i\p1 = demograph ('\p1');
i\p1R[h = i\p1 == 'E' ? '1' :
                   i\p1 == '' ? '2' :
                   i\p1 == '' ? '3' : '';
i\p2 = demograph ('\p2');
i\p2R[h = i\p2 == 'E' ? '1' :
                   i\p2 == '' ? '2' :
                   i\p2 == '' ? '3' : '';
i\p3 = demograph ('\p3');
i\p3R[h = i\p3 == 'E' ? '1' :
                   i\p3 == '' ? '2' :
                   i\p3 == '' ? '3' : '';

ipa1       = demograph ('pa1');
ipa1R[h = substr (':', 0, ipa1);
ipa1     = substr (':', 1, ipa1) | ipa1;
ipa2       = demograph ('pa2');
ipa2R[h = substr (':', 0, ipa2);
ipa2     = substr (':', 1, ipa2) | ipa2;
ipa3       = demograph ('pa3');
ipa3R[h = substr (':', 0, ipa3);
ipa3     = substr (':', 1, ipa3) | ipa3;

i{p1       = demograph ('{p1');
i{p1R[h = substr (':', 0, i{p1);
i{p1     = substr (':', 1, i{p1) | i{p1;
i{p2       = demograph ('{p2');
i{p2R[h = substr (':', 0, i{p2);
i{p2     = substr (':', 1, i{p2) | i{p2;
i{p3       = demograph ('{p3');
i{p3R[h = substr (':', 0, i{p3);
i{p3     = substr (':', 1, i{p3) | i{p3;

i{p1 = demograph ('{p1');
i{p1R[h = i{p1 == 'E' ? '1' :
                   i{p1 == '' ? '2' :
                   i{p1 == '' ? '3' : '';
i{p2 = demograph ('{p2');
i{p2R[h = i{p2 == 'E' ? '1' :
                   i{p2 == '' ? '2' :
                   i{p2 == '' ? '3' : '';
i{p3 = demograph ('{p3');
i{p3R[h = i{p3 == 'E' ? '1' :
                   i{p3 == '' ? '2' :
                   i{p3 == '' ? '3' : '';

iA_CRC            = mnemonicVolume ('RCC') $ '#';
iA_CRCPʋ敪    = iA_CRC & 1;
iA_WB             = mnemonicVolume ('WB') $ '#';
iA_WBPʋ敪     = iA_WB& 1;
iA_PC             = mnemonicVolume ('PC') $ '#';
iA_PCPʋ敪     = iA_PC & 1;
iA_FFP            = mnemonicVolume ('FFP') $ '#';
iA_FFPPʋ敪    = iA_FFP & 1;
iA_Ȍ         = mnemonicVolume ('') $ '#';
iA_ȌPʋ敪 = iA_Ȍ & 1;
iA_5alb           = mnemonicVolume ('5%alb') $ '#';
iA_5albPʋ敪   = iA_5alb & 1;
iA_WRC            = mnemonicVolume ('WRC') $ '#';
iA_25alb          = mnemonicVolume ('25%alb') $ '#';
iA_̑         = iA_WRC ? iA_WRC $ 'WRC:#' :
                         iA_25alb ? iA_25alb $ '25alb:#' :
                         '';
iA_̑     = substr (':', 0, iA_̑);
iA_̑       = substr (':', 1, iA_̑);
iA_̑Pʋ敪 = iA_̑ & 1;

// pCaƓlɐEɂR[hKvłD
// R[hƖOP΂PɑΉĂȂƕςȂƂɂȂ悤łD

iȎ1     = demograph ('1');
i1       = substr ('/', 0, iȎ1);
i1R[h = substr (':', 0, i1);
i1     = substr (':', 1, i1) | i1;
i1       = substr ('/', 1, iȎ1) | iȎ1;
i1R[h = substr (':', 0, i1);
i1     = substr (':', 1, i1) | i1;
iȎ2     = demograph ('2');
i2       = substr ('/', 0, iȎ2);
i2R[h = substr (':', 0, i2);
i2     = substr (':', 1, i2) | i2;
i2       = substr ('/', 1, iȎ2) | iȎ2;
i2R[h = substr (':', 0, i2);
i2     = substr (':', 1, i2) | i2;
iȎ3     = demograph ('3');
i3       = substr ('/', 0, iȎ3);
i3R[h = substr (':', 0, i3);
i3     = substr (':', 1, i3) | i3;
i3       = substr ('/', 1, iȎ3) | iȎ3;
i3R[h = substr (':', 0, i3);
i3     = substr (':', 1, i3) | i3;
iwȎ1     = demograph ('w1');
iw1       = substr ('/', 0, iwȎ1);
iw1R[h = substr (':', 0, iw1);
iw1     = substr (':', 1, iw1) | iw1;
iw1       = substr ('/', 1, iwȎ1) | iwȎ1;
iw1R[h = substr (':', 0, iw1);
iw1     = substr (':', 1, iw1) | iw1;
iwȎ2     = demograph ('w2');
iw2       = substr ('/', 0, iwȎ2);
iw2R[h = substr (':', 0, iw2);
iw2     = substr (':', 1, iw2) | iw2;
iw2       = substr ('/', 1, iwȎ2) | iwȎ2;
iw2R[h = substr (':', 0, iw2);
iw2     = substr (':', 1, iw2) | iw2;
iwȎ3     = demograph ('w3');
iw3       = substr ('/', 0, iwȎ3);
iw3R[h = substr (':', 0, iw3);
iw3     = substr (':', 1, iw3) | iw3;
iw3       = substr ('/', 1, iwȎ3) | iwȎ3;
iw3R[h = substr (':', 0, iw3);
iw3     = substr (':', 1, iw3) | iw3;

ipȎ1     = demograph ('p1');
ip1       = substr ('/', 0, ipȎ1);
ip1R[h = substr (':', 0, ip1);
ip1     = substr (':', 1, ip1) | ip1;
ip1       = substr ('/', 1, ipȎ1) | ipȎ1;
ip1R[h = substr (':', 0, ip1);
ip1     = substr (':', 1, ip1) | ip1;
ipȎ2     = demograph ('p2');
ip2       = substr ('/', 0, ipȎ2);
ip2R[h = substr (':', 0, ip2);
ip2     = substr (':', 1, ip2) | ip2;
ip2       = substr ('/', 1, ipȎ2) | ipȎ2;
ip2R[h = substr (':', 0, ip2);
ip2     = substr (':', 1, ip2) | ip2;
ipȎ3     = demograph ('p3');
ip3       = substr ('/', 0, ipȎ3);
ip3R[h = substr (':', 0, ip3);
ip3     = substr (':', 1, ip3) | ip3;
ip3       = substr ('/', 1, ipȎ3) | ipȎ3;
ip3R[h = substr (':', 0, ip3);
ip3     = substr (':', 1, ip3) | ip3;
ipȎ4     = demograph ('p4');
ip4       = substr ('/', 0, ipȎ4);
ip4R[h = substr (':', 0, ip4);
ip4     = substr (':', 1, ip4) | ip4;
ip4       = substr ('/', 1, ipȎ4) | ipȎ4;
ip4R[h = substr (':', 0, ip4);
ip4     = substr (':', 1, ip4) | ip4;
ipȎ5     = demograph ('p5');
ip5       = substr ('/', 0, ipȎ5);
ip5R[h = substr (':', 0, ip5);
ip5     = substr (':', 1, ip5) | ip5;
ip5       = substr ('/', 1, ipȎ5) | ipȎ5;
ip5R[h = substr (':', 0, ip5);
ip5     = substr (':', 1, ip5) | ip5;
ipȎ6     = demograph ('p6');
ip6       = substr ('/', 0, ipȎ6);
ip6R[h = substr (':', 0, ip6);
ip6     = substr (':', 1, ip6) | ip6;
ip6       = substr ('/', 1, ipȎ6) | ipȎ6;
ip6R[h = substr (':', 0, ip6);
ip6     = substr (':', 1, ip6) | ip6;

iȎ1     = demograph ('1');
i1       = substr ('/', 0, iȎ1);
i1R[h = substr (':', 0, i1);
i1     = substr (':', 1, i1) | i1;
i1       = substr ('/', 1, iȎ1) | iȎ1;
i1R[h = substr (':', 0, i1);
i1     = substr (':', 1, i1) | i1;
iȎ2     = demograph ('2');
i2       = substr ('/', 0, iȎ2);
i2R[h = substr (':', 0, i2);
i2     = substr (':', 1, i2) | i2;
i2       = substr ('/', 1, iȎ2) | iȎ2;
i2R[h = substr (':', 0, i2);
i2     = substr (':', 1, i2) | i2;
iȎ3     = demograph ('3');
i3       = substr ('/', 0, iȎ3);
i3R[h = substr (':', 0, i3);
i3     = substr (':', 1, i3) | i3;
i3       = substr ('/', 1, iȎ3) | iȎ3;
i3R[h = substr (':', 0, i3);
i3     = substr (':', 1, i3) | i3;
iԐډȎ1     = demograph ('Ԑ1');
iԐډ1       = substr ('/', 0, iԐډȎ1);
iԐډ1R[h = substr (':', 0, iԐډ1);
iԐډ1     = substr (':', 1, iԐډ1) | iԐډ1;
iԐڎ1       = substr ('/', 1, iԐډȎ1) | iԐډȎ1;
iԐڎ1R[h = substr (':', 0, iԐڎ1);
iԐڎ1     = substr (':', 1, iԐڎ1) | iԐڎ1;
iԐډȎ2     = demograph ('Ԑ2');
iԐډ2       = substr ('/', 0, iԐډȎ2);
iԐډ2R[h = substr (':', 0, iԐډ2);
iԐډ2     = substr (':', 1, iԐډ2) | iԐډ2;
iԐڎ2       = substr ('/', 1, iԐډȎ2) | iԐډȎ2;
iԐڎ2R[h = substr (':', 0, iԐڎ2);
iԐڎ2     = substr (':', 1, iԐڎ2) | iԐڎ2;
iԐډȎ3     = demograph ('Ԑ3');
iԐډ3       = substr ('/', 0, iԐډȎ3);
iԐډ3R[h = substr (':', 0, iԐډ3);
iԐډ3     = substr (':', 1, iԐډ3) | iԐډ3;
iԐڎ3       = substr ('/', 1, iԐډȎ3) | iԐډȎ3;
iԐڎ3R[h = substr (':', 0, iԐڎ3);
iԐڎ3     = substr (':', 1, iԐڎ3) | iԐڎ3;

// ȉCCVfg֘A

ipO1           = demograph ('pO1');
ipO1A          = substr ('/', 0, ipO1);
ipO1B          = substr ('/', 1, ipO1);
ipO1ރR[h = substr (':', 0, ipO1A);
ipO1ޖ     = substr (':', 1, ipO1A);
ipO1R[h     = substr (':', 0, ipO1B);
ipO1         = substr (':', 1, ipO1B);
ipO2           = demograph ('pO2');
ipO2A          = substr ('/', 0, ipO2);
ipO2B          = substr ('/', 1, ipO2);
ipO2ރR[h = substr (':', 0, ipO2A);
ipO2ޖ     = substr (':', 1, ipO2A);
ipO2R[h     = substr (':', 0, ipO2B);
ipO2         = substr (':', 1, ipO2B);
ipO3           = demograph ('pO3');
ipO3A          = substr ('/', 0, ipO3);
ipO3B          = substr ('/', 1, ipO3);
ipO3ރR[h = substr (':', 0, ipO3A);
ipO3ޖ     = substr (':', 1, ipO3A);
ipO3R[h     = substr (':', 0, ipO3B);
ipO3         = substr (':', 1, ipO3B);

iǂ̎                    = demograph ('ǂ̎');
iǂ̎A                   = substr ('/', 0, iǂ̎);
iǂ̎B                   = substr ('/', 1, iǂ̎);
iǂ̎ޑ啪ރR[h        = substr (':', 0, iǂ̎A);
iǂ̎ޑ啪ޖ            = substr (':', 1, iǂ̎A);
iǂ̎ޏރR[h        = substr (':', 0, iǂ̎B);
iǂ̎ޏޖ            = substr (':', 1, iǂ̎B);
iǂ̎޺                = demograph ('ǂ̎޺');
iǂ̔ǎ                = demograph ('ǂ̔ǎ');
iǂ̔ǎR[h          = substr (':', 0, iǂ̔ǎ);
iǂ̔ǎ              = substr (':', 1, iǂ̔ǎ);
iǂ̖h~̉\            = demograph ('ǂ̖h~̉\');
iǂ̖h~̉\R[h      = substr (':', 0, iǂ̖h~̉\);
iǂ̖h~̉\          = substr (':', 1, iǂ̖h~̉\);
iǂ̓]A                    = demograph ('ǂ̓]A');
iǂ̓]AR[h              = substr (':', 0, iǂ̓]A);
iǂ̓]A                  = substr (':', 1, iǂ̓]A);
iǂ̓]A                = demograph ('ǂ̓]A');
iǂ̌                    = demograph ('ǂ̌');
iǂ̌A                   = substr ('/', 0, iǂ̌);
iǂ̌B                   = substr ('/', 1, iǂ̌);
iǂ̌C                   = substr ('/', 2, iǂ̌);
iǂ̌啪ރR[h        = substr (':', 0, iǂ̌A);
iǂ̌啪ޖ            = substr (':', 1, iǂ̌A);
iǂ̌ރR[h        = substr (':', 0, iǂ̌B);
iǂ̌ޖ            = substr (':', 1, iǂ̌B);
iǂ̌ރR[h        = substr (':', 0, iǂ̌C);
iǂ̌ޖ            = substr (':', 1, iǂ̌C);
iǂ̌                = demograph ('ǂ̌');
iǐ_pO]s\       = demograph ('ǐ_pO]s\');
iǐ_pO]s\R[h = substr (':', 0, iǐ_pO]s\);
iǐ_pO]s\     = substr (':', 1, iǐ_pO]s\);
iǐ_ms             = demograph ('ǐ_ms');
iǐ_msR[h       = substr (':', 0, iǐ_ms);
iǐ_ms           = substr (':', 1, iǐ_ms);
iǐ_Zps             = demograph ('ǐ_Zps');
iǐ_ZpsR[h       = substr (':', 0, iǐ_Zps);
iǐ_Zps           = substr (':', 1, iǐ_Zps);
iǐ_󋵔f̒x       = demograph ('ǐ_󋵔f̒x');
iǐ_󋵔f̒xR[h = substr (':', 0, iǐ_󋵔f̒x);
iǐ_󋵔f̒xꖼ     = substr (':', 1, iǐ_󋵔f̒x);
iǐ_Эƹݕs        = demograph ('ǐ_Эƹݕs');
iǐ_ЭƹݕsR[h  = substr (':', 0, iǐ_Эƹݕs);
iǐ_Эƹݕs      = substr (':', 1, iǐ_Эƹݕs);
iǐ_Ŏs\           = demograph ('ǐ_Ŏs\');
iǐ_Ŏs\R[h     = substr (':', 0, iǐ_Ŏs\);
iǐ_Ŏs\         = substr (':', 1, iǐ_Ŏs\);
iǐ_ߏdJ             = demograph ('ǐ_ߏdJ');
iǐ_ߏdJR[h       = substr (':', 0, iǐ_ߏdJ);
iǐ_ߏdJ           = substr (':', 1, iǐ_ߏdJ);
iǐ_ܰs           = demograph ('ǐ_ܰs');
iǐ_ܰsR[h     = substr (':', 0, iǐ_ܰs);
iǐ_ܰs         = substr (':', 1, iǐ_ܰs);
iǐ_̑               = demograph ('ǐ_̑');
iǐ_̑R[h         = substr (':', 0, iǐ_̑);
iǐ_̑             = substr (':', 1, iǐ_̑);

// JSA䒠̖܃R[hʂ̎gpL

i0101 = codeVolume ('0101') > 0 ;
i0102 = codeVolume ('0102') > 0 ;
i0103 = codeVolume ('0103') > 0 ;
i0104 = codeVolume ('0104') > 0 ;
i0105 = codeVolume ('0105') > 0 ;
i0106 = codeVolume ('0106') > 0 ;
i0107 = codeVolume ('0107') > 0 ;
i0108 = codeVolume ('0108') > 0 ;
i0109 = codeVolume ('0109') > 0 ;
i0110 = codeVolume ('0110') > 0 ;
i0111 = codeVolume ('0111') > 0 ;
i0112 = codeVolume ('0112') > 0 ;
i0113 = codeVolume ('0113') > 0 ;
i0114 = codeVolume ('0114') > 0 ;
i0115 = codeVolume ('0115') > 0 ;
i0116 = codeVolume ('0116') > 0 ;
iQ1 = i0101 | i0102 | i0103 | i0104 | i0105 |
         i0106 | i0107 | i0108 | i0109 | i0110 |
         i0111 | i0112 | i0113 | i0114 | i0115 |
         i0116 ;

i0201 = codeVolume ('0201') > 0 ;
i0202 = codeVolume ('0202') > 0 ;
i0203 = codeVolume ('0203') > 0 ;
i0204 = codeVolume ('0204') > 0 ;
i0205 = codeVolume ('0205') > 0 ;
i0206 = codeVolume ('0206') > 0 ;
i0207 = codeVolume ('0207') > 0 ;
i0208 = codeVolume ('0208') > 0 ;
i0209 = codeVolume ('0209') > 0 ;
i0210 = codeVolume ('0210') > 0 ;
i0211 = codeVolume ('0211') > 0 ;
i0212 = codeVolume ('0212') > 0 ;
i0213 = codeVolume ('0213') > 0 ;
iQ2 = i0201 | i0202 | i0203 | i0204 | i0205 |
             i0206 | i0207 | i0208 | i0209 | i0210 |
             i0211 | i0212 | i0213 ;

i0301 = codeVolume ('0301') > 0 ;
i0302 = codeVolume ('0302') > 0 ;
i0303 = codeVolume ('0303') > 0 ;
i0304 = codeVolume ('0304') > 0 ;
i0305 = codeVolume ('0305') > 0 ;
i0306 = codeVolume ('0306') > 0 ;
iQ3 = i0301 | i0302 | i0303 | i0304 | i0305 |
             i0306 ;

i0401 = codeVolume ('0401') > 0 ;
i0402 = codeVolume ('0402') > 0 ;
i0403 = codeVolume ('0403') > 0 ;
i0404 = codeVolume ('0404') > 0 ;
i0405 = codeVolume ('0405') > 0 ;
i0406 = codeVolume ('0406') > 0 ;
i0407 = codeVolume ('0407') > 0 ;
i0408 = codeVolume ('0408') > 0 ;
iQ4 = i0401 | i0402 | i0403 | i0404 | i0405 |
             i0406 | i0407 | i0408 ;

i0501 = codeVolume ('0501') > 0 ;
i0502 = codeVolume ('0502') > 0 ;
i0503 = codeVolume ('0503') > 0 ;
i0504 = codeVolume ('0504') > 0 ;
i0505 = codeVolume ('0505') > 0 ;
i0506 = codeVolume ('0506') > 0 ;
i0507 = codeVolume ('0507') > 0 ;
i0508 = codeVolume ('0508') > 0 ;
i0509 = codeVolume ('0509') > 0 ;
i0510 = codeVolume ('0510') > 0 ;
i0511 = codeVolume ('0511') > 0 ;
i0512 = codeVolume ('0512') > 0 ;
i0513 = codeVolume ('0513') > 0 ;
i0514 = codeVolume ('0514') > 0 ;
i0515 = codeVolume ('0515') > 0 ;
i0516 = codeVolume ('0516') > 0 ;
i0517 = codeVolume ('0517') > 0 ;
i0518 = codeVolume ('0518') > 0 ;
i0519 = codeVolume ('0519') > 0 ;
i0520 = codeVolume ('0520') > 0 ;
i0521 = codeVolume ('0521') > 0 ;
i0522 = codeVolume ('0522') > 0 ;
i0523 = codeVolume ('0523') > 0 ;
i0524 = codeVolume ('0524') > 0 ;
i0525 = codeVolume ('0525') > 0 ;
i0526 = codeVolume ('0526') > 0 ;
i0527 = codeVolume ('0527') > 0 ;
i0528 = codeVolume ('0528') > 0 ;
i0529 = codeVolume ('0529') > 0 ;
i0530 = codeVolume ('0530') > 0 ;
i0531 = codeVolume ('0531') > 0 ;
i0532 = codeVolume ('0532') > 0 ;
i0533 = codeVolume ('0533') > 0 ;
i0534 = codeVolume ('0534') > 0 ;
i0535 = codeVolume ('0535') > 0 ;
i0536 = codeVolume ('0536') > 0 ;
i0537 = codeVolume ('0537') > 0 ;
i0538 = codeVolume ('0538') > 0 ;
i0539 = codeVolume ('0539') > 0 ;
iQ5 = i0501 | i0502 | i0503 | i0504 | i0505 |
         i0506 | i0507 | i0508 | i0509 | i0510 |
         i0511 | i0512 | i0513 | i0514 | i0515 |
         i0516 | i0517 | i0518 | i0519 | i0520 |
         i0521 | i0522 | i0523 | i0524 | i0525 |
         i0526 | i0527 | i0528 | i0529 | i0530 |
         i0531 | i0532 | i0533 | i0534 | i0535 |
         i0536 | i0537 | i0538 | i0539 ;

i0901 = codeVolume ('0901') > 0 ;
i0902 = codeVolume ('0902') > 0 ;
i0903 = codeVolume ('0903') > 0 ;
i0904 = codeVolume ('0904') > 0 ;
i0905 = codeVolume ('0905') > 0 ;
i0906 = codeVolume ('0906') > 0 ;
i0907 = codeVolume ('0907') > 0 ;
i0908 = codeVolume ('0908') > 0 ;
i0909 = codeVolume ('0909') > 0 ;
i0910 = codeVolume ('0910') > 0 ;
i0911 = codeVolume ('0911') > 0 ;
i0912 = codeVolume ('0912') > 0 ;
i0913 = codeVolume ('0913') > 0 ;
i0914 = codeVolume ('0914') > 0 ;
i0915 = codeVolume ('0915') > 0 ;
i0916 = codeVolume ('0916') > 0 ;
i0917 = codeVolume ('0917') > 0 ;
i0918 = codeVolume ('0918') > 0 ;
iQ9 = i0901 | i0902 | i0903 | i0904 | i0905 |
         i0906 | i0907 | i0908 | i0909 | i0910 |
         i0911 | i0912 | i0913 | i0914 | i0915 |
         i0916 | i0917 | i0918 ;

output
{
    kl = $(kl);
    gl = $(gl);
    Sl     = $(Sl);
    SpO2l       = $(SpO2l);
    ގkl = $(ގkl);
    ގgl = $(ގgl);
    ގSl     = $(ގSl);
    ގSpO2l       = $(ގSpO2l);

    ŒkNBPl = $(ŒkNBPl);
    ŒgNBPl = $(ŒgNBPl);
    ŒᕽNBPl   = $(ŒᕽNBPl);
    ŒkABPl = $(ŒkABPl);
    ŒgABPl = $(ŒgABPl);
    ŒᕽABPl   = $(ŒᕽABPl);
    ŒSpO2l   = $(ŒSpO2l);

    ߏIkl     = $(̊OzIkl);
    ߏIgl     = $(̊OzIgl);
    ߏIόl       = $(̊OzIόl);
    ߏIkxl = $(̊OzIkxl);
    ߏIgxl = $(̊OzIgxl);
    ߏIϔxl   = $(̊OzIϔxl);
    ߏISÖl     = $(̊OzISÖl);
}
