- 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 Mar 13, 2025@21:19:11 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
