File:  [Local Repository] / jma-receipt-kk / 30wakayama / cobol / copy / SEI3003.INC
Revision 1.1: download - view: text, annotated - select for diffs
Fri May 21 02:39:31 2010 UTC (9 years, 1 month ago) by yoshi
Branches: MAIN
CVS tags: HEAD
²λPGɲ

      *******************************************************************
      * 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 (CPRMF100.INC) *
      ************************************************************
      ************************************************************
      *  ԡ罤
      * Maj/Min/Rev               
      ************************************************************
      *01  MF100-REC.
           03  MF100-KEY.
      *ŵأɣ
               05  MF100-HOSPNUM         PIC  9(02).
      *ôֹ
               05  MF100-FTNJANUM        PIC  X(08).
      *ʬʥڡѤѡ
               05  MF100-NYUGAIKBNP      PIC  X(01).
      *ŷ
               05  MF100-SRYYM           PIC  X(06).
      *ݼֹ
               05  MF100-KOHJKYSNUM      PIC  X(20).
      *ֹ
               05  MF100-PTNUM           PIC  X(20).
      *ݸֹ        
               05  MF100-HKNJANUM-KEY    PIC  X(08).
      *Ŭѳǯ
               05  MF100-TEKSTYMD        PIC  X(08). 
      *Ų
               05  MF100-SRYKA           PIC  X(02).
      *ʬ
               05  MF100-NYUGAIKBN       PIC  X(01).
      *ԣɣ
           03  MF100-PTID                PIC  9(10).
      *̾
           03  MF100-NAME                PIC  X(100).
      *ǯ
           03  MF100-BIRTHDAY            PIC  9(08).
      *
           03  MF100-SEX                 PIC  X(01).
      *ݸ
           03  MF100-HKN.
      *ݸݸɣ
               05  MF100-HKNID           PIC  9(10).
      *ݸݸֹ
               05  MF100-HKNNUM          PIC  X(03).
      *ݸˡֹ
               05  MF100-HKNHBTNUM       PIC  X(02).
      *ݸݸֹ
               05  MF100-HKNJANUM        PIC  X(08).
      *ݸܿͲ²ʬ
               05  MF100-HONKZKKBN       PIC  X(01).
      *ݸʬ
               05  MF100-HOJOKBN         PIC  X(01).
      *ݸݷ³ʬ
               05  MF100-CONTKBN         PIC  X(01).
      *ݸݵ
               05  MF100-KIGO            PIC  X(80).
      *ݸֹ
               05  MF100-NUM             PIC  X(80).
      *ݸݵճ
               05  MF100-KYURATE         PIC  9(03).
      *ݸݾֹ
               05  MF100-CERTNUM         PIC  X(03).
      *Ϸݷ
           03  MF100-RJNHKN.
      *Ϸݸݸɣ
               05  MF100-RJNHKNID        PIC  9(10).
      *Ϸݸݸֹ
               05  MF100-RJNHKNNUM       PIC  X(03).
      *Ϸݸˡֹ
               05  MF100-RJNHBTNUM       PIC  X(02).
      *ϷݸݻĮ¼ֹ
               05  MF100-RJNFTNJANUM     PIC  X(08).
      *Ϸݸݼֹ
               05  MF100-RJNJKYSNUM      PIC  X(07).
      *
           03  MF100-KOHINF.
      *ݸɣ
               05  MF100-KOHID           PIC  9(10).
      *ݸֹ
               05  MF100-KOHNUM          PIC  X(03).
      *ˡֹ
               05  MF100-KOHHBTNUM       PIC  X(02).
      *ôֹ
               05  MF100-KOHFTNJANUM     PIC  X(08).
      *Ǥյնʬ
               05  MF100-KOHNINIKYUKBN   PIC  X(01).
      *ݷ
               05  MF100-KOHKENSU        PIC  9(03).
      *ݥ쥻ץʬ
               05  MF100-RECESKYKBN      PIC  X(01).
      *ȹ礻ʬ
               05  MF100-COMBIKBN        PIC  9(01).
      *ȹ礻
               05  MF100-COMBIKENSU      PIC  9(03).
      *ȹ礻ô
               05  MF100-COMBIFTN        PIC  9(09).
      *
           03  MF100-JNISSUINF.
               05  MF100-JNISSU          PIC  9(02).
      *
           03  MF100-TOTALTENINF.
               05  MF100-TOTALTEN        PIC  9(08).
      *ô۾
           03  MF100-FTNMONEYINF.
               05  MF100-FTNMONEY        PIC  9(08).
      *ݸô۾
           03  MF100-SYUCOMPTOTALINF.
               05  MF100-SYUCOMPTOTAL    PIC  9(08).
      *ô
           03  MF100-KOHFTNINF.
               05  MF100-KOHFTN          PIC  9(09).
      *¾۾
           03  MF100-ETCKOHFTNINF.
               05  MF100-ETCKOHFTN       PIC  9(08).
      *ްô
           03  MF100-YKZFTNINF.
               05  MF100-YKZFTN          PIC  9(05).
      *ô⡦ɸô۶ʬ
           03  MF100-SHOKUJIFTNKBN       PIC  X(01).

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