VistA-FOIAVistA/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUSHSHP.m

XUSHSHP ;SF/STAFF - HASHING ROUTINE FOR SIG BLOCK IN FILE 200 ;4/24/89  15:26 ; 
 ;;8.0;KERNEL;;Jul 10, 1995
HASH Q  ; Primary entry point
 ;;
EN Q  ; CALLED BY XUS3
 ;;
DE Q  ; Called from XUAPURGE
EN1 ;
EN2 ;
EN3 Q