XUYDEV.m

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 ---XUYDEV   1013     printed  Apr 09, 2024@21:11:36                                                                                                                                                                                                      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