Last change
on this file since 771 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
623 bytes
|
Line | |
---|
1 | PRSAES ; HISC/REL-Electronic Signature ;3/20/92 15:54
|
---|
2 | ;;4.0;PAID;;Sep 21, 1995
|
---|
3 | S ES=$P($G(^VA(200,DUZ,20)),"^",4),ESNAM=$P($G(^(20)),"^",2),ESCNT=0
|
---|
4 | I ES="" W !!,"No electronic signature on file!" G E2
|
---|
5 | I ESNAM="" W !!,"No electronic signature block on file!" G E2
|
---|
6 | E1 W !!,"Enter Signature Code: " X ^%ZOSF("EOFF") R X:60 X ^%ZOSF("EON") S:'$T X="^" I X=""!(X="^") G E2
|
---|
7 | I X["?" W !,"Enter your Electronic Signature code to verify this action." G E1
|
---|
8 | S ESCNT=ESCNT+1 D HASH^XUSHSHP I ES'=X W " ??",*7 S X="" G E1:ESCNT<3,E2
|
---|
9 | W " ... signed." S ESOK=1 K X,ES,ESCNT Q
|
---|
10 | E2 S ESOK=0 W *7," ... Not Signed." K X,ES,ESCNT Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.