Skip to content

Commit

Permalink
nullチェック
Browse files Browse the repository at this point in the history
  • Loading branch information
@miyako
miyako committed Jun 5, 2024
1 parent 0896def commit a2d79f3
Show file tree
Hide file tree
Showing 7 changed files with 260 additions and 307 deletions.
2 changes: 1 addition & 1 deletion package.json
View file
Original file line number Diff line number Diff line change
@@ -1 +1 @@
{"name":"ssk-master","description":"社会保険診療報酬支払基金マスター","author":"Keisuke Miyako <[email protected]>","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"]}
{ "name": "ssk-master", "description": "社会保険診療報酬支払基金マスター", "author": "Keisuke Miyako <[email protected]>", "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" ]}
Expand Down
57 changes: 25 additions & 32 deletions rezept/Project/Sources/Classes/_コメント.4dm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
Loading

0 comments on commit a2d79f3

Please sign in to comment.