source: WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRSEC.m@ 648

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1RMPRSEC ;PHX/JLT-PROSTHETICS SECURITY CHECK ;10/01/1994
2 ;;3.0;PROSTHETICS;;Feb 09, 1996
3RO ;REQUESTING OFFICAL SIGNATURE
4 S X1="" K DIR S DIR(0)="F^1:30",DIR("A")="Electronic Signature Code of Requesting Official" G SIG
5AP ;APPROVING OFFICIAL SIGNATURE
6 ;VARIABLE REQUIRED - DUZ
7 S X1="" K DIR S DIR(0)="FO^1:30",DIR("A")="Electronic Signature Code of Approving Official" D SIG Q ;K ^RMPR(664,"AP",RMPR("SITE"),
8IP ;INSPECTING OFFICIAL SIGNATURE
9 S X1="" K DIR S DIR(0)="F^1:30",DIR("A")="Electronic Signature Code of Inspecting Official" G SIG
10EX ;COLLECT SIGNATURE OF EXAMINER
11 ;CALLED BY RMPREYC
12 ;VARIABLE REQUIRED - DUZ
13 S X1="" K DIR S DIR(0)="F^1:30",DIR("A")="Electronic Signature Code of Examiner"
14SIG S RMPRC=0
15CHK S X1=$S($D(^VA(200,+$G(DUZ),20))[0:"",1:$P(^(20),"^",4),1:"") I X1="" W !!,$C(7),?5,"YOU DO NOT HAVE AN ELECTRONIC SIGNATURE CODE.",!,?5,"USE THE TBOX OPTION TO ENTER OR CHANGE YOUR SIGNATURE CODE" Q
16 X ^%ZOSF("EOFF") D WRT D ^DIR X ^%ZOSF("EON")
17 S RMPRX=X W:RMPRX="^"!(X["?") RMPRX
18 Q:RMPRX="^"
19 W:$D(DIRUT) !!,?5,$C(7),"This document must be signed for Authentication Purposes!!" K X1 Q:$D(DIRUT)
20 I RMPRC>2 W !!,$C(7),?5,"Use the TBOX option to change your Electronic Signature code." Q
21 D HASH^XUSHSHP I $P(^VA(200,DUZ,20),U,4)'=X W !!,$C(7),?5,"**That is not your Electronic Signature Code. Try again**",!! S RMPRC=RMPRC+1 G CHK
22 S RMPRSBP=$P(^VA(200,DUZ,20),U,2),RMPRSBT=$P(^(20),U,3),X1=X W !!,?5,$C(7),"Signature Code verified!" Q
23ENCODE(X,X1,X2) ;ENCRYPT ELECTRONIC SIGNATURE
24 D EN^XUSHSHP Q X
25DECODE(X,X1,X2) ;DECRYPT ELECTRONIC SIGNATURE
26 D DE^XUSHSHP Q X
27SUM(X) ;CREATE CHECKSUM VALUE FOR STRING
28 N I,Y
29 S Y=0 F I=1:1:$L(X) S Y=$A(X,I)*I+Y
30 Q Y
31WRT ;WRITE HELP SCREENS FOR ELECTRONIC SIGNATURE PROMPTS
32 S DIR("?")="YOU MUST ENTER YOUR CORRECT ELECTRONIC SIGNATURE CODE TO ACCOMPLISH THE ACTION"
33 S DIR("??")="RMPR-ELECTRONIC SIGNATURE" Q
Note: See TracBrowser for help on using the repository browser.