XUYDEV ;SFISC/KLD-Add DEVICE file #3.5 to PARAMETER ENTITY file;11/30/99
;;8.0;KERNEL;**135**;Nov 30, 1999
;
N ABORT,ARER,ARERR,DA,DIC,DIR,DIE,DR,FDA,FDAIEN,HD,IEN,Y
S HD="The Following Data Have Been Added To File #8989.518"
S (ABORT,IEN)=0
S FDA(8989.518,"?+1,",.01)="DEVICE"
S FDA(8989.518,"?+1,",.02)="DEV"
S FDA(8989.518,"?+1,",.03)="Device"
I $D(^XTV(8989.518,3.5,0))'=1 D
. S FDAIEN(1)="3.5"
. D UPDATE^DIE(,"FDA","FDAIEN","ARER")
E D
. D UPDATE^DIE(,"FDA",,"ARER")
W:$G(IOF)'="" @IOF
I $D(ARER) D Q:ABORT
. S ABORT=1
. W $C(7)
. W:$G(IOF)'="" @IOF
. W !!,"An ERROR has occured",!
. W $P(ARER("DIERR",1),"^")," - "
. W $P(ARER("DIERR",1,"TEXT",1),"^")
S IEN=$$FIND1^DIC(8989.518,,,"DEVICE",,,"ARERR")
I IEN D Q:ABORT
. W $C(7)
. W !!!,HD
. W !,$$REPEAT^XLFSTR("=",$L(HD))
. W !,$$GET1^DIQ(8989.518,IEN,.01,"E")
. W !,$$GET1^DIQ(8989.518,IEN,.02,"E")
. W !,$$GET1^DIQ(8989.518,IEN,.03,"E"),!!
. N DIR
. S DIR(0)="E" D ^DIR
. S ABORT=1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUYDEV 1013 printed Dec 13, 2024@02:14:17 Page 2
XUYDEV ;SFISC/KLD-Add DEVICE file #3.5 to PARAMETER ENTITY file;11/30/99
+1 ;;8.0;KERNEL;**135**;Nov 30, 1999
+2 ;
+3 NEW ABORT,ARER,ARERR,DA,DIC,DIR,DIE,DR,FDA,FDAIEN,HD,IEN,Y
+4 SET HD="The Following Data Have Been Added To File #8989.518"
+5 SET (ABORT,IEN)=0
+6 SET FDA(8989.518,"?+1,",.01)="DEVICE"
+7 SET FDA(8989.518,"?+1,",.02)="DEV"
+8 SET FDA(8989.518,"?+1,",.03)="Device"
+9 IF $DATA(^XTV(8989.518,3.5,0))'=1
Begin DoDot:1
+10 SET FDAIEN(1)="3.5"
+11 DO UPDATE^DIE(,"FDA","FDAIEN","ARER")
End DoDot:1
+12 IF '$TEST
Begin DoDot:1
+13 DO UPDATE^DIE(,"FDA",,"ARER")
End DoDot:1
+14 if $GET(IOF)'=""
WRITE @IOF
+15 IF $DATA(ARER)
Begin DoDot:1
+16 SET ABORT=1
+17 WRITE $CHAR(7)
+18 if $GET(IOF)'=""
WRITE @IOF
+19 WRITE !!,"An ERROR has occured",!
+20 WRITE $PIECE(ARER("DIERR",1),"^")," - "
+21 WRITE $PIECE(ARER("DIERR",1,"TEXT",1),"^")
End DoDot:1
if ABORT
QUIT
+22 SET IEN=$$FIND1^DIC(8989.518,,,"DEVICE",,,"ARERR")
+23 IF IEN
Begin DoDot:1
+24 WRITE $CHAR(7)
+25 WRITE !!!,HD
+26 WRITE !,$$REPEAT^XLFSTR("=",$LENGTH(HD))
+27 WRITE !,$$GET1^DIQ(8989.518,IEN,.01,"E")
+28 WRITE !,$$GET1^DIQ(8989.518,IEN,.02,"E")
+29 WRITE !,$$GET1^DIQ(8989.518,IEN,.03,"E"),!!
+30 NEW DIR
+31 SET DIR(0)="E"
DO ^DIR
+32 SET ABORT=1
End DoDot:1
if ABORT
QUIT
+33 QUIT
