21 lines
611 B
Mathematica
21 lines
611 B
Mathematica
MCPRE02 ;HISC/DAD-FIX DATA IN PROCEDURE/SUBSPECIALTY FILE ;7/25/96 12:34
|
|
;;2.3;Medicine;;09/13/1996
|
|
;
|
|
; Procedure/Subspecialty file (#697.2) Print Name field (#7)
|
|
; Change 'GI ENDSCOPIC' to 'GI ENDOSCOPIC'
|
|
N DA,DIE,DR,MCD0,TEMP
|
|
S TEMP(1)=""
|
|
S TEMP(2)="Cleaning up data in the Procedure/Subspecialty file (#697.2)."
|
|
D MES^XPDUTL(.TEMP)
|
|
;
|
|
I $$VFILE^DILFD(697.2) D
|
|
. S MCD0=0
|
|
. F S MCD0=$O(^MCAR(697.2,MCD0)) Q:MCD0'>0 D
|
|
.. S DR="2///@;2.1///@;9///@;10///@"
|
|
.. I $P($G(^MCAR(697.2,MCD0,0)),U,8)="GI ENDSCOPIC" S DR=DR_";7///GI ENDOSCOPIC"
|
|
.. S DIE="^MCAR(697.2,",DA=MCD0
|
|
.. D ^DIE
|
|
.. Q
|
|
. Q
|
|
Q
|