OpenDolphin日記

ORCA公開帳票の，年齢別外来患者数集計表の年齢を変更するには，ソースを２カ所修正する。下は，厚生労働省の患者調査の年齢区分を参考に変更したもの。

*    年齢名称設定
MOVE    "０歳"            TO    SUM-AGENAME(1)
MOVE    "１歳〜４歳"      TO    SUM-AGENAME(2)
MOVE    "５歳〜９歳"      TO    SUM-AGENAME(3)
MOVE    "１０歳〜１４歳"  TO    SUM-AGENAME(4)
MOVE    "１５歳〜１９歳"  TO    SUM-AGENAME(5)
MOVE    "２０歳〜３９歳"  TO    SUM-AGENAME(6)
MOVE    "４０歳〜５９歳"  TO    SUM-AGENAME(7)
MOVE    "６０歳〜６９歳"  TO    SUM-AGENAME(8)
MOVE    "７０歳〜７４歳"  TO    SUM-AGENAME(9)
MOVE    "７５歳以上"      TO    SUM-AGENAME(10)
MOVE    "全患者合計"      TO    SUM-AGENAME(11)
MOVE    11                TO    SUM-AGEMAX

*    年齢計算
MOVE  JYURRK-SRYYMD(1:6)      TO  WRK-NENREI-TBL1
MOVE  PTINF-BIRTHDAY(1:6)     TO  WRK-NENREI-TBL2
COMPUTE  WRK-AGE  =  WRK-NENREIY1 -    WRK-NENREIY2
IF       WRK-NENREIM1            <     WRK-NENREIM2
  COMPUTE  WRK-AGE  =  WRK-AGE   -     1
END-IF
EVALUATE  WRK-AGE
WHEN    0 THRU 0
  MOVE    1      TO       IDX1
WHEN    1 THRU 4
  MOVE    2      TO       IDX1
WHEN    5 THRU 9
  MOVE    3      TO       IDX1
WHEN   10 THRU 14
  MOVE    4      TO       IDX1
WHEN   15 THRU 19
  MOVE    5      TO       IDX1
WHEN   20 THRU 39
  MOVE    6      TO       IDX1
WHEN   40 THRU 59
  MOVE    7      TO       IDX1
WHEN   60 THRU 69
  MOVE    8      TO       IDX1
WHEN   70 THRU 74
  MOVE    9      TO       IDX1
WHEN   OTHER
  MOVE   10      TO       IDX1
END-EVALUATE