source: FOIAVistA/trunk/r/ENGINEERING-EN/ENPAT14.m@ 1764

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

initial load of FOIAVistA 6/30/08 version

File size: 594 bytes
Line 
1ENPAT14 ;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
8EXIT ;
9 W !,"Correction completed. This routine (ENPAT14) can be deleted.",!
10 Q
Note: See TracBrowser for help on using the repository browser.