FHIP1 ; HISC/JH - Routine to Change ALTERNATE NAME X Ref ;5/13/97  11:44
 ;;5.0;Dietetics;**8**;Jun 07, 1995
 K ^FH(111,"B")
 S DIK="^FH(111," D IXALL^DIK K DA,DIK
 Q