PATIENT SECURITY CHECK    ICR (3857)

The Record Tracking package has several NOIS calls
indicating that the patient sensitivity/security check is no longer being done
on patient lookups.

This problem surfaced after DG*5.3*223 was released on May 1, 2000. Prior to
that release, the patient security/sensitivity check was done as part of the
post-selection process when looking up a patient on the Patient File #2 using
File Manager.  DG/223 prevented this check if the DIC(0) variable contained an
"I" which was the case for CIRN.  Record Tracking also contains an "I" when
doing these lookups, therefore the security check stopped being done.

The solution is to call ^DGSEC from two routines: RTB for normal patient
lookup RTDPA for lookup using bar code scanner