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