Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ESPOID

ESPOID.m

Go to the documentation of this file.
  1. ESPOID ;DALISC/CKA; FIND A UNIQUE ID #;7/92
  1. ;;1.0;POLICE & SECURITY;**22**;Mar 31, 1994
  1. VIO D NOW^%DTC S YR=$E(%I(3),2,3),S=+$$SITE^VASITE,X=$P(^ESP(914,0),U,3) S:$E(X,$L(S)+1,$L(S)+2)'=YR $P(^ESP(914,0),U,3)=S_YR_"000000"
  1. S X=$P(^ESP(914,0),U,3)+1 F I=1:1 Q:'$D(^ESP(914,X)) S X=X+1
  1. Q
  1. OFF D NOW^%DTC S YR=$E(%I(3),2,3),S=+$$SITE^VASITE,X=$P(^ESP(912,0),U,3) S:$E(X,$L(S)+1,$L(S)+2)'=YR!(X="") $P(^ESP(912,0),U,3)=S_YR_"000000"
  1. S X=$P(^ESP(912,0),U,3)+1 F I=1:1 Q:'$D(^ESP(912,X)) S X=X+1
  1. Q