source:
WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPLKUP.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 302 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | ESPLKUP ;DALISC/CKA -SPECIAL LOOKUP ROUTINE;10/92 |
2 | ;;1.0;POLICE & SECURITY;;Mar 31, 1994 | |
3 | EN ; | |
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) | |
6 | EXIT QUIT |
Note:
See TracBrowser
for help on using the repository browser.