gml [ w 800 h 600 color "lightgray" pixmap { return( PMAPS.."purple_marble.png") }
start {
-- HTTP = "http://svi.simgts.local/"
-- HTTP = "http://luagml.ucoz.ru/"
HTTP = "http://localhost/"
HOME = "file:///var/www/html/"
GML = HTTP.."gml/"
-- DEMO = HTTP.."gml/demo/mis/"
DEMO = HOME.."gml/demo/mis/"
BASE = DEMO.."base/"
BLANK = DEMO.."blank/"
PMAPS = GML.."pixmaps/"
ICONS = GML.."icons/"
IMAGES = HTTP.."images/"
CGI = HTTP.."cgi-bin/zcgi.exe?"
-- SERVER = "&svi.simgts.local:23001&"
SERVER = "&localhost:23001&"
CONTExT = ""
function Ctod( d)
if( string.sub( d, 1, 1) == " ") then
return( "")
else
return( string.sub( d, 7, 8) .. '.' ..
string.sub( d, 5, 6) .. '.' ..
string.sub( d, 1, 4))
end
end
function Codetab( tab, key)
if( tab [key] == nil) then
return( key)
else
return( key .. ":" .. tab [key])
end
end
function Date()
local sys = luajava.bindClass( "java.util.Calendar")
local cal = sys:getInstance()
return( string.format( "%2d.%2d.%2d",
cal:get( cal.DAY_OF_MONTH), cal:get( cal.MONTH) + 1, cal:get( cal.YEAR)))
end
x = 450
y = 117
w = 300
h = 400
s = 15
d = 3
x2 = 100
y2 = 27
w2 = 600
h2 = 50
s2 = 15
}
grid [ color "pink" step 12 ]
rect []
translate [ x { return x2 } y { return y2 }
fillrect [ w { return w2 } h { return h2 } color "lightgray" ]
rect [ w { return w2 } h { return h2 } color "red" ]
rect [ x { return d } y { return d } w { return w2 - d - d } h { return h2 - d - d } color "red" ]
blend [ alpha 0.4
fillrect [ x { return w2 } y { return s2 } w { return s2 } h { return h2 } color "darkgray" ]
fillrect [ x { return s2 } y { return h2 } w { return w2 - s2 } h { return s2 } color "darkgray" ]
]
font [ name "serif" size 24
text [ x 50 y 33
str "(МУЗ) Детская Городская Поликлиника N5"
]
]
]
image [ name { return( IMAGES.."tux_diagnostic.png") } x 70 y 50 ]
translate [ x { return x } y { return y }
fillrect [ w { return w } h { return h } color "lightgray" ]
rect [ w { return w } h { return h } color "red" ]
rect [ x { return d } y { return d } w { return w - d - d } h { return h - d - d } color "red" ]
blend [ alpha 0.4
fillrect [ x { return w } y { return s } w { return s } h { return h } color "darkgray" ]
fillrect [ x { return s } y { return h } w { return w - s } h { return s } color "darkgray" ]
]
font [ name "serif" size 16
text [ x 30 y 40 str "Разработка выполнена по" ]
text [ x 30 y 60 str "оригинальной технологии" ]
text [ x 30 y 80 str "на системных платформах" ]
text [ x 30 y 100 str "Linux, Windows и MsDos" ]
text [ x 30 y 120 str "в архитектуре клиент-сервер" ]
text [ x 30 y 140 str "с доступом через Internet" ]
text [ x { return w / 2 - 10 } y { return h - 15 } str "2005"]
]
line [ x1 30 y1 160 x2 { return w - 30 } y2 160 width 2 ]
image [ name { return( IMAGES.."tux_network.png") } x { return w / 2 - 30 } y { return h / 2 } ]
]
menubar [
menu [ str "Картотеки" icon { return( ICONS.."kdict.png") }
item [ str "&Картотека пациентов"
src { return( DEMO.."onl_man.gml") }
]
item [ str "&Картотека диагнозов"
src { return( DEMO.."onl_ill.gml") }
]
item [ str "&Картотека нарушений" enable "false"
# src { return( CGI.."gml_nil"..SERVER.."Conl_res.gml&N800&N600&Ctext") }
]
item [ str "&Картотека сотрудников" enable "false"
# src { return( CGI.."gml_nil"..SERVER.."Conl_sot.gml&N800&N600&Ctext") }
]
item [ str "&Картотека подразделений" enable "false" ]
item [ str "&Картотека организаций" enable "false"
# src { return( CGI.."gml_nil"..SERVER.."Conl_cln.gml&N800&N600&Ctext") }
]
item [ str "&Картотека банков"
src { return( DEMO.."onl_ban.gml") }
]
item [ str "&Картотека цен" enable "false"]
item []
item [ str "&Картотека ФОМС" enable "false"
# src { return( CGI.."gml_nil"..SERVER.."Conl_foms.gml&N800&N600&Ctext") }
]
]
menu [ str "Журналы" icon { return( ICONS.."access.png") }
item [ str "Журнал документов" enable "false"
# src { return( CGI.."gml_nil"..SERVER.."Conl_doc.gml&N800&N600&Ctext") }
]
item [ str "Журнал проводок"
src { return( DEMO.."onl_dks.gml") }
]
]
menu [ str "Отчеты" icon { return( ICONS.."kjots.png") }
menu [ str "Поликлиника"
item [ str "Объем поликлинической помощи"
src { return( DEMO.."vol.gml") }
]
item [ str "Сводные данные о поликлинике"
src { return( DEMO.."svod.gml") }
]
item [ str "Реестр медицинских услуг комплексный" enable "false" ]
]
menu [ str "Инвалиды"
item [ str "Контингент инвалидов на дату" enable "false" ]
item [ str "Заболевания, приведшие к инвалидности (Форма N19)" enable "false" ]
item [ str "Заболевания, приведшие к инвалидности на дату" enable "false" ]
item [ str "Инвалидизация по главному нарушению на дату" enable "false" ]
item [ str "Инвалидизация по ведущему ограничению на дату" enable "false" ]
item [ str "Список инвалидов" enable "false" ]
item []
menu [ str "Отчетность за период"
item [ str "Контингент инвалидов" enable "false" ]
item [ str "Заболевания, приведшие к инвалидности" enable "false" ]
item [ str "Инвалидизация по главному нарушению" enable "false" ]
item [ str "Инвалидизация по ведущему ограничению" enable "false" ]
]
]
menu [ str "Листки нетрудоспособности"
item [ str "Причины нетрудоспособности (Форма N16)" enable "false"
# src { return( CGI.."rpt_str"..SERVER.."Ci_date.gml&Cbl_ill.blk&Ctext") }
]
item [ str "Список неоформленных листков нетрудоспособности" enable "false"
# src { return( CGI.."rpt_str"..SERVER.."Ci_dat.gml&Cbl_empt.blk&Ctext") }
]
item [ str "Список открытых листков нетрудоспособности" enable "false"
# src { return( CGI.."rpt_str"..SERVER.."Ci_dat.gml&Cbl_open.blk&Ctext") }
]
item [ str "Экспертиза нетрудоспособности" enable "false"
# src { return( CGI.."rpt_str"..SERVER.."Ci_date.gml&Cbl_exp.blk&Ctext") }
]
]
menu [ str "Стационар"
item [ str "Отчет о деятельности стационара (Форма N14)" enable "false" ]
item [ str "Листок учета больных и коечного фонда" enable "false" ]
item [ str "Ведомость учета больных и коечного фонда" enable "false" ]
item [ str "Список госпитализированных пациентов" enable "false" ]
item [ str "Список поступивших пациентов" enable "false" ]
item [ str "Список выписанных пациентов" enable "false" ]
item [ str "Список пациентов к форме N14" enable "false" ]
]
menu [ str "Отчетность по МКБ10"
item [ str "Сведения о числе заболеваний (Форма N12)"
src { return( DEMO.."balnsm.gml") }
]
item [ str "Сведения о числе заболеваний до года (Форма N12)" enable "false"
# src { return( CGI.."rpt_num"..SERVER.."Cbalnsm.gml&N1&Ctext") }
]
item [ str "Список впервые зарегистрированных пациентов" enable "false" ]
item [ str "Список зарегистрированных пациентов вне учета" enable "false" ]
item [ str "Список пациентов на учете" enable "false" ]
item [ str "Заболеваемость до первого года (Форма N31)"
src { return( DEMO.."firstm.gml") }
]
item [ str "Сведения о травмах и отравлениях (Форма N57)" enable "false" ]
item [ str "Отчет о заболеваниях гриппом и ОРЗ" enable "false"
# src { return( CGI.."rpt_str"..SERVER.."Ci_date.gml&Corzm.blk&Ctext") }
]
item [ str "Список пациентов на диспансерном учете" enable "false" ]
]
]
menu [ str "Диаграммы" icon { return( ICONS.."ksirtet.png") }
item [ str "Количество населения по годам рождения (столбиковая)"
src { return( DEMO.."g_list.gml") }
]
item [ str "Количество населения по полу (круговая)" enable "false"
# src { return( CGI.."rpt_nil"..SERVER.."Cg_poln.gml&Ctext") }
]
item [ str "Количество населения по полу (круговая с вращением)"
src { return( DEMO.."g_pol.gml") }
]
]
menu [ str "Помощь" icon { return( ICONS.."help.png") }
item [ str "Руководство языка luagml" ]
item []
item [ str "Об интераператоре luagml" ]
]
menu [ str "Выход" icon { return( ICONS.."exit.png") } enable "false"
item [ str "Выход"
# include [
# str {
# luajava.bindClass( "java.lang.System"):exit( 0)
# }
# ]
]
]
]
]