|
Last change
on this file since 702 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
498 bytes
|
| Line | |
|---|
| 1 | ESPOID ;DALISC/CKA; FIND A UNIQUE ID #;7/92
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;**22**;Mar 31, 1994
|
|---|
| 3 | 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"
|
|---|
| 4 | S X=$P(^ESP(914,0),U,3)+1 F I=1:1 Q:'$D(^ESP(914,X)) S X=X+1
|
|---|
| 5 | Q
|
|---|
| 6 | 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"
|
|---|
| 7 | S X=$P(^ESP(912,0),U,3)+1 F I=1:1 Q:'$D(^ESP(912,X)) S X=X+1
|
|---|
| 8 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
