FHIP1.m

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

FHIP1     ; HISC/JH - Routine to Change ALTERNATE NAME X Ref ;5/13/97  11:44

 +1       ;;5.0;Dietetics;**8**;Jun 07, 1995

 +2        KILL ^FH(111,"B")

 +3        SET DIK="^FH(111,"

           DO IXALL^DIK

           KILL DA,DIK

 +4        QUIT