入院レセプトのカスタマイズプログラムについて変更箇所を以下に記します。 １．レセプト処理時に作成する中間ファイルについてコピー句が変更となります。 「CPCOMMONDAT2.INC」 → 「CPRECEDAT1.INC」 このコピー句変更に伴い、中間ファイルの作成場所が”/var/tmp/”から/“/tmp/”に 変更となり、初期処理での中間ファイル名設定時に HOSPNUM のセットが必要となります。 ２．エラーファイル名称領域は共通パラメタでのセットとなるので、プログラム内での 編集は不要となります。 ３．レセプト処理引数の追加 バッチプログラムの引数に HOSPNUM（医療機関コード）が追加となります。
「WORKING-STORAGE SECTION」に定義された WRK-PARA に HOSPNUM を追加し、初期処理での 転送部分を変更する必要があります。 ４．ジョブ管理テーブル制御モジュール(ORCSJOB)の引数に JOB-HOSPNUM が追加となります。 該当サブルーチンを使用している箇所は変更する必要があります。 ５．データベースアクセス関数の変更 データベースアクセス関数を「MONFUNC」から「ORCDBMAIN」へと変更する必要があります。 関連事項 日レセ ver4.0.0 よりレセプト実行ログの出力先が/home/orca/直下から、 /var/log/jma-receipt/直下に変更となります。 また実行ログの名称について先頭に数字２桁の医療機関識別番号が付与されます。 （従前のログファイル名） recept9a.log 入院レセプト一括作成ログ recept9b.log 入院レセプト個別作成ログ （ver4.0.0 からのログファイル名・・・医療機関識別番号 01 の例） 01recept9a.log 入院レセプト一括作成ログ 01recept9b.log 入院レセプト個別作成ログ カスタマイズプログラム内でこの事に関する記述の変更はありませんが、動作確認用に DISPLAY 命令など組み込んで実行ログを確認する場合は上記変更となったことを注意 すること。
入院レセプトサンプルプログラム（SR1302.CBL）変更箇所 以下の diff は receipt.nyuin.custom/SR1302.CBL と receipt.nyuin.custom.grp/SR1302.CBL の比較です １．WORKING-STORAGE SECTION の記述変更 （１）中間ファイルの名称領域変更 * レセプト明細ファイル 名称領域 - COPY "CPCOMMONDAT2.INC". + COPY "CPRECEDAT1.INC" + REPLACING //RECEDAT1// + BY //RECE01//. * - COPY "CPCOMMONDAT2.INC" - REPLACING //RECE01// + COPY "CPRECEDAT1.INC" + REPLACING //RECEDAT1// BY //RECE67//. * * エラーファイル 名称領域 - COPY "CPCOMMONDAT2.INC" - REPLACING //RECE01PARA// + COPY "CPERRFL.INC" + REPLACING //ERRFLPARA// BY //RECEERR//. - 03 FILLER PIC X(04) VALUE ".dat".
* （２）WRK-PARA-HOSPNUM の追加 @@ -130,6 +131,7 @@ 05 WRK-PARA-JOBID PIC 9(07). 05 WRK-PARA-SHELLID PIC X(08). + 03 WRK-PARA-HOSPNUM PIC 9(02). * エラーメッセージ 03 WRK-RECEERR PIC X(200). * （３）COMMON-SPA の追加 @@ -185,6 +187,8 @@ * COPY "MCPAREA".
２．100-INIT-SEC の記述変更 （１）SPA-AREA の初期化追加 とパラメタ受け取り部分の変更 @@ -218,9 +222,15 @@ INITIALIZE STS-AREA INITIALIZE WRK-AREA INITIALIZE CNT-AREA + INITIALIZE SPA-AREA * * パラメタセット
- MOVE COMMAND-PARAM TO WRK-PARA + UNSTRING COMMAND-PARAM DELIMITED BY "," + INTO WRK-PARA
+ WRK-PARA-HOSPNUM + RECEERR
+ END-UNSTRING
+ MOVE WRK-PARA-HOSPNUM TO SPA-HOSPNUM *
（２）ORCSJOB の呼び出し部分変更 @@ -232,19 +242,20 @@
MOVE WRK-PARA-SHELLID TO JOB-SHELLID MOVE "SR1302" TO JOB-PGID MOVE "県単項目編集" TO JOB-SHELLMSG + MOVE SPA-HOSPNUM TO JOB-HOSPNUM CALL "ORCSJOB" USING
ORCSJOBKANRIAREA JOBKANRI-REC + SPA-AREA * （３）ファイルオープンの変更 * ファイルＯＰＥＮ
MOVE "RECE620" TO RECE01PARA-FILE-ID MOVE WRK-PARA-TERMID TO RECE01PARA-TERMID + MOVE WRK-PARA-HOSPNUM TO RECE01PARA-HOSPNUM *
MOVE "RECE670" TO RECE67PARA-FILE-ID MOVE WRK-PARA-TERMID TO RECE67PARA-TERMID - *
- MOVE "RECEERR" TO RECEERR-FILE-ID - MOVE WRK-PARA-TERMID TO RECEERR-TERMID + MOVE WRK-PARA-HOSPNUM TO RECE67PARA-HOSPNUM *
３．2002-HC06-BODY-HENSYU-SEC の記述変更 （１）保険組合せテーブルの検索変更
@@ -336,7 +347,7 @@
OR RECE62-HKNCOMBI (IDX) = ZERO * 保険組合せテーブルの検索
INITIALIZE HKNCOMBI-REC - MOVE RECE62-HOSPID TO COMB-HOSPID + MOVE RECE62-HOSPNUM TO COMB-HOSPNUM MOVE RECE62-PTID TO COMB-PTID MOVE RECE62-HKNCOMBI (IDX)
TO COMB-HKNCOMBINUM
４．300-END-SEC の記述変更 （１）ORCSJOB の呼び出し部分変更
@@ -553,9 +564,11 @@
INITIALIZE JOBKANRI-REC MOVE WRK-PARA-JOBID TO JOB-JOBID MOVE WRK-PARA-SHELLID TO JOB-SHELLID + MOVE SPA-HOSPNUM TO JOB-HOSPNUM CALL "ORCSJOB" USING
ORCSJOBKANRIAREA JOBKANRI-REC + SPA-AREA * ５．500-ERR-HENSYU-SEC の記述変更 （１）ORCSJOB の呼び出し部分変更 @@ -589,9 +602,11 @@ TO JOB-SHELLID MOVE WRK-RECEERR TO JOB-YOBI MOVE "9999" TO JOB-ERRCD + MOVE SPA-HOSPNUM TO JOB-HOSPNUM CALL "ORCSJOB" USING
ORCSJOBKANRIAREA JOBKANRI-REC + SPA-AREA END-IF
６．900-HKNCOMBI-INV-SEC の記述変更 （１）保険組合せマスタの読込み変更
@@ -640,16 +655,18 @@
MOVE "DBSELECT" TO MCP-FUNC MOVE "tbl_hkncombi" TO MCP-TABLE MOVE "key" TO MCP-PATHNAME - CALL "MONFUNC" USING
+ CALL "ORCDBMAIN" USING MCPAREA MCPDATA-REC + SPA-AREA IF MCP-RC = ZERO
MOVE "DBFETCH" TO MCP-FUNC MOVE "tbl_hkncombi" TO MCP-TABLE MOVE "key" TO MCP-PATHNAME - CALL "MONFUNC" USING
+ CALL "ORCDBMAIN" USING MCPAREA MCPDATA-REC + SPA-AREA IF MCP-RC = ZERO
MOVE ZERO TO FLG-HKNCOMBI MOVE MCPDATA-REC TO HKNCOMBI-REC @@ -663,9 +680,10 @@
MOVE "DBCLOSECURSOR" TO MCP-FUNC MOVE "tbl_hkncombi" TO MCP-TABLE MOVE "key" TO MCP-PATHNAME - CALL "MONFUNC" USING
+ CALL "ORCDBMAIN" USING MCPAREA MCPDATA-REC + SPA-AREA * . 900-HKNCOMBI-INV-EXT.
７．900-DBOPEN-SEC の記述変更
@@ -679,16 +697,18 @@
MOVE LOW-VALUE TO MCP-TABLE MCP-PATHNAME MOVE "DBOPEN" TO MCP-FUNC - CALL "MONFUNC" USING + CALL "ORCDBMAIN" USING MCPAREA MCPDATA-REC + SPA-AREA *
MOVE LOW-VALUE TO MCP-TABLE MCP-PATHNAME MOVE "DBSTART" TO MCP-FUNC - CALL "MONFUNC" USING + CALL "ORCDBMAIN" USING MCPAREA MCPDATA-REC + SPA-AREA . 900-DBOPEN-EXT. EXIT. ８．900-DBDISCONNECT-SEC の記述変更 @@ -701,16 +721,18 @@
MOVE LOW-VALUE TO MCP-TABLE MCP-PATHNAME MOVE "DBCOMMIT" TO MCP-FUNC - CALL "MONFUNC" USING + CALL "ORCDBMAIN" USING MCPAREA MCPDATA-REC + SPA-AREA *
MOVE LOW-VALUE TO MCP-TABLE MCP-PATHNAME MOVE "DBDISCONNECT" TO MCP-FUNC - CALL "MONFUNC" USING + CALL "ORCDBMAIN" USING MCPAREA MCPDATA-REC + SPA-AREA .
