Файл: Р азработка информационного комплекса для лечебного учреждения.doc

Цветные сетевые принтеры. Таблица 6.

Параметры	Canon BJC-6000	HPColorLaserJet 4500DN	Lexmark OptraColor 1200n
Скорость монохром- ной/цветной печати	8/5	16/4	12/2
Адаптер Ethernet	Да	Да	Да
Объем ОЗУ (min/max),Мб	128/128 Кб	64/208	64/128
Max разрешение	1440х720	2400	1200
Объем ОЗУ, требуемый для max разрешения, Мб	128 Кб	64	64

Накопители (CD-ROM). Таблица 7.

Наименование накопителя	Скорость передачи		Время доступа, мс	Использование ресурсов ЦП
	Внутр. дорожка тыс. байт/с	Внешн.дорожка тыс бай/с
Lite-On40X CD-ROM	2660	5280	75,8	4,7%
Pioneer DVD-103S	2250	4470	97,0	5,5%

Сканеры. Таблица 8.

Наименование	Разрешение	Цветное изображ.		Полутоновое изо- бражение		Черно-белый текст
		Время, мин:с	Размер файла	Время, мин:с	Размер файла	Время, мин:с.	Размер Файла
UMAX 2400S	300 600 900	1:38 7:25 16:22	30,2 122,6 271,7	0:35 1:58 5:07	10,1 40,3 90,6	0:20 - -	1,3 - -
ScanExpress600USB Mustec	300х600-оптич. 9600х9600-прогр	9:29	375,4	3:24	101,2	0:30	1,4

---

Персональные проекторы. Таблица 9.

Параметры	Ask A10 (A8)	Ask C5(C1) Compact	EpsonEMP-7500 (5500)	Hitachi CP-X935	In Focus LP750
Световой поток	1200(1200)	800(700)	800(650)	700	800
Разрешающ. способность	XGA(SVGA)	XGA(SVGA)	SVGA	XGA(SVGA)	XGA
Размеры прое цируем. кадра	27х20	18х14	32х24	18х14	17х13
Проекцион. расстояние,м	1,2 - 12	1,2 – 16,5	1,0 – 15,6	1,2 – 12,3	1,5 – 5,5
Вентил.шум дБ	38	-	-	-	32
Напряжение питания	220/127	100 - 240	220/127	220/127	100 - 240
Энергопотр. Вт	250	215	220	200	250

Модемы. Таблица 10.

OMNI 56K		Comet 3356 ZyXEL
Протокол	Скорость (бит/с)	Протокол	Скорость (бит/с)
V.90	56.000-28.000	V.90	56.000-28.000
V.34	28.800-2.400	V.34	33.600-2.400
V.34bis	33.600-31.200	V.34bis	33.600-2.400
V.32	9.600-4.800	V.32	9.600-4.800
V.32bis	14.400/12.000/9.600/7.200	V.32bis	14.400-7.200
V.22bis	2.400	V.22bis	2.400
V.22/Bell 212A	1.200	V.22/Bell 212A	1.200
V.23	1.200/75	V.23	1.200/75

---

SBNI-адаптеры Таблица 11.

Параметры	SBNI-12x-02	SBNI-12x-04	SBNI-12x-05
Соединения (км)	до 8 км	до 8 км	от 1 до 8 км
Контроль пакетов доставки	На уровне драйверов	На уровне драйверов	На уровне драйверов
Допустимая ско- рость передачи данных (кбит/с)	2000 кбит/с 1000 кбит/с 500 кбит/с 250 кбит/с	2000;1000; 500; 250; 125; 62,5	2000; 1000; 500; 250; 125; 62,5
Тип соединения	“точка-точка”	“точка-точка”	“точка-точка”
Тип применяемо- го кабеля	Витая пара с волно- вым сопр.120 Ом	Витая пара с волно- вым сопр. 120 Ом	ТПП, ТРП, КСПП, UTP
Разрядность ши- ны данных	8 бит	8 бит	8 бит
Системный интерфейс	ISA PC	ISA PC	ISA PC

Виды свитчей и концентраторов.

Свитчи: Концентраторы:

HP ProCurve Switch 4000M (J4121A) HP ProCurve 10/100 Hub 24M (J3289A)

HP ProCurve Switch 2424M (J4093A) HP ProCurve 10/100 Hub 12M (J3288A)

HP ProCurve Switch 2424M Gigabit(J4130A) HP ProCurve 10/100 Hub 24 (J3295A)

HP ProCurve Switch 2224 (J4095A) HP ProCurve 10/100 Hub 12 (J3294A)

HP ProCurve Switch 224M (J3299A) HP ProCurve 10Base-T Hub 24M (J3303A)

HP ProCurve Switch 212M (J3298A) HP ProCurve 10Base-T Hub 12M (J3301A)

Приложение 2.

Текст программы “Флюоротека”.

************** Программа ведения флюоротеки *********

* Программа : FLUOTEKA.PRG

* Компиляция : CLIPPER FLUOTEKA /n/m/w или /a/n/m/q/b

* Компоновка  : RTLINK FI FLUOTEKA LIB CT250

***********************************************************

PROCEDURE FLUOTEKA

LOCAL i, nPoint, alt1, w, nam

PUBLIC ndra, iden, hosp, addr, dat, datBeg, datEnd, flag, delay, del1, alter

---

PUBLIC nStr, nCol, str_dw, color, lf, s_c, maxl, dat_flu,maxS, oper

PUBLIC mes_file, key_s, f10_func, esc_func, curs_state, f1_text

PUBLIC fl, ln, nn, nnDoc, F4_fl, str

PUBLIC serNum, maxNum, lask, arr_inst, arr, pi, pi_inst

mes_file="inform.msg"

key_s=CHR(001)

f10_func=""

F4_fl=0

esc_func=CSETKEY(27)

curs_state=CSETCURS()

f1_text=" "

flag=0

fl=0

w=1002002

lf=CHR(13)+CHR(10)

//hosp='МЦРБ'

arr_inst="Новосибирская"

pi_inst=SPACE(6)

//addr=" Убинское"

dat=DATE()

delay=10

del1=2

w=w+(7415*2)

SELECT 5

USE list_att

LOCATE FOR GROUP = "DISKETA"

IF FOUND()

nam=RTRIM(NAME)

ELSE

SET COLOR TO "W+/BG+,R/W,BG,GR,GR+/W"

@ 0,0 CLEAR TO 24,79

@ 0,0 TO 24,79 DOUBLE

SET COLOR TO "W+/B"

@ 20,1 TO 22,78

@ 21, 3 SAY "Сделайте настройку на флоппи-дисковод и заново вызовите программу!"

INKEY(0)

RETURN

ENDIF

USE

SET DATE GERMAN

SET CENTURY ON

SET SCOREBOARD OFF

SET WRAP ON

SET ESCAPE OFF

SET CONFIRM ON

SET COLOR TO "W+/GR,R/W,BG,GR,GR+/W"

SET MESSAGE TO 23 CENTER

IF DISKFREE(&nam) != w

SET COLOR TO "W+/BG+,R/W,BG,GR,GR+/W"

@ 0,0 CLEAR TO 24,79

@ 0,0 TO 24,79 DOUBLE

SET COLOR TO "W+/B"

@ 20,1 TO 22,78

@ 21, 6 SAY "Вставьте в дисковод «+nam+ ключевую дискету и заново вызовите программу!"

INKEY(0)

RETURN

ENDIF

ms1=" Esc – отказ от ввода  "

ms3=" Esc – отказ от работы "

ms4=" „«Для продолжения нажмите любую клавишу "

// lock_mes = "Запись в ИБ заблокирована!! ЖДИТЕ или нажмите Esc"

// lock_wait = BEFORATNUM(AFTERATNUM("...", lock_mes), lock_mes)

slash = CHR(186) // символ

nCol=1

color="W+/B"

// nPoint=7

nPoint=8

color="W+/B"

PRIVATE prm[nPoint], posit[nPoint], fnc[nPoint], mes[nPoint]

prm[1]="Карточка"

prm[2]="Заключение"

prm[3]="Дообследование"

prm[4]="Архив"

prm[5]="Отчеты"

prm[6]=«Д-учет»

prm[7]="Настройка "

prm[8]="Выход"

//posit[1]=5

posit[1]=4

FOR i=2 TO nPoint

//posit[i]=posit[i-1]+LEN(prm[i-1])+2

posit[i]=posit[i-1]+LEN(prm[i-1])+1

NEXT

fnc[1]="IDENT"

fnc[2]="RESULT"

fnc[3]="ADDIT"

fnc[4]="ARCHIV"

fnc[5]="REPORT"

fnc[6]="DISPAN"

fnc[7]="SETTING"

fnc[8]="BAY"

mes[1]="Ввод паспортных данных пациента (день первый)"

mes[2]="Ввод результата обследования (день второй)"

mes[3]="Ввод заключения после дообследования"

mes[4]="Работа с архивом"

mes[5]="Оформление отчетов"

mes[6]="Работа с диспансерными больными"

mes[7]="Настройка справочников"

mes[8]="Завершение работы"

DO FACE

DO OPEN_DB

SET COLOR TO "W+/BG"

@ 16,6 CLEAR TO 20,39

SET COLOR TO "W+/B"

exi=.F.

alt1=1

DO WHILE exi = .F.

CLEAR TYPEAHEAD

@ 3, 3 SAY REPLICATE(CHR(176),74)

FOR i=1 TO nPoint

@ 3, posit[i] PROMPT prm[i] MESSAGE mes[i]

NEXT

MENU TO alt1

IF alt1 != 0

i=fnc[alt1]

DO &i

ENDIF

ENDDO

SELECT 1

USE

SELECT 2

USE

SELECT 3

USE

SELECT 5

USE

CLS

RETURN
PROCEDURE FACE

LOCAL str, i

SET COLOR TO "W+/BG+,R/W,BG,GR,GR+/W"

@ 0,0 CLEAR TO 24,79

@ 0,0 TO 24,79 DOUBLE

SET COLOR TO "W+/B"

@ 23,1 CLEAR TO 23,78

SET COLOR TO "W+/RB"

****@ 1,7 TO 3,70

@ 2, 2 SAY REPLICATE(CHR(177),76)

@ 3, 2 SAY REPLICATE(CHR(177),76)

@ 4, 2 SAY REPLICATE(CHR(177),76)

SET COLOR TO "W+/B"

@ 3,7 CLEAR TO 3,72

// SET COLOR TO "W+/BG"

---

i=VAL(SUBSTR(TIME(),1,2))

IF i >= 0 .AND. i <= 11

str=" „ Д О Б Р О Е У Т Р О !"

ELSE

IF i >= 12 .AND. i <= 17

str=" „ Д О Б Р Ы Й Д Е Н Ь !"

ELSE

str="„Д О Б Р Ы Й В Е Ч Е Р !"

ENDIF

ENDIF

@ 3, 23 SAY str

---