source:
WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGYDPT.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 320 bytes |
Line | |
---|---|
1 | DGYDPT ;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.