| 1 | XUYDEV ;SFISC/KLD-Add DEVICE file #3.5 to PARAMETER ENTITY file;11/30/99
|
|---|
| 2 | ;;8.0;KERNEL;**135**;Nov 30, 1999
|
|---|
| 3 | ;
|
|---|
| 4 | N ABORT,ARER,ARERR,DA,DIC,DIR,DIE,DR,FDA,FDAIEN,HD,IEN,Y
|
|---|
| 5 | S HD="The Following Data Have Been Added To File #8989.518"
|
|---|
| 6 | S (ABORT,IEN)=0
|
|---|
| 7 | S FDA(8989.518,"?+1,",.01)="DEVICE"
|
|---|
| 8 | S FDA(8989.518,"?+1,",.02)="DEV"
|
|---|
| 9 | S FDA(8989.518,"?+1,",.03)="Device"
|
|---|
| 10 | I $D(^XTV(8989.518,3.5,0))'=1 D
|
|---|
| 11 | . S FDAIEN(1)="3.5"
|
|---|
| 12 | . D UPDATE^DIE(,"FDA","FDAIEN","ARER")
|
|---|
| 13 | E D
|
|---|
| 14 | . D UPDATE^DIE(,"FDA",,"ARER")
|
|---|
| 15 | W:$G(IOF)'="" @IOF
|
|---|
| 16 | I $D(ARER) D Q:ABORT
|
|---|
| 17 | . S ABORT=1
|
|---|
| 18 | . W $C(7)
|
|---|
| 19 | . W:$G(IOF)'="" @IOF
|
|---|
| 20 | . W !!,"An ERROR has occured",!
|
|---|
| 21 | . W $P(ARER("DIERR",1),"^")," - "
|
|---|
| 22 | . W $P(ARER("DIERR",1,"TEXT",1),"^")
|
|---|
| 23 | S IEN=$$FIND1^DIC(8989.518,,,"DEVICE",,,"ARERR")
|
|---|
| 24 | I IEN D Q:ABORT
|
|---|
| 25 | . W $C(7)
|
|---|
| 26 | . W !!!,HD
|
|---|
| 27 | . W !,$$REPEAT^XLFSTR("=",$L(HD))
|
|---|
| 28 | . W !,$$GET1^DIQ(8989.518,IEN,.01,"E")
|
|---|
| 29 | . W !,$$GET1^DIQ(8989.518,IEN,.02,"E")
|
|---|
| 30 | . W !,$$GET1^DIQ(8989.518,IEN,.03,"E"),!!
|
|---|
| 31 | . N DIR
|
|---|
| 32 | . S DIR(0)="E" D ^DIR
|
|---|
| 33 | . S ABORT=1
|
|---|
| 34 | Q
|
|---|
