source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRAPESON.m@ 1259

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1LRAPESON ;DALOI/WTY- AP TURN ESIG ON;10/25/01
2 ;;5.2;LAB SERVICE;**259**;Sep 27, 1994
3 ;
4 ;This routine is used to activate the electronic signature flag
5 ;for Anatomic Pathology
6 ;
7 N LRAPES,LRAPESON,LRMSG,LRQUIT,LRFDA
8 S LRQUIT=0
9MAIN ;
10 D CHKSEC Q:LRQUIT
11 D GETDATA(.LRAPESON)
12 D INPUT Q:LRQUIT
13 D UPDATE
14 Q
15CHKSEC ;
16 I '$D(^XUSEC("LRAPSUPER",DUZ)) D Q
17 .S LRMSG="You do not hold the appropriate security key "
18 .S LRMSG=LRMSG_"to use this option."
19 .D EN^DDIOL(LRMSG,"","!!")
20 .W !
21 .S LRQUIT=1
22 Q
23GETDATA(LRAPESON) ;
24 S LRAPESON=+$$GET1^DIQ(69.9,"1,",619,"I")
25 Q
26INPUT ;
27 S LRMSG="AP electronic signature is "
28 S:'LRAPESON LRMSG=LRMSG_"in"
29 S LRMSG=LRMSG_"active."
30 D EN^DDIOL(LRMSG,"","!!")
31 W !
32 S DIR(0)="YA",DIR("B")="NO"
33 S DIR("A")="Do you wish to "
34 S:LRAPESON DIR("A")=DIR("A")_"de"
35 S DIR("A")=DIR("A")_"activate electronic signature for AP? "
36 D ^DIR
37 I 'Y S LRQUIT=1
38 Q
39UPDATE ;
40 L +^LAB(69.9,1,15):5 I '$T D Q
41 .S LRMSG="This record is locked by another user. "
42 .S LRMSG=LRMSG_"Please wait and try again."
43 .D EN^DDIOL(LRMSG,"","!!")
44 S LRFDA(69.9,"1,",619)=$S('LRAPESON:1,1:0)
45 D FILE^DIE("","LRFDA")
46 W "...Done"
47 L -^LAB(69.9,1,15)
48 Q
Note: See TracBrowser for help on using the repository browser.