source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPLKUP.m@ 691

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

initial load of WorldVistAEHR

File size: 302 bytes
RevLine 
[613]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.