Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: FHIP1

FHIP1.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHIP1   172     printed  Apr 09, 2024@20:59:18                                                                                                                                                                                                        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