| 1 | LA7VSTP1 ;DALOI/JMC - CONT. from LA7VSTP ; 12/3/1997
|
|---|
| 2 | ;;5.2;AUTOMATED LAB INSTRUMENTS;**27,46,64**;Sep 27, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | HOST ; Hosts setup for Remote site
|
|---|
| 5 | ; changing remote site to collection site but not in File 771 (1-15 char)
|
|---|
| 6 | ;
|
|---|
| 7 | N LAREMOTE,LA7VAI
|
|---|
| 8 | S LAREMOTE="LA7V COLLECTION "_PRIMARY
|
|---|
| 9 | ;
|
|---|
| 10 | W !,"Updating LA7 MESSAGE PARAMETER file (#62.48) for the HOST Lab "_SITE_"."
|
|---|
| 11 | W !,?5,"Adding "_$P(LAHOST,"^")
|
|---|
| 12 | ;
|
|---|
| 13 | K DIC
|
|---|
| 14 | S X=$P(LAHOST,"^"),DLAYGO=62.48,DIC="^LAHM(62.48,",DIC(0)="LQ"
|
|---|
| 15 | D ^DIC K DA
|
|---|
| 16 | I Y>0 D
|
|---|
| 17 | . S DIE=DIC,DA=+Y,DR="1///HL7;2///ACTIVE;4///ON;11///LEDI"
|
|---|
| 18 | . D ^DIE
|
|---|
| 19 | . S (LA7VAI,DA(1))=DA,DIC="^LAHM(62.48,"_DA(1)_",90,",DLAYGO=62.483,DIC(0)="QEML",DIC("P")=$P(^DD(62.48,90,0),U,2)
|
|---|
| 20 | . S X=$P(LAHOST,"^")_LRI_"LA7V REMOTE "_PRIMARY_PRIMARY
|
|---|
| 21 | . D ^DIC
|
|---|
| 22 | . S:$P(^LAHM(62.48,LA7VAI,0),U)=$P(LAHOST,"^") ^(1)="D QUE^LA7VIN"
|
|---|
| 23 | . D F629(+$P(HOST(LA7A),"^",4),LA7VAI)
|
|---|
| 24 | K DIC,DIE,DA,DR,DLAYGO
|
|---|
| 25 | ;
|
|---|
| 26 | ;
|
|---|
| 27 | HF624 ;
|
|---|
| 28 | K LA7VAI
|
|---|
| 29 | W !,"Updating LAB AUTO INSTRUMENT file (#62.4) for HOST Lab "_SITE_"."
|
|---|
| 30 | W !,?5,"Adding "_$P(LAHOST,"^")
|
|---|
| 31 | K DIC
|
|---|
| 32 | S X=$P(LAHOST,"^"),DIC="^LAB(62.4,",DIC(0)="L",DLAYGO=62.4
|
|---|
| 33 | S DIC("DR")="5///LOG;6///ID;8///"_$P(LAHOST,"^")_";18///1" D ^DIC
|
|---|
| 34 | S LA7VAI=+Y
|
|---|
| 35 | K DIC,DA,DO,DLAYGO
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | ;
|
|---|
| 39 | REMOTE ;Remote setup for Host site
|
|---|
| 40 | RF6248 ;
|
|---|
| 41 | ;changing remote site to collection site but not in File 771 (1-15 char)
|
|---|
| 42 | ;
|
|---|
| 43 | N DIC,DIE,DA,DR,DLAYGO,LAREMOTE,LA7VAI
|
|---|
| 44 | S LAREMOTE="LA7V COLLECTION "_LRI
|
|---|
| 45 | ;
|
|---|
| 46 | W !,"Updating LA7 MESSAGE PARAMETER file (#62.48) for the REMOTE Lab "_SITE_"."
|
|---|
| 47 | W !,?5,"Adding "_LAREMOTE
|
|---|
| 48 | ;
|
|---|
| 49 | S X=LAREMOTE,DIC="^LAHM(62.48,",DIC(0)="LQ",DLAYGO=62.48
|
|---|
| 50 | D ^DIC
|
|---|
| 51 | I Y>0 D
|
|---|
| 52 | . S DIE=DIC,DA=+Y,DR="1///HL7;2///ACTIVE;4///ON;11///LEDI"
|
|---|
| 53 | . D ^DIE
|
|---|
| 54 | . S (LA7VAI,DA(1))=DA,DIC="^LAHM(62.48,"_DA(1)_",90,",DIC(0)="QEML",DLAYGO=62.483,DIC("P")=$P(^DD(62.48,90,0),U,2)
|
|---|
| 55 | . S X="LA7V REMOTE "_LRI_LRI_LAHOST_PRIMARY
|
|---|
| 56 | . D ^DIC
|
|---|
| 57 | . S:$P(^LAHM(62.48,LA7VAI,0),U)=LAREMOTE ^(1)="D QUE^LA7VIN"
|
|---|
| 58 | ;
|
|---|
| 59 | Q
|
|---|
| 60 | ;
|
|---|
| 61 | ;
|
|---|
| 62 | F629(LA74,LA76248) ; Update entries in #62.9 that use this message configuration (#62.48).
|
|---|
| 63 | ; Check each shipping configuration that has this site as a host site's computer system.
|
|---|
| 64 | ; Call with LA74 = ien of entry in INSTITUTION file (#4)
|
|---|
| 65 | ; LA76248 = ien of entry in LA7 MESSAGE PARAMETER (#62.48)
|
|---|
| 66 | ;
|
|---|
| 67 | N FDA,LA7629,LA7DIE
|
|---|
| 68 | ;
|
|---|
| 69 | S LA7629=0
|
|---|
| 70 | F S LA7629=$O(^LAHM(62.9,"E",LA74,LA7629)) Q:'LA7629 D
|
|---|
| 71 | . K FDA,LA7DIE
|
|---|
| 72 | . S FDA(2,62.9,LA7629_",",.07)=LA76248
|
|---|
| 73 | . D FILE^DIE("","FDA(2)","LA7DIE(2)")
|
|---|
| 74 | Q
|
|---|
