| 1 | LA7UCFG ;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 | ;
|
|---|
| 6 | EN ; 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 | ;
|
|---|
| 20 | E6248 ; 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 | ;
|
|---|
| 36 | E624 ; 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
|
|---|
