27 lines
1.0 KiB
Mathematica
27 lines
1.0 KiB
Mathematica
ENTIRN ;WOIFO/SAB - Responsibility Notification ;2/4/2008
|
|
;;7.0;ENGINEERING;**87**;Aug 17, 1993;Build 16
|
|
;
|
|
; called by option ENIT RESP NOTIFY during user sign-on
|
|
Q:'$D(^ENG(6916.3,"AOA",DUZ)) ; user doesn't have active IT assignments
|
|
;
|
|
N ENC,ENDA,ENEQ,ENSD
|
|
S ENC("U")=0 ; init count of assignments that need to be signed
|
|
S ENC("R")=0 ; init count of assignments that need to be re-signed
|
|
;
|
|
; loop thru active assignments for user
|
|
S ENEQ=0 F S ENEQ=$O(^ENG(6916.3,"AOA",DUZ,ENEQ)) Q:'ENEQ D
|
|
. S ENDA=0 F S ENDA=$O(^ENG(6916.3,"AOA",DUZ,ENEQ,ENDA)) Q:'ENDA D
|
|
. . S ENSD=$P($P($G(^ENG(6916.3,ENDA,0)),"^",5),".") ; signed date
|
|
. . I 'ENSD S ENC("U")=ENC("U")+1 Q
|
|
. . I ENSD,$$FMDIFF^XLFDT(DT,ENSD)>359 S ENC("R")=ENC("R")+1
|
|
;
|
|
I ENC("U")=0,ENC("R")=0 Q ; no action required
|
|
;
|
|
I ENC("U") D SET^XUS1A("!"_ENC("U")_" IT Assignment(s) need signature.")
|
|
I ENC("R") D SET^XUS1A("!"_ENC("R")_" IT Assignment(s) need re-signature.")
|
|
D SET^XUS1A("!Use the IT Owner Menu to sign for IT equipment.")
|
|
;
|
|
Q
|
|
;
|
|
;ENTIRN
|