source: FOIAVistA/trunk/r/AUTOMATED_LAB_INSTRUMENTS-LA/LA7VSTP1.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.3 KB
Line 
1LA7VSTP1 ;DALOI/JMC - CONT. from LA7VSTP ; 12/3/1997
2 ;;5.2;AUTOMATED LAB INSTRUMENTS;**27,46,64**;Sep 27, 1994
3 ;
4HOST ; 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 ;
27HF624 ;
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 ;
39REMOTE ;Remote setup for Host site
40RF6248 ;
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 ;
62F629(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
Note: See TracBrowser for help on using the repository browser.