- LA7VSTP1 ;VA/DALOI/JMC - CONT. from LA7VSTP ;JUL 06, 2010 3:14 PM
- ;;5.2;AUTOMATED LAB INSTRUMENTS;**27,46,64,1027**;NOV 01, 1997
- ;
- HOST ; Hosts setup for Remote site
- ; changing remote site to collection site but not in File 771 (1-15 char)
- ;
- N LAREMOTE,LA7VAI
- S LAREMOTE="LA7V COLLECTION "_PRIMARY
- ;
- W !,"Updating LA7 MESSAGE PARAMETER file (#62.48) for the HOST Lab "_SITE_"."
- W !,?5,"Adding "_$P(LAHOST,"^")
- ;
- K DIC
- S X=$P(LAHOST,"^"),DLAYGO=62.48,DIC="^LAHM(62.48,",DIC(0)="LQ"
- D ^DIC K DA
- I Y>0 D
- . S DIE=DIC,DA=+Y,DR="1///HL7;2///ACTIVE;4///ON;11///LEDI"
- . D ^DIE
- . 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)
- . S X=$P(LAHOST,"^")_LRI_"LA7V REMOTE "_PRIMARY_PRIMARY
- . D ^DIC
- . S:$P(^LAHM(62.48,LA7VAI,0),U)=$P(LAHOST,"^") ^(1)="D QUE^LA7VIN"
- . D F629(+$P(HOST(LA7A),"^",4),LA7VAI)
- K DIC,DIE,DA,DR,DLAYGO
- ;
- ;
- HF624 ;
- K LA7VAI
- W !,"Updating LAB AUTO INSTRUMENT file (#62.4) for HOST Lab "_SITE_"."
- W !,?5,"Adding "_$P(LAHOST,"^")
- K DIC
- S X=$P(LAHOST,"^"),DIC="^LAB(62.4,",DIC(0)="L",DLAYGO=62.4
- S DIC("DR")="5///LOG;6///ID;8///"_$P(LAHOST,"^")_";18///1" D ^DIC
- S LA7VAI=+Y
- K DIC,DA,DO,DLAYGO
- Q
- ;
- ;
- REMOTE ;Remote setup for Host site
- RF6248 ;
- ;changing remote site to collection site but not in File 771 (1-15 char)
- ;
- N DIC,DIE,DA,DR,DLAYGO,LAREMOTE,LA7VAI
- S LAREMOTE="LA7V COLLECTION "_LRI
- ;
- W !,"Updating LA7 MESSAGE PARAMETER file (#62.48) for the REMOTE Lab "_SITE_"."
- W !,?5,"Adding "_LAREMOTE
- ;
- S X=LAREMOTE,DIC="^LAHM(62.48,",DIC(0)="LQ",DLAYGO=62.48
- D ^DIC
- I Y>0 D
- . S DIE=DIC,DA=+Y,DR="1///HL7;2///ACTIVE;4///ON;11///LEDI"
- . D ^DIE
- . 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)
- . S X="LA7V REMOTE "_LRI_LRI_LAHOST_PRIMARY
- . D ^DIC
- . S:$P(^LAHM(62.48,LA7VAI,0),U)=LAREMOTE ^(1)="D QUE^LA7VIN"
- ;
- Q
- ;
- ;
- F629(LA74,LA76248) ; Update entries in #62.9 that use this message configuration (#62.48).
- ; Check each shipping configuration that has this site as a host site's computer system.
- ; Call with LA74 = ien of entry in INSTITUTION file (#4)
- ; LA76248 = ien of entry in LA7 MESSAGE PARAMETER (#62.48)
- ;
- N FDA,LA7629,LA7DIE
- ;
- S LA7629=0
- F S LA7629=$O(^LAHM(62.9,"E",LA74,LA7629)) Q:'LA7629 D
- . K FDA,LA7DIE
- . S FDA(2,62.9,LA7629_",",.07)=LA76248
- . D FILE^DIE("","FDA(2)","LA7DIE(2)")
- Q
- LA7VSTP1 ;VA/DALOI/JMC - CONT. from LA7VSTP ;JUL 06, 2010 3:14 PM
- +1 ;;5.2;AUTOMATED LAB INSTRUMENTS;**27,46,64,1027**;NOV 01, 1997
- +2 ;
- HOST ; Hosts setup for Remote site
- +1 ; changing remote site to collection site but not in File 771 (1-15 char)
- +2 ;
- +3 NEW LAREMOTE,LA7VAI
- +4 SET LAREMOTE="LA7V COLLECTION "_PRIMARY
- +5 ;
- +6 WRITE !,"Updating LA7 MESSAGE PARAMETER file (#62.48) for the HOST Lab "_SITE_"."
- +7 WRITE !,?5,"Adding "_$PIECE(LAHOST,"^")
- +8 ;
- +9 KILL DIC
- +10 SET X=$PIECE(LAHOST,"^")
- SET DLAYGO=62.48
- SET DIC="^LAHM(62.48,"
- SET DIC(0)="LQ"
- +11 DO ^DIC
- KILL DA
- +12 IF Y>0
- Begin DoDot:1
- +13 SET DIE=DIC
- SET DA=+Y
- SET DR="1///HL7;2///ACTIVE;4///ON;11///LEDI"
- +14 DO ^DIE
- +15 SET (LA7VAI,DA(1))=DA
- SET DIC="^LAHM(62.48,"_DA(1)_",90,"
- SET DLAYGO=62.483
- SET DIC(0)="QEML"
- SET DIC("P")=$PIECE(^DD(62.48,90,0),U,2)
- +16 SET X=$PIECE(LAHOST,"^")_LRI_"LA7V REMOTE "_PRIMARY_PRIMARY
- +17 DO ^DIC
- +18 IF $PIECE(^LAHM(62.48,LA7VAI,0),U)=$PIECE(LAHOST,"^")
- SET ^(1)="D QUE^LA7VIN"
- +19 DO F629(+$PIECE(HOST(LA7A),"^",4),LA7VAI)
- End DoDot:1
- +20 KILL DIC,DIE,DA,DR,DLAYGO
- +21 ;
- +22 ;
- HF624 ;
- +1 KILL LA7VAI
- +2 WRITE !,"Updating LAB AUTO INSTRUMENT file (#62.4) for HOST Lab "_SITE_"."
- +3 WRITE !,?5,"Adding "_$PIECE(LAHOST,"^")
- +4 KILL DIC
- +5 SET X=$PIECE(LAHOST,"^")
- SET DIC="^LAB(62.4,"
- SET DIC(0)="L"
- SET DLAYGO=62.4
- +6 SET DIC("DR")="5///LOG;6///ID;8///"_$PIECE(LAHOST,"^")_";18///1"
- DO ^DIC
- +7 SET LA7VAI=+Y
- +8 KILL DIC,DA,DO,DLAYGO
- +9 QUIT
- +10 ;
- +11 ;
- REMOTE ;Remote setup for Host site
- RF6248 ;
- +1 ;changing remote site to collection site but not in File 771 (1-15 char)
- +2 ;
- +3 NEW DIC,DIE,DA,DR,DLAYGO,LAREMOTE,LA7VAI
- +4 SET LAREMOTE="LA7V COLLECTION "_LRI
- +5 ;
- +6 WRITE !,"Updating LA7 MESSAGE PARAMETER file (#62.48) for the REMOTE Lab "_SITE_"."
- +7 WRITE !,?5,"Adding "_LAREMOTE
- +8 ;
- +9 SET X=LAREMOTE
- SET DIC="^LAHM(62.48,"
- SET DIC(0)="LQ"
- SET DLAYGO=62.48
- +10 DO ^DIC
- +11 IF Y>0
- Begin DoDot:1
- +12 SET DIE=DIC
- SET DA=+Y
- SET DR="1///HL7;2///ACTIVE;4///ON;11///LEDI"
- +13 DO ^DIE
- +14 SET (LA7VAI,DA(1))=DA
- SET DIC="^LAHM(62.48,"_DA(1)_",90,"
- SET DIC(0)="QEML"
- SET DLAYGO=62.483
- SET DIC("P")=$PIECE(^DD(62.48,90,0),U,2)
- +15 SET X="LA7V REMOTE "_LRI_LRI_LAHOST_PRIMARY
- +16 DO ^DIC
- +17 IF $PIECE(^LAHM(62.48,LA7VAI,0),U)=LAREMOTE
- SET ^(1)="D QUE^LA7VIN"
- End DoDot:1
- +18 ;
- +19 QUIT
- +20 ;
- +21 ;
- F629(LA74,LA76248) ; Update entries in #62.9 that use this message configuration (#62.48).
- +1 ; Check each shipping configuration that has this site as a host site's computer system.
- +2 ; Call with LA74 = ien of entry in INSTITUTION file (#4)
- +3 ; LA76248 = ien of entry in LA7 MESSAGE PARAMETER (#62.48)
- +4 ;
- +5 NEW FDA,LA7629,LA7DIE
- +6 ;
- +7 SET LA7629=0
- +8 FOR
- SET LA7629=$ORDER(^LAHM(62.9,"E",LA74,LA7629))
- IF 'LA7629
- QUIT
- Begin DoDot:1
- +9 KILL FDA,LA7DIE
- +10 SET FDA(2,62.9,LA7629_",",.07)=LA76248
- +11 DO FILE^DIE("","FDA(2)","LA7DIE(2)")
- End DoDot:1
- +12 QUIT
