【IRIS/Cache】コーディングを減らす！マクロの料理法（基本編)

#define GetMacroData(%arg) $g(^macro.test(%arg))

ClassMethod testMacro()
{
	#define Name  "サンプル出力"
	#define TEST w !,$$$Name
	$$$TEST
}

Include Sample

Class developer.macro.Sample
{
ClassMethod start()
{
	k ^macro.test
	s ^macro.test("start")="マクロ生活の開始"
	
	w $$$GetMacroData("start"),!
	w $g(^macro.tset("start"))
}
}

d ##class(developer.macro.Sample).start()
// > マクロ生活の開始
// > マクロ生活の開始

start() methodimpl {
	k ^macro.test
	s ^macro.test("start")="マクロ生活の開始"
	w $g(^macro.test("start")),!
	w $g(^macro.tset("start")) }

#; 日付変換
#define CnvSDate(%val) ($tr($zd(%val,3),"-", "/"))

ClassMethod test()
{
	w $$$CnvSDate($h)
}

#; サンプル
#define GetMacroData(%arg) $g(^macro.test(%arg))

#; 値
#define Cmnt1 "飲み会は%1日に決定しました。"
#define Cmnt2 2
#define Cmnt3(%val) ##expression(%val * 180)


#; 日付変換
#define CnvSDate(%val) ($tr($zd(%val,3),"-", "/"))

#; クラスメソッド実行
#define WriteCmnt ##class(developer.macro.Sample).WriteCmnt()

#; コメントも展開される
#define TestCmnt w "test",! // このコメントも展開される！

ClassMethod test()
{
	w $$$FormatText($$$Cmnt1, $$$CnvSDate($h)),!
	w $$$FormatText("	※日本酒は%1合(%2ml)までです。", $$$Cmnt2, $$$Cmnt3($$$Cmnt2)),!
	
	$$$TestCmnt // コマンド実行
	d $$$WriteCmnt
}

ClassMethod WriteCmnt()
{
	w "クラスメソッド実行",!
}

WriteCmnt() methodimpl {
	w "クラスメソッド実行",! }
test() methodimpl {
	w $$FormatText^%occMessages("飲み会は%1日に決定しました。", ($tr($zd($h,3),"-", "/"))),!
	w $$FormatText^%occMessages("	※日本酒は%1合(%2ml)までです。", 2, 360),!
	w "test",! // このコメントも展開される！ // コマンド実行
	d ##class(developer.macro.Sample).WriteCmnt() }

/// sqlの実行を楽にする
#define SQLGO(%rset, %query, %param) ##continue
	s stmt = ##class(%SQL.Statement).%New(1) ##continue
	s %rset = stmt.%ExecDirect(, %query, data...) ##continue

ClassMethod sql()
{
	k data
	s data(1)="%埼玉%"
	, data(2)=3
	, data=2
	$$$SQLGO(rset,"select ID,カナ氏名,性別,漢字氏名,生年月日 from developer_data.Patient2 where 漢字氏名 like ? & 性別=?", data)
	while( rset.%Next()){
		w !,rset.ID,",",rset.カナ氏名,",",rset.性別,",",rset.漢字氏名,",",rset.生年月日
	}
}

sql() methodimpl {
	k data
	s data(1)="%埼玉%"
	, data(2)=3
	, data=2
	s stmt = ##class(%SQL.Statement).%New(1) 
	s rset = stmt.%ExecDirect(, "select ID,カナ氏名,性別,漢字氏名,生年月日 from developer_data.Patient2 where 漢字氏名 like ? & 性別=?", data...) 
	while( rset.%Next()){
		w !,rset.ID,",",rset.カナ氏名,",",rset.性別,",",rset.漢字氏名,",",rset.生年月日
	} }

/// クラス名
#define className ##Expression($$$quote(%classname))
/// 関数名
#define methodName ##Expression($$$quote(%methodname))
/// 合成情報
#define info(%line) $$$methodName_"+"_%line_"^"_$$$className

/// 改行
#define CRLF $c(13,10)
#define CR $c(13)
#define LF $c(10)
/// TAB
#define TAB $c(9)

#define timeH $p($h,",",2)
#define aTimeH(%h) $p(%h,",",2)
#define time $zt($$$timeH,1)
#define nowNum $tr($zdt($h,3,1),"-: ")