処方せん発行関係のカスタマイズに影響するプログラム変更
- キーワード
処方せん (免) ORCHCM19.CBL カスタマイズ・プログラム
- 概要
処方せんプログラムの改造を行いました。日レセの当該ソースコードを
利用してカスタマイズをおこなっている方々がいることを考慮し、
改造の内容を取り急ぎ差分形式でお知らせいたします。
- 影響を受けるユーザ等
処方せん出力に関わるプログラムのカスタマイズを
行っている日レセユーザ、および、サポート事業所。
- 注意
進化型レセプトソフトの宿命上、ソースコードは絶えず変更が
加えられる可能性があります。今回のお知らせに限らず、CVS
(Concurrent Vesions System)などを利用し、最新の情報把握を
心がけるようお願いいたします。
- 対象プログラム
ORCHCM19.CBL 処方せん発行プログラム
- 内容
従来、日医標準レセプトソフト(以下、日レセ)では処方せん発行
プログラムの中で、ある条件の下での (免)記載を行ってきました。
今回、平成１５年４月より処方せん記載上の注意事項として、
（免）記載をしないことになりました。
日レセのオリジナルのソースコードを改変して利用しているユーザ、
事業所向けにdiff形式差分ファイルで公開します。
- お願いしたいこと
エンドユーザ向けにカスタマイズを行われている場合、ユーザへの
至急、調査、及び必要な修正をお願いします
--- jma-receipt-1.0.7/cobol/common/ORCHCM19.CBL Thu Mar 20 18:40:15 2003
+++ jma-receipt-1.0.9/cobol/common/ORCHCM19.CBL Fri Apr 18 09:33:29 2003
@@ -37,6 +37,7 @@
* 中途の在宅編集修正
* 01.00.06 NACL-多々納 03/03/06 剤明細１９以上の編集修正
* 全角変換時空白判定追加
+ * 01.00.07 NACL-多々納 03/04/17 免除判定削除
*****************************************************************
*
*
@@ -824,10 +825,10 @@
*---(01.00.01) LINE ADD END ------------------------------------
*
* 免除判定処理
- INITIALIZE ORCSMENJYOAREA
- CALL "ORCSMENJYO" USING
- ORCSMENJYOAREA
- SPA-AREA
+ **** INITIALIZE ORCSMENJYOAREA
+ * CALL "ORCSMENJYO" USING
+ * ORCSMENJYOAREA
+ ***** SPA-AREA
*
* ３歳未満・老人判定
MOVE SPACE TO WRK-BIKOU
@@ -1296,11 +1297,11 @@
MOVE WRK-NAIYOU (IDX IDX2) TO HCM19-NAIYO (IDX2)
END-PERFORM
*
- * 免除編集
- IF (WRK-MENJYO-FLG = 1 ) OR
- (MENJYO-FLG = 1 )
- MOVE "（免）" TO HCM19-MENJYO
- END-IF
+ **** 免除編集
+ * IF (WRK-MENJYO-FLG = 1 ) OR
+ * (MENJYO-FLG = 1 )
+ * MOVE "（免）" TO HCM19-MENJYO
+ **** END-IF
*
*備考欄
* ３歳未満・老人負担割合
