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

ENX2IPR.m

Go to the documentation of this file.

ENX2IPR ;(CIOFO-2)/DH - PRE-INIT ;12.10.97

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

 N DA,DIK,ENI

 ; delete DJ edit screens

 S DIK="^ENG(6910.9,"

 F ENI="ENEQ1","ENEQNX1" D

 . S DA=$O(^ENG(6910.9,"B",ENI,0))

 . D:DA>0 ^DIK

 ;ENX2IPR

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENX2IPR   244     printed  Nov 22, 2024@17:06:43                                                                                                                                                                                                      Page 2

ENX2IPR   ;(CIOFO-2)/DH - PRE-INIT ;12.10.97

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

 +2        NEW DA,DIK,ENI

 +3       ; delete DJ edit screens

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

 +5        FOR ENI="ENEQ1","ENEQNX1"

               Begin DoDot:1

 +6                SET DA=$ORDER(^ENG(6910.9,"B",ENI,0))

 +7                if DA>0

                       DO ^DIK

               End DoDot:1

 +8        QUIT

 +9       ;ENX2IPR