ACRFESIG.m

ACRFESIG ;IHS/OIRM/DSD/THL,AEF - ELECTRONIC SIGNATURE CHECK; [ 11/01/2001   9:44 AM ]

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 ;;ROUTINE CALLED TO ENTER AND CHECK ELECTRONIC SIGNATURES

HASH N ACRI

 K ACR3

 F ACRI=1:1:3 D H Q:$D(ACR3)

 D:'$D(ACR3) S

 K ACR3

 Q

H K ACRQUIT

 D A

 I ACRPER'>0 D  Q

 .W !,"You don't have an "

 .W $S(ACRPER=-1:"ELECTRONIC SIGNATURE",1:"entry in the PERSON file")

 .W ". See your site manager"

 .S ACRQUIT=""

 S DIR(0)="FO^6:20"

 S DIR("A")="Enter your electronic signature"

 S DIR("?")="Enter your official ELECTRONIC SIGNATURE, from 6-20 characters."

 W !

 X ^%ZOSF("EOFF")

 D DIR^ACRFDIC

 X ^%ZOSF("EON")

 G S:$E(X)[U

 D HASH^XUSHSHP

 I X]"",X=$P(^VA(200,ACRPER,20),U,4) D  Q

 .W " VALID SIGNATURE ACCEPTED."

 .S (ACR3,ACRESIG)=""

 E  D

 .W !!,*7,*7,"NOT YOUR VALID ELECTRONIC SIGNATURE."

 .W !,"YOU MAY NOT APPROVE DOCUMENTS WITHOUT YOUR VALID ELECTRONIC SIGNATURE."

 Q

A S ACRPER=$S($D(^VA(200,DUZ,20)):DUZ,1:-1)

 I ACRPER>0,$P(^VA(200,DUZ,20),U,4)]"" S ACRPER=ACRPER

 Q

S S ACRI=3

 S (ACRAPDAS,ACRQUIT)=""

 Q

ACRFESIG  ;IHS/OIRM/DSD/THL,AEF - ELECTRONIC SIGNATURE CHECK; [ 11/01/2001   9:44 AM ]

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 +2       ;;ROUTINE CALLED TO ENTER AND CHECK ELECTRONIC SIGNATURES

HASH       NEW ACRI

 +1        KILL ACR3

 +2        FOR ACRI=1:1:3

               DO H

               IF $DATA(ACR3)

                   QUIT 

 +3        IF '$DATA(ACR3)

               DO S

 +4        KILL ACR3

 +5        QUIT 

H          KILL ACRQUIT

 +1        DO A

 +2        IF ACRPER'>0

               Begin DoDot:1

 +3                WRITE !,"You don't have an "

 +4                WRITE $SELECT(ACRPER=-1:"ELECTRONIC SIGNATURE",1:"entry in the PERSON file")

 +5                WRITE ". See your site manager"

 +6                SET ACRQUIT=""

               End DoDot:1

               QUIT 

 +7        SET DIR(0)="FO^6:20"

 +8        SET DIR("A")="Enter your electronic signature"

 +9        SET DIR("?")="Enter your official ELECTRONIC SIGNATURE, from 6-20 characters."

 +10       WRITE !

 +11       XECUTE ^%ZOSF("EOFF")

 +12       DO DIR^ACRFDIC

 +13       XECUTE ^%ZOSF("EON")

 +14       IF $EXTRACT(X)[U

               GOTO S

 +15       DO HASH^XUSHSHP

 +16       IF X]""

               IF X=$PIECE(^VA(200,ACRPER,20),U,4)

                   Begin DoDot:1

 +17                   WRITE " VALID SIGNATURE ACCEPTED."

 +18                   SET (ACR3,ACRESIG)=""

                   End DoDot:1

                   QUIT 

 +19      IF '$TEST

               Begin DoDot:1

 +20               WRITE !!,*7,*7,"NOT YOUR VALID ELECTRONIC SIGNATURE."

 +21               WRITE !,"YOU MAY NOT APPROVE DOCUMENTS WITHOUT YOUR VALID ELECTRONIC SIGNATURE."

               End DoDot:1

 +22       QUIT 

A          SET ACRPER=$SELECT($DATA(^VA(200,DUZ,20)):DUZ,1:-1)

 +1        IF ACRPER>0

               IF $PIECE(^VA(200,DUZ,20),U,4)]""

                   SET ACRPER=ACRPER

 +2        QUIT 

S          SET ACRI=3

 +1        SET (ACRAPDAS,ACRQUIT)=""

 +2        QUIT