File:  [Local Repository] / jma-receipt / cobol / copy / CPORCSRIHASTDAY.INC
Revision 1.1: download - view: text, annotated - select for diffs
Wed Aug 19 08:01:48 2015 UTC (4 years, 2 months ago) by tsutomu
Branches: MAIN
CVS tags: HEAD
会計カードリハビリ開始日対応

      ******************************************************************
      * Project code name "ORCA"
      * 日医標準レセプトソフト(JMA standard receipt software)
      * Copyright(C) 2002 JMA (Japan Medical Association)
      *
      * This program is part of "JMA standard receipt software".
      *
      *     This program is distributed in the hope that it will be useful
      * for further advancement in medical care, according to JMA Open
      * Source License, but WITHOUT ANY WARRANTY.
      *     Everyone is granted permission to use, copy, modify and
      * redistribute this program, but only under the conditions described
      * in the JMA Open Source License. You should have received a copy of
      * this license along with this program. If not, stop using this
      * program and contact JMA, 2-28-16 Honkomagome, Bunkyo-ku, Tokyo,
      * 113-8621, Japan.
      ******************************************************************
      *    リハビリ開始日コメント編集サブ   COPY (CPORCSRIHASTDAY.INC)
      ******************************************************************
      *  コピー句修正履歴
      * Maj/Min/Rev  修正者       日付      内容
      ******************************************************************
       01  ORCSRIHASTDAYAREA.
      *
      *医療機関ID
           03  LNK-RIHASTDAY-HOSPNUM              PIC  9(02).
      *入外区分
           03  LNK-RIHASTDAY-NYUGAIKBN            PIC  X(01).
      *患者ID
           03  LNK-RIHASTDAY-PTID                 PIC  9(10).
      *診療年月
           03  LNK-RIHASTDAY-SRYYM                PIC  X(06).
      *保険組合せ
           03  LNK-RIHASTDAY-HKNCOMBI             PIC  9(04).
      *
      *返却項目
      *1:心大血管疾患 2:脳血管疾患等 3:運動器 4:呼吸器
      *5:摂食 6:難病患者 7:障害児(者)
           03  LNK-RIHASTDAY-OUT-AREA.
              04  LNK-RIHASTDAY-OUT-OCC           OCCURS   7.
                 05  LNK-RIHASTDAY-OUT-OCC2       OCCURS 100.
                    06  LNK-RIHASTDAY-MARK        PIC  X(02).
                    06  LNK-RIHASTDAY-YUKOKETA    PIC  9(03).
                    06  LNK-RIHASTDAY-COM         PIC  X(200).
      *
      *復帰コード
           03  LNK-RIHASTDAY-RC                   PIC  9(02).
      *

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>