source: WorldVistAEHR/trunk/r/PAID-PRS/PRSAES.m@ 846

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

initial load of WorldVistAEHR

File size: 623 bytes
RevLine 
[613]1PRSAES ; 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
6E1 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
10E2 S ESOK=0 W *7," ... Not Signed." K X,ES,ESCNT Q
Note: See TracBrowser for help on using the repository browser.