ការផ្លាស់ប្តូរការកំណត់កម្មវិធីខណៈពេលរក្សាទុកប៉ារ៉ាម៉ែត្រផ្ទាល់ខ្លួន

សម័យបុរេប្រវត្តិសាស្ត្រ

អង្គការវេជ្ជសាស្រ្តមួយបានអនុវត្តដំណោះស្រាយដោយផ្អែកលើម៉ាស៊ីនមេ Orthanc PACS និងអតិថិជន Radiant DICOM ។ កំឡុងពេលដំឡើង យើងបានរកឃើញថាម៉ាស៊ីនភ្ញៀវ DICOM នីមួយៗត្រូវតែត្រូវបានពិពណ៌នានៅក្នុងម៉ាស៊ីនមេ PACS ដូចខាងក្រោម៖

• ឈ្មោះអតិថិជន
• ឈ្មោះ AE (ត្រូវតែមានតែមួយគត់)
• ច្រក TCP ដែលបើកដោយស្វ័យប្រវត្តិនៅផ្នែកអតិថិជន និងទទួលការស្ទង់មតិ DICOM ពីម៉ាស៊ីនមេ PACS (ឧ. ម៉ាស៊ីនមេរុញពួកវាទៅរកអតិថិជន - ចាប់ផ្តើមការតភ្ជាប់ជាមុន)
• អាសយដ្ឋាន IP

បន្ទាប់ពីការដំឡើង Radiant អតិថិជនបានទទួលអាហារដូចខាងក្រោមសម្រាប់ការគិត៖ សម្រាប់អតិថិជននីមួយៗ ការដំឡើងកម្មវិធីជាមួយនឹងប៉ារ៉ាម៉ែត្រខាងលើ នាំឱ្យឯកសារត្រូវបានបំពេញ។ pacs.xmlដែលមានទីតាំងនៅក្នុងទម្រង់អ្នកប្រើប្រាស់ (ផ្លូវ៖ %APPDATA%RadiantViewerpacs.xml) ក្នុងពេលជាមួយគ្នានេះ ការកំណត់រចនាសម្ព័ន្ធរបស់ម៉ាស៊ីនភ្ញៀវមួយខុសគ្នាពីប៉ារ៉ាម៉ែត្រផ្សេងទៀតយ៉ាងហោចណាស់ពីរ (ឈ្មោះ AE គឺខុសគ្នាសម្រាប់មនុស្សគ្រប់គ្នា ហើយច្រកគឺដូចគ្នាជាមូលដ្ឋាន លើកលែងតែម៉ាស៊ីនភ្ញៀវស្ថានីយដែលដំណើរការលើម៉ាស៊ីនមេដូចគ្នា - នៅទីនោះ ច្រកក៏មានផងដែរ ត្រូវបានចាត់តាំងខុសគ្នា) ។

ឧទាហរណ៍ឯកសារ pacs.xml ដោយ តំណភ្ជាប់:

អស់រយៈពេលប្រហែលប្រាំមួយខែ អ្វីគ្រប់យ៉ាងគឺល្អ ប្រព័ន្ធបានចាប់ផ្តើមដំណើរការ ... ហើយបន្ទាប់មកវាបានមកដល់ពួកយើង "ក្រោមទឹក។ ថ្ម»:

• យើងត្រូវដាក់ឱ្យដំណើរការម៉ាស៊ីនមេ PACS ថ្មីជាច្រើនដែលនឹងជំនួសម៉ាស៊ីនចាស់ (កន្លែងដែលទំហំថាសចាប់ផ្តើមអស់)។ ម៉ាស៊ីនមេ PACS នៅក្នុងម៉ាស៊ីននិម្មិត ប៉ុន្តែនោះមិនមែនជាអ្វីដែលយើងកំពុងនិយាយនោះទេ។
• យើងត្រូវផ្លាស់ប្តូរការកំណត់រចនាសម្ព័ន្ធតែមួយគត់ (ជាមួយប៉ារ៉ាម៉ែត្រពីរផ្សេងគ្នា) នៅលើម៉ាស៊ីន 200 (ចំនួនរបស់ពួកគេត្រូវបានកើនឡើងជាទៀងទាត់);
• ដោយគិតពីអត្រាកំណើននៃបរិមាណស្ទង់មតិ ដំណោះស្រាយមួយគឺត្រូវការមិនត្រឹមតែម្តងប៉ុណ្ណោះទេ ប៉ុន្តែត្រូវចម្លង និងទៀងទាត់ (ឧទាហរណ៍ ម្តងរៀងរាល់ 1-3 ខែ)។

ដំណោះស្រាយមានដូចខាងក្រោម។

ការជ្រើសរើសឧបករណ៍ដើម្បីដោះស្រាយបញ្ហា

ដំបូងឡើយ មានការព្យាយាមស្វែងរកដំណោះស្រាយមួយចំនួនដែលនឹងកែប្រែឯកសារ pacs.xml នៅផ្នែកអតិថិជន និងធ្វើការផ្លាស់ប្តូរបញ្ជីនៃម៉ាស៊ីនមេ PACS ដោយមិនប៉ះពាល់ដល់ឈ្មោះ AE និងការកំណត់ច្រក TCP ។ ម៉ាស៊ីនភ្ញៀវវីនដូនៅពេលនោះមានមូលដ្ឋានលើទាំង Windows XP និង Windows 7 ដូច្នេះមានការព្យាយាមសរសេរអ្វីមួយដូចនេះដោយផ្អែកលើ VBScript ។ ប៉ុន្តែ alas, វាមិនអាចទៅរួចទេក្នុងការធ្វើជាម្ចាស់នៃកិច្ចការបែបនេះដោយសារតែខ្វះបទពិសោធន៍ពេញលេញក្នុងការសរសេរអ្វីដែលស្មុគស្មាញនិងស្មុគស្មាញនៅក្នុងភាសានេះ។ ការព្យាយាមស្វែងរក និងសរសេរឡើងវិញក៏មិនជោគជ័យដែរ (គួរកត់សំគាល់ថា ខ្ញុំមានគម្រោងផ្សេងគ្នានៅក្នុងក្បាលរបស់ខ្ញុំរួចហើយ ដូច្នេះខ្ញុំមិនបានរវល់ជាមួយ VBScript លើសពី 3-4 ម៉ោង)។

នៅទីបញ្ចប់ខ្ញុំបានដោះស្រាយលើដំណោះស្រាយដូចខាងក្រោមៈ

• ដោយប្រើគោលការណ៍ក្រុម ប្រមូលឯកសារ pacs.xml ទាំងអស់នៅកន្លែងតែមួយនៅលើម៉ាស៊ីនមេណាមួយនៅក្នុងធនធានបណ្តាញ។
• ផ្លាស់ប្តូរឯកសារជាច្រើន (ខ្ញុំមានបទពិសោធន៍ក្នុងការដោះស្រាយបញ្ហាបែបនេះដោយប្រើ Perl);
• ប្រើគោលការណ៍ក្រុមផងដែរដើម្បីធ្វើបច្ចុប្បន្នភាពការកំណត់អតិថិជន។

ការប្រមូលឯកសារដោយប្រើគោលការណ៍ក្រុម

ផ្នែកដ៏សាមញ្ញបំផុតនោះគឺថានៅពេលដែលអតិថិជនចូលទៅក្នុងប្រវត្តិរូបរបស់គាត់ គាត់នឹងប្រតិបត្តិឯកសារ .bat ជាក់លាក់មួយដោយនិយាយថា៖

echo off
If exist %APPDATA%RadiantViewerpacs.xml copy %APPDATA%RadiantViewerpacs.xml srv.test.localpconfigs$pacs-%COMPUTERNAME%-%USERNAME%.xml

ដូច្នេះ ឯកសារ pacs.xml នឹងកកកុញនៅលើម៉ាស៊ីនមេនៅក្នុងធនធានដែលលាក់ ឈ្មោះដែលមានព័ត៌មានពីកុំព្យូទ័រណាមួយ និងពីអ្នកប្រើប្រាស់ណាដែលកំណត់រចនាសម្ព័ន្ធនេះត្រូវបានចម្លង។

អ្វីដែលពិបាកបំផុតគឺត្រូវរង់ចាំរហូតដល់គោលការណ៍នេះដំណើរការសម្រាប់អ្នកប្រើប្រាស់ទាំងអស់។

ការផ្លាស់ប្តូរការកំណត់ដោយប្រើស្គ្រីប Perl

យើងនឹងត្រូវការ Perl សកម្ម សម្រាប់ Windows ពី ActiveState ក៏ដូចជា XML::Writer module ដែលអាចត្រូវបានដំឡើងដោយប្រើពាក្យបញ្ជា ppm ដំឡើង XML-Writer.

ស្គ្រីបខ្លួនវាប្រែទៅជាសាមញ្ញណាស់៖

use XML::Writer;
 
# Открываем папку с отчетами, обрабатываем ссписок (удаляем лишнее):
	$report_dir = "C:Perl64WORKPACS-xml3";
	opendir(DIR, "$report_dir") or die "Не могу открыть папку с отчетами!";
	@report_files = readdir DIR;
	shift (@report_files); # удаляем точку из элементов массива (.)
	shift (@report_files); # удаляем две точки из элементов массива (..)
#	print "@report_files";
	closedir(DIR);
 
# Начинаем обрабатывать файлы - по одному за раз. Нужно считать параметр AET и номер порта в переменные.
foreach $analiz_file (@report_files) 
{
	$full_path_to_file="C:Perl64WORKPACS-xml3".$analiz_file;
	open (INFO, $full_path_to_file);
 
	while ($line = <INFO>)
	{
		# Переменные $aet и $port содержат уникальные данные для каждого XML файла:
		my ($other1, $aet, $other2, $port, $other3) = split /"/, $line, 5;
		# Если встречается строка listener - то мы дошли до нужной строчки и можно формировать новый XML:
		if ($other1 =~ 'listener')
			{
				# Формируем новый XML c нужными полями и данными:
				my $writer = XML::Writer->new(OUTPUT => 'self', DATA_MODE => 1, DATA_INDENT => 2, );
				$writer->xmlDecl('utf-8');
				$writer->startTag('pacs');
				$writer->startTag('listener', ae => $aet, port => $port);
				$writer->endTag();
				$writer->startTag('hosts');
				$writer->startTag('host', name => 'MRT', ae => 'ORTHANC', ip => 'XX.YY.214.17', ts => '1.2.840.10008.1.2.1', port => '4242', maxassoc => '1', allpres => '0', search => '1', protocol => '1', searchcharset => '', wildcards => '3', carets => '0');
				$writer->endTag();
				$writer->startTag('host', name => 'KT', ae => 'ORTHANC2', ip => 'XX.YY.215.253', ts => '1.2.840.10008.1.2.1', port => '4242', maxassoc => '1', allpres => '0', search => '1', protocol => '1', searchcharset => '', wildcards => '3', carets => '0');
				$writer->endTag();
				$writer->startTag('host', name => 'R', ae => 'ORTHANC3', ip => 'XX.YY.215.252', ts => '1.2.840.10008.1.2.1', port => '4242', maxassoc => '1', allpres => '0', search => '1', protocol => '1', searchcharset => '', wildcards => '3', carets => '0');
				$writer->endTag();
				$writer->startTag('host', name => 'KT-20180501-20180831', ae => 'ORTHANC4', ip => 'XX.YY.215.251', ts => '1.2.840.10008.1.2.1', port => '4242', maxassoc => '1', allpres => '0', search => '1', protocol => '1', searchcharset => '', wildcards => '3', carets => '0');
				$writer->endTag();
				$writer->startTag('host', name => 'KT-20180901-20181130', ae => 'ORTHANC5', ip => 'XX.YY.215.250', ts => '1.2.840.10008.1.2.1', port => '4242', maxassoc => '1', allpres => '0', search => '1', protocol => '1', searchcharset => '', wildcards => '3', carets => '0');
				$writer->endTag();
				$writer->endTag('hosts');
				$writer->startTag('presets');
				$writer->endTag();
				$writer->startTag('lastsearch', dt => '4', mfid => '1048592');
				$writer->endTag();
				$writer->endTag('pacs');
 
				# Помещаем готовый XML в переменную:
				my $xml = $writer->end();
				# Подготавливаем файл для перезаписи:
				$rewritexml = $full_path_to_file;
				# Переписываем XML файлы новыми данными:
				open (NEWXML, ">$rewritexml");
				print NEWXML $xml;
				close (NEWXML);				
			}
	}
 
}

គោលការណ៍នៃប្រតិបត្តិការរបស់វា៖

• យើងបើកថតដែលយើងបានប្រមូលការកំណត់រចនាសម្ព័ន្ធ pacs.xml ពីអតិថិជន ហើយដាក់បញ្ជីឯកសារនៅក្នុងអារេនៃមាត្រដ្ឋាន (@report_files);
• នៅក្នុងរង្វិលជុំមួយ យើងដំណើរការឯកសារមួយក្នុងពេលតែមួយ ហើយអានវាតាមបន្ទាត់។
• ដោយប្រើការបំបែក យើងបំបែកបន្ទាត់នីមួយៗជា 5 ផ្នែក ដោយប្រើសម្រង់ជាសញ្ញាបំបែក។
• យើងរកឃើញបន្ទាត់ជាមួយពាក្យ listener និងដាក់ទិន្នន័យតែមួយគត់សម្រាប់ឯកសារនីមួយៗ (ឈ្មោះអតិថិជន AE និងលេខច្រក TCP) ទៅជាអថេរពីរ។
• បន្ទាប់ពីនេះ យើងគ្រាន់តែបង្កើតឯកសារ XML ថ្មី បញ្ចូលប៉ារ៉ាម៉ែត្រតែមួយគត់ទៅក្នុងវា ហើយបន្ទាប់មកបញ្ចូលចំនួនដែលត្រូវការនៃម៉ាស៊ីនមេ PACS ជាមួយនឹងប៉ារ៉ាម៉ែត្ររបស់ពួកគេ - ទាំងនោះ។ អ្វីដែលវាបានចាប់ផ្តើមសម្រាប់)
• យើងសរសេរឯកសារ XML ថ្មីនៅលើឯកសារចាស់។

វាគួរតែត្រូវបានកត់សម្គាល់ថាតាមពិតខ្ញុំមិនប្រើស្គ្រីបនេះដោយស្វ័យប្រវត្តិទាំងស្រុងទេ - តាមពិតខ្ញុំចម្លងការកំណត់ដែលប្រមូលបានទៅក្នុងថតដាច់ដោយឡែកមួយហើយបន្ទាប់មកដំណើរការស្គ្រីបហើយផ្លាស់ប្តូរវាទាំងអស់។ បន្ទាប់មកការពិនិត្យដោយចៃដន្យ - ហើយការកំណត់អាចត្រូវបានចែកចាយត្រឡប់ទៅម៉ាស៊ីនវិញ។

ការចែកចាយឯកសារ pacs.xml ដែលបានកែប្រែទៅអតិថិជន

អ្វី​ដែល​សាមញ្ញ​បំផុត​ដែល​បាន​គិត​គឺ​ធ្វើ​ការ​ផ្លាស់​ប្តូរ​ទៅ​នឹង​ឯកសារ .bat ដែល​ដំណើរការ​រួច​ហើយ​ដែល​ប្រមូល​ការ​កំណត់​រចនាសម្ព័ន្ធ​ពី​អតិថិជន និង​បន្ថែម​បន្ទាត់៖

If exist %APPDATA%RadiantViewerpacs.xml copy /Y srv.test.localpconfigsnew$pacs-%COMPUTERNAME%-%USERNAME%.xml %APPDATA%RadiantViewerpacs.xml

ឯកសារ .bat ចុងក្រោយមើលទៅដូចនេះ៖

@echo off
If exist %APPDATA%RadiantViewerpacs.xml copy %APPDATA%RadiantViewerpacs.xml srv.test.localpconfigs$pacs-%COMPUTERNAME%-%USERNAME%.xml
If exist %APPDATA%RadiantViewerpacs.xml copy /Y srv.test.localpconfigsnew$pacs-%COMPUTERNAME%-%USERNAME%.xml %APPDATA%RadiantViewerpacs.xml

សេចក្តីសន្និដ្ឋាន

វា​ដូច​នេះ​»ជង្គង់"ដំណោះស្រាយ។ យើងបានសាកល្បងវាពីរដងរួចមកហើយ (ក្នុងខែកញ្ញា ឆ្នាំ 2018 និងខែកុម្ភៈ ឆ្នាំ 2019) រហូតមកដល់ពេលនេះការហោះហើរគឺធម្មតា។ ជាការពិតណាស់ មិនមែន 100% នៃអតិថិជនអាប់ដេតទេ ប៉ុន្តែវាជិតនឹងតម្លៃនេះ - យើងបំពេញនៅសល់ពីចម្ងាយ។ ស្គ្រីបដោយ តំណភ្ជាប់.

ប្រភព: www.habr.com