|
Last change
on this file since 1800 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
772 bytes
|
| Line | |
|---|
| 1 | OOPSESIG ;HISC/REL-Electronic Signature ;3/30/98 16:11
|
|---|
| 2 | ;;2.0;ASISTS;;Jun 03, 2002
|
|---|
| 3 | SIG(DUZ,IEN) ;
|
|---|
| 4 | N ES,ESOK,ESNAM,X,ESCNT
|
|---|
| 5 | N ESIG
|
|---|
| 6 | S ESIG="0^"
|
|---|
| 7 | S ES=$P($G(^VA(200,DUZ,20)),"^",4),ESNAM=$P($G(^(20)),"^",2),ESCNT=0
|
|---|
| 8 | I ES="" W !!,"No electronic signature on file!" G E2
|
|---|
| 9 | I ESNAM="" W !!,"No electronic signature block on file!" G E2
|
|---|
| 10 | E1 W !!,"Enter Signature Code: " X ^%ZOSF("EOFF") R X:60 X ^%ZOSF("EON") S:'$T X="^" I X=""!(X="^") G E2
|
|---|
| 11 | I X["?" W !,"Enter your Electronic Signature code to verify this action." G E1
|
|---|
| 12 | S ESCNT=ESCNT+1 D HASH^XUSHSHP I ES'=X W " ??",*7 S X="" G E1:ESCNT<3,E2
|
|---|
| 13 | W " ... signed." S X=ESNAM,X1=DUZ,X2=IEN D EN^XUSHSHP S ESIG=DUZ_"^"_X
|
|---|
| 14 | D NOW^%DTC S ESIG=ESIG_"^"_% G EXIT
|
|---|
| 15 | E2 S ESOK=0 W *7," ... Not Signed." G EXIT
|
|---|
| 16 | EXIT K X,ES,ESCNT
|
|---|
| 17 | Q ESIG
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
