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

ENXZIPR.m

Go to the documentation of this file.

ENXZIPR ;CIOFO2/DH-Pre Init to Equipment Management Fixes ;10.15.97

 ;;7.0;ENGINEERING;**45**;Aug 17,1993

 ; Delete .01 field from ^DD(6910.1, in order to remove dead

 ; code that contains a $N

EN N DIK,DA

 S DIK="^DD(6910.1,",DA=.01,DA(1)=6910.1

 D ^DIK

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENXZIPR   266     printed  Dec 13, 2024@01:57:11                                                                                                                                                                                                      Page 2

ENXZIPR   ;CIOFO2/DH-Pre Init to Equipment Management Fixes ;10.15.97

 +1       ;;7.0;ENGINEERING;**45**;Aug 17,1993

 +2       ; Delete .01 field from ^DD(6910.1, in order to remove dead

 +3       ; code that contains a $N

EN         NEW DIK,DA

 +1        SET DIK="^DD(6910.1,"

           SET DA=.01

           SET DA(1)=6910.1

 +2        DO ^DIK

 +3        QUIT