source: FOIAVistA/trunk/r/POLICE_AND_SECURITY-ES/ESPLKUP.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 302 bytes
Line 
1ESPLKUP ;DALISC/CKA -SPECIAL LOOKUP ROUTINE;10/92
2 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
3EN ;
4 S ESPNAM=0
5 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)
6EXIT QUIT
Note: See TracBrowser for help on using the repository browser.