source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENX6IPR.m@ 717

Last change on this file since 717 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 222 bytes
RevLine 
[613]1ENX6IPR ;(CIOFO-2)/DH - Pre-init for EN*7*56 ;7.10.98
2 ;;7.0;ENGINEERING;**56**;Aug 17, 1993
3 N DA,DIK
4 ; delete corrupted DJ edit screen
5 S DIK="^ENG(6910.9,"
6 S DA=$O(^ENG(6910.9,"B","ENEQ2",0)) D:DA>0 ^DIK
7 Q
8 ;ENX6IPR
Note: See TracBrowser for help on using the repository browser.