//  j[t@C̏.pdf QƂĂD
demographs
{
    dialog_title = ҏ ;
    column_width = 440;
    column_divide = 2;
    text_item
    {
        mnemonic = ID;
        label = ID;
        characters = 0123456789-;
        ime = ascii;
        alaert = yes;
    }
    text_item
    {
        mnemonic = ;
        ime = kana;
        alaert = yes;
    }
    column_divide = 1;
    text_item
    {
        mnemonic = Ȑ;
        ime = kana;
    }
    column_divide = 2;
    radio_item
    {
        mnemonic = ;
        file = DMG-JSAI.txt#;
        alaert = yes;
    }
    text_item
    {
        mnemonic = N;
        ime = ascii;
        alaert = yes;
    }
    separator = "physical status";
    column_divide = 3;
    text_item
    {
        mnemonic = g;
        label = g(cm);
        ime = ascii;
        characters = 0123456789.;
    }
    text_item
    {
        mnemonic = ̏d;
        label = ̏d(kg);
        ime = ascii;
        characters = 0123456789.;
    }
    column_divide = 3;
    radio_item
    {
        mnemonic = ABO^;
        file = DMG-JSAI.txt#ABO^;
    }
    radio_item
    {
        mnemonic = Rh^;
        file = DMG-JSAI.txt#Rh^;
    }
    radio_item
    {
        mnemonic = ASA;
        file = DMG-JSAI.txt#ASA;
        lines = 2;
    }
    radio_item
    {
        mnemonic = NYHA;
        file = DMG-JSAI.txt#NYHA;
        lines = 2;
    }
    separator = "";
    column_divide = 6;
    radio_item
    {
        mnemonic = MRSA ;
        label = "" ;
        choice = MRSA ;
    }
    radio_item
    {
        mnemonic = HBs ;
        label = "" ;
        choice = HBs ;
    }
    radio_item
    {
        mnemonic = HCV ;
        label = "" ;
        choice = HCV ;
    }
    radio_item
    {
        mnemonic = Wa ;
        label = "" ;
        choice = Wa ;
    }
    radio_item
    {
        mnemonic =  ;
        label = "" ;
        choice =  ;
    }
    
    column_divide = 3;
    separator = "fÉ";
    tree_menu_item
    {
        mnemonic = Ȗ;
        label = ;
        file = DMG-{ݕ.txt#Ȗ;
        ime = kana;
    }
    tree_menu_item
    {
        mnemonic = a;
        label = ;
        file = DMG-{ݕ.txt#a;
        ime = kana;
    }
    tree_menu_item
    {
        mnemonic = p;
        label = ;
        file = DMG-{ݕ.txt#p;
    }
    column_divide = 2;
    tree_menu_item
    {
        mnemonic = p1;
        file = DMG-l.txt;
        ime = kana;
        editable_menu = yes;
    }
    tree_menu_item
    {
        mnemonic = 1;
        file = DMG-l.txt;
        ime = kana;
        editable_menu = yes;
    }
    tree_menu_item
    {
        mnemonic = p2;
        file = DMG-l.txt;
        ime = kana;
        editable_menu = yes;
    }
    tree_menu_item
    {
        mnemonic = 2;
        file = DMG-l.txt;
        ime = kana;
        editable_menu = yes;
    }
    tree_menu_item
    {
        mnemonic = p3;
        file = DMG-l.txt;
        ime = kana;
        editable_menu = yes;
    }
    tree_menu_item
    {
        mnemonic = 3;
        file = DMG-l.txt;
        ime = kana;
        editable_menu = yes;
    }
    tree_menu_item
    {
        mnemonic = p4;
        file = DMG-l.txt;
        ime = kana;
        editable_menu = yes;
    }
//    tree_menu_item
//    {
//        mnemonic = w1;
//        file = DMG-l.txt;
//        ime = kana;
//        editable_menu = yes;
//    }
//    tree_menu_item
//    {
//        mnemonic = p5;
//        file = DMG-l.txt;
//        ime = kana;
//        editable_menu = yes;
//    }
//    tree_menu_item
//    {
//        mnemonic = w2;
//        file = DMG-l.txt;
//        ime = kana;
//        editable_menu = yes;
//    }
//    tree_menu_item
//    {
//        mnemonic = p6;
//        file = DMG-l.txt;
//        ime = kana;
//        editable_menu = yes;
//    }
//    tree_menu_item
//    {
//        mnemonic = w3;
//        file = DMG-l.txt;
//        ime = kana;
//        editable_menu = yes;
//    }
//    tree_menu_item
//    {
//        mnemonic = 1;
//        file = DMG-l.txt;
//        ime = kana;
//        editable_menu = yes;
//    }
//    tree_menu_item
//    {
//        mnemonic = 2;
//        file = DMG-l.txt;
//        ime = kana;
//        editable_menu = yes;
//    }
//    tree_menu_item
//    {
//        mnemonic = 3;
//        file = DMG-l.txt;
//        ime = kana;
//        editable_menu = yes;
//    }
//    tree_menu_item
//    {
//        mnemonic = Ԑ1;
//        file = DMG-l.txt;
//        ime = kana;
//        editable_menu = yes;
//    }
//    tree_menu_item
//    {
//        mnemonic = Ԑ2;
//        file = DMG-l.txt;
//        ime = kana;
//        editable_menu = yes;
//    }
//    tree_menu_item
//    {
//        mnemonic = Ԑ3;
//        file = DMG-l.txt;
//        ime = kana;
//        editable_menu = yes;
//    }
    separator = "";
    column_divide = 1;
    text_item
    {
        mnemonic = pO];
        label = pO;
        lines = 5;
        ime = kana;
    }
    text_item
    {
        mnemonic = p];
        label = p;
        lines = 5;
        ime = kana;
    }
    column_width = 440;
    candidate_menu_item
    {
        mnemonic = pOa1;
        file = DMG-a.txt;
        lines = 2;
        ime = kana;
    }
    candidate_menu_item
    {
        mnemonic = pOa2;
        file = DMG-a.txt;
        lines = 2;
        ime = kana;
    }
    candidate_menu_item
    {
        mnemonic = pOa3;
        file = DMG-a.txt;
        lines = 2;
        ime = kana;
    }
    radio_item
    {
        mnemonic = \p1;
        label = "\p1";
        choice =  E ;
    }
    candidate_menu_item
    {
        mnemonic = \p1;
        label = "";
        file = DMG-p.txt;
        lines = 2;
        ime = kana;
    }
    radio_item
    {
        mnemonic = \p2;
        label = "\p2";
        choice =  E ;
    }
    candidate_menu_item
    {
        mnemonic = \p2;
        label = "";
        file = DMG-p.txt;
        lines = 2;
        ime = kana;
    }
    radio_item
    {
        mnemonic = \p3;
        label = "\p3";
        choice =  E ;
    }
    candidate_menu_item
    {
        mnemonic = \p3;
        label = "";
        file = DMG-p.txt;
        lines = 2;
        ime = kana;
    }
    separator = "";
    candidate_menu_item
    {
        mnemonic = pa1;
        file = DMG-a.txt;
        lines = 2;
        ime = kana;
    }
    candidate_menu_item
    {
        mnemonic = pa2;
        file = DMG-a.txt;
        lines = 2;
        ime = kana;
    }
    candidate_menu_item
    {
        mnemonic = pa3;
        file = DMG-a.txt;
        lines = 2;
        ime = kana;
    }
    radio_item
    {
        mnemonic = {p1;
        label = "{p1";
        choice =  E ;
    }
    candidate_menu_item
    {
        mnemonic = {p1;
        label = "";
        file = DMG-p.txt;
        lines = 2;
        ime = kana;
    }
    radio_item
    {
        mnemonic = {p2;
        label = "{p2";
        choice =  E ;
    }
    candidate_menu_item
    {
        mnemonic = {p2;
        label = "";
        file = DMG-p.txt;
        lines = 2;
        ime = kana;
    }
    radio_item
    {
        mnemonic = {p3;
        label = "{p3";
        choice =  E ;
    }
    candidate_menu_item
    {
        mnemonic = {p3;
        label = "";
        file = DMG-p.txt;
        lines = 2;
        ime = kana;
    }
}

//uJv޲۸ނŃXg\鍀ڂłD
// start_date stop_date start_time stop_time file_suffix ͗\łC
// IDȉ́Cdemograph̍ږłD
// display = c ͕\̏iEցj
// sort = c ͐̏łD
// -start_date͎pJn̑傫̂珬(~)ցC
// +file_suffix͎pJn̂ɂĎpԂ܂̓j^@Ԃ
// ̂傫()ցC+start_time͓pCp
// ̏ǗɂāCJnɕבւƂӖłD

open_dialog
{
//    display = start_date start_time file_suffix
//              ID  | Ȑ  Ȗ {p1 | \p1 ;
    display = start_date start_time file_suffix ID   Ȗ {p1 | \p1 ;
    prompt = t   ID    p ;
    sort = -start_date +file_suffix +start_time ;
//    search = ID  Ȑ Ȗ {p1 ;
    search = ID  Ȗ {p1 ;
}

calc
{
    ID = demograph ('ID') ;
    pԍ = demograph ('pԍ') ;
     = demograph ('') ;
    Ȑ = demograph ('Ȑ') ;
     =  | Ȑ ;
    ʕ = demograph ('') ;
    N = demograph ('N') ;
    Nߒl = age ('N') ;

// ґt@C̐NvZN
// ( P͓CN͏TCSΖ́HˁHCȏ́H )

    Nߕ = Nߒl < 0.07671 ?   Nߒl * 365 + 0.5 # 1 $ '#' :
                 Nߒl < 0.5 ?       Nߒl * 52.14 + 0.5 # 1 $ '#T' :
                 Nߒl < 4 ?         Nߒl # 1 $ '#' @ Nߒl * 12 % 12 # 1 $ '#' :
                 Nߒl # 1 $ '#' ;

    gl = demograph ('g');
    g = gl $ '  #' ;
    ̏dl = demograph ('̏d');
    ̏d = ̏dl > 10 ? (̏dl $ ' #') :
                 ̏dl > 3 ? (̏dl $ '#.#') : (̏dl $ '#.##') ;
    BodyMassIndex = ̏dl / ((gl * 0.01) ^ 2) ;

    ABO^ = demograph ('ABO^') ;
    Rh^ = demograph ('Rh^') ;
    t^ = ABO^ @ Rh^ ;
    ASA = demograph ('ASA') ;
    NYHA = demograph ('NYHA');
    MRSA = demograph ('MRSA');
    HBs = demograph ('HBs') ;
    HCV = demograph ('HCV') ;
    Wa = demograph ('Wa') ;
     = demograph ('') ;

    Ȗ = demograph ('Ȗ');
    a = demograph ('a');
    p = demograph ('p');

    pOa1 = demograph ('pOa1');
    pOa2 = demograph ('pOa2');
    pOa3 = demograph ('pOa3');
    \p1 = demograph ('\p1') @ demograph ('\p1');
    \p2 = demograph ('\p2') @ demograph ('\p2');
    \p3 = demograph ('\p3') @ demograph ('\p3');
    pO] = demograph ('pO]');

    pa1 = demograph ('pa1');
    pa2 = demograph ('pa2');
    pa3 = demograph ('pa3');
    {p1 = demograph ('{p1') @ demograph ('{p1');
    {p2 = demograph ('{p2') @ demograph ('{p2');
    {p3 = demograph ('{p3') @ demograph ('{p3');
    p] = demograph ('p]');

    ҕ1 = demograph ('1');
    ҕ2 = demograph ('2');
    ҕ3 = demograph ('3');
    ҕ4 = demograph ('w1');
    ҕ5 = demograph ('w2');
    ҕ6 = demograph ('w3');

    pҕ1 = demograph ('p1');
    pҕ2 = demograph ('p2');
    pҕ3 = demograph ('p3');
    pҕ4 = demograph ('p4');
    pҕ5 = demograph ('p4');
    pҕ6 = demograph ('p4');

    ҕ1 = demograph ('1');
    ҕ2 = demograph ('2');
    ҕ3 = demograph ('3');
    Ԑڎҕ1 = demograph ('Ԑ1');
    Ԑڎҕ2 = demograph ('Ԑ2');
    Ԑڎҕ3 = demograph ('Ԑ3');

    Ōt1 = demograph ('Ōt1');
    Ōt2 = demograph ('Ōt2');
    Ōt3 = demograph ('Ōt3');
    ՍHm1 = demograph ('ՍHm1');
    ՍHm2 = demograph ('ՍHm2');
}

inout_body_weight
{
    name = ̏d ;
    write_back = yes ;
}

// Íڎw̑}ꏊ
//beginCryptDefinition (do not touch this bookmark line)
//endDefinition (do not touch this bookmark line)
