source: WorldVistAEHR/trunk/r/ASISTS-OOPS/OOPSESIG.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 772 bytes
RevLine 
[613]1OOPSESIG ;HISC/REL-Electronic Signature ;3/30/98 16:11
2 ;;2.0;ASISTS;;Jun 03, 2002
3SIG(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
10E1 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
15E2 S ESOK=0 W *7," ... Not Signed." G EXIT
16EXIT K X,ES,ESCNT
17 Q ESIG
Note: See TracBrowser for help on using the repository browser.