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