XUYDEV.m

XUYDEV ;SFISC/KLD-Add DEVICE file #3.5 to PARAMETER ENTITY file;11/30/99 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1007**;APR 1, 2003

 ;;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 ;COMMENTED OUT TO AVOID USER INTEREACTION

 . S ABORT=1

 Q

XUYDEV    ;SFISC/KLD-Add DEVICE file #3.5 to PARAMETER ENTITY file;11/30/99 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;**135**;Nov 30, 1999

 +3       ;

 +4        NEW ABORT,ARER,ARERR,DA,DIC,DIR,DIE,DR,FDA,FDAIEN,HD,IEN,Y

 +5        SET HD="The Following Data Have Been Added To File #8989.518"

 +6        SET (ABORT,IEN)=0

 +7        SET FDA(8989.518,"?+1,",.01)="DEVICE"

 +8        SET FDA(8989.518,"?+1,",.02)="DEV"

 +9        SET FDA(8989.518,"?+1,",.03)="Device"

 +10       IF $DATA(^XTV(8989.518,3.5,0))'=1

               Begin DoDot:1

 +11               SET FDAIEN(1)="3.5"

 +12               DO UPDATE^DIE(,"FDA","FDAIEN","ARER")

               End DoDot:1

 +13      IF '$TEST

               Begin DoDot:1

 +14               DO UPDATE^DIE(,"FDA",,"ARER")

               End DoDot:1

 +15       IF $GET(IOF)'=""

               WRITE @IOF

 +16       IF $DATA(ARER)

               Begin DoDot:1

 +17               SET ABORT=1

 +18               WRITE $CHAR(7)

 +19               IF $GET(IOF)'=""

                       WRITE @IOF

 +20               WRITE !!,"An ERROR has occured",!

 +21               WRITE $PIECE(ARER("DIERR",1),"^")," - "

 +22               WRITE $PIECE(ARER("DIERR",1,"TEXT",1),"^")

               End DoDot:1

               IF ABORT

                   QUIT 

 +23       SET IEN=$$FIND1^DIC(8989.518,,,"DEVICE",,,"ARERR")

 +24       IF IEN

               Begin DoDot:1

 +25               WRITE $CHAR(7)

 +26               WRITE !!!,HD

 +27               WRITE !,$$REPEAT^XLFSTR("=",$LENGTH(HD))

 +28               WRITE !,$$GET1^DIQ(8989.518,IEN,.01,"E")

 +29               WRITE !,$$GET1^DIQ(8989.518,IEN,.02,"E")

 +30               WRITE !,$$GET1^DIQ(8989.518,IEN,.03,"E"),!!

 +31               NEW DIR

 +32      ;S DIR(0)="E" D ^DIR ;COMMENTED OUT TO AVOID USER INTEREACTION

 +33               SET ABORT=1

               End DoDot:1

               IF ABORT

                   QUIT 

 +34       QUIT