6 lines
167 B
Mathematica
6 lines
167 B
Mathematica
|
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
|