source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUYDEV.m@ 1211

Last change on this file since 1211 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 979 bytes
Line 
1XUYDEV ;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
Note: See TracBrowser for help on using the repository browser.