ユーザカスタマイズ留意事項・処方せん

(1)

■ユーザカスタマイズ留意事項・処方せん

（2015.6.23）本資料は、後発品変更不可の処方単位での入力対応における、日レセの処方せんプログラムの対応について解説するものです。１対応内容【入力方法】システム管理の「後発医薬品への変更可署名」を「１変更可（一般）」と設定します。院外投薬として医薬品を入力すると一般名記載となります。今対応により新設した予約コード「099209910 後発品変更不可（処方単位）」を入力すると、同一診療科・保険組合せで同時に入力した院外の内服薬は「後発品への変更不可」の処理を行います。よって、銘柄名記載の扱いとなり、最低薬価は適用しません。ただし、薬剤毎の予約コード「099209908 一般名記載」が入力された場合はこれを優先します。診療科・保険組合せ毎に入力できる処方単位の予約コードは一つです。同時に複数の処方せんを発行する時は、それぞれの診療科・保険組合せに予約コードを入力します。なお、この機能は平成２６年１０月診療分からとなります。【処方せんの表示】「099209910 後発品変更不可（処方単位）」の入力がある会計データについては、すべての薬剤を変更不可とし銘柄名で記載します。薬剤毎の予約コード「099209908 一般名記載」等がある場合はそれを優先します。 ※点数マスタの一般名記載区分が「１一般名記載」「３処方名称（一般名）を記載」は銘柄名記載となる。「２処方名称」のみ処方名称での記載となる。２処方せんに記載しないマスタ（この対応により新設するシステム予約マスタ）点数マスタコード名称 099209910 後発品変更不可（処方単位）このマスタについては処方せんに記載できないため読み飛ばしを行う。３プログラムの変更 (1) 標準提供のプログラムソースファイルです。様式ソースファイルＡ５縦（ＱＲ無） ORCHC02V02.CBL Ａ５縦（ＱＲ有） ORCHC02QV02.CBL Ａ４横 ORCHCM19V02.CBL (2) ソースプログラムの変更内容についてです。ソースプログラムの変更内容の詳細については、以下の修正内容を参考としてください。 ※CVS での最新ソースとは若干の相違がありますのでご注意ください。

(2)

以下、例として ORCHC02QV02.CBL の修正内容を掲載します。 --- /var/chroot/anoncvs/cvs/jma-receipt/cobol/common/ORCHC02QV02.CBL 2015/03/18 02:21:58 1.38.2.4 +++ /var/chroot/anoncvs/cvs/jma-receipt/cobol/common/ORCHC02QV02.CBL 2015/04/09 01:00:58 1.38.2.5 @@ -87,6 +87,7 @@ * 04.07.00 NACL-多々納 14/10/07 頓服薬（臨時投薬）対応 * 04.07.00 NACL-多々納 14/10/20 公費備考編集個別対応 * 04.07.00 NACL-多々納 15/01/19 ＣＳＶデータ出力対応 + * 04.07.00 NACL-多々納 15/04/XX 後発変更不可処方毎対応 ***************************************************************** * * @@ -176,7 +177,7 @@ * 03 FLG-KOUHATU-1 PIC 9(01). * 03 FLG-KOUHATU-1-CHK PIC 9(01). * 後発医薬品変更不可 - 03 FLG-KOUHATU-FUKA PIC 9(01). + * 03 FLG-KOUHATU-FUKA PIC 9(01). * 公費編集 03 FLG-KOHERR PIC 9(01). * @@ -192,6 +193,8 @@ 03 FLG-FUKACHK2 PIC 9(01). * 点数マスタなし 03 FLG-QRCHK PIC 9(01). + *H27.4 + 03 FLG-ALLKISAI PIC 9(01). * * 添字領域 01 IDX-AREA. @@ -242,6 +245,8 @@ 03 IDX-LG PIC 9(04). *H26.10 03 IDP PIC 9(01). + *H27.4 + 03 IDX-ALL PIC 9(04). * * システム領域 01 SYS-AREA. @@ -475,6 +480,42 @@ * 03 WRK-SRY-MAX PIC 9(03). * + *H27.4

(3)

+ *!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + * 処方せん毎の内容テーブル + 01 WRK-SRYACT-ALL-AREA. + 03 WRK-ALL-SRYACT-TBLG OCCURS 100. + 05 WRK-ALL-SRYKBN PIC X(02). + 05 WRK-ALL-SRYSYUKBN PIC X(03). + 05 WRK-ALL-KAISU PIC 9(05). + 05 WRK-ALL-ZAINUM PIC 9(08). + * + * 剤内容テーブル(WRK-SRYACT-GRP-AREA と同じ） + 05 WRK-ALL-SRYACT-GRP-AREA. + 07 WRK-ALL-SRYACT-TBL OCCURS 50. + *診療コード + 09 WRK-ALL-SRY-SRYCD PIC X(09). + *数量 + 09 WRK-ALL-SRY-SRYSURYO PIC 9(05)V9(05). + *回数 + 09 WRK-ALL-SRY-SRYKAISU PIC 9(03). + *明細請求区分 + 09 WRK-ALL-SRY-MEISKYFLG PIC X(01). + *自動算定区分 + 09 WRK-ALL-SRY-AUTOKBN PIC X(01). + *名称入力番号 + 09 WRK-ALL-SRY-INPUTNUM PIC 9(03). + *自費金額 + 09 WRK-ALL-SRY-JIHIMONEY PIC 9(07). + *名称 + 09 WRK-ALL-SRY-COM-NAME PIC X(200). + * + 07 WRK-ALL-SRY-MAX PIC 9(03). + * + * + 03 WRK-ALL-MAX PIC 9(03). + * + * * 処方内容 01 WRK-SYOHOU-AREA. 03 WRK-SYOHOU-PAGE OCCURS 10. @@ -2378,6 +2419,10 @@ PERFORM UNTIL FLG-JYURRK = 1

IF WRK-DENPNUM NOT = JYURRK-DENPNUM + *H27.4

+ * 伝票番号毎の印刷編集処理 + PERFORM 2100-SYOHOU-SYORI-SEC + *!!!!

(4)

* 伝票番号毎に印刷

PERFORM 200212-PRINT-CHK-SEC * 初期編集

@@ -2395,6 +2440,10 @@

MOVE "tbl_jyurrk" TO MCP-TABLE MOVE "key26" TO MCP-PATHNAME PERFORM 990-DBCLOSE-SEC + *H27.4 + * 伝票番号毎の印刷編集処理 + PERFORM 2100-SYOHOU-SYORI-SEC + *!!!! * 伝票番号毎に印刷 PERFORM 200212-PRINT-CHK-SEC * @@ -2412,6 +2461,9 @@ MOVE JYURRK-DRCD TO WRK-DRCD * 共通クリア PERFORM 200211-KYOTU-INIT-SEC + *H27.4

+ MOVE ZERO TO FLG-ALLKISAI + INITIALIZE WRK-SRYACT-ALL-AREA . 200211-SYOHOU-INIT-EXT. EXIT. @@ -2456,6 +2508,8 @@ * * 処方編集初期クリア処理 PERFORM 200211-SYOHOU-INIT-SEC + *H27.4

+ MOVE JYURRK-DENPNUM TO WRK-DENPNUM *

PERFORM

UNTIL FLG-JYURRK = 1 @@ -2470,7 +2524,11 @@

MOVE "tbl_jyurrk" TO MCP-TABLE MOVE "key6" TO MCP-PATHNAME PERFORM 990-DBCLOSE-SEC - * 印刷判定 + *H27.4 + * 伝票番号毎の印刷編集処理 + PERFORM 2100-SYOHOU-SYORI-SEC + *!!!! + * 伝票番号毎に印刷 PERFORM 200212-PRINT-CHK-SEC * .

(5)

@@ -2595,7 +2653,12 @@ UNTIL FLG-JYURRK = 1 * IF JYURRK-EDANUM = 1 - IF IDX > ZERO + *H27.4 IF IDX > ZERO + IF WRK-ALL-MAX > ZERO + *H27.4 + * 伝票番号毎の印刷編集処理 + PERFORM 2100-SYOHOU-SYORI-SEC + *!!!! * 伝票番号毎に印刷 PERFORM 200212-PRINT-CHK-SEC END-IF @@ -2645,6 +2708,10 @@ IF WRK-PAGE-MAX = ZERO MOVE 1 TO WRK-PAGE-MAX END-IF + *H27.4 + * 伝票番号毎の印刷編集処理 + PERFORM 2100-SYOHOU-SYORI-SEC + *!!!! * 伝票番号毎に印刷 PERFORM 200212-PRINT-CHK-SEC END-IF @@ -2909,8 +2976,11 @@ END-IF

IF (WRK-SRY-MAX > ZERO ) AND (WRK-KAISU > ZERO ) + *H27.4 + * 保存 + PERFORM 2100-SYOHOU-ALLHEN-SEC * 処方せん対象 - PERFORM 20022-SYOHOU-HENSYU-SEC + *?? PERFORM 20022-SYOHOU-HENSYU-SEC END-IF . 20021-SRYACT-CHK-EXT. @@ -2957,6 +3027,75 @@ 20021-SRYACCT-SYORI-EXT. EXIT. * + *H27.4 + ***************************************************************** + * 処方毎の印刷処理 + *****************************************************************

(6)

+ 2100-SYOHOU-ALLHEN-SEC SECTION. + * + EVALUATE WRK-SRY-SRYCD (1) + WHEN "099209910" + * 後発品変更不可（処方単位） + MOVE 1 TO FLG-ALLKISAI + WHEN OTHER + ADD 1 TO WRK-ALL-MAX + IF WRK-ALL-MAX > 100 + MOVE 100 TO WRK-ALL-MAX + ELSE + * + MOVE WRK-SRYACT-GRP-AREA + TO WRK-ALL-SRYACT-GRP-AREA + (WRK-ALL-MAX) + MOVE WRK-SRYKBN TO WRK-ALL-SRYKBN

+ (WRK-ALL-MAX) + MOVE WRK-SRYSYUKBN TO WRK-ALL-SRYSYUKBN + (WRK-ALL-MAX) + MOVE WRK-KAISU TO WRK-ALL-KAISU

+ (WRK-ALL-MAX) + MOVE WRK-ZAINUM TO WRK-ALL-ZAINUM

+ (WRK-ALL-MAX) + END-IF + END-EVALUATE + * + . + 2100-SYOHOU-ALLHEN-EXT. + EXIT. + ***************************************************************** + * 処方毎の印刷処理 + ***************************************************************** + 2100-SYOHOU-SYORI-SEC SECTION. + *

+ PERFORM VARYING IDX-ALL FROM 1 BY 1 + UNTIL (IDX-ALL > 100 ) + OR (IDX-ALL > WRK-ALL-MAX) + * + * 剤毎のクリア + PERFORM 20020-INIT-ZAINUM-SEC + *

+ MOVE WRK-ALL-SRYACT-GRP-AREA (IDX-ALL)

+ TO WRK-SRYACT-GRP-AREA + MOVE WRK-ALL-SRYKBN (IDX-ALL)

+ TO WRK-SRYKBN + MOVE WRK-ALL-SRYSYUKBN (IDX-ALL)

(7)

+ TO WRK-SRYSYUKBN + MOVE WRK-ALL-SRY-MAX (IDX-ALL)

+ TO WRK-SRY-MAX + MOVE WRK-ALL-KAISU (IDX-ALL)

+ TO WRK-KAISU + MOVE WRK-ALL-ZAINUM (IDX-ALL)

+ TO WRK-ZAINUM + * 処方せん対象 + PERFORM 20022-SYOHOU-HENSYU-SEC + END-PERFORM + * + . + 2100-SYOHOU-SYORI-EXT. + EXIT. + *!!!!! + * ***************************************************************** * 剤毎の処方せん内容編集処理 ***************************************************************** @@ -3239,13 +3378,22 @@ * IF (FLG-FUKACHK = ZERO ) AND (FLG-FUKACHK2 = ZERO ) - AND (SYS-1030-KOUHATUKA = "0" ) + AND ((SYS-1030-KOUHATUKA = "0" ) + *H27.4 後発品変更不可（処方）判定 + OR (FLG-ALLKISAI = 1 )) * 後発医薬品へ変更不可 MOVE 1 TO IDXF3 MOVE "099209903" TO WRK-SRYCD @@ -3341,14 +3489,24 @@ OR 3 )

MOVE ZERO TO TNSP-IPN-KISAIKBN END-IF

+ *H27.4 後発品変更不可（処方）はすべて銘柄名記載 + IF (FLG-ALLKISAI = 1 ) AND + (TNSP-IPN-KISAIKBN = 1

+ OR 3 )

+ MOVE ZERO TO TNSP-IPN-KISAIKBN + * 一般名記載ありを優先 + IF WRK-IPNMEI = 2 + MOVE 1 TO TNSP-IPN-KISAIKBN + END-IF + END-IF * * システム管理の後発品変更不可の判定

(8)

IF FLG-FUKACHK = 2 ***** 先発品のみは、変更不可記載なし ***** IF (TNS-KOUHATUKBN = ZERO ) * 先発品も変更不可とする - IF (TNSP-IPN-KISAIKBN = 1 ) - OR (TNSP-IPN-KISAIKBN = 3 ) + IF ((TNSP-IPN-KISAIKBN = 1 ) + OR (TNSP-IPN-KISAIKBN = 3 ) )

MOVE SPACE TO WRK-KOU-SRYCD (1) MOVE SPACE TO WRK-KOU-TNSNAME(1) MOVE SPACE TO WRK-HEN-FUKA @@ -3736,7 +3894,7 @@

*

IF ORCHC19-KBN = SPACE * 伝票番号

- MOVE JYURRK-DENPNUM TO ORCHC02GELOG-DENPNUM + MOVE WRK-DENPNUM TO ORCHC02GELOG-DENPNUM (IDX-LG) * 剤番号

MOVE WRK-ZAINUM TO ORCHC02GELOG-ZAINUM @@ -4064,9 +4222,9 @@

***************************************************************** 31032-PTCOM-SET-SEC SECTION.

*

- MOVE SRY-HOSPNUM TO PTCOM-HOSPNUM - MOVE SRY-PTID TO PTCOM-PTID - MOVE SRY-ZAINUM TO PTCOM-ZAINUM + MOVE SPA-HOSPNUM TO PTCOM-HOSPNUM + MOVE SPA-PTID TO PTCOM-PTID + MOVE WRK-ZAINUM TO PTCOM-ZAINUM MOVE WRK-SRY-SRYCD (IDXA) TO PTCOM-SRYCD MOVE WRK-SRY-INPUTNUM(IDXA) TO PTCOM-RENNUM * 主キーで検索 @@ -4195,6 +4353,35 @@ IF WRK-SRYKA = SPACE MOVE 1 TO FLG-WKSRYEND END-IF + *H27.4 + * 後発品変更不可・可（処方毎）判定

+ MOVE ZERO TO FLG-ALLKISAI + PERFORM VARYING IDX-L FROM 1 BY 1

+ UNTIL (IDX-L > LNK-WKSRYACT-MAX) OR + (FLG-WKSRYEND = 1 )

+ IF LNK-WKSRY-SYORI (IDX-L) = SPACE + IF (LNK-WKSRY-SRYKA (IDX-L)

(9)

+ AND (LNK-WKSRY-HKNCOMBI(IDX-L)

+ = WRK-HKNCOMBINUM) + MOVE LNK-WKSRYACT-REC (IDX-L)

+ TO WKSRYACT-REC + EVALUATE WKSRY-SRYCD (1) + WHEN "099209910" + * 後発品変更不可（処方単位） + MOVE 1 TO FLG-ALLKISAI + MOVE "1" TO LNK-WKSRY-SYORI + (IDX-L) + END-EVALUATE + END-IF + END-IF + END-PERFORM + *!!!! * 処方編集初期クリア処理（伝票毎） PERFORM 20031-WKSYOHOU-INIT-SEC

PERFORM VARYING IDX-L FROM 1 BY 1 @@ -4424,6 +4611,20 @@ * * 処方編集初期クリア処理 PERFORM 200411-SYOHOU-SPAINIT-SEC + *H27.4 + * 変更可・変更不可（処方毎）判定

+ MOVE ZERO TO FLG-ALLKISAI + PERFORM VARYING IDX-L FROM 1 BY 1 + UNTIL (IDX-L > ORCHC19-ZAI-MAX) + EVALUATE ORCHC19-SRYCD (IDX-L 1)

+ WHEN "099209910" + * 変更不可（処方単位） + MOVE 1 TO FLG-ALLKISAI + END-EVALUATE + END-PERFORM *

PERFORM VARYING IDX-L FROM 1 BY 1 UNTIL (IDX-L > ORCHC19-ZAI-MAX) @@ -4438,6 +4639,10 @@

= SPACE ) IF ORCHC19-SRYCD (IDX-L IDX-L2)(1:4) = "0086" + *H27.4

+ OR ORCHC19-SRYCD (IDX-L IDX-L2)

+ = "099209910" CONTINUE

ELSE

(10)

@@ -4541,6 +4746,10 @@

MOVE "tbl_jyurrk" TO MCP-TABLE MOVE "key6" TO MCP-PATHNAME PERFORM 990-DBCLOSE-SEC + *H27.4 + * 伝票番号毎の印刷編集処理 + PERFORM 2100-SYOHOU-SYORI-SEC + *!!!! * * 印刷判定 PERFORM 200212-PRINT-CHK-SEC @@ -5066,7 +5275,7 @@ ELSE MOVE 1 TO FLG-HKNCOMBI END-IF - * + *

MOVE "tbl_hkncombi" TO MCP-TABLE MOVE "key" TO MCP-PATHNAME PERFORM 990-DBCLOSE-SEC @@ -5217,10 +5426,28 @@ AND (SYS-1030-KOUHATUKA = "1" ) AND (TNS-KOUHATUKBN = 1 OR 2 OR 7 ) + *H27.4 変更不可（処方単位） + IF FLG-ALLKISAI = 1 + CONTINUE + ELSE + * MOVE 1 TO TNSP-IPN-KISAIKBN + * + END-IF + * + END-IF + * + *H27.4 銘柄名記載（処方）あり + IF TNSP-IPN-KISAIKBN = 1 + IF FLG-ALLKISAI = 1

+ MOVE ZERO TO TNSP-IPN-KISAIKBN + END-IF

END-IF *