PRCSEM1 ;WISC/KMB-REINDEX FILE 420.5 ; 6/16/95 12:00
V ;;5.1;IFCAP;;Oct 20, 2000
 ;Per VHA Directive 10-93-142, this routine should not be modified.
 S DIK="^PRCD(420.5," D IXALL^DIK K DIK
 Q