- LA7UID ;DALIO/JRR - BUILD HL7 DOWNLOAD TO UI ;May 20, 2008
- ;;5.2;AUTOMATED LAB INSTRUMENTS;**17,57,66**;Sep 27, 1994;Build 30
- ;
- Q
- ;
- EN ; This line tag is called from ^LADOWN when downloading
- ; a load work list to the Auto Instrument. LADOWN1 should
- ; have already built ^TMP($J with all of the atomic and
- ; cosmic tests, ^TMP("LA7",$J holds all of the Instrument defined
- ; tests from 62.4.
- ; LRLL= IEN in 68.2 Load Worklist file, from field in 62.4
- ; LRINST= IEN IN 62.4 Auto Inst file
- ; LRAUTO= zero node of 62.4 entry
- ;
- N LA7MODE
- S LA7INST=LRINST
- I '$G(LA7ADL) D BLDINST^LA7ADL1(LA7INST,LRLL)
- S LA76248=$P($G(^LAB(62.4,+$G(LRINST),0)),"^",8)
- I 'LA76248 D Q
- . S XQAMSG="MESSAGE CONFIGURATION not defined in AUTO INSTRUMENT file for "_$P(LRAUTO,"^")
- . D ERROR,EXIT
- . I '$D(ZTQUEUED) D ;
- . . W $C(7),!!,"You must have a MESSAGE CONFIGURATION defined in field 8 of"
- . . W !,"the AUTO INSTRUMENT file before downloading to this instrument!"
- . ;
- ;
- I '$P(^LAHM(62.48,LA76248,0),"^",3) D Q
- . S XQAMSG="STATUS field in the LA7 MESSAGE PARAMETER file not turned on for "_$P(LRAUTO,"^")
- . D ERROR,EXIT
- . I '$D(ZTQUEUED) D ;
- . . W $C(7),!!,"The STATUS field in the LA7 MESSAGE PARAMETER file must be "
- . . W !,"turned on before downloading to this instrument!"
- . ;
- ;
- S LA7MODE=$P(^LAHM(62.48,LA76248,0),"^",4)
- ;
- ; Call the routine specified in the PROCESS DOWNLOAD field in file 62.48
- ; Download for one whole load list is done
- X $G(^LAHM(62.48,LA76248,2))
- ;
- EXIT I '$G(LA7ADL) K ^TMP("LA7",$J),LA76248
- Q
- ;
- ;
- ERROR ; Send warning of error in Auto Instrument file configuration.
- S XQA("G.LAB MESSAGING")=""
- D SETUP^XQALERT
- K XQA,XQAMSG
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLA7UID 1726 printed Mar 13, 2025@20:44:27 Page 2
- LA7UID ;DALIO/JRR - BUILD HL7 DOWNLOAD TO UI ;May 20, 2008
- +1 ;;5.2;AUTOMATED LAB INSTRUMENTS;**17,57,66**;Sep 27, 1994;Build 30
- +2 ;
- +3 QUIT
- +4 ;
- EN ; This line tag is called from ^LADOWN when downloading
- +1 ; a load work list to the Auto Instrument. LADOWN1 should
- +2 ; have already built ^TMP($J with all of the atomic and
- +3 ; cosmic tests, ^TMP("LA7",$J holds all of the Instrument defined
- +4 ; tests from 62.4.
- +5 ; LRLL= IEN in 68.2 Load Worklist file, from field in 62.4
- +6 ; LRINST= IEN IN 62.4 Auto Inst file
- +7 ; LRAUTO= zero node of 62.4 entry
- +8 ;
- +9 NEW LA7MODE
- +10 SET LA7INST=LRINST
- +11 IF '$GET(LA7ADL)
- DO BLDINST^LA7ADL1(LA7INST,LRLL)
- +12 SET LA76248=$PIECE($GET(^LAB(62.4,+$GET(LRINST),0)),"^",8)
- +13 IF 'LA76248
- Begin DoDot:1
- +14 SET XQAMSG="MESSAGE CONFIGURATION not defined in AUTO INSTRUMENT file for "_$PIECE(LRAUTO,"^")
- +15 DO ERROR
- DO EXIT
- +16 ;
- IF '$DATA(ZTQUEUED)
- Begin DoDot:2
- +17 WRITE $CHAR(7),!!,"You must have a MESSAGE CONFIGURATION defined in field 8 of"
- +18 WRITE !,"the AUTO INSTRUMENT file before downloading to this instrument!"
- End DoDot:2
- +19 ;
- End DoDot:1
- QUIT
- +20 ;
- +21 IF '$PIECE(^LAHM(62.48,LA76248,0),"^",3)
- Begin DoDot:1
- +22 SET XQAMSG="STATUS field in the LA7 MESSAGE PARAMETER file not turned on for "_$PIECE(LRAUTO,"^")
- +23 DO ERROR
- DO EXIT
- +24 ;
- IF '$DATA(ZTQUEUED)
- Begin DoDot:2
- +25 WRITE $CHAR(7),!!,"The STATUS field in the LA7 MESSAGE PARAMETER file must be "
- +26 WRITE !,"turned on before downloading to this instrument!"
- End DoDot:2
- +27 ;
- End DoDot:1
- QUIT
- +28 ;
- +29 SET LA7MODE=$PIECE(^LAHM(62.48,LA76248,0),"^",4)
- +30 ;
- +31 ; Call the routine specified in the PROCESS DOWNLOAD field in file 62.48
- +32 ; Download for one whole load list is done
- +33 XECUTE $GET(^LAHM(62.48,LA76248,2))
- +34 ;
- EXIT IF '$GET(LA7ADL)
- KILL ^TMP("LA7",$JOB),LA76248
- +1 QUIT
- +2 ;
- +3 ;
- ERROR ; Send warning of error in Auto Instrument file configuration.
- +1 SET XQA("G.LAB MESSAGING")=""
- +2 DO SETUP^XQALERT
- +3 KILL XQA,XQAMSG
- +4 QUIT
