ESPLKUP ;DALISC/CKA -SPECIAL LOOKUP ROUTINE;10/92
 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
EN ;
 S ESPNAM=0
 F I=1:1 S ESPNAM=$O(^ESP(910,ESPNAM)) Q:ESPNAM'>0  S NAME=$P(^ESP(910,ESPNAM,0),U),ESPSOUN=$$SOUN^ESPSOUN($P(NAME,","))_$$SOUN^ESPSOUN($P(NAME,",",2)) K ^ESP(910,"SOUN",ESPSOUN,ESPNAM)
EXIT QUIT