| [613] | 1 | LRAPESON ;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
|
|---|
| 9 | MAIN ;
|
|---|
| 10 | D CHKSEC Q:LRQUIT
|
|---|
| 11 | D GETDATA(.LRAPESON)
|
|---|
| 12 | D INPUT Q:LRQUIT
|
|---|
| 13 | D UPDATE
|
|---|
| 14 | Q
|
|---|
| 15 | CHKSEC ;
|
|---|
| 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
|
|---|
| 23 | GETDATA(LRAPESON) ;
|
|---|
| 24 | S LRAPESON=+$$GET1^DIQ(69.9,"1,",619,"I")
|
|---|
| 25 | Q
|
|---|
| 26 | INPUT ;
|
|---|
| 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
|
|---|
| 39 | UPDATE ;
|
|---|
| 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
|
|---|
