source: WorldVistAEHR/trunk/r/AUTOMATED_LAB_INSTRUMENTS-LA/LA7UID.m@ 1801

Last change on this file since 1801 was 623, checked in by George Lilly, 15 years ago

revised back to 6/30/08 version

File size: 1.5 KB
RevLine 
[623]1LA7UID ;DALOI/JMC - BUILD HL7 DOWNLOAD TO UI; 12/3/1997
2 ;;5.2;AUTOMATED LAB INSTRUMENTS;**17,57**;Sep 27, 1994
3 Q
4 ;
5EN ;; This line tag is called from ^LADOWN when downloading
6 ; a load work list to the Auto Instrument.
7 ;
8 ; LRLL= IEN in 68.2 Load Worklist file, from field in 62.4
9 ; LRINST= IEN IN 62.4 Auto Inst file
10 ; LRAUTO= zero node of 62.4 entry
11 ;
12 S LA7INST=LRINST
13 I '$G(LA7ADL) D BLDINST^LA7ADL1(LA7INST,LRLL)
14 S LA76248=$P(^LAB(62.4,LA7INST,0),"^",8)
15 I 'LA76248 D Q
16 . I '$D(ZTQUEUED) D
17 . . W $C(7),!!,"You must have a MESSAGE CONFIGURATION defined in field 8 of"
18 . . W !,"the AUTO INSTRUMENT file before downloading to this instrument!"
19 . S XQAMSG="MESSAGE CONFIGURATION not defined in AUTO INSTRUMENT file for "_$P(LRAUTO,"^")
20 . D ERROR
21 . D EXIT
22 ;
23 I '$P(^LAHM(62.48,LA76248,0),"^",3) D Q
24 . I '$D(ZTQUEUED) D
25 . . W $C(7),!!,"The STATUS field in the MESSAGE PARAMETER file must be "
26 . . W !,"turned on before downloading to this instrument!"
27 . S XQAMSG="STATUS field in the MESSAGE PARAMETER file not turned on for "_$P(LRAUTO,"^")
28 . D ERROR
29 . D EXIT
30 ;
31 S LA7MODE=$P(^LAHM(62.48,LA76248,0),"^",4)
32 ;
33 ;
34CALL ; Call the routine specified in the PROCESS DOWNLOAD field
35 ; in file 62.48
36 X $G(^LAHM(62.48,LA76248,2))
37 ;
38 ;
39EXIT ; Download for one whole load list is done
40 I '$G(LA7ADL) K ^TMP("LA7-INST",$J),LA76248,LA7MODE
41 Q
42 ;
43 ;
44ERROR ; Send warning of error in Auto Instrument file configuration.
45 ;
46 S XQA("G.LAB MESSAGING")=""
47 D SETUP^XQALERT
48 Q
Note: See TracBrowser for help on using the repository browser.