File:  [Local Repository] / jma-receipt / cobol / copy / CPRECEIPT-INF1V2REQ.INC
Revision 1.1: download - view: text, annotated - select for diffs
Wed Jan 13 05:47:13 2016 UTC (3 years, 9 months ago) by fujihara
Branches: MAIN
CVS tags: release_5_1_0pre1, release_5_1_0pre0, release_5_0_0pre9, release_5_0_0pre8, release_5_0_0pre7, release_5_0_0pre6, release_5_0_0pre5, release_5_0_0pre4, release_5_0_0pre3, release_5_0_0pre2-1, release_5_0_0pre2, release_5_0_0pre13, release_5_0_0pre12, release_5_0_0pre11, release_5_0_0pre10, release_5_0_0pre1, release_5_0_0, release_4_9_0pre3, release_4_9_0pre2, r_5_0_branch, r_4_8_branch, 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 licence along with this program. If not, stop using this
      * program and contact JMA, 2-28-16 Honkomagome, Bunkyo-ku, Tokyo,
      * 113-8621, Japan.
      ********************************************************************
      *****************************************************************
      *  プログラム修正履歴
      * Maj/Min/Rev  修正者       日付      内容
      *****************************************************************
      ******************************************************************
      *    APIレセプト情報(レセプトの枚数、点数)(xml2)
      *                                   COPY (CPRECEIPT-INF1V2REQ.INC)
      ******************************************************************
        01  XML-RECEIPT-INFREQ.
            02  RECEIPT-INFQ-CONTEXT       PIC S9(9)   BINARY.
            02  RECEIPT-INFQ-OBJECT        PIC X(8).
            02  RECEIPT-INFQ-MODE          PIC S9(9)   BINARY.
            02  RECEIPT-INFQ-RECORDNAME    PIC X(128).
            02  RECEIPT-INFQ-PATIENTREQ.
      *         診療年月
                03  RECEIPT-INFQ-PERFORM-MONTH PIC X(7).
      *

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