source: FOIAVistA/trunk/r/ZZOTHER/HASHFOIA.m@ 1170

Last change on this file since 1170 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 217 bytes
Line 
1XUSHSHP ;SF/STAFF - HASHING ROUTINE FOR SIG BLOCK IN FILE 200 ;4/24/89 15:26 ;
2 ;;8.0;KERNEL;;Jul 10, 1995
3HASH Q ; Primary entry point
4 ;;
5EN Q ; CALLED BY XUS3
6 ;;
7DE Q ; Called from XUAPURGE
8EN1 ;
9EN2 ;
10EN3 Q
Note: See TracBrowser for help on using the repository browser.