Annotation of jma-receipt/cobol/copy/CPRECEIPT-INF1V2REQ.INC, revision 1.1

1.1     ! fujihara    1:       *******************************************************************
        !             2:       * Project code name "ORCA"
        !             3:       * 日医標準レセプトソフト(JMA standard receipt software)
        !             4:       * Copyright(C) 2002 JMA (Japan Medical Association)
        !             5:       *
        !             6:       * This program is part of "JMA standard receipt software".
        !             7:       *
        !             8:       *     This program is distributed in the hope that it will be useful
        !             9:       * for further advancement in medical care, according to JMA Open
        !            10:       * Source License, but WITHOUT ANY WARRANTY.
        !            11:       *     Everyone is granted permission to use, copy, modify and
        !            12:       * redistribute this program, but only under the conditions described
        !            13:       * in the JMA Open Source License. You should have received a copy of
        !            14:       * this licence along with this program. If not, stop using this
        !            15:       * program and contact JMA, 2-28-16 Honkomagome, Bunkyo-ku, Tokyo,
        !            16:       * 113-8621, Japan.
        !            17:       ********************************************************************
        !            18:       *****************************************************************
        !            19:       *  プログラム修正履歴
        !            20:       * Maj/Min/Rev  修正者       日付      内容
        !            21:       *****************************************************************
        !            22:       ******************************************************************
        !            23:       *    APIレセプト情報(レセプトの枚数、点数)(xml2)
        !            24:       *                                   COPY (CPRECEIPT-INF1V2REQ.INC)
        !            25:       ******************************************************************
        !            26:         01  XML-RECEIPT-INFREQ.
        !            27:             02  RECEIPT-INFQ-CONTEXT       PIC S9(9)   BINARY.
        !            28:             02  RECEIPT-INFQ-OBJECT        PIC X(8).
        !            29:             02  RECEIPT-INFQ-MODE          PIC S9(9)   BINARY.
        !            30:             02  RECEIPT-INFQ-RECORDNAME    PIC X(128).
        !            31:             02  RECEIPT-INFQ-PATIENTREQ.
        !            32:       *         診療年月
        !            33:                 03  RECEIPT-INFQ-PERFORM-MONTH PIC X(7).
        !            34:       *

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