Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
594 bytes
|
Line | |
---|
1 | ENPAT14 ;WISC/SAB-ENG DJ SCREEN CORRECTION ;4/12/94
|
---|
2 | ;;7.0;ENGINEERING;**14**;Aug 17, 1993
|
---|
3 | N DA,DIC,DIE,DR,X,Y
|
---|
4 | W !,"Correcting ENG DJ SCREEN 'ENEQNX1'...",!
|
---|
5 | S DIC="^ENG(6910.9,",DIC(0)="X",X="ENEQNX1" D ^DIC I Y<0 W !!,"ERROR - Screen ENEQNX1 not found in ENG DJ SCREEN file!",!! Q
|
---|
6 | S DIC="^ENG(6910.9,"_+Y_",1,",DIC(0)="X",X="MANUFACTURER" D ^DIC I Y<0 W !!,"ERROR - Label MANUFACTURER not found in ENEQNX1 Screen in ENG DJ SCREEN file!",!! Q
|
---|
7 | S DA=+Y,DIE=DIC,DR="2///I $D(ENDA) S DA=ENDA D LAST^ENEQ2" D ^DIE
|
---|
8 | EXIT ;
|
---|
9 | W !,"Correction completed. This routine (ENPAT14) can be deleted.",!
|
---|
10 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.