- 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 Mar 13, 2025@20:52:22 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