【IRIS/Cache】続・他DBのグローバルが見たい！書きたい！(ECP編)

zn "^^D:\IRISDB\ECPSAMPLE"
s ^ECPData = "ECP用のデータです"
s ^ECPData(1) = "ECP用のデータです-１"

zn "sample"
zw ^ECPData

s ^ECPData(3) = "追加のグローバル設定"

f pos=4:1:10000 s ^ECPData(pos)="グローバル・バッファの確認"
f pos=1:1:10000  s data = $g(^ECPData(pos))

zn "%SYS"
d ^GLOBUFF

Check(cnt)	;
	s start = $zh
	
	f pos=1:1:cnt {
		s ^ECPData(pos) = "速度検証"
	}
	
	w !,"ECPタイム：",$zh-start

	s start = $zh
	
	f pos=1:1:cnt {
		s ^DefData(pos) = "速度検証"
	}
	
	w !,"デフォルトタイム：",$zh-start
d Check(1000000)

Check	;
	s start = $zh
	
	s cnt = ""
	f { s cnt = $o(^ECPData(cnt),1,data) q:cnt="" }
	
	w !,"ECPタイム：",$zh-start

	s start = $zh
	
	s cnt = ""
	f { s cnt = $o(^DefData(cnt),1,data) q:cnt="" }
	
	w !,"デフォルトタイム：",$zh-start
d Check

Class developer.data.Patient Extends %Persistent
{

Index unique On (patientId, updateCount) [ PrimaryKey ];

Index i1 On patientId [ Data = (漢字氏名, カナ氏名, 生年月日) ];

Index i2 On (漢字氏名, カナ氏名, 生年月日);

Index a1 On (dele, patientId) [ Data = 未使用区分 ];

Index p1 On 漢字氏名;

Index p2 On カナ氏名;

Index p3 On 生年月日;

Index p4 On dele;

Index p5 On updateCount;

Index p6 On ABO血液型;

Index p7 On RH血液型;

/// 更新通番。
Property updateCount As %Integer [ InitialExpression = 1, Required ];

/// 削除フラグ
Property dele As %Boolean [ InitialExpression = 0, Required ];

Property patientId As %String [ Required ];

// 基本情報 -----------------------------

/// 姓_全角スペース_名
Property 漢字氏名 As %String;

/// 姓_半角スペース_名
Property カナ氏名 As %String;

/// 姓_半角スペース_名
Property ローマ字氏名 As %String;

Property 漢字旧姓 As %String;

Property カナ旧姓 As %String;

Property 性別 As %String;

/// YYYYMMDD形式
Property 生年月日 As %Date;

/// YYYYMMDDhhmmss形式
Property 死亡日時 As %DateTime;

Property コメント As %String;

/// YYYYMMDD形式
Property 新患登録日 As %Date;

// 付加情報 -----------------------------

Property ABO血液型 As %String;

Property RH血液型 As %String;

Property 未使用区分 As %Boolean;

Storage Default
{
<Data name="PatientDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>updateCount</Value>
</Value>
<Value name="3">
<Value>dele</Value>
</Value>
<Value name="4">
<Value>patientId</Value>
</Value>
<Value name="5">
<Value>漢字氏名</Value>
</Value>
<Value name="6">
<Value>カナ氏名</Value>
</Value>
<Value name="7">
<Value>ローマ字氏名</Value>
</Value>
<Value name="8">
<Value>漢字旧姓</Value>
</Value>
<Value name="9">
<Value>カナ旧姓</Value>
</Value>
<Value name="10">
<Value>性別</Value>
</Value>
<Value name="11">
<Value>生年月日</Value>
</Value>
<Value name="12">
<Value>死亡日時</Value>
</Value>
<Value name="13">
<Value>コメント</Value>
</Value>
<Value name="14">
<Value>新患登録日</Value>
</Value>
<Value name="15">
<Value>ABO血液型</Value>
</Value>
<Value name="16">
<Value>RH血液型</Value>
</Value>
<Value name="17">
<Value>未使用区分</Value>
</Value>
</Data>
<DataLocation>^developer.data.PatientD</DataLocation>
<DefaultData>PatientDefaultData</DefaultData>
<ExtentSize>1000449</ExtentSize>
<IdLocation>^developer.data.PatientD</IdLocation>
<IndexLocation>^developer.data.PatientI</IndexLocation>
<StreamLocation>^developer.data.PatientS</StreamLocation>
<Type>%Storage.Persistent</Type>
}

}

ClassMethod saveObject(cnt As %Integer)
{
	try {
		s start = $zh
		
		f pos=1:1:cnt {
			s obj = ##class(developer.data.Patient).%New()
			
			s obj.patientId = $tr($j(pos, 10)," ", "0")
			s obj.updateCount = 1
			s obj.dele = 0
			s obj.漢字氏名 = "日本　太郎"_pos
			s obj.カナ氏名 = "ﾆﾎﾝ ﾀﾛｳ"_pos
			s obj.ローマ字氏名 = "taroh nihon"_pos
			s obj.漢字旧姓 = ""
			s obj.カナ旧姓 = ""
			s obj.性別 = "男"
			s obj.生年月日 = $zdh("2000-01-01",3)
			s obj.死亡日時 = ""
			s obj.コメント = "コメント"
			s obj.新患登録日 = $zdh("2025-01-01",3)
			s obj.ABO血液型 = "A"
			s obj.RH血液型 = "+"
			s obj.未使用区分 = ""
			
			$$$ThrowOnError( obj.%Save() )
		}
		
		w !, "処理時間：",$zh-start
	} catch e {
		w !,$system.Status.DisplayError(e.AsStatus())
	}
}

ClassMethod loadObject(cnt As %Integer)
{
	try {
		s start = $zh
		
		f pos=1:1:cnt {
			s obj = ##class(developer.data.Patient).%OpenId(pos)
			s name = obj.漢字氏名
			, ptnId = obj.patientId
		}
		
		w !, "処理時間：",$zh-start
	} catch e {
		w !,$system.Status.DisplayError(e.AsStatus())
	}
}

Check(cnt)	;
	s start = $zh
	
	f pos=1:1:cnt {
		l +^ECPData
		s ^ECPData(pos) = "速度検証"
		l -^ECPData
	}
	
	w !,"ECPタイム：",$zh-start

	s start = $zh
	
	f pos=1:1:cnt {
		l +^DefData
		s ^DefData(pos) = "速度検証"
		l -^DefData
	}
	
	w !,"デフォルトタイム：",$zh-start
d Check(1000000)

// 事前にk ^ECPData, ^DefDataを実施してIRIS再起動を行う
Check(cnt)	;
	s start = $zh	
	f pos=1:1:cnt  s txt = $g(^ECPData(pos))
	w !,"ECPタイム：",$zh-start

	s start = $zh	
	f pos=1:1:cnt  s txt = $g(^DefData(pos))	
	w !,"デフォルトタイム：",$zh-start
d Check(1000000)

// 事前にs (^ECPData, ^DefData)=1を実施してIRIS再起動を行う
Check(cnt)	;
	s start = $zh	
	f pos=1:1:cnt  s txt = $g(^ECPData(pos))
	w !,"ECPタイム：",$zh-start

	s start = $zh	
	f pos=1:1:cnt  s txt = $g(^DefData(pos))	
	w !,"デフォルトタイム：",$zh-start
d Check(1000000)

ClassMethod readSQL()
{
	try {
		s start = $zh
		
		s rset = ##class(%SQL.Statement).%ExecDirect(,"select * from developer_data.Patient")
		while( rset.%Next() ){
			s name = rset.漢字氏名
			, ptnId = rset.patientId
		}
		
		w !, "処理時間：",$zh-start
	} catch e {
		w !,$system.Status.DisplayError(e.AsStatus())
	}
}

ClassMethod insertSQL(cnt As %Integer)
{
	try {
		s start = $zh
		
		s stmt = ##class(%SQL.Statement).%New()
		
		f pos=1:1:cnt {
			s query = 4
			s query(1) = "INSERT INTO developer_data.Patient SET"
			s query(2) = "patientId=?,updateCount=1,dele=0,漢字氏名=?,カナ氏名=?,ローマ字氏名=?,漢字旧姓='',"
			s query(3) = "カナ旧姓='',性別='男',生年月日=?,死亡日時=null,コメント='コメント',"
			s query(4) = "新患登録日=?,ABO血液型='A',RH血液型='+',未使用区分=0"
			
			s sts = stmt.%Prepare(.query)
			s rset = stmt.%Execute($tr($j(pos, 10)," ", "0"),"日本　太郎"_pos,"ﾆﾎﾝ ﾀﾛｳ"_pos,"taroh nihon"_pos,$zdh("2000-01-01",3),$zdh("2025-01-01",3))
		}
		
		w !, "処理時間：",$zh-start
	} catch e {
		w !,$system.Status.DisplayError(e.AsStatus())
	}
}

Property コメント As %Stream.GlobalCharacter;

ClassMethod readSQL2(cnt As %Integer)
{
	try {
		s start = $zh
		
		f id=1:1:cnt {
			s rset = ##class(%SQL.Statement).%ExecDirect(,"select * from developer_data.Patient where id=?", id)
			while( rset.%Next() ){
				s name = rset.漢字氏名
				, ptnId = rset.patientId
				
				s cmdObj = ##class(%Stream.GlobalCharacter).%Open(rset.コメント)
				s cmt = cmdObj.Read()
			}
		}
		
		w !, "処理時間：",$zh-start
	} catch e {
		w !,$system.Status.DisplayError(e.AsStatus())
	}
}

ClassMethod loadObject(cnt As %Integer)
{
	try {
		s start = $zh
		
		f pos=1:1:cnt {
			s obj = ##class(developer.data.Patient).%OpenId(pos)
			s name = obj.漢字氏名
			, ptnId = obj.patientId
			, cmntObj = obj.コメント
			s cmnt = cmntObj.Read()
		}
		
		w !, "処理時間：",$zh-start
	} catch e {
		w !,$system.Status.DisplayError(e.AsStatus())
	}
}

Check(cnt)	;
	s start = $zh
	f pos=1:1:cnt d $i(^ECPData)
	w !,"ECPタイム：",$zh-start

	s start = $zh
	f pos=1:1:cnt d $i(^DefData)
	w !,"デフォルトタイム：",$zh-start
d Check(1000000)

Check(cnt)	;
	s start = $zh
	f pos=1:1:cnt s num=$seq(^ECPData)
	w !,"ECPタイム：",$zh-start

	s start = $zh
	f pos=1:1:cnt s num=$seq(^DefData)
	w !,"デフォルトタイム：",$zh-start
d Check(1000000)