source:
FOIAVistA/trunk/r/ENGINEERING-EN/ENX6IPR.m@
1540
| Last change on this file since 1540 was 628, checked in by , 15 years ago | |
|---|---|
| File size: 222 bytes | |
| Line | |
|---|---|
| 1 | ENX6IPR ;(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.
