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 ---[H[J[2J[HENPAT14 604 printed Dec 13, 2024@01:54:34 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
