○前期高齢者（７０歳～７４歳）（老人保健なし）

Size: px

Start display at page:

Download "○前期高齢者（７０歳～７４歳）（老人保健なし）"

きょういちももき
5 years ago
Views:

1 入院外レセプトのカスタマイズプログラムについて変更箇所を以下に記します 1. レセプト処理時に作成する中間ファイルについてコピー句が変更となります CPCOMMONDAT2.INC CPRECEDAT1.INC このコピー句変更に伴い中間ファイルの作成場所が /var/tmp/ から / /tmp/ に変更となり初期処理での中間ファイル名設定時に HOSPNUM のセットが必要となります 2. エラーファイル名称領域は共通パラメタでのセットとなるのでプログラム内での編集は不要となります 3. レセプト処理引数の追加バッチプログラムの引数に HOSPNUM( 医療機関コード ) が追加となります WORKING-STORAGE SECTION に定義された WRK-PARA に HOSPNUM を追加し初期処理での転送部分を変更する必要があります 4. ジョブ管理テーブル制御モジュール (ORCSJOB) の引数に JOB-HOSPNUM が追加となります該当サブルーチンを使用している箇所は変更する必要があります 5. データベースアクセス関数の変更データベースアクセス関数を MONFUNC から ORCDBMAIN へと変更する必要があります関連事項日レセ ver4.0.0 よりレセプト実行ログの出力先が /home/orca/ 直下から /var/log/jma-receipt/ 直下に変更となりますまた実行ログの名称について先頭に数字 2 桁の医療機関識別番号が付与されます ( 従前のログファイル名 ) recept1a.log 入院外レセプト一括作成ログ recept1b.log 入院外レセプト個別作成ログ (ver4.0.0 からのログファイル名医療機関識別番号 01 の例 ) 01recept1a.log 入院外レセプト一括作成ログ 01recept1b.log 入院外レセプト個別作成ログカスタマイズプログラム内でこの事に関する記述の変更はありませんが動作確認用に DISPLAY 命令など組み込んで実行ログを確認する場合は上記変更となったことを注意すること

2 入院外レセプトサンプルプログラム (SR1301.CBL) 変更箇所以下の diff は receipt.gairai.custom/sr1301.cbl と receipt.gairai.custom.grp/sr1301.cbl の比較です 1.WORKING-STORAGE SECTION の記述変更 (1) 中間ファイルの名称領域変更 -80,17 +80,18 WORKING-STORAGE SECTION. レセプト明細ファイル名称領域 - COPY "CPCOMMONDAT2.INC". + COPY "CPRECEDAT1.INC" + REPLACING //RECEDAT1// + BY //RECE01//. - COPY "CPCOMMONDAT2.INC" - REPLACING //RECE01// + COPY "CPRECEDAT1.INC" + REPLACING //RECEDAT1// BY //RECE11//. エラーファイル名称領域 - COPY "CPCOMMONDAT2.INC" - REPLACING //RECE01PARA// + COPY "CPERRFL.INC" + REPLACING //ERRFLPARA// BY //RECEERR// FILLER PIC X(04) VALUE ".dat". (2)WRK-PARA-HOSPNUM -129,6 05 WRK-PARA-JOBID PIC 9(07). 05 WRK-PARA-SHELLID PIC X(08) WRK-PARA-HOSPNUM PIC 9(02). エラーメッセージ 03 WRK-RECEERR PIC X(200). (3)COMMON-SPA -190,6 COPY "". + COPY "COMMON-SPA". +

3 2.100-INIT-SEC の記述変更 (1)SPA-AREA の初期化追加とパラメタ受け取り部分の変更 -223,9 +227,15 STS-AREA WRK-AREA CNT-AREA + 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 (2)ORCSJOB -237,19 MOVE WRK-PARA-SHELLID TO JOB-SHELLID MOVE "SR1301" TO JOB-PGID MOVE " 県単項目編集 " TO JOB-SHELLMSG + MOVE SPA-HOSPNUM TO JOB-HOSPNUM CALL "ORCSJOB" USING ORCSJOBKANRIAREA JOBKANRI-REC (3) ファイルオープンの変更ファイルOPEN MOVE "RECE020" TO RECE01PARA-FILE-ID MOVE WRK-PARA-TERMID TO RECE01PARA-TERMID + MOVE WRK-PARA-HOSPNUM TO RECE01PARA-HOSPNUM MOVE "RECE110" TO RECE11PARA-FILE-ID MOVE WRK-PARA-TERMID TO RECE11PARA-TERMID + MOVE WRK-PARA-HOSPNUM TO RECE11PARA-HOSPNUM - MOVE "RECEERR" TO RECEERR-FILE-ID - MOVE WRK-PARA-TERMID TO RECEERR-TERMID OPEN INPUT RECE02-FILE

4 HC06-BODY-HENSYU-SEC の記述変更 (1) システム管理テーブルの検索変更 -326,6 +338,7 OR RECE02-SRYKA (IDX) = SPACE MOVE SPACE TO SYS-1005-REC SYS-1005-REC + MOVE SPA-HOSPNUM TO SYS-1005-HOSPNUM MOVE "1005" TO SYS-1005-KANRICD MOVE RECE02-SRYKA (IDX) TO SYS-1005-KBNCD MOVE RECE02-SRYYM TO SYS-1005-STYUKYMD(1:6) HC06-BODY-HENSYU-SEC の記述変更 (1) -362,7 OR RECE02-HKNCOMBI (IDX) = ZERO 保険組合せテーブルの検索 HKNCOMBI-REC - MOVE RECE02-HOSPID TO COMB-HOSPID + MOVE RECE02-HOSPNUM TO COMB-HOSPNUM MOVE RECE02-PTID TO COMB-PTID MOVE RECE02-HKNCOMBI (IDX) TO COMB-HKNCOMBINUM HC06-TOKKI-HENSYU-SEC の記述変更 (1) -434,7 OR RECE02-HKNCOMBI (IDX) = ZERO 保険組合せテーブルの検索 HKNCOMBI-REC - MOVE RECE02-HOSPID TO COMB-HOSPID + MOVE RECE02-HOSPNUM TO COMB-HOSPNUM MOVE RECE02-PTID TO COMB-PTID MOVE RECE02-HKNCOMBI (IDX) TO COMB-HKNCOMBINUM

5 6.300-END-SEC の記述変更 (1)ORCSJOB の呼び出し部分変更 -599,9 +612,11 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 PERFORM 900-DBDISCONNECT-SEC ERR-HENSYU-SEC の記述変更 (1)ORCSJOB -635,9 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 END-IF MOVE 1 TO FLG-END

6 8.900-HKNCOMBI-INV-SEC の記述変更 (1) 保険組合せマスタの読込み変更 -689, ,18 MOVE "DBSELECT" TO MCP-FUNC MOVE "tbl_hkncombi" TO MCP-TABLE MOVE "key" TO MCP-PATHNAME IF MCP-RC = ZERO MOVE "DBFETCH" TO MCP-FUNC MOVE "tbl_hkncombi" TO MCP-TABLE MOVE "key" TO MCP-PATHNAME IF MCP-RC = ZERO MOVE ZERO TO FLG-HKNCOMBI MOVE TO -712,9 MOVE "DBCLOSECURSOR" TO MCP-FUNC MOVE "tbl_hkncombi" TO MCP-TABLE MOVE "key" TO MCP-PATHNAME. 900-HKNCOMBI-INV-EXT.

7 9.900-SYSKANRI-READ-SEC の記述変更 (1) システム管理テーブルの読込み変更 -728, ,18 MOVE "DBSELECT" TO MCP-FUNC MOVE "tbl_syskanri" TO MCP-TABLE MOVE "key10" TO MCP-PATHNAME IF MCP-RC = ZERO MOVE "DBFETCH" TO MCP-FUNC MOVE "tbl_syskanri" TO MCP-TABLE MOVE "key10" TO MCP-PATHNAME IF MCP-RC = ZERO MOVE ZERO TO FLG-SYSKANRI -750,9 MOVE "DBCLOSECURSOR" TO MCP-FUNC MOVE "tbl_syskanri" TO MCP-TABLE MOVE "key10" TO MCP-PATHNAME. 900-SYSKANRI-READ-EXT. EXIT.

8 7.900-DBOPEN-SEC の記述変更 -765, ,18 MOVE LOW-VALUE TO MCP-TABLE MCP-PATHNAME MOVE "DBOPEN" TO MCP-FUNC MOVE LOW-VALUE TO MCP-TABLE MCP-PATHNAME MOVE "DBSTART" TO MCP-FUNC. 900-DBOPEN-EXT. EXIT DBDISCONNECT-SEC の記述変更 -787, ,18 MOVE LOW-VALUE TO MCP-TABLE MCP-PATHNAME MOVE "DBCOMMIT" TO MCP-FUNC MOVE LOW-VALUE TO MCP-TABLE MCP-PATHNAME MOVE "DBDISCONNECT" TO MCP-FUNC. 900-DBDISCONNECT-EXT. EXIT.

○前期高齢者（７０歳～７４歳）（老人保健なし）

○前期高齢者（７０歳～７４歳）（老人保健なし）入院レセプトのカスタマイズプログラムについて変更箇所を以下に記します 1.レセプト処理時に作成する中間ファイルについてコピー句が変更となります CPCOMMONDAT2.INC CPRECEDAT1.INC このコピー句変更に伴い中間ファイルの作成場所が /var/tmp/ から/ /tmp/ に変更となり初