ENPAT14.m

ENPAT14 ;WISC/SAB-ENG DJ SCREEN CORRECTION ;4/12/94

 ;;7.0;ENGINEERING;**14**;Aug 17, 1993

 N DA,DIC,DIE,DR,X,Y

 W !,"Correcting ENG DJ SCREEN 'ENEQNX1'...",!

 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

 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

 S DA=+Y,DIE=DIC,DR="2///I $D(ENDA) S DA=ENDA D LAST^ENEQ2" D ^DIE

EXIT ;

 W !,"Correction completed. This routine (ENPAT14) can be deleted.",!

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENPAT14   604     printed  Apr 09, 2024@20:56:50                                                                                                                                                                                                      Page 2

ENPAT14   ;WISC/SAB-ENG DJ SCREEN CORRECTION ;4/12/94

 +1       ;;7.0;ENGINEERING;**14**;Aug 17, 1993

 +2        NEW DA,DIC,DIE,DR,X,Y

 +3        WRITE !,"Correcting ENG DJ SCREEN 'ENEQNX1'...",!

 +4        SET DIC="^ENG(6910.9,"

           SET DIC(0)="X"

           SET X="ENEQNX1"

           DO ^DIC

           IF Y<0

               WRITE !!,"ERROR - Screen ENEQNX1 not found in ENG DJ SCREEN file!",!!

               QUIT 

 +5        SET DIC="^ENG(6910.9,"_+Y_",1,"

           SET DIC(0)="X"

           SET X="MANUFACTURER"

           DO ^DIC

           IF Y<0

               WRITE !!,"ERROR - Label MANUFACTURER not found in ENEQNX1 Screen in ENG DJ SCREEN file!",!!

               QUIT 

 +6        SET DA=+Y

           SET DIE=DIC

           SET DR="2///I $D(ENDA) S DA=ENDA D LAST^ENEQ2"

           DO ^DIE

EXIT      ;

 +1        WRITE !,"Correction completed. This routine (ENPAT14) can be deleted.",!

 +2        QUIT