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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPLKUP 308 printed Dec 13, 2024@02:29:43 Page 2
ESPLKUP ;DALISC/CKA -SPECIAL LOOKUP ROUTINE;10/92
+1 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
EN ;
+1 SET ESPNAM=0
+2 FOR I=1:1
SET ESPNAM=$ORDER(^ESP(910,ESPNAM))
if ESPNAM'>0
QUIT
SET NAME=$PIECE(^ESP(910,ESPNAM,0),U)
SET ESPSOUN=$$SOUN^ESPSOUN($PIECE(NAME,","))_$$SOUN^ESPSOUN($PIECE(NAME,",",2))
KILL ^ESP(910,"SOUN",ESPSOUN,ESPNAM)
EXIT QUIT
