Here it is in standard VA Fileman. :-)
ACCESSED(%F,REF) ;WILL FLAG ENTRY 'REF' IN FILE '%F' AS BEING ACCESSED BY
CURRENT USER, CURRENT TIME, CURRENT OPTION
N Y,X,%T,%D
D:'$G(DT) DT^DICRW
Q:'%F!'REF S %F=+%F,(REF,X)=+REF Q:'$D(^DIC(%F))
D ADD ;COMES BACK WITH %T AND Y--THE AUDIT REF
S ^DIA(%F,Y,0)=REF_U_%T_U_.01_U_DUZ_U_U_"i"
S ^DIA(%F,"B",REF,Y)=""
Q
;
--
Nancy Anthracite
On Monday, July 09, 2012, Kevin Toppenberg wrote:
> George,
>
> Thank you for the reply. Are you saying that this is already in MSC
> Fileman?
> Was your presentation a proof of concept? Or has this already been set up?
>
> Thanks
> Kevin
>
> On Saturday, July 7, 2012 11:09:38 AM UTC-4, George Timson wrote:
> > At the VistA Community meeting of January, 2008, I showed how
> > Medsphere FileMan (
http://www.hardhats.org/fileman/MSC.html) can be
> > used to do audits of accesses to the PATIENT File, and indeed to any
> > File. The entry point (which I also sneaked into VA FileMan) is
> > ACCESSED^DIET. In Medsphere's OpenVista (
http://sourceforge.net/
> > projects/openvista/files/<
http://sourceforge.net/projects/openvista/files
> > />) the call is from the lookup routine
> > afd_10.htm <
http://www.hardhats.org/fileman/pm/afd_10.htm>). Each access