ကိုယ်ရေးကိုယ်တာဘောင်များကို သိမ်းဆည်းနေစဉ် ပရိုဂရမ်ဆက်တင်များကို ပြောင်းလဲခြင်း။

စောပိုငျးကာလ

ဆေးဘက်ဆိုင်ရာအဖွဲ့အစည်းတစ်ခုသည် Orthanc PACS ဆာဗာများနှင့် Radiant DICOM ဖောက်သည်များအပေါ် အခြေခံ၍ ဖြေရှင်းချက်များအား အကောင်အထည်ဖော်ခဲ့သည်။ စနစ်ထည့်သွင်းစဉ်အတွင်း၊ DICOM ဖောက်သည်တစ်ခုစီကို PACS ဆာဗာများတွင် အောက်ပါအတိုင်း ဖော်ပြရမည်ဟု ကျွန်ုပ်တို့ တွေ့ရှိခဲ့သည်-

• လိုင်းအမည်
• AE အမည် (ထူးခြားရမည်)
• ဖောက်သည်ဘက်မှ အလိုအလျောက်ပွင့်လာပြီး PACS ဆာဗာမှ DICOM စစ်တမ်းများကို လက်ခံရရှိသည့် TCP အပေါက်တစ်ခု (ဆိုလိုသည်မှာ၊ ဆာဗာသည် ၎င်းတို့အား ကလိုင်းယင့်ဆီသို့ တွန်းပို့သည် - ချိတ်ဆက်မှုကို ဦးစွာစတင်သည်)
• အိုင်ပီ-လိပ်စာ

Radiant ကို စနစ်ထည့်သွင်းပြီးနောက်၊ ဖောက်သည်များသည် တွေးခေါ်မှုအတွက် အောက်ပါအစားအစာကို ရရှိခဲ့သည်- သုံးစွဲသူတစ်ဦးစီအတွက်၊ အထက်ဖော်ပြပါကန့်သတ်ချက်များဖြင့် ဆော့ဖ်ဝဲလ်ကို စနစ်ထည့်သွင်းခြင်းဖြင့် ဖိုင်ကို ဖြည့်ပေးခဲ့သည်။ pacs.xmlအသုံးပြုသူပရိုဖိုင်တွင်တည်ရှိသော (လမ်းကြောင်း- %APPDATA%RadiantViewerpacs.xml) တစ်ချိန်တည်းမှာပင်၊ client တစ်ခု၏ config သည် အနည်းဆုံး parameters နှစ်ခုတွင် အခြားတစ်ခုနှင့် ကွဲပြားသည် (AE name သည် လူတိုင်းအတွက် ကွဲပြားသည်၊ port သည် အခြေခံအားဖြင့် တူညီသည်၊ တူညီသော server ပေါ်တွင် run နေသော terminal client များမှလွဲ၍ port များသည် အခြေခံအားဖြင့် တူညီသည် - အဲဒီမှာ ports တွေလည်းပါပါတယ်။ ကွဲပြားစေရန်)။

ဥပမာ pacs.xml ဖိုင် link ကို:

ခြောက်လလောက်ကြာတော့ အားလုံးအဆင်ပြေတယ်၊ ​​စနစ်ကစပြီး အလုပ်လုပ်တယ်... ပြီးတော့ ငါတို့ဆီရောက်လာတယ်။ရေအောက် ကျောက်များ"

• ကျွန်ုပ်တို့သည် အဟောင်းများကိုအစားထိုးမည့် PACS ဆာဗာအသစ်များစွာကို လည်ပတ်လုပ်ဆောင်ရန် လိုအပ်သည် (ဒစ်နေရာလွတ်စပြုလာသည်)။ virtual machines များရှိ PACS ဆာဗာများ၊ သို့သော် ကျွန်ုပ်တို့ပြောနေသည့်အရာမဟုတ်ပါ။
• စက် 200 တွင် ထူးခြားသောဖွဲ့စည်းပုံများ (မတူညီသော ကန့်သတ်ချက်များ နှစ်ခုဖြင့်) ကို တစ်နည်းနည်းဖြင့် ဗဟိုမှပြောင်းလဲရန် လိုအပ်သည် (၎င်းတို့၏အရေအတွက်သည် ပုံမှန်တိုးလာသည်)။
• စစ်တမ်းပမာဏများ၏ တိုးတက်မှုနှုန်းကို ထည့်သွင်းစဉ်းစားခြင်းဖြင့် အဖြေတစ်ခုသည် တစ်ကြိမ်မျှသာမက ထပ်တူကျကာ ပုံမှန် (ဥပမာ၊ ၃-၅ လလျှင် တစ်ကြိမ်) လိုအပ်ပါသည်။

ဖြေရှင်းချက်မှာ အောက်ပါအတိုင်းဖြစ်သည်။

ပြဿနာတစ်ခုဖြေရှင်းရန် ကိရိယာများရွေးချယ်ခြင်း။

အစပိုင်းတွင်၊ ကလိုင်းယင့်ဘက်မှ pacs.xml ဖိုင်ကို မွမ်းမံပြင်ဆင်ရန်နှင့် AE အမည်နှင့် TCP ပေါက်ဆက်တင်များကို မထိခိုက်စေဘဲ PACS ဆာဗာများစာရင်းသို့ အပြောင်းအလဲလုပ်မည့် ဖြေရှင်းချက်အချို့ကို ရှာဖွေရန် ကြိုးပမ်းမှုများ ရှိခဲ့သည်။ ထိုအချိန်က Windows client များသည် Windows XP နှင့် Windows 7 နှစ်မျိုးလုံးကို အခြေခံထားသည် - ထို့ကြောင့် VBScript ကို အခြေခံ၍ ဤကဲ့သို့ ရေးရန် ကြိုးပမ်းမှုများ ရှိခဲ့သည်။ ဖြစ်ချင်တော့၊ ဒီဘာသာစကားမှာ ရှုပ်ထွေးပြီး ရှုပ်ထွေးတဲ့ အရာတွေကို ရေးသားရာမှာ အတွေ့အကြုံ အပြည့်မရှိတာကြောင့် ဒီလိုအလုပ်တစ်ခုကို ကျွမ်းကျင်ပိုင်နိုင်စွာ မဆောင်ရွက်နိုင်ခဲ့ပါဘူး။ ရှာဖွေပြီး ပြန်လည်ရေးသားရန် ကြိုးပမ်းမှုများလည်း မအောင်မြင်ခဲ့ပါ (ကျွန်ုပ်၏ခေါင်းထဲတွင် မတူညီသောအစီအစဉ်တစ်ခုရှိနေပြီဖြစ်သောကြောင့် ကျွန်ုပ်သည် VBScript နှင့် ၃-၄ နာရီထက်ပို၍ မရှုပ်ခဲ့သင့်ပါ)။

အဆုံးတွင် ကျွန်ုပ်သည် အောက်ပါအဖြေကို ဆုံးဖြတ်ခဲ့သည်။

• အဖွဲ့မူဝါဒကိုအသုံးပြု၍ ကွန်ရက်အရင်းအမြစ်ရှိ မည်သည့်ဆာဗာတွင်မဆို pacs.xml ဖိုင်အားလုံးကို တစ်နေရာတည်းတွင် စုစည်းပါ။
• ဖိုင်များကို အစုလိုက်အပြုံလိုက် ပြောင်းလဲခြင်း (Perl ကို အသုံးပြု၍ ထိုကဲ့သို့သော ပြဿနာများကို ဖြေရှင်းရာတွင် အတွေ့အကြုံရှိပြီးသား)၊
• ကလိုင်းယင့်ဆက်တင်များကို အပ်ဒိတ်လုပ်ရန် အဖွဲ့မူဝါဒများကိုလည်း အသုံးပြုပါ။

Group Policy ကို အသုံးပြု၍ ဖိုင်များ စုဆောင်းခြင်း။

အရိုးရှင်းဆုံးအချက်မှာ သုံးစွဲသူသည် ၎င်း၏ပရိုဖိုင်ကို လော့ဂ်အင်ဝင်သောအခါတွင်၊ သူသည် ၎င်း၏လုပ်ပိုင်ခွင့်များနှင့်အတူ သတ်မှတ်ထားသော .bat ဖိုင်ကို လုပ်ဆောင်သည်ဟူသည်မှာ-

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

ထို့ကြောင့်၊ pacs.xml ဖိုင်များသည် မည်သည့်ကွန်ပျူတာမှ အချက်အလက်များနှင့် ဤ config ကို ကူးယူထားသည့် အသုံးပြုသူထံမှ အချက်အလက်ပါရှိသည့် လျှို့ဝှက်အရင်းအမြစ်တစ်ခုတွင် ဆာဗာပေါ်တွင် စုပြုံနေမည်ဖြစ်သည်။

အခက်ခဲဆုံးမှာ ဤမူဝါဒသည် သုံးစွဲသူအားလုံးအတွက် အလုပ်ဖြစ်သည်အထိ စောင့်ရန်ဖြစ်သည်။

Perl script ကို အသုံးပြု၍ ဖွဲ့စည်းမှုပုံစံများကို ပြောင်းလဲခြင်း။

ကျနော်တို့လိုအပ်ပါတယ် Active Perl ActiveState မှ Windows အတွက် အပြင် XML::Writer module သည် command ကို အသုံးပြု၍ ထည့်သွင်းနိုင်သည်။ 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);
• စက်ဝိုင်းတစ်ခုတွင်၊ ကျွန်ုပ်တို့သည် တစ်ကြိမ်လျှင် ဖိုင်တစ်ခုကို လုပ်ဆောင်ပြီး ၎င်းကို လိုင်းတစ်ခုပြီးတစ်ခု ဖတ်ပါ။
• ခွဲခြမ်းကို အသုံးပြု၍ မျဉ်းတစ်ကြောင်းစီကို အပိုင်း ၅ ပိုင်းခွဲကာ၊
• ကျွန်ုပ်တို့သည် စကားလုံးနားထောင်သူနှင့် စာကြောင်းတစ်ကြောင်းတွေ့ပြီး ဖိုင်တစ်ခုစီအတွက် သီးခြားဒေတာ (AE client name နှင့် TCP port နံပါတ်) ကို variable နှစ်ခုအဖြစ် ထားရှိပါ။
• ၎င်းပြီးနောက်၊ ကျွန်ုပ်တို့သည် XML ဖိုင်အသစ်တစ်ခုကို ဖန်တီးပြီး၊ ၎င်းတွင် သီးသန့်ဘောင်များကို ထည့်သွင်းပြီးနောက် လိုအပ်သော PACS ဆာဗာများ၏ အရေအတွက်ကို ၎င်းတို့၏ ကန့်သတ်ချက်များဖြင့် ထည့်သွင်းပါ - အဲဒါတွေ။ အားလုံးက ဘာအတွက် စတင်ခဲ့တာလဲ။)
• ကျွန်ုပ်တို့သည် XML ဖိုင်အဟောင်း၏ထိပ်တွင် အသစ်ပြန်ရေးပါသည်။

အမှန်မှာ၊ ကျွန်ုပ်သည် ဤ script ကို အလိုအလျောက် လုံးဝအသုံးမပြုကြောင်း သတိပြုသင့်သည် - အမှန်မှာ၊ စုဆောင်းထားသော configs များကို သီးခြား directory တစ်ခုသို့ ကူးယူပြီး script ကို run ပြီး ၎င်းတို့အားလုံးကို အစုလိုက်အပြုံလိုက် ပြောင်းလဲပါသည်။ ထို့နောက်၊ ကျပန်းစစ်ဆေးခြင်း - နှင့် configs များကိုစက်များသို့ပြန်လည်ဖြန့်ဝေနိုင်သည်။

မွမ်းမံထားသော pacs.xml ဖိုင်များကို သုံးစွဲသူများထံ ဖြန့်ဝေခြင်း။

စိတ်ထဲတွင် အရိုးရှင်းဆုံးအချက်မှာ ဖောက်သည်များထံမှ configurations များကို စုဆောင်းပြီး လိုင်းထည့်သည့် လုပ်ဆောင်ပြီးသား .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% အပ်ဒိတ်မဟုတ်ပါ၊ သို့သော် ၎င်းသည် ဤတန်ဖိုးနှင့် နီးစပ်ပါသည် - ကျွန်ုပ်တို့သည် ကျန်အရာအားလုံးကို အဝေးမှ ပြီးအောင်လုပ်ပါသည်။ ဇာတ်ညွှန်း link ကို.

source: www.habr.com