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

ENX6IPR.m

Go to the documentation of this file.

ENX6IPR ;(CIOFO-2)/DH - Pre-init for EN*7*56 ;7.10.98

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

 N DA,DIK

 ; delete corrupted DJ edit screen

 S DIK="^ENG(6910.9,"

 S DA=$O(^ENG(6910.9,"B","ENEQ2",0)) D:DA>0 ^DIK

 ;ENX6IPR

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENX6IPR   230     printed  Apr 09, 2024@21:02:22                                                                                                                                                                                                      Page 2

ENX6IPR   ;(CIOFO-2)/DH - Pre-init for EN*7*56 ;7.10.98

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

 +2        NEW DA,DIK

 +3       ; delete corrupted DJ edit screen

 +4        SET DIK="^ENG(6910.9,"

 +5        SET DA=$ORDER(^ENG(6910.9,"B","ENEQ2",0))

           if DA>0

               DO ^DIK

 +6        QUIT

 +7       ;ENX6IPR