diff --git a/package.json b/package.json index 65c9656..7167fdb 100644 --- a/package.json +++ b/package.json @@ -1 +1 @@ -{"name":"ssk-master","description":"社会保険診療報酬支払基金マスター","author":"Keisuke Miyako ","license":"MIT","repository":"https://github.com/miyako/4d-component-ssk-master","version":"0.1.49","release_name":"2024年6月4日","tool":{"platform":"macos","branch":"20.x","version":"20.3","build":"latest","arch":"x86"},"医薬品":"y_20240531.csv","一般名処方":"ippanmeishohoumaster_240401.xlsx","後発医薬品":["tp20240522-01_01.xlsx","tp20240522-01_03.xlsx","tp20240522-01_02.xlsx"],"特定器材":"t_ALL20240315.csv","労災特定器材":"rezept-master-03-20240528.csv","修飾語":"z_20240601.txt","コメント":"c_20240531.csv","労災コメント":"rezept-master-06-20200415.csv","傷病名":"b_20240601.txt","診療行為":"s_ALL20240531.csv","労災診療行為":"rezept-master-01-20240528.csv","地方公費":["47. 沖縄県.xlsx","28. 兵庫県.xlsx","32. 島根県.xlsx","27. 大阪府.xlsx","5. 秋田県.xlsx","22. 静岡県.xlsx","43. 熊本県.xlsx","12. 千葉県.xlsx","1. 北海道.xlsx","15. 新潟県.xlsx","20. 長野県.xlsx","46. 鹿児島県.xlsx","23. 愛知県.xlsx","4. 宮城県.xlsx","35. 山口県.xlsx","14. 神奈川県.xlsx","31. 鳥取県.xlsx","24. 三重県.xlsx","33. 山口県.xlsx","41. 佐賀県.xlsx","39. 高知県.xlsx","30. 和歌山県.xlsx","38. 愛媛県.xlsx","40. 福岡県.xlsx","44. 大分県.xlsx","7. 福島県.xlsx","2. 青森県.xlsx","19. 山梨県.xlsx","25. 滋賀県.xlsx","6. 山形県.xlsx","42. 長崎県.xlsx","26. 京都府.xlsx","16. 富山県.xlsx","29. 奈良県.xlsx","13. 東京都.xlsx","45. 宮崎県.xlsx","21. 岐阜県.xlsx","9. 栃木県.xlsx","8. 茨城県.xlsx","11. 埼玉県.xlsx","18. 福井県.xlsx","34. 広島県.xlsx","37. 香川県.xlsx","36. 徳島県.xlsx","3. 岩手県.xlsx","17. 石川県.xlsx","10. 群馬県.xlsx"]} \ No newline at end of file +{ "name": "ssk-master", "description": "社会保険診療報酬支払基金マスター", "author": "Keisuke Miyako ", "license": "MIT", "repository": "https://github.com/miyako/4d-component-ssk-master", "version": "0.1.50", "release_name": "2024年6月5日", "tool": { "platform": "macos", "branch": "20.x", "version": "20.3", "build": "latest", "arch": "x86" }, "医薬品": "y_20240531.csv", "一般名処方": "ippanmeishohoumaster_240401.xlsx", "後発医薬品": [ "tp20240522-01_01.xlsx", "tp20240522-01_03.xlsx", "tp20240522-01_02.xlsx" ], "特定器材": "t_ALL20240315.csv", "労災特定器材": "rezept-master-03-20240528.csv", "修飾語": "z_20240601.txt", "コメント": "c_20240531.csv", "労災コメント": "rezept-master-06-20200415.csv", "傷病名": "b_20240601.txt", "診療行為": "s_ALL20240531.csv", "労災診療行為": "rezept-master-01-20240528.csv", "地方公費": [ "47. 沖縄県.xlsx", "28. 兵庫県.xlsx", "32. 島根県.xlsx", "27. 大阪府.xlsx", "5. 秋田県.xlsx", "22. 静岡県.xlsx", "43. 熊本県.xlsx", "12. 千葉県.xlsx", "1. 北海道.xlsx", "15. 新潟県.xlsx", "20. 長野県.xlsx", "46. 鹿児島県.xlsx", "23. 愛知県.xlsx", "4. 宮城県.xlsx", "35. 山口県.xlsx", "14. 神奈川県.xlsx", "31. 鳥取県.xlsx", "24. 三重県.xlsx", "33. 山口県.xlsx", "41. 佐賀県.xlsx", "39. 高知県.xlsx", "30. 和歌山県.xlsx", "38. 愛媛県.xlsx", "40. 福岡県.xlsx", "44. 大分県.xlsx", "7. 福島県.xlsx", "2. 青森県.xlsx", "19. 山梨県.xlsx", "25. 滋賀県.xlsx", "6. 山形県.xlsx", "42. 長崎県.xlsx", "26. 京都府.xlsx", "16. 富山県.xlsx", "29. 奈良県.xlsx", "13. 東京都.xlsx", "45. 宮崎県.xlsx", "21. 岐阜県.xlsx", "9. 栃木県.xlsx", "8. 茨城県.xlsx", "11. 埼玉県.xlsx", "18. 福井県.xlsx", "34. 広島県.xlsx", "37. 香川県.xlsx", "36. 徳島県.xlsx", "3. 岩手県.xlsx", "17. 石川県.xlsx", "10. 群馬県.xlsx" ] } \ No newline at end of file diff --git "a/rezept/Project/Sources/Classes/_\343\202\263\343\203\241\343\203\263\343\203\210.4dm" "b/rezept/Project/Sources/Classes/_\343\202\263\343\203\241\343\203\263\343\203\210.4dm" index 92751ba..7c0fe64 100644 --- "a/rezept/Project/Sources/Classes/_\343\202\263\343\203\241\343\203\263\343\203\210.4dm" +++ "b/rezept/Project/Sources/Classes/_\343\202\263\343\203\241\343\203\263\343\203\210.4dm" @@ -184,46 +184,39 @@ Function _createRecords($CLI : cs:C1710._CLI; $values : Collection; $verbose : B If ($e=Null:C1517) && This:C1470._mayCreate($values[0]) $e:=$dataClass.new() + $e["項目"]:={} + $e["コメントコード"]:={} + $e["コメント文"]:={} + $e["項目"]["レセプト編集情報1"]:={} + $e["項目"]["レセプト編集情報2"]:={} + $e["項目"]["レセプト編集情報3"]:={} + $e["項目"]["レセプト編集情報4"]:={} End if If ($e#Null:C1517) - $e["項目"]:={} $e["項目"]["変更区分"]:=$values[0] If (This:C1470._mayCreate($values[0])) - $e["項目"]["マスター種別"]:=$values[1]="" ? $e["項目"]["マスター種別"] : $values[1] - - $e["コメントコード"]:={} - $e["コメントコード"]["区分"]:=$values[2]="" ? $e["コメントコード"]["区分"] : $values[2] - $e["コメントコード"]["パターン"]:=$values[3]="" ? $e["コメントコード"]["パターン"] : $values[3] - $e["コメントコード"]["番号"]:=$values[4]="" ? $e["コメントコード"]["番号"] : $values[4] - - $e["コメント文"]:={} - $e["コメント文"]["漢字有効桁数"]:=$values[5]="" ? $e["コメント文"]["漢字有効桁数"] : $values[5] - $e["コメント文"]["漢字名称"]:=$values[6]="" ? $e["コメント文"]["漢字名称"] : $values[6] - $e["コメント文"]["カナ有効桁数"]:=$values[7]="" ? $e["コメント文"]["カナ有効桁数"] : $values[7] - $e["コメント文"]["カナ名称"]:=$values[8]="" ? $e["コメント文"]["カナ名称"] : $values[8] - - $e["項目"]["レセプト編集情報1"]:={} - $e["項目"]["レセプト編集情報1"]["カラム位置"]:=$values[9]="" ? $e["項目"]["レセプト編集情報1"]["カラム位置"] : $values[9] - $e["項目"]["レセプト編集情報1"]["桁数"]:=$values[10]="" ? $e["項目"]["レセプト編集情報1"]["桁数"] : $values[10] - - $e["項目"]["レセプト編集情報2"]:={} - $e["項目"]["レセプト編集情報2"]["カラム位置"]:=$values[11]="" ? $e["項目"]["レセプト編集情報2"]["カラム位置"] : $values[11] - $e["項目"]["レセプト編集情報2"]["桁数"]:=$values[12]="" ? $e["項目"]["レセプト編集情報2"]["桁数"] : $values[12] - - $e["項目"]["レセプト編集情報3"]:={} - $e["項目"]["レセプト編集情報3"]["カラム位置"]:=$values[13]="" ? $e["項目"]["レセプト編集情報3"]["カラム位置"] : $values[13] - $e["項目"]["レセプト編集情報3"]["桁数"]:=$values[14]="" ? $e["項目"]["レセプト編集情報3"]["桁数"] : $values[14] - - $e["項目"]["レセプト編集情報4"]:={} - $e["項目"]["レセプト編集情報4"]["カラム位置"]:=$values[15]="" ? $e["項目"]["レセプト編集情報4"]["カラム位置"] : $values[15] - $e["項目"]["レセプト編集情報4"]["桁数"]:=$values[16]="" ? $e["項目"]["レセプト編集情報4"]["桁数"] : $values[16] - - $e["項目"]["漢字名称変更区分"]:=$values[17]="" ? $e["項目"]["漢字名称変更区分"] : $values[17] - $e["項目"]["カナ名称変更区分"]:=$values[18]="" ? $e["項目"]["カナ名称変更区分"] : $values[18] + $e["項目"]["マスター種別"]:=($values[1]="" && ($e["項目"]["マスター種別"]#Null:C1517)) ? $e["項目"]["マスター種別"] : $values[1] + $e["コメントコード"]["区分"]:=($values[2]="" && ($e["コメントコード"]["区分"]#Null:C1517)) ? $e["コメントコード"]["区分"] : $values[2] + $e["コメントコード"]["パターン"]:=($values[3]="" && ($e["コメントコード"]["パターン"]#Null:C1517)) ? $e["コメントコード"]["パターン"] : $values[3] + $e["コメントコード"]["番号"]:=($values[4]="" && ($e["コメントコード"]["番号"]#Null:C1517)) ? $e["コメントコード"]["番号"] : $values[4] + $e["コメント文"]["漢字有効桁数"]:=($values[5]="" && ($e["コメント文"]["漢字有効桁数"]#Null:C1517)) ? $e["コメント文"]["漢字有効桁数"] : $values[5] + $e["コメント文"]["漢字名称"]:=($values[6]="" && ($e["コメント文"]["漢字名称"]#Null:C1517)) ? $e["コメント文"]["漢字名称"] : $values[6] + $e["コメント文"]["カナ有効桁数"]:=($values[7]="" && ($e["コメント文"]["カナ有効桁数"]#Null:C1517)) ? $e["コメント文"]["カナ有効桁数"] : $values[7] + $e["コメント文"]["カナ名称"]:=($values[8]="" && ($e["コメント文"]["カナ名称"]#Null:C1517)) ? $e["コメント文"]["カナ名称"] : $values[8] + $e["項目"]["レセプト編集情報1"]["カラム位置"]:=($values[9]="" && ($e["項目"]["レセプト編集情報1"]["カラム位置"]#Null:C1517)) ? $e["項目"]["レセプト編集情報1"]["カラム位置"] : $values[9] + $e["項目"]["レセプト編集情報1"]["桁数"]:=($values[10]="" && ($e["項目"]["レセプト編集情報1"]["桁数"]#Null:C1517)) ? $e["項目"]["レセプト編集情報1"]["桁数"] : $values[10] + $e["項目"]["レセプト編集情報2"]["カラム位置"]:=($values[11]="" && ($e["項目"]["レセプト編集情報2"]["カラム位置"]#Null:C1517)) ? $e["項目"]["レセプト編集情報2"]["カラム位置"] : $values[11] + $e["項目"]["レセプト編集情報2"]["桁数"]:=($values[12]="" && ($e["項目"]["レセプト編集情報2"]["桁数"]#Null:C1517)) ? $e["項目"]["レセプト編集情報2"]["桁数"] : $values[12] + $e["項目"]["レセプト編集情報3"]["カラム位置"]:=($values[13]="" && ($e["項目"]["レセプト編集情報3"]["カラム位置"]#Null:C1517)) ? $e["項目"]["レセプト編集情報3"]["カラム位置"] : $values[13] + $e["項目"]["レセプト編集情報3"]["桁数"]:=($values[14]="" && ($e["項目"]["レセプト編集情報3"]["桁数"]#Null:C1517)) ? $e["項目"]["レセプト編集情報3"]["桁数"] : $values[14] + $e["項目"]["レセプト編集情報4"]["カラム位置"]:=($values[15]="" && ($e["項目"]["レセプト編集情報4"]["カラム位置"]#Null:C1517)) ? $e["項目"]["レセプト編集情報4"]["カラム位置"] : $values[15] + $e["項目"]["レセプト編集情報4"]["桁数"]:=($values[16]="" && ($e["項目"]["レセプト編集情報4"]["桁数"]#Null:C1517)) ? $e["項目"]["レセプト編集情報4"]["桁数"] : $values[16] + $e["項目"]["漢字名称変更区分"]:=($values[17]="" && ($e["項目"]["漢字名称変更区分"]#Null:C1517)) ? $e["項目"]["漢字名称変更区分"] : $values[17] + $e["項目"]["カナ名称変更区分"]:=($values[18]="" && ($e["項目"]["カナ名称変更区分"]#Null:C1517)) ? $e["項目"]["カナ名称変更区分"] : $values[18] End if diff --git "a/rezept/Project/Sources/Classes/_\345\214\273\350\226\254\345\223\201.4dm" "b/rezept/Project/Sources/Classes/_\345\214\273\350\226\254\345\223\201.4dm" index a72c5e8..559745c 100644 --- "a/rezept/Project/Sources/Classes/_\345\214\273\350\226\254\345\223\201.4dm" +++ "b/rezept/Project/Sources/Classes/_\345\214\273\350\226\254\345\223\201.4dm" @@ -153,72 +153,68 @@ Function _createRecords($CLI : cs:C1710._CLI; $values : Collection; $verbose : B If ($e=Null:C1517) && This:C1470._mayCreate($values[0]) $e:=$dataClass.new() + $e["項目"]:={} + $e["医薬品名・規格名"]:={} + $e["単位"]:={} + $e["新又は現金額"]:={} + $e["旧金額"]:={} + $e["一般名処方マスタ"]:={} End if If ($e#Null:C1517) - $e["項目"]:={} $e["項目"]["変更区分"]:=$values[0] If (This:C1470._mayCreate($values[0])) - $e["医薬品名・規格名"]:={} - $e["単位"]:={} - $e["新又は現金額"]:={} - $e["旧金額"]:={} - - $e["項目"]["マスター種別"]:=$values[1]="" ? $e["項目"]["マスター種別"] : $values[1] - $e["医薬品コード"]:=$values[2]="" ? $e["医薬品コード"] : $values[2] - $e["医薬品名・規格名"]["漢字有効桁数"]:=$values[3]="" ? $e["医薬品名・規格名"]["漢字有効桁数"] : $values[3] - $e["医薬品名・規格名"]["漢字名称"]:=$values[4]="" ? $e["医薬品名・規格名"]["漢字名称"] : $values[4] - $e["医薬品名・規格名"]["カナ有効桁数"]:=$values[5]="" ? $e["医薬品名・規格名"]["カナ有効桁数"] : $values[5] - $e["医薬品名・規格名"]["カナ名称"]:=$values[6]="" ? $e["医薬品名・規格名"]["カナ名称"] : $values[6] - $e["単位"]["コード"]:=$values[7]="" ? $e["単位"]["コード"] : $values[7] - $e["単位"]["漢字有効桁数"]:=$values[8]="" ? $e["単位"]["漢字有効桁数"] : $values[8] - $e["単位"]["漢字名称"]:=$values[9]="" ? $e["単位"]["漢字名称"] : $values[9] - $e["新又は現金額"]["金額種別"]:=$values[10]="" ? $e["新又は現金額"]["金額種別"] : $values[10] - $e["新又は現金額"]["新又は現金額"]:=$values[11]="" ? $e["新又は現金額"]["新又は現金額"] : $values[11] - //予備 - $e["項目"]["麻薬・毒薬・覚せい剤原料・向精神薬"]:=$values[13]="" ? $e["項目"]["麻薬・毒薬・覚せい剤原料・向精神薬"] : $values[13] - $e["項目"]["神経破壊剤"]:=$values[14]="" ? $e["項目"]["神経破壊剤"] : $values[14] - $e["項目"]["生物学的製剤"]:=$values[15]="" ? $e["項目"]["生物学的製剤"] : $values[15] - $e["項目"]["後発品"]:=$values[16]="" ? $e["項目"]["後発品"] : $values[16] - //予備 - $e["項目"]["歯科特定薬剤"]:=$values[18]="" ? $e["項目"]["歯科特定薬剤"] : $values[18] - $e["項目"]["造影(補助)剤"]:=$values[19]="" ? $e["項目"]["造影(補助)剤"] : $values[19] - $e["項目"]["注射容量"]:=$values[20]="" ? $e["項目"]["注射容量"] : $values[20] - $e["項目"]["収載方式等識別"]:=$values[21]="" ? $e["項目"]["収載方式等識別"] : $values[21] - $e["項目"]["商品名等関連"]:=$values[22]="" ? $e["項目"]["商品名等関連"] : $values[22] - $e["旧金額"]["旧金額種別"]:=$values[23]="" ? $e["旧金額"]["旧金額種別"] : $values[23] - $e["旧金額"]["旧金額"]:=$values[24]="" ? $e["旧金額"]["旧金額"] : $values[24] - $e["項目"]["漢字名称変更区分"]:=$values[25]="" ? $e["項目"]["漢字名称変更区分"] : $values[25] - $e["項目"]["カナ名称変更区分"]:=$values[26]="" ? $e["項目"]["カナ名称変更区分"] : $values[26] - $e["項目"]["剤形"]:=$values[27]="" ? $e["項目"]["剤形"] : $values[27] - //予備 - $e["項目"]["変更年月日"]:=$values[29]="" ? $e["項目"]["変更年月日"] : $values[29] - $e["項目"]["廃止年月日"]:=$values[30]="" ? $e["項目"]["廃止年月日"] : $values[30] - $e["項目"]["薬価基準コード"]:=$values[31]="" ? $e["項目"]["薬価基準コード"] : $values[31] - $e["項目"]["公表順序番号"]:=$values[32]="" ? $e["項目"]["公表順序番号"] : $values[32] - $e["項目"]["経過措置年月日又は商品名医薬品コード使用期限"]:=$values[33]="" ? $e["項目"]["経過措置年月日又は商品名医薬品コード使用期限"] : $values[33] - $e["基本漢字名称"]:=$values[34]="" ? $e["基本漢字名称"] : $values[34] + $e["項目"]["マスター種別"]:=($values[1]="" && ($e["項目"]["マスター種別"]#Null:C1517)) ? $e["項目"]["マスター種別"] : $values[1] + $e["医薬品コード"]:=($values[2]="" && ($e["医薬品コード"]#Null:C1517)) ? $e["医薬品コード"] : $values[2] + $e["医薬品名・規格名"]["漢字有効桁数"]:=($values[3]="" && ($e["医薬品名・規格名"]["漢字有効桁数"]#Null:C1517)) ? $e["医薬品名・規格名"]["漢字有効桁数"] : $values[3] + $e["医薬品名・規格名"]["漢字名称"]:=($values[4]="" && ($e["医薬品名・規格名"]["漢字名称"]#Null:C1517)) ? $e["医薬品名・規格名"]["漢字名称"] : $values[4] + $e["医薬品名・規格名"]["カナ有効桁数"]:=($values[5]="" && ($e["医薬品名・規格名"]["カナ有効桁数"]#Null:C1517)) ? $e["医薬品名・規格名"]["カナ有効桁数"] : $values[5] + $e["医薬品名・規格名"]["カナ名称"]:=($values[6]="" && ($e["医薬品名・規格名"]["カナ名称"]#Null:C1517)) ? $e["医薬品名・規格名"]["カナ名称"] : $values[6] + $e["単位"]["コード"]:=($values[7]="" && ($e["単位"]["コード"]#Null:C1517)) ? $e["単位"]["コード"] : $values[7] + $e["単位"]["漢字有効桁数"]:=($values[8]="" && ($e["単位"]["漢字有効桁数"]#Null:C1517)) ? $e["単位"]["漢字有効桁数"] : $values[8] + $e["単位"]["漢字名称"]:=($values[9]="" && ($e["単位"]["漢字名称"]#Null:C1517)) ? $e["単位"]["漢字名称"] : $values[9] + $e["新又は現金額"]["金額種別"]:=($values[10]="" && ($e["新又は現金額"]["金額種別"]#Null:C1517)) ? $e["新又は現金額"]["金額種別"] : $values[10] + $e["新又は現金額"]["新又は現金額"]:=($values[11]="" && ($e["新又は現金額"]["新又は現金額"]#Null:C1517)) ? $e["新又は現金額"]["新又は現金額"] : $values[11] + $e["項目"]["麻薬・毒薬・覚せい剤原料・向精神薬"]:=($values[13]="" && ($e["項目"]["麻薬・毒薬・覚せい剤原料・向精神薬"]#Null:C1517)) ? $e["項目"]["麻薬・毒薬・覚せい剤原料・向精神薬"] : $values[13] + $e["項目"]["神経破壊剤"]:=($values[14]="" && ($e["項目"]["神経破壊剤"]#Null:C1517)) ? $e["項目"]["神経破壊剤"] : $values[14] + $e["項目"]["生物学的製剤"]:=($values[15]="" && ($e["項目"]["生物学的製剤"]#Null:C1517)) ? $e["項目"]["生物学的製剤"] : $values[15] + $e["項目"]["後発品"]:=($values[16]="" && ($e["項目"]["後発品"]#Null:C1517)) ? $e["項目"]["後発品"] : $values[16] + $e["項目"]["歯科特定薬剤"]:=($values[18]="" && ($e["項目"]["歯科特定薬剤"]#Null:C1517)) ? $e["項目"]["歯科特定薬剤"] : $values[18] + $e["項目"]["造影(補助)剤"]:=($values[19]="" && ($e["項目"]["造影(補助)剤"]#Null:C1517)) ? $e["項目"]["造影(補助)剤"] : $values[19] + $e["項目"]["注射容量"]:=($values[20]="" && ($e["項目"]["注射容量"]#Null:C1517)) ? $e["項目"]["注射容量"] : $values[20] + $e["項目"]["収載方式等識別"]:=($values[21]="" && ($e["項目"]["収載方式等識別"]#Null:C1517)) ? $e["項目"]["収載方式等識別"] : $values[21] + $e["項目"]["商品名等関連"]:=($values[22]="" && ($e["項目"]["商品名等関連"]#Null:C1517)) ? $e["項目"]["商品名等関連"] : $values[22] + $e["旧金額"]["旧金額種別"]:=($values[23]="" && ($e["旧金額"]["旧金額種別"]#Null:C1517)) ? $e["旧金額"]["旧金額種別"] : $values[23] + $e["旧金額"]["旧金額"]:=($values[24]="" && ($e["旧金額"]["旧金額"]#Null:C1517)) ? $e["旧金額"]["旧金額"] : $values[24] + $e["項目"]["漢字名称変更区分"]:=($values[25]="" && ($e["項目"]["漢字名称変更区分"]#Null:C1517)) ? $e["項目"]["漢字名称変更区分"] : $values[25] + $e["項目"]["カナ名称変更区分"]:=($values[26]="" && ($e["項目"]["カナ名称変更区分"]#Null:C1517)) ? $e["項目"]["カナ名称変更区分"] : $values[26] + $e["項目"]["剤形"]:=($values[27]="" && ($e["項目"]["剤形"]#Null:C1517)) ? $e["項目"]["剤形"] : $values[27] + $e["項目"]["変更年月日"]:=($values[29]="" && ($e["項目"]["変更年月日"]#Null:C1517)) ? $e["項目"]["変更年月日"] : $values[29] + $e["項目"]["廃止年月日"]:=($values[30]="" && ($e["項目"]["廃止年月日"]#Null:C1517)) ? $e["項目"]["廃止年月日"] : $values[30] + $e["項目"]["薬価基準コード"]:=($values[31]="" && ($e["項目"]["薬価基準コード"]#Null:C1517)) ? $e["項目"]["薬価基準コード"] : $values[31] + $e["項目"]["公表順序番号"]:=($values[32]="" && ($e["項目"]["公表順序番号"]#Null:C1517)) ? $e["項目"]["公表順序番号"] : $values[32] + $e["項目"]["経過措置年月日又は商品名医薬品コード使用期限"]:=($values[33]="" && ($e["項目"]["経過措置年月日又は商品名医薬品コード使用期限"]#Null:C1517)) ? $e["項目"]["経過措置年月日又は商品名医薬品コード使用期限"] : $values[33] + $e["基本漢字名称"]:=($values[34]="" && ($e["基本漢字名称"]#Null:C1517)) ? $e["基本漢字名称"] : $values[34] var $newFormat : Boolean If ($values.length>35) $newFormat:=True:C214 - $e["項目"]["薬価基準収載年月日"]:=$values[35]="" ? $e["項目"]["薬価基準収載年月日"] : $values[35] + $e["項目"]["薬価基準収載年月日"]:=($values[35]="" && ($e["項目"]["薬価基準収載年月日"]#Null:C1517)) ? $e["項目"]["薬価基準収載年月日"] : $values[35] If ($values.length>36) - $e["一般名処方マスタ"]:={} - $e["一般名処方マスタ"]["一般名コード"]:=$values[36]="" ? $e["一般名処方マスタ"]["一般名コード"] : $values[36] + $e["一般名処方マスタ"]["一般名コード"]:=($values[36]="" && ($e["一般名処方マスタ"]["一般名コード"]#Null:C1517)) ? $e["一般名処方マスタ"]["一般名コード"] : $values[36] End if If ($values.length>37) - $e["一般名処方マスタ"]["一般名処方の標準的な記載"]:=$values[37]="" ? $e["一般名処方マスタ"]["一般名処方の標準的な記載"] : $values[37] + $e["一般名処方マスタ"]["一般名処方の標準的な記載"]:=($values[37]="" && ($e["一般名処方マスタ"]["一般名処方の標準的な記載"]#Null:C1517)) ? $e["一般名処方マスタ"]["一般名処方の標準的な記載"] : $values[37] End if If ($values.length>38) - $e["一般名処方マスタ"]["一般名処方加算対象区分"]:=$values[38]="" ? $e["一般名処方マスタ"]["一般名処方加算対象区分"] : $values[38] + $e["一般名処方マスタ"]["一般名処方加算対象区分"]:=($values[38]="" && ($e["一般名処方マスタ"]["一般名処方加算対象区分"]#Null:C1517)) ? $e["一般名処方マスタ"]["一般名処方加算対象区分"] : $values[38] End if If ($values.length>39) - $e["項目"]["抗HIV薬区分"]:=$values[39]="" ? $e["項目"]["抗HIV薬区分"] : $values[39] + $e["項目"]["抗HIV薬区分"]:=($values[39]="" && ($e["項目"]["抗HIV薬区分"]#Null:C1517)) ? $e["項目"]["抗HIV薬区分"] : $values[39] End if End if diff --git "a/rezept/Project/Sources/Classes/_\347\211\271\345\256\232\345\231\250\346\235\220.4dm" "b/rezept/Project/Sources/Classes/_\347\211\271\345\256\232\345\231\250\346\235\220.4dm" index da58d22..94bc5fb 100644 --- "a/rezept/Project/Sources/Classes/_\347\211\271\345\256\232\345\231\250\346\235\220.4dm" +++ "b/rezept/Project/Sources/Classes/_\347\211\271\345\256\232\345\231\250\346\235\220.4dm" @@ -182,70 +182,60 @@ Function _createRecords($CLI : cs:C1710._CLI; $values : Collection; $verbose : B If ($e=Null:C1517) && This:C1470._mayCreate($values[0]) $e:=$dataClass.new() + $e["項目"]:={} + $e["特定器材名・規格名"]:={} + $e["単位"]:={} + $e["新又は現金額"]:={} + $e["項目"]["上下限年齢"]:={} + $e["旧金額"]:={} + $e["項目"]["告示番号"]:={} End if If ($e#Null:C1517) - $e["項目"]:={} $e["項目"]["変更区分"]:=$values[0] If (This:C1470._mayCreate($values[0])) - $e["項目"]["マスター種別"]:=$values[1]="" ? $e["項目"]["マスター種別"] : $values[1] - $e["特定器材コード"]:=$values[2]="" ? $e["特定器材コード"] : $values[2] - - $e["特定器材名・規格名"]:={} - $e["特定器材名・規格名"]["漢字有効桁数"]:=$values[3]="" ? $e["特定器材名・規格名"]["漢字有効桁数"] : $values[3] - $e["特定器材名・規格名"]["漢字名称"]:=$values[4]="" ? $e["特定器材名・規格名"]["漢字名称"] : $values[4] - $e["特定器材名・規格名"]["カナ有効桁数"]:=$values[5]="" ? $e["特定器材名・規格名"]["カナ有効桁数"] : $values[5] - $e["特定器材名・規格名"]["カナ名称"]:=$values[6]="" ? $e["特定器材名・規格名"]["カナ名称"] : $values[6] - - $e["単位"]:={} - $e["単位"]["コード"]:=$values[7]="" ? $e["単位"]["コード"] : $values[7] - $e["単位"]["漢字有効桁数"]:=$values[8]="" ? $e["単位"]["漢字有効桁数"] : $values[8] - $e["単位"]["漢字名称"]:=$values[9]="" ? $e["単位"]["漢字名称"] : $values[9] - - $e["新又は現金額"]:={} - $e["新又は現金額"]["金額種別"]:=$values[10]="" ? $e["新又は現金額"]["金額種別"] : $values[10] - $e["新又は現金額"]["新又は現金額"]:=$values[11]="" ? $e["新又は現金額"]["新又は現金額"] : $values[11] - $e["項目"]["名称使用識別"]:=$values[12]="" ? $e["項目"]["名称使用識別"] : $values[12] - $e["項目"]["年齢加算区分"]:=$values[13]="" ? $e["項目"]["年齢加算区分"] : $values[13] - - $e["項目"]["上下限年齢"]:={} - $e["項目"]["上下限年齢"]["下限年齢"]:=$values[14]="" ? $e["項目"]["上下限年齢"]["下限年齢"] : $values[14] - $e["項目"]["上下限年齢"]["上限年齢"]:=$values[15]="" ? $e["項目"]["上下限年齢"]["上限年齢"] : $values[15] - - $e["旧金額"]:={} - $e["旧金額"]["旧金額種別"]:=$values[16]="" ? $e["旧金額"]["旧金額種別"] : $values[16] - $e["旧金額"]["旧金額"]:=$values[17]="" ? $e["旧金額"]["旧金額"] : $values[17] - $e["項目"]["漢字名称変更区分"]:=$values[18]="" ? $e["項目"]["漢字名称変更区分"] : $values[18] - $e["項目"]["カナ名称変更区分"]:=$values[19]="" ? $e["項目"]["カナ名称変更区分"] : $values[19] - $e["項目"]["酸素等区分"]:=$values[20]="" ? $e["項目"]["酸素等区分"] : $values[20] - $e["項目"]["特定器材種別(1)"]:=$values[21]="" ? $e["項目"]["特定器材種別(1)"] : $values[21] - $e["項目"]["上限価格"]:=$values[22]="" ? $e["項目"]["上限価格"] : $values[22] - $e["項目"]["上限点数"]:=$values[23]="" ? $e["項目"]["上限点数"] : $values[23] - //予備 - $e["項目"]["公表順序番号"]:=$values[25]="" ? $e["項目"]["公表順序番号"] : $values[25] - $e["項目"]["廃止・新設関連"]:=$values[26]="" ? $e["項目"]["廃止・新設関連"] : $values[26] - $e["項目"]["変更年月日"]:=$values[27]="" ? $e["項目"]["変更年月日"] : $values[27] - $e["項目"]["経過措置年月日"]:=$values[28]="" ? $e["項目"]["経過措置年月日"] : $values[28] - $e["項目"]["廃止年月日"]:=$values[29]="" ? $e["項目"]["廃止年月日"] : $values[29] - - $e["項目"]["告示番号"]:={} - $e["項目"]["告示番号"]["別表番号"]:=$values[30]="" ? $e["項目"]["告示番号"]["別表番号"] : $values[30] - $e["項目"]["告示番号"]["区分番号"]:=$values[31]="" ? $e["項目"]["告示番号"]["区分番号"] : $values[31] - $e["項目"]["DPC適用区分"]:=$values[32]="" ? $e["項目"]["DPC適用区分"] : $values[32] - //予備 - //予備 - //予備 + $e["項目"]["マスター種別"]:=($values[1]="" && ($e["項目"]["マスター種別"]#Null:C1517)) ? $e["項目"]["マスター種別"] : $values[1] + $e["特定器材コード"]:=($values[2]="" && ($e["特定器材コード"]#Null:C1517)) ? $e["特定器材コード"] : $values[2] + $e["特定器材名・規格名"]["漢字有効桁数"]:=($values[3]="" && ($e["特定器材名・規格名"]["漢字有効桁数"]#Null:C1517)) ? $e["特定器材名・規格名"]["漢字有効桁数"] : $values[3] + $e["特定器材名・規格名"]["漢字名称"]:=($values[4]="" && ($e["特定器材名・規格名"]["漢字名称"]#Null:C1517)) ? $e["特定器材名・規格名"]["漢字名称"] : $values[4] + $e["特定器材名・規格名"]["カナ有効桁数"]:=($values[5]="" && ($e["特定器材名・規格名"]["カナ有効桁数"]#Null:C1517)) ? $e["特定器材名・規格名"]["カナ有効桁数"] : $values[5] + $e["特定器材名・規格名"]["カナ名称"]:=($values[6]="" && ($e["特定器材名・規格名"]["カナ名称"]#Null:C1517)) ? $e["特定器材名・規格名"]["カナ名称"] : $values[6] + $e["単位"]["コード"]:=($values[7]="" && ($e["単位"]["コード"]#Null:C1517)) ? $e["単位"]["コード"] : $values[7] + $e["単位"]["漢字有効桁数"]:=($values[8]="" && ($e["単位"]["漢字有効桁数"]#Null:C1517)) ? $e["単位"]["漢字有効桁数"] : $values[8] + $e["単位"]["漢字名称"]:=($values[9]="" && ($e["単位"]["漢字名称"]#Null:C1517)) ? $e["単位"]["漢字名称"] : $values[9] + $e["新又は現金額"]["金額種別"]:=($values[10]="" && ($e["新又は現金額"]["金額種別"]#Null:C1517)) ? $e["新又は現金額"]["金額種別"] : $values[10] + $e["新又は現金額"]["新又は現金額"]:=($values[11]="" && ($e["新又は現金額"]["新又は現金額"]#Null:C1517)) ? $e["新又は現金額"]["新又は現金額"] : $values[11] + $e["項目"]["名称使用識別"]:=($values[12]="" && ($e["項目"]["名称使用識別"]#Null:C1517)) ? $e["項目"]["名称使用識別"] : $values[12] + $e["項目"]["年齢加算区分"]:=($values[13]="" && ($e["項目"]["年齢加算区分"]#Null:C1517)) ? $e["項目"]["年齢加算区分"] : $values[13] + $e["項目"]["上下限年齢"]["下限年齢"]:=($values[14]="" && ($e["項目"]["上下限年齢"]["下限年齢"]#Null:C1517)) ? $e["項目"]["上下限年齢"]["下限年齢"] : $values[14] + $e["項目"]["上下限年齢"]["上限年齢"]:=($values[15]="" && ($e["項目"]["上下限年齢"]["上限年齢"]#Null:C1517)) ? $e["項目"]["上下限年齢"]["上限年齢"] : $values[15] + $e["旧金額"]["旧金額種別"]:=($values[16]="" && ($e["旧金額"]["旧金額種別"]#Null:C1517)) ? $e["旧金額"]["旧金額種別"] : $values[16] + $e["旧金額"]["旧金額"]:=($values[17]="" && ($e["旧金額"]["旧金額"]#Null:C1517)) ? $e["旧金額"]["旧金額"] : $values[17] + $e["項目"]["漢字名称変更区分"]:=($values[18]="" && ($e["項目"]["漢字名称変更区分"]#Null:C1517)) ? $e["項目"]["漢字名称変更区分"] : $values[18] + $e["項目"]["カナ名称変更区分"]:=($values[19]="" && ($e["項目"]["カナ名称変更区分"]#Null:C1517)) ? $e["項目"]["カナ名称変更区分"] : $values[19] + $e["項目"]["酸素等区分"]:=($values[20]="" && ($e["項目"]["酸素等区分"]#Null:C1517)) ? $e["項目"]["酸素等区分"] : $values[20] + $e["項目"]["特定器材種別(1)"]:=($values[21]="" && ($e["項目"]["特定器材種別(1)"]#Null:C1517)) ? $e["項目"]["特定器材種別(1)"] : $values[21] + $e["項目"]["上限価格"]:=($values[22]="" && ($e["項目"]["上限価格"]#Null:C1517)) ? $e["項目"]["上限価格"] : $values[22] + $e["項目"]["上限点数"]:=($values[23]="" && ($e["項目"]["上限点数"]#Null:C1517)) ? $e["項目"]["上限点数"] : $values[23] + $e["項目"]["公表順序番号"]:=($values[25]="" && ($e["項目"]["公表順序番号"]#Null:C1517)) ? $e["項目"]["公表順序番号"] : $values[25] + $e["項目"]["廃止・新設関連"]:=($values[26]="" && ($e["項目"]["廃止・新設関連"]#Null:C1517)) ? $e["項目"]["廃止・新設関連"] : $values[26] + $e["項目"]["変更年月日"]:=($values[27]="" && ($e["項目"]["変更年月日"]#Null:C1517)) ? $e["項目"]["変更年月日"] : $values[27] + $e["項目"]["経過措置年月日"]:=($values[28]="" && ($e["項目"]["経過措置年月日"]#Null:C1517)) ? $e["項目"]["経過措置年月日"] : $values[28] + $e["項目"]["廃止年月日"]:=($values[29]="" && ($e["項目"]["廃止年月日"]#Null:C1517)) ? $e["項目"]["廃止年月日"] : $values[29] + $e["項目"]["告示番号"]["別表番号"]:=($values[30]="" && ($e["項目"]["告示番号"]["別表番号"]#Null:C1517)) ? $e["項目"]["告示番号"]["別表番号"] : $values[30] + $e["項目"]["告示番号"]["区分番号"]:=($values[31]="" && ($e["項目"]["告示番号"]["区分番号"]#Null:C1517)) ? $e["項目"]["告示番号"]["区分番号"] : $values[31] + $e["項目"]["DPC適用区分"]:=($values[32]="" && ($e["項目"]["DPC適用区分"]#Null:C1517)) ? $e["項目"]["DPC適用区分"] : $values[32] - $e["基本漢字名称"]:=$values[36]="" ? $e["基本漢字名称"] : $values[36] + $e["基本漢字名称"]:=($values[36]="" && ($e["基本漢字名称"]#Null:C1517)) ? $e["基本漢字名称"] : $values[36] var $newFormat : Boolean If ($values.length>37) $newFormat:=True:C214 - $e["項目"]["再製造単回使用医療機器"]:=$values[37]="" ? $e["項目"]["再製造単回使用医療機器"] : $values[37] + $e["項目"]["再製造単回使用医療機器"]:=($values[37]="" && ($e["項目"]["再製造単回使用医療機器"]#Null:C1517)) ? $e["項目"]["再製造単回使用医療機器"] : $values[37] End if End if diff --git "a/rezept/Project/Sources/Classes/_\350\250\272\347\231\202\350\241\214\347\202\272.4dm" "b/rezept/Project/Sources/Classes/_\350\250\272\347\231\202\350\241\214\347\202\272.4dm" index 061d3e0..bbe415c 100644 --- "a/rezept/Project/Sources/Classes/_\350\250\272\347\231\202\350\241\214\347\202\272.4dm" +++ "b/rezept/Project/Sources/Classes/_\350\250\272\347\231\202\350\241\214\347\202\272.4dm" @@ -183,180 +183,159 @@ Function _createRecords($CLI : cs:C1710._CLI; $values : Collection; $verbose : B If ($e=Null:C1517) && This:C1470._mayCreate($values[0]) $e:=$dataClass.new() + $e["項目"]:={} + $e["診療行為省略名称"]:={} + $e["項目"]["データ規格名"]:={} + $e["新又は現点数"]:={} + $e["項目"]["きざみ値"]:={} + $e["項目"]["上限回数"]:={} + $e["項目"]["注加算"]:={} + $e["項目"]["上下限年齢"]:={} + $e["項目"]["基準適合識別"]:={} + $e["旧点数"]:={} + $e["項目"]["施設基準"]:={} + $e["項目"]["コード表用番号(アルファベット部を除く)"]:={} + $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]:={} + $e["項目"]["年齢加算1"]:={} + $e["項目"]["年齢加算2"]:={} + $e["項目"]["年齢加算3"]:={} + $e["項目"]["年齢加算4"]:={} End if If ($e#Null:C1517) - $e["項目"]:={} $e["項目"]["変更区分"]:=$values[0] If (This:C1470._mayCreate($values[0])) - $e["項目"]["マスター種別"]:=$values[1]="" ? $e["項目"]["マスター種別"] : $values[1] - $e["診療行為コード"]:=$values[2]="" ? $e["診療行為コード"] : $values[2] - - $e["診療行為省略名称"]:={} - $e["診療行為省略名称"]["省略漢字有効桁数"]:=$values[3]="" ? $e["診療行為省略名称"]["省略漢字有効桁数"] : $values[3] - $e["診療行為省略名称"]["省略漢字名称"]:=$values[4]="" ? $e["診療行為省略名称"]["省略漢字名称"] : $values[4] - $e["診療行為省略名称"]["省略カナ有効桁数"]:=$values[5]="" ? $e["診療行為省略名称"]["省略カナ有効桁数"] : $values[5] - $e["診療行為省略名称"]["省略カナ名称"]:=$values[6]="" ? $e["診療行為省略名称"]["省略カナ名称"] : $values[6] - $e["項目"]["データ規格コード"]:=$values[7]="" ? $e["項目"]["データ規格コード"] : $values[7] - - $e["項目"]["データ規格名"]:={} - $e["項目"]["データ規格名"]["漢字有効桁数"]:=$values[8]="" ? $e["項目"]["データ規格名"]["漢字有効桁数"] : $values[8] - $e["項目"]["データ規格名"]["漢字名称"]:=$values[9]="" ? $e["項目"]["データ規格名"]["漢字名称"] : $values[9] - - $e["新又は現点数"]:={} - $e["新又は現点数"]["点数識別"]:=$values[10]="" ? $e["新又は現点数"]["点数識別"] : $values[10] - $e["新又は現点数"]["新又は現点数"]:=$values[11]="" ? $e["新又は現点数"]["新又は現点数"] : $values[11] - $e["項目"]["入外適用区分"]:=$values[12]="" ? $e["項目"]["入外適用区分"] : $values[12] - $e["項目"]["後期高齢者医療適用区分"]:=$values[13]="" ? $e["項目"]["後期高齢者医療適用区分"] : $values[13] - $e["項目"]["点数欄集計先識別(入院外)"]:=$values[14]="" ? $e["項目"]["点数欄集計先識別(入院外)"] : $values[14] - $e["項目"]["包括対象検査"]:=$values[15]="" ? $e["項目"]["包括対象検査"] : $values[15] - //予備 - $e["項目"]["DPC適用区分"]:=$values[17]="" ? $e["項目"]["DPC適用区分"] : $values[17] - $e["項目"]["病院・診療所区分"]:=$values[18]="" ? $e["項目"]["病院・診療所区分"] : $values[18] - $e["項目"]["画像等手術支援加算"]:=$values[19]="" ? $e["項目"]["画像等手術支援加算"] : $values[19] - $e["項目"]["医療観察法対象区分"]:=$values[20]="" ? $e["項目"]["医療観察法対象区分"] : $values[20] - $e["項目"]["看護加算"]:=$values[21]="" ? $e["項目"]["看護加算"] : $values[21] - $e["項目"]["麻酔識別区分"]:=$values[22]="" ? $e["項目"]["麻酔識別区分"] : $values[22] - $e["項目"]["入院基本料加算区分"]:=$values[23]="" ? $e["項目"]["入院基本料加算区分"] : $values[23] - $e["項目"]["傷病名関連区分"]:=$values[24]="" ? $e["項目"]["傷病名関連区分"] : $values[24] - $e["項目"]["医学管理料"]:=$values[25]="" ? $e["項目"]["医学管理料"] : $values[25] - $e["項目"]["実日数"]:=$values[26]="" ? $e["項目"]["実日数"] : $values[26] - $e["項目"]["日数・回数"]:=$values[27]="" ? $e["項目"]["日数・回数"] : $values[27] - $e["項目"]["医薬品関連区分"]:=$values[28]="" ? $e["項目"]["医薬品関連区分"] : $values[28] - - $e["項目"]["きざみ値"]:={} - $e["項目"]["きざみ値"]["きざみ値計算識別"]:=$values[29]="" ? $e["項目"]["きざみ値"]["きざみ値計算識別"] : $values[29] - $e["項目"]["きざみ値"]["下限値"]:=$values[30]="" ? $e["項目"]["きざみ値"]["下限値"] : $values[30] - $e["項目"]["きざみ値"]["上限値"]:=$values[31]="" ? $e["項目"]["きざみ値"]["上限値"] : $values[31] - $e["項目"]["きざみ値"]["きざみ値"]:=$values[32]="" ? $e["項目"]["きざみ値"]["きざみ値"] : $values[32] - $e["項目"]["きざみ値"]["きざみ点数"]:=$values[33]="" ? $e["項目"]["きざみ値"]["きざみ点数"] : $values[33] - $e["項目"]["きざみ値"]["上下限エラー処理"]:=$values[34]="" ? $e["項目"]["きざみ値"]["上下限エラー処理"] : $values[34] - - $e["項目"]["上限回数"]:={} - $e["項目"]["上限回数"]["上限回数"]:=$values[35]="" ? $e["項目"]["上限回数"]["上限回数"] : $values[35] - $e["項目"]["上限回数"]["上限回数エラー処理"]:=$values[36]="" ? $e["項目"]["上限回数"]["上限回数エラー処理"] : $values[36] - - $e["項目"]["注加算"]:={} - $e["項目"]["注加算"]["注加算コード"]:=$values[37]="" ? $e["項目"]["注加算"]["注加算コード"] : $values[37] - $e["項目"]["注加算"]["注加算通番"]:=$values[38]="" ? $e["項目"]["注加算"]["注加算通番"] : $values[38] - $e["項目"]["通則年齢"]:=$values[39]="" ? $e["項目"]["通則年齢"] : $values[39] - - $e["項目"]["上下限年齢"]:={} - $e["項目"]["上下限年齢"]["下限年齢"]:=$values[40]="" ? $e["項目"]["上下限年齢"]["下限年齢"] : $values[40] - $e["項目"]["上下限年齢"]["上限年齢"]:=$values[41]="" ? $e["項目"]["上下限年齢"]["上限年齢"] : $values[41] - $e["項目"]["時間加算区分"]:=$values[42]="" ? $e["項目"]["時間加算区分"] : $values[42] - - $e["項目"]["基準適合識別"]:={} - $e["項目"]["基準適合識別"]["適合区分"]:=$values[43]="" ? $e["項目"]["基準適合識別"]["適合区分"] : $values[43] - $e["項目"]["基準適合識別"]["対象施設基準"]:=$values[44]="" ? $e["項目"]["基準適合識別"]["対象施設基準"] : $values[44] - $e["項目"]["処置乳幼児加算区分"]:=$values[45]="" ? $e["項目"]["処置乳幼児加算区分"] : $values[45] - $e["項目"]["極低出生体重児加算区分"]:=$values[46]="" ? $e["項目"]["極低出生体重児加算区分"] : $values[46] - $e["項目"]["入院基本料等減算対象識別"]:=$values[47]="" ? $e["項目"]["入院基本料等減算対象識別"] : $values[47] - $e["項目"]["ドナー分集計区分"]:=$values[48]="" ? $e["項目"]["ドナー分集計区分"] : $values[48] - $e["項目"]["検査等実施判断区分"]:=$values[49]="" ? $e["項目"]["検査等実施判断区分"] : $values[49] - $e["項目"]["検査等実施判断グループ区分"]:=$values[50]="" ? $e["項目"]["検査等実施判断グループ区分"] : $values[50] - $e["項目"]["逓減対象区分"]:=$values[51]="" ? $e["項目"]["逓減対象区分"] : $values[51] - $e["項目"]["脊髄誘発電位測定等加算区分"]:=$values[52]="" ? $e["項目"]["脊髄誘発電位測定等加算区分"] : $values[52] - $e["項目"]["頸部郭清術併施加算区分"]:=$values[53]="" ? $e["項目"]["頸部郭清術併施加算区分"] : $values[53] - $e["項目"]["自動縫合器加算区分"]:=$values[54]="" ? $e["項目"]["自動縫合器加算区分"] : $values[54] - $e["項目"]["外来管理加算区分"]:=$values[55]="" ? $e["項目"]["外来管理加算区分"] : $values[55] - - $e["旧点数"]:={} - $e["旧点数"]["点数識別"]:=$values[56]="" ? $e["旧点数"]["点数識別"] : $values[56] - $e["旧点数"]["旧点数"]:=$values[57]="" ? $e["旧点数"]["旧点数"] : $values[57] - $e["項目"]["漢字名称変更区分"]:=$values[58]="" ? $e["項目"]["漢字名称変更区分"] : $values[58] - $e["項目"]["カナ名称変更区分"]:=$values[59]="" ? $e["項目"]["カナ名称変更区分"] : $values[59] - $e["項目"]["検体検査コメント"]:=$values[60]="" ? $e["項目"]["検体検査コメント"] : $values[60] - $e["項目"]["通則加算所定点数対象区分"]:=$values[61]="" ? $e["項目"]["通則加算所定点数対象区分"] : $values[61] - $e["項目"]["包括逓減区分"]:=$values[62]="" ? $e["項目"]["包括逓減区分"] : $values[62] - $e["項目"]["超音波内視鏡加算区分"]:=$values[63]="" ? $e["項目"]["超音波内視鏡加算区分"] : $values[63] - //予備 - $e["項目"]["点数欄集計先識別(入院)"]:=$values[65]="" ? $e["項目"]["点数欄集計先識別(入院)"] : $values[65] - $e["項目"]["自動吻合器加算区分"]:=$values[66]="" ? $e["項目"]["自動吻合器加算区分"] : $values[66] - $e["項目"]["告示等識別区分(1)"]:=$values[67]="" ? $e["項目"]["告示等識別区分(1)"] : $values[67] - $e["項目"]["告示等識別区分(2)"]:=$values[68]="" ? $e["項目"]["告示等識別区分(2)"] : $values[68] - $e["項目"]["地域加算"]:=$values[69]="" ? $e["項目"]["地域加算"] : $values[69] - $e["項目"]["病床数区分"]:=$values[70]="" ? $e["項目"]["病床数区分"] : $values[70] - - $e["項目"]["施設基準"]:={} - $e["項目"]["施設基準"]["施設基準コード1"]:=$values[71] - $e["項目"]["施設基準"]["施設基準コード2"]:=$values[72] - $e["項目"]["施設基準"]["施設基準コード3"]:=$values[73] - $e["項目"]["施設基準"]["施設基準コード4"]:=$values[74] - $e["項目"]["施設基準"]["施設基準コード5"]:=$values[75] - $e["項目"]["施設基準"]["施設基準コード6"]:=$values[76] - $e["項目"]["施設基準"]["施設基準コード7"]:=$values[77] - $e["項目"]["施設基準"]["施設基準コード8"]:=$values[78] - $e["項目"]["施設基準"]["施設基準コード9"]:=$values[79] - $e["項目"]["施設基準"]["施設基準コード10"]:=$values[80] - $e["項目"]["超音波凝固切開装置等加算区分"]:=$values[81] - $e["項目"]["短期滞在手術"]:=$values[82] - $e["項目"]["歯科適用区分"]:=$values[83] - $e["項目"]["コード表用番号(アルファベット部)"]:=$values[84] - $e["項目"]["告示・通知関連番号(アルファベット部)"]:=$values[85] - $e["項目"]["変更年月日"]:=$values[86] - $e["項目"]["廃止年月日"]:=$values[87] - $e["項目"]["公表順序番号"]:=$values[88] - - $e["項目"]["コード表用番号(アルファベット部を除く)"]:={} - $e["項目"]["コード表用番号(アルファベット部を除く)"]["章"]:=$values[89]="" ? $e["項目"]["コード表用番号(アルファベット部を除く)"]["章"] : $values[89] - $e["項目"]["コード表用番号(アルファベット部を除く)"]["部"]:=$values[90]="" ? $e["項目"]["コード表用番号(アルファベット部を除く)"]["部"] : $values[90] - $e["項目"]["コード表用番号(アルファベット部を除く)"]["区分番号"]:=$values[91]="" ? $e["項目"]["コード表用番号(アルファベット部を除く)"]["区分番号"] : $values[91] - $e["項目"]["コード表用番号(アルファベット部を除く)"]["枝番"]:=$values[92]="" ? $e["項目"]["コード表用番号(アルファベット部を除く)"]["枝番"] : $values[92] - $e["項目"]["コード表用番号(アルファベット部を除く)"]["項番"]:=$values[93]="" ? $e["項目"]["コード表用番号(アルファベット部を除く)"]["項番"] : $values[93] - - $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]:={} - $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["章"]:=$values[94]="" ? $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["章"] : $values[94] - $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["部"]:=$values[95]="" ? $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["部"] : $values[95] - $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["区分番号"]:=$values[96]="" ? $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["区分番号"] : $values[96] - $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["枝番"]:=$values[97]="" ? $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["枝番"] : $values[97] - $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["項番"]:=$values[98]="" ? $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["項番"] : $values[98] - - $e["項目"]["年齢加算1"]:={} - $e["項目"]["年齢加算1"]["下限年齢"]:=$values[99]="" ? $e["項目"]["年齢加算1"]["下限年齢"] : $values[99] - $e["項目"]["年齢加算1"]["上限年齢"]:=$values[100]="" ? $e["項目"]["年齢加算1"]["上限年齢"] : $values[100] - $e["項目"]["年齢加算1"]["注加算診療行為コード"]:=$values[101]="" ? $e["項目"]["年齢加算1"]["注加算診療行為コード"] : $values[101] - - $e["項目"]["年齢加算2"]:={} - $e["項目"]["年齢加算2"]["下限年齢"]:=$values[102]="" ? $e["項目"]["年齢加算2"]["下限年齢"] : $values[102] - $e["項目"]["年齢加算2"]["上限年齢"]:=$values[103]="" ? $e["項目"]["年齢加算2"]["上限年齢"] : $values[103] - $e["項目"]["年齢加算2"]["注加算診療行為コード"]:=$values[104]="" ? $e["項目"]["年齢加算2"]["注加算診療行為コード"] : $values[104] - $e["項目"]["施設基準"]["施設基準コード1"]:=$values[71]="" ? $e["項目"]["施設基準"]["施設基準コード1"] : $values[71] - $e["項目"]["施設基準"]["施設基準コード2"]:=$values[72]="" ? $e["項目"]["施設基準"]["施設基準コード2"] : $values[72] - $e["項目"]["施設基準"]["施設基準コード3"]:=$values[73]="" ? $e["項目"]["施設基準"]["施設基準コード3"] : $values[73] - $e["項目"]["施設基準"]["施設基準コード4"]:=$values[74]="" ? $e["項目"]["施設基準"]["施設基準コード4"] : $values[74] - $e["項目"]["施設基準"]["施設基準コード5"]:=$values[75]="" ? $e["項目"]["施設基準"]["施設基準コード5"] : $values[75] - $e["項目"]["施設基準"]["施設基準コード6"]:=$values[76]="" ? $e["項目"]["施設基準"]["施設基準コード6"] : $values[76] - $e["項目"]["施設基準"]["施設基準コード7"]:=$values[77]="" ? $e["項目"]["施設基準"]["施設基準コード7"] : $values[77] - $e["項目"]["施設基準"]["施設基準コード8"]:=$values[78]="" ? $e["項目"]["施設基準"]["施設基準コード8"] : $values[78] - $e["項目"]["施設基準"]["施設基準コード9"]:=$values[79]="" ? $e["項目"]["施設基準"]["施設基準コード9"] : $values[79] - $e["項目"]["施設基準"]["施設基準コード10"]:=$values[80]="" ? $e["項目"]["施設基準"]["施設基準コード10"] : $values[80] - $e["項目"]["超音波凝固切開装置等加算区分"]:=$values[81]="" ? $e["項目"]["超音波凝固切開装置等加算区分"] : $values[81] - $e["項目"]["短期滞在手術"]:=$values[82]="" ? $e["項目"]["短期滞在手術"] : $values[82] - $e["項目"]["歯科適用区分"]:=$values[83]="" ? $e["項目"]["歯科適用区分"] : $values[83] - $e["項目"]["コード表用番号(アルファベット部)"]:=$values[84]="" ? $e["項目"]["コード表用番号(アルファベット部)"] : $values[84] - $e["項目"]["告示・通知関連番号(アルファベット部)"]:=$values[85]="" ? $e["項目"]["告示・通知関連番号(アルファベット部)"] : $values[85] - $e["項目"]["変更年月日"]:=$values[86]="" ? $e["項目"]["変更年月日"] : $values[86] - $e["項目"]["廃止年月日"]:=$values[87]="" ? $e["項目"]["廃止年月日"] : $values[87] - $e["項目"]["公表順序番号"]:=$values[88]="" ? $e["項目"]["公表順序番号"] : $values[88] - $e["項目"]["凍結保存同種組織加算"]:=$values[118]="" ? $e["項目"]["凍結保存同種組織加算"] : $values[118] - $e["項目"]["悪性腫瘍病理組織標本加算"]:=$values[119]="" ? $e["項目"]["悪性腫瘍病理組織標本加算"] : $values[119] - $e["項目"]["創外固定器加算"]:=$values[120]="" ? $e["項目"]["創外固定器加算"] : $values[120] - $e["項目"]["超音波切削機器加算"]:=$values[121]="" ? $e["項目"]["超音波切削機器加算"] : $values[121] - $e["項目"]["左心耳閉鎖術併施加算"]:=$values[122]="" ? $e["項目"]["左心耳閉鎖術併施加算"] : $values[122] - $e["項目"]["外来感染対策向上加算等"]:=$values[123]="" ? $e["項目"]["外来感染対策向上加算等"] : $values[123] - $e["項目"]["耳鼻咽喉科乳幼児処置加算"]:=$values[124]="" ? $e["項目"]["耳鼻咽喉科乳幼児処置加算"] : $values[124] - $e["項目"]["耳鼻咽喉科小児抗菌薬適正使用支援加算"]:=$values[125]="" ? $e["項目"]["耳鼻咽喉科小児抗菌薬適正使用支援加算"] : $values[125] - $e["項目"]["切開創局所陰圧閉鎖処置機器加算"]:=$values[126]="" ? $e["項目"]["切開創局所陰圧閉鎖処置機器加算"] : $values[126] - - $e["項目"]["看護処遇改善評価料等"]:=$values[127]="" ? $e["項目"]["看護処遇改善評価料等"] : $values[127] - $e["項目"]["外来・在宅ベースアップ評価料(1)"]:=$values[128]="" ? $e["項目"]["外来・在宅ベースアップ評価料(1)"] : $values[128] - $e["項目"]["外来・在宅ベースアップ評価料(2)"]:=$values[129]="" ? $e["項目"]["外来・在宅ベースアップ評価料(2)"] : $values[129] - $e["項目"]["再製造単回使用医療機器使用加算"]:=$values[130]="" ? $e["項目"]["再製造単回使用医療機器使用加算"] : $values[130] - + $e["項目"]["マスター種別"]:=($values[1]="" && ($e["項目"]["マスター種別"]#Null:C1517)) ? $e["項目"]["マスター種別"] : $values[1] + $e["診療行為コード"]:=($values[2]="" && ($e["診療行為コード"]#Null:C1517)) ? $e["診療行為コード"] : $values[2] + $e["診療行為省略名称"]["省略漢字有効桁数"]:=($values[3]="" && ($e["診療行為省略名称"]["省略漢字有効桁数"]#Null:C1517)) ? $e["診療行為省略名称"]["省略漢字有効桁数"] : $values[3] + $e["診療行為省略名称"]["省略漢字名称"]:=($values[4]="" && ($e["診療行為省略名称"]["省略漢字名称"]#Null:C1517)) ? $e["診療行為省略名称"]["省略漢字名称"] : $values[4] + $e["診療行為省略名称"]["省略カナ有効桁数"]:=($values[5]="" && ($e["診療行為省略名称"]["省略カナ有効桁数"]#Null:C1517)) ? $e["診療行為省略名称"]["省略カナ有効桁数"] : $values[5] + $e["診療行為省略名称"]["省略カナ名称"]:=($values[6]="" && ($e["診療行為省略名称"]["省略カナ名称"]#Null:C1517)) ? $e["診療行為省略名称"]["省略カナ名称"] : $values[6] + $e["項目"]["データ規格コード"]:=($values[7]="" && ($e["項目"]["データ規格コード"]#Null:C1517)) ? $e["項目"]["データ規格コード"] : $values[7] + $e["項目"]["データ規格名"]["漢字有効桁数"]:=($values[8]="" && ($e["項目"]["データ規格名"]["漢字有効桁数"]#Null:C1517)) ? $e["項目"]["データ規格名"]["漢字有効桁数"] : $values[8] + $e["項目"]["データ規格名"]["漢字名称"]:=($values[9]="" && ($e["項目"]["データ規格名"]["漢字名称"]#Null:C1517)) ? $e["項目"]["データ規格名"]["漢字名称"] : $values[9] + $e["新又は現点数"]["点数識別"]:=($values[10]="" && ($e["新又は現点数"]["点数識別"]#Null:C1517)) ? $e["新又は現点数"]["点数識別"] : $values[10] + $e["新又は現点数"]["新又は現点数"]:=($values[11]="" && ($e["新又は現点数"]["新又は現点数"]#Null:C1517)) ? $e["新又は現点数"]["新又は現点数"] : $values[11] + $e["項目"]["入外適用区分"]:=($values[12]="" && ($e["項目"]["入外適用区分"]#Null:C1517)) ? $e["項目"]["入外適用区分"] : $values[12] + $e["項目"]["後期高齢者医療適用区分"]:=($values[13]="" && ($e["項目"]["後期高齢者医療適用区分"]#Null:C1517)) ? $e["項目"]["後期高齢者医療適用区分"] : $values[13] + $e["項目"]["点数欄集計先識別(入院外)"]:=($values[14]="" && ($e["項目"]["点数欄集計先識別(入院外)"]#Null:C1517)) ? $e["項目"]["点数欄集計先識別(入院外)"] : $values[14] + $e["項目"]["包括対象検査"]:=($values[15]="" && ($e["項目"]["包括対象検査"]#Null:C1517)) ? $e["項目"]["包括対象検査"] : $values[15] + $e["項目"]["DPC適用区分"]:=($values[17]="" && ($e["項目"]["DPC適用区分"]#Null:C1517)) ? $e["項目"]["DPC適用区分"] : $values[17] + $e["項目"]["病院・診療所区分"]:=($values[18]="" && ($e["項目"]["病院・診療所区分"]#Null:C1517)) ? $e["項目"]["病院・診療所区分"] : $values[18] + $e["項目"]["画像等手術支援加算"]:=($values[19]="" && ($e["項目"]["画像等手術支援加算"]#Null:C1517)) ? $e["項目"]["画像等手術支援加算"] : $values[19] + $e["項目"]["医療観察法対象区分"]:=($values[20]="" && ($e["項目"]["医療観察法対象区分"]#Null:C1517)) ? $e["項目"]["医療観察法対象区分"] : $values[20] + $e["項目"]["看護加算"]:=($values[21]="" && ($e["項目"]["看護加算"]#Null:C1517)) ? $e["項目"]["看護加算"] : $values[21] + $e["項目"]["麻酔識別区分"]:=($values[22]="" && ($e["項目"]["麻酔識別区分"]#Null:C1517)) ? $e["項目"]["麻酔識別区分"] : $values[22] + $e["項目"]["入院基本料加算区分"]:=($values[23]="" && ($e["項目"]["入院基本料加算区分"]#Null:C1517)) ? $e["項目"]["入院基本料加算区分"] : $values[23] + $e["項目"]["傷病名関連区分"]:=($values[24]="" && ($e["項目"]["傷病名関連区分"]#Null:C1517)) ? $e["項目"]["傷病名関連区分"] : $values[24] + $e["項目"]["医学管理料"]:=($values[25]="" && ($e["項目"]["医学管理料"]#Null:C1517)) ? $e["項目"]["医学管理料"] : $values[25] + $e["項目"]["実日数"]:=($values[26]="" && ($e["項目"]["実日数"]#Null:C1517)) ? $e["項目"]["実日数"] : $values[26] + $e["項目"]["日数・回数"]:=($values[27]="" && ($e["項目"]["日数・回数"]#Null:C1517)) ? $e["項目"]["日数・回数"] : $values[27] + $e["項目"]["医薬品関連区分"]:=($values[28]="" && ($e["項目"]["医薬品関連区分"]#Null:C1517)) ? $e["項目"]["医薬品関連区分"] : $values[28] + $e["項目"]["きざみ値"]["きざみ値計算識別"]:=($values[29]="" && ($e["項目"]["きざみ値"]["きざみ値計算識別"]#Null:C1517)) ? $e["項目"]["きざみ値"]["きざみ値計算識別"] : $values[29] + $e["項目"]["きざみ値"]["下限値"]:=($values[30]="" && ($e["項目"]["きざみ値"]["下限値"]#Null:C1517)) ? $e["項目"]["きざみ値"]["下限値"] : $values[30] + $e["項目"]["きざみ値"]["上限値"]:=($values[31]="" && ($e["項目"]["きざみ値"]["上限値"]#Null:C1517)) ? $e["項目"]["きざみ値"]["上限値"] : $values[31] + $e["項目"]["きざみ値"]["きざみ値"]:=($values[32]="" && ($e["項目"]["きざみ値"]["きざみ値"]#Null:C1517)) ? $e["項目"]["きざみ値"]["きざみ値"] : $values[32] + $e["項目"]["きざみ値"]["きざみ点数"]:=($values[33]="" && ($e["項目"]["きざみ値"]["きざみ点数"]#Null:C1517)) ? $e["項目"]["きざみ値"]["きざみ点数"] : $values[33] + $e["項目"]["きざみ値"]["上下限エラー処理"]:=($values[34]="" && ($e["項目"]["きざみ値"]["上下限エラー処理"]#Null:C1517)) ? $e["項目"]["きざみ値"]["上下限エラー処理"] : $values[34] + $e["項目"]["上限回数"]["上限回数"]:=($values[35]="" && ($e["項目"]["上限回数"]["上限回数"]#Null:C1517)) ? $e["項目"]["上限回数"]["上限回数"] : $values[35] + $e["項目"]["上限回数"]["上限回数エラー処理"]:=($values[36]="" && ($e["項目"]["上限回数"]["上限回数エラー処理"]#Null:C1517)) ? $e["項目"]["上限回数"]["上限回数エラー処理"] : $values[36] + $e["項目"]["注加算"]["注加算コード"]:=($values[37]="" && ($e["項目"]["注加算"]["注加算コード"]#Null:C1517)) ? $e["項目"]["注加算"]["注加算コード"] : $values[37] + $e["項目"]["注加算"]["注加算通番"]:=($values[38]="" && ($e["項目"]["注加算"]["注加算通番"]#Null:C1517)) ? $e["項目"]["注加算"]["注加算通番"] : $values[38] + $e["項目"]["通則年齢"]:=($values[39]="" && ($e["項目"]["通則年齢"]#Null:C1517)) ? $e["項目"]["通則年齢"] : $values[39] + $e["項目"]["上下限年齢"]["下限年齢"]:=($values[40]="" && ($e["項目"]["上下限年齢"]["下限年齢"]#Null:C1517)) ? $e["項目"]["上下限年齢"]["下限年齢"] : $values[40] + $e["項目"]["上下限年齢"]["上限年齢"]:=($values[41]="" && ($e["項目"]["上下限年齢"]["上限年齢"]#Null:C1517)) ? $e["項目"]["上下限年齢"]["上限年齢"] : $values[41] + $e["項目"]["時間加算区分"]:=($values[42]="" && ($e["項目"]["時間加算区分"]#Null:C1517)) ? $e["項目"]["時間加算区分"] : $values[42] + $e["項目"]["基準適合識別"]["適合区分"]:=($values[43]="" && ($e["項目"]["基準適合識別"]["適合区分"]#Null:C1517)) ? $e["項目"]["基準適合識別"]["適合区分"] : $values[43] + $e["項目"]["基準適合識別"]["対象施設基準"]:=($values[44]="" && ($e["項目"]["基準適合識別"]["対象施設基準"]#Null:C1517)) ? $e["項目"]["基準適合識別"]["対象施設基準"] : $values[44] + $e["項目"]["処置乳幼児加算区分"]:=($values[45]="" && ($e["項目"]["処置乳幼児加算区分"]#Null:C1517)) ? $e["項目"]["処置乳幼児加算区分"] : $values[45] + $e["項目"]["極低出生体重児加算区分"]:=($values[46]="" && ($e["項目"]["極低出生体重児加算区分"]#Null:C1517)) ? $e["項目"]["極低出生体重児加算区分"] : $values[46] + $e["項目"]["入院基本料等減算対象識別"]:=($values[47]="" && ($e["項目"]["入院基本料等減算対象識別"]#Null:C1517)) ? $e["項目"]["入院基本料等減算対象識別"] : $values[47] + $e["項目"]["ドナー分集計区分"]:=($values[48]="" && ($e["項目"]["ドナー分集計区分"]#Null:C1517)) ? $e["項目"]["ドナー分集計区分"] : $values[48] + $e["項目"]["検査等実施判断区分"]:=($values[49]="" && ($e["項目"]["検査等実施判断区分"]#Null:C1517)) ? $e["項目"]["検査等実施判断区分"] : $values[49] + $e["項目"]["検査等実施判断グループ区分"]:=($values[50]="" && ($e["項目"]["検査等実施判断グループ区分"]#Null:C1517)) ? $e["項目"]["検査等実施判断グループ区分"] : $values[50] + $e["項目"]["逓減対象区分"]:=($values[51]="" && ($e["項目"]["逓減対象区分"]#Null:C1517)) ? $e["項目"]["逓減対象区分"] : $values[51] + $e["項目"]["脊髄誘発電位測定等加算区分"]:=($values[52]="" && ($e["項目"]["脊髄誘発電位測定等加算区分"]#Null:C1517)) ? $e["項目"]["脊髄誘発電位測定等加算区分"] : $values[52] + $e["項目"]["頸部郭清術併施加算区分"]:=($values[53]="" && ($e["項目"]["頸部郭清術併施加算区分"]#Null:C1517)) ? $e["項目"]["頸部郭清術併施加算区分"] : $values[53] + $e["項目"]["自動縫合器加算区分"]:=($values[54]="" && ($e["項目"]["自動縫合器加算区分"]#Null:C1517)) ? $e["項目"]["自動縫合器加算区分"] : $values[54] + $e["項目"]["外来管理加算区分"]:=($values[55]="" && ($e["項目"]["外来管理加算区分"]#Null:C1517)) ? $e["項目"]["外来管理加算区分"] : $values[55] + $e["旧点数"]["点数識別"]:=($values[56]="" && ($e["旧点数"]["点数識別"]#Null:C1517)) ? $e["旧点数"]["点数識別"] : $values[56] + $e["旧点数"]["旧点数"]:=($values[57]="" && ($e["旧点数"]["旧点数"]#Null:C1517)) ? $e["旧点数"]["旧点数"] : $values[57] + $e["項目"]["漢字名称変更区分"]:=($values[58]="" && ($e["項目"]["漢字名称変更区分"]#Null:C1517)) ? $e["項目"]["漢字名称変更区分"] : $values[58] + $e["項目"]["カナ名称変更区分"]:=($values[59]="" && ($e["項目"]["カナ名称変更区分"]#Null:C1517)) ? $e["項目"]["カナ名称変更区分"] : $values[59] + $e["項目"]["検体検査コメント"]:=($values[60]="" && ($e["項目"]["検体検査コメント"]#Null:C1517)) ? $e["項目"]["検体検査コメント"] : $values[60] + $e["項目"]["通則加算所定点数対象区分"]:=($values[61]="" && ($e["項目"]["通則加算所定点数対象区分"]#Null:C1517)) ? $e["項目"]["通則加算所定点数対象区分"] : $values[61] + $e["項目"]["包括逓減区分"]:=($values[62]="" && ($e["項目"]["包括逓減区分"]#Null:C1517)) ? $e["項目"]["包括逓減区分"] : $values[62] + $e["項目"]["超音波内視鏡加算区分"]:=($values[63]="" && ($e["項目"]["超音波内視鏡加算区分"]#Null:C1517)) ? $e["項目"]["超音波内視鏡加算区分"] : $values[63] + $e["項目"]["点数欄集計先識別(入院)"]:=($values[65]="" && ($e["項目"]["点数欄集計先識別(入院)"]#Null:C1517)) ? $e["項目"]["点数欄集計先識別(入院)"] : $values[65] + $e["項目"]["自動吻合器加算区分"]:=($values[66]="" && ($e["項目"]["自動吻合器加算区分"]#Null:C1517)) ? $e["項目"]["自動吻合器加算区分"] : $values[66] + $e["項目"]["告示等識別区分(1)"]:=($values[67]="" && ($e["項目"]["告示等識別区分(1)"]#Null:C1517)) ? $e["項目"]["告示等識別区分(1)"] : $values[67] + $e["項目"]["告示等識別区分(2)"]:=($values[68]="" && ($e["項目"]["告示等識別区分(2)"]#Null:C1517)) ? $e["項目"]["告示等識別区分(2)"] : $values[68] + $e["項目"]["地域加算"]:=($values[69]="" && ($e["項目"]["地域加算"]#Null:C1517)) ? $e["項目"]["地域加算"] : $values[69] + $e["項目"]["病床数区分"]:=($values[70]="" && ($e["項目"]["病床数区分"]#Null:C1517)) ? $e["項目"]["病床数区分"] : $values[70] + $e["項目"]["施設基準"]["施設基準コード1"]:=($values[71]="" && ($e["項目"]["施設基準"]["施設基準コード1"]#Null:C1517)) ? $e["項目"]["施設基準"]["施設基準コード1"] : $values[71] + $e["項目"]["施設基準"]["施設基準コード2"]:=($values[72]="" && ($e["項目"]["施設基準"]["施設基準コード2"]#Null:C1517)) ? $e["項目"]["施設基準"]["施設基準コード2"] : $values[72] + $e["項目"]["施設基準"]["施設基準コード3"]:=($values[73]="" && ($e["項目"]["施設基準"]["施設基準コード3"]#Null:C1517)) ? $e["項目"]["施設基準"]["施設基準コード3"] : $values[73] + $e["項目"]["施設基準"]["施設基準コード4"]:=($values[74]="" && ($e["項目"]["施設基準"]["施設基準コード4"]#Null:C1517)) ? $e["項目"]["施設基準"]["施設基準コード4"] : $values[74] + $e["項目"]["施設基準"]["施設基準コード5"]:=($values[75]="" && ($e["項目"]["施設基準"]["施設基準コード5"]#Null:C1517)) ? $e["項目"]["施設基準"]["施設基準コード5"] : $values[75] + $e["項目"]["施設基準"]["施設基準コード6"]:=($values[76]="" && ($e["項目"]["施設基準"]["施設基準コード6"]#Null:C1517)) ? $e["項目"]["施設基準"]["施設基準コード6"] : $values[76] + $e["項目"]["施設基準"]["施設基準コード7"]:=($values[77]="" && ($e["項目"]["施設基準"]["施設基準コード7"]#Null:C1517)) ? $e["項目"]["施設基準"]["施設基準コード7"] : $values[77] + $e["項目"]["施設基準"]["施設基準コード8"]:=($values[78]="" && ($e["項目"]["施設基準"]["施設基準コード8"]#Null:C1517)) ? $e["項目"]["施設基準"]["施設基準コード8"] : $values[78] + $e["項目"]["施設基準"]["施設基準コード9"]:=($values[79]="" && ($e["項目"]["施設基準"]["施設基準コード9"]#Null:C1517)) ? $e["項目"]["施設基準"]["施設基準コード9"] : $values[79] + $e["項目"]["施設基準"]["施設基準コード10"]:=($values[80]="" && ($e["項目"]["施設基準"]["施設基準コード10"]#Null:C1517)) ? $e["項目"]["施設基準"]["施設基準コード10"] : $values[80] + $e["項目"]["超音波凝固切開装置等加算区分"]:=($values[81]="" && ($e["項目"]["超音波凝固切開装置等加算区分"]#Null:C1517)) ? $e["項目"]["超音波凝固切開装置等加算区分"] : $values[81] + $e["項目"]["短期滞在手術"]:=($values[82]="" && ($e["項目"]["短期滞在手術"]#Null:C1517)) ? $e["項目"]["短期滞在手術"] : $values[82] + $e["項目"]["歯科適用区分"]:=($values[83]="" && ($e["項目"]["歯科適用区分"]#Null:C1517)) ? $e["項目"]["歯科適用区分"] : $values[83] + $e["項目"]["コード表用番号(アルファベット部)"]:=($values[84]="" && ($e["項目"]["コード表用番号(アルファベット部)"]#Null:C1517)) ? $e["項目"]["コード表用番号(アルファベット部)"] : $values[84] + $e["項目"]["告示・通知関連番号(アルファベット部)"]:=($values[85]="" && ($e["項目"]["告示・通知関連番号(アルファベット部)"]#Null:C1517)) ? $e["項目"]["告示・通知関連番号(アルファベット部)"] : $values[85] + $e["項目"]["変更年月日"]:=($values[86]="" && ($e["項目"]["変更年月日"]#Null:C1517)) ? $e["項目"]["変更年月日"] : $values[86] + $e["項目"]["廃止年月日"]:=($values[87]="" && ($e["項目"]["廃止年月日"]#Null:C1517)) ? $e["項目"]["廃止年月日"] : $values[87] + $e["項目"]["公表順序番号"]:=($values[88]="" && ($e["項目"]["公表順序番号"]#Null:C1517)) ? $e["項目"]["公表順序番号"] : $values[88] + $e["項目"]["コード表用番号(アルファベット部を除く)"]["章"]:=($values[89]="" && ($e["項目"]["コード表用番号(アルファベット部を除く)"]["章"]#Null:C1517)) ? $e["項目"]["コード表用番号(アルファベット部を除く)"]["章"] : $values[89] + $e["項目"]["コード表用番号(アルファベット部を除く)"]["部"]:=($values[90]="" && ($e["項目"]["コード表用番号(アルファベット部を除く)"]["部"]#Null:C1517)) ? $e["項目"]["コード表用番号(アルファベット部を除く)"]["部"] : $values[90] + $e["項目"]["コード表用番号(アルファベット部を除く)"]["区分番号"]:=($values[91]="" && ($e["項目"]["コード表用番号(アルファベット部を除く)"]["区分番号"]#Null:C1517)) ? $e["項目"]["コード表用番号(アルファベット部を除く)"]["区分番号"] : $values[91] + $e["項目"]["コード表用番号(アルファベット部を除く)"]["枝番"]:=($values[92]="" && ($e["項目"]["コード表用番号(アルファベット部を除く)"]["枝番"]#Null:C1517)) ? $e["項目"]["コード表用番号(アルファベット部を除く)"]["枝番"] : $values[92] + $e["項目"]["コード表用番号(アルファベット部を除く)"]["項番"]:=($values[93]="" && ($e["項目"]["コード表用番号(アルファベット部を除く)"]["項番"]#Null:C1517)) ? $e["項目"]["コード表用番号(アルファベット部を除く)"]["項番"] : $values[93] + $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["章"]:=($values[94]="" && ($e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["章"]#Null:C1517)) ? $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["章"] : $values[94] + $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["部"]:=($values[95]="" && ($e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["部"]#Null:C1517)) ? $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["部"] : $values[95] + $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["区分番号"]:=($values[96]="" && ($e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["区分番号"]#Null:C1517)) ? $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["区分番号"] : $values[96] + $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["枝番"]:=($values[97]="" && ($e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["枝番"]#Null:C1517)) ? $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["枝番"] : $values[97] + $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["項番"]:=($values[98]="" && ($e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["項番"]#Null:C1517)) ? $e["項目"]["告示・通知関連番号(アルファベット部を除く)"]["項番"] : $values[98] + $e["項目"]["年齢加算1"]["下限年齢"]:=($values[99]="" && ($e["項目"]["年齢加算1"]["下限年齢"]#Null:C1517)) ? $e["項目"]["年齢加算1"]["下限年齢"] : $values[99] + $e["項目"]["年齢加算1"]["上限年齢"]:=($values[100]="" && ($e["項目"]["年齢加算1"]["上限年齢"]#Null:C1517)) ? $e["項目"]["年齢加算1"]["上限年齢"] : $values[100] + $e["項目"]["年齢加算1"]["注加算診療行為コード"]:=($values[101]="" && ($e["項目"]["年齢加算1"]["注加算診療行為コード"]#Null:C1517)) ? $e["項目"]["年齢加算1"]["注加算診療行為コード"] : $values[101] + $e["項目"]["年齢加算2"]["下限年齢"]:=($values[102]="" && ($e["項目"]["年齢加算2"]["下限年齢"]#Null:C1517)) ? $e["項目"]["年齢加算2"]["下限年齢"] : $values[102] + $e["項目"]["年齢加算2"]["上限年齢"]:=($values[103]="" && ($e["項目"]["年齢加算2"]["上限年齢"]#Null:C1517)) ? $e["項目"]["年齢加算2"]["上限年齢"] : $values[103] + $e["項目"]["年齢加算2"]["注加算診療行為コード"]:=($values[104]="" && ($e["項目"]["年齢加算2"]["注加算診療行為コード"]#Null:C1517)) ? $e["項目"]["年齢加算2"]["注加算診療行為コード"] : $values[104] + $e["項目"]["年齢加算3"]["下限年齢"]:=($values[105]="" && ($e["項目"]["年齢加算3"]["下限年齢"]#Null:C1517)) ? $e["項目"]["年齢加算3"]["下限年齢"] : $values[105] + $e["項目"]["年齢加算3"]["上限年齢"]:=($values[106]="" && ($e["項目"]["年齢加算3"]["上限年齢"]#Null:C1517)) ? $e["項目"]["年齢加算3"]["上限年齢"] : $values[106] + $e["項目"]["年齢加算3"]["注加算診療行為コード"]:=($values[107]="" && ($e["項目"]["年齢加算3"]["注加算診療行為コード"]#Null:C1517)) ? $e["項目"]["年齢加算3"]["注加算診療行為コード"] : $values[107] + $e["項目"]["年齢加算4"]["下限年齢"]:=($values[108]="" && ($e["項目"]["年齢加算4"]["下限年齢"]#Null:C1517)) ? $e["項目"]["年齢加算4"]["下限年齢"] : $values[108] + $e["項目"]["年齢加算4"]["上限年齢"]:=($values[109]="" && ($e["項目"]["年齢加算4"]["上限年齢"]#Null:C1517)) ? $e["項目"]["年齢加算4"]["上限年齢"] : $values[109] + $e["項目"]["年齢加算4"]["注加算診療行為コード"]:=($values[110]="" && ($e["項目"]["年齢加算4"]["注加算診療行為コード"]#Null:C1517)) ? $e["項目"]["年齢加算4"]["注加算診療行為コード"] : $values[110] + $e["項目"]["異動関連"]:=($values[111]="" && ($e["項目"]["異動関連"]#Null:C1517)) ? $e["項目"]["異動関連"] : $values[111] + $e["基本漢字名称"]:=($values[112]="" && ($e["基本漢字名称"]#Null:C1517)) ? $e["基本漢字名称"] : $values[112] + $e["項目"]["副鼻腔手術用内視鏡加算"]:=($values[113]="" && ($e["項目"]["副鼻腔手術用内視鏡加算"]#Null:C1517)) ? $e["項目"]["副鼻腔手術用内視鏡加算"] : $values[113] + $e["項目"]["副鼻腔手術用骨軟部組織切除機器加算"]:=($values[114]="" && ($e["項目"]["副鼻腔手術用骨軟部組織切除機器加算"]#Null:C1517)) ? $e["項目"]["副鼻腔手術用骨軟部組織切除機器加算"] : $values[114] + $e["項目"]["長時間麻酔管理加算"]:=($values[115]="" && ($e["項目"]["長時間麻酔管理加算"]#Null:C1517)) ? $e["項目"]["長時間麻酔管理加算"] : $values[115] + $e["項目"]["点数表区分番号"]:=($values[116]="" && ($e["項目"]["点数表区分番号"]#Null:C1517)) ? $e["項目"]["点数表区分番号"] : $values[116] + $e["項目"]["非侵襲的血行動態モニタリング"]:=($values[117]="" && ($e["項目"]["非侵襲的血行動態モニタリング"]#Null:C1517)) ? $e["項目"]["非侵襲的血行動態モニタリング"] : $values[117] + $e["項目"]["凍結保存同種組織加算"]:=($values[118]="" && ($e["項目"]["凍結保存同種組織加算"]#Null:C1517)) ? $e["項目"]["凍結保存同種組織加算"] : $values[118] + $e["項目"]["悪性腫瘍病理組織標本加算"]:=($values[119]="" && ($e["項目"]["悪性腫瘍病理組織標本加算"]#Null:C1517)) ? $e["項目"]["悪性腫瘍病理組織標本加算"] : $values[119] + $e["項目"]["創外固定器加算"]:=($values[120]="" && ($e["項目"]["創外固定器加算"]#Null:C1517)) ? $e["項目"]["創外固定器加算"] : $values[120] + $e["項目"]["超音波切削機器加算"]:=($values[121]="" && ($e["項目"]["超音波切削機器加算"]#Null:C1517)) ? $e["項目"]["超音波切削機器加算"] : $values[121] + $e["項目"]["左心耳閉鎖術併施加算"]:=($values[122]="" && ($e["項目"]["左心耳閉鎖術併施加算"]#Null:C1517)) ? $e["項目"]["左心耳閉鎖術併施加算"] : $values[122] + $e["項目"]["外来感染対策向上加算等"]:=($values[123]="" && ($e["項目"]["外来感染対策向上加算等"]#Null:C1517)) ? $e["項目"]["外来感染対策向上加算等"] : $values[123] + $e["項目"]["耳鼻咽喉科乳幼児処置加算"]:=($values[124]="" && ($e["項目"]["耳鼻咽喉科乳幼児処置加算"]#Null:C1517)) ? $e["項目"]["耳鼻咽喉科乳幼児処置加算"] : $values[124] + $e["項目"]["耳鼻咽喉科小児抗菌薬適正使用支援加算"]:=($values[125]="" && ($e["項目"]["耳鼻咽喉科小児抗菌薬適正使用支援加算"]#Null:C1517)) ? $e["項目"]["耳鼻咽喉科小児抗菌薬適正使用支援加算"] : $values[125] + $e["項目"]["切開創局所陰圧閉鎖処置機器加算"]:=($values[126]="" && ($e["項目"]["切開創局所陰圧閉鎖処置機器加算"]#Null:C1517)) ? $e["項目"]["切開創局所陰圧閉鎖処置機器加算"] : $values[126] + $e["項目"]["看護処遇改善評価料等"]:=($values[127]="" && ($e["項目"]["看護処遇改善評価料等"]#Null:C1517)) ? $e["項目"]["看護処遇改善評価料等"] : $values[127] + $e["項目"]["外来・在宅ベースアップ評価料(1)"]:=($values[128]="" && ($e["項目"]["外来・在宅ベースアップ評価料(1)"]#Null:C1517)) ? $e["項目"]["外来・在宅ベースアップ評価料(1)"] : $values[128] + $e["項目"]["外来・在宅ベースアップ評価料(2)"]:=($values[129]="" && ($e["項目"]["外来・在宅ベースアップ評価料(2)"]#Null:C1517)) ? $e["項目"]["外来・在宅ベースアップ評価料(2)"] : $values[129] + $e["項目"]["再製造単回使用医療機器使用加算"]:=($values[130]="" && ($e["項目"]["再製造単回使用医療機器使用加算"]#Null:C1517)) ? $e["項目"]["再製造単回使用医療機器使用加算"] : $values[130] End if diff --git a/rezept/Project/Sources/Methods/macro.4dm b/rezept/Project/Sources/Methods/macro.4dm index 39049d8..5ed64c1 100644 --- a/rezept/Project/Sources/Methods/macro.4dm +++ b/rezept/Project/Sources/Methods/macro.4dm @@ -14,9 +14,12 @@ $line:="" While (Match regex:C1019("(?m)^(.+?):=(.+?)$"; $code; $i; $pos; $len)) $line+=Substring:C12($code; $pos{1}; $len{1}) - $line+=":=" + $line+=":=(" $line+=Substring:C12($code; $pos{2}; $len{2}) - $line+="=\"\" ? " + $line+="=\"\" && (" + $line+=Substring:C12($code; $pos{1}; $len{1}) + $line+="#Null))" + $line+=" ? " $line+=Substring:C12($code; $pos{1}; $len{1}) $line+=" : " $line+=Substring:C12($code; $pos{2}; $len{2}) diff --git a/rezept/Project/Sources/Methods/test.4dm b/rezept/Project/Sources/Methods/test.4dm index 4a43eca..41d132c 100644 --- a/rezept/Project/Sources/Methods/test.4dm +++ b/rezept/Project/Sources/Methods/test.4dm @@ -1,13 +1,5 @@ //%attributes = {} -$rezept:=cs:C1710.Rezept.new() - -$info:=$rezept.getInfo() - -$rezept.switch($info.data[1]) - -//$診療行為:=$rezept.get("単位"; "1") - -//$診療行為:=$rezept.get("診療行為"; "150405210") - +ds:C1482._診療行為.regenerate() +$e:=ds:C1482._診療行為.query("診療行為コード == :1"; "180032710")