source: WorldVistAEHR/trunk/r/AUTOMATED_LAB_INSTRUMENTS-LA/LA7UCFG.m@ 701

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1LA7UCFG ;DALOI/JMC - Configure Lab Universal Interface;May 30, 2008
2 ;;5.2;AUTOMATED LAB INSTRUMENTS;**66**;Sep 27, 1994;Build 30
3 ;
4 Q
5 ;
6EN ; Configure files #62.48 and #62.4
7 N DIR,DIROUT,DIRUT,DUOUT,LA7QUIT,X,Y
8 F D Q:$D(DIRUT)
9 . S DIR(0)="SO^1:LA7 MESSAGE PARAMETER (#62.48);2:AUTO INSTRUMENT (#62.4)"
10 . S DIR("A")="Select which file to setup"
11 . D ^DIR
12 . I $D(DIRUT) Q
13 . I Y=1 D E6248 Q
14 . I Y=2 D Q
15 . . S LA7QUIT=0
16 . . F D E624 Q:LA7QUIT
17 Q
18 ;
19 ;
20E6248 ; Setup/edit file #62.48
21 ;
22 N DA,DIC,DLAYGO,DR,LA76248,X,Y
23 W !
24 S DIC="^LAHM(62.48,",DIC(0)="AELMQ",DIC("S")="I $P(^(0),U,9)=1",DLAYGO=62.48
25 D ^DIC K DIC("S")
26 I Y<1 Q
27 S (DA,LA76248)=+Y
28 L +^LAHM(62.48,LA76248):DILOCKTM
29 I '$T W !?5,"Another user is editing this entry." Q
30 S DIE=DIC,DR="2;3;4;20"
31 D ^DIE
32 L -^LAHM(62.48,LA76248)
33 Q
34 ;
35 ;
36E624 ; Setup/edit file #62.4
37 ;
38 N DA,DIC,DIE,DLAYGO,DR,FDA,LA7624,LA76248,LA7ERR,X,Y
39 ;
40 W !
41 S DIC="^LAB(62.4,",DIC(0)="AELMQ",DIC("S")="I $P(^(0),U)'[""LA7V"",$P(^(0),U)'[""LA7P""",DLAYGO=62.4
42 D ^DIC K DIC("S")
43 I Y<1 S LA7QUIT=1 Q
44 S (DA,LA7624)=+Y
45 L +^LAB(62.4,LA7624):DILOCKTM
46 I '$T W !?5,"Another user is editing this entry." Q
47 S DIE=DIC,DR=".01;3;5;6;8;10;11;12;18;.02;95;98;30;107"
48 S DR(2,62.41)=".01;2;6;15;7;8;9;12;13;14;16;17;18;19"
49 D ^DIE
50 ;
51 ; Stuff file build logic into entry if UI interface
52 S LA76248=$P($G(^LAB(62.4,LA7624,0)),"^",8)
53 I $D(DA),LA76248,$P($G(^LAHM(62.48,LA76248,0)),"^",9)=1 D
54 . S FDA(1,62.4,LA7624_",",93)="EN"
55 . S FDA(1,62.4,LA7624_",",94)="LA7UID"
56 . D FILE^DIE("","FDA(1)","LA7ERR(1)")
57 ;
58 L -^LAB(62.4,LA7624)
59 Q
Note: See TracBrowser for help on using the repository browser.