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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHIP1 172 printed Nov 22, 2024@16:57:54 Page 2
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