source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGYDPT.m@ 1259

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

initial load of WorldVistAEHR

File size: 320 bytes
Line 
1DGYDPT ;ALB/ESD - DG*5.3*9 Post Init Routine ;10/25/93
2 ;;5.3;Registration;**9**;Aug 13, 1993
3 ; This removes screen.
4 S X="DGJ EDIT COMP IRT SUPER",DIC(0)="X",DIC="^ORD(101,"
5 D ^DIC
6 S DIE=DIC,DA=+Y,DR="24///@"
7 D ^DIE K DIE,DIC,DA,DR,X,Y
8 ; This runs ONITS.
9 D ^DGYDONIT
10 ; This loads the list template.
11 D ^DGYDL
12 Q
Note: See TracBrowser for help on using the repository browser.