Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
948 bytes
|
Rev | Line | |
---|
[613] | 1 | LR7OPOS ;slc/dcm - POST-Initialization routine ;12/18/97 08:34
|
---|
| 2 | ;;5.2;LAB SERVICE;**166**;Sep 27, 1994
|
---|
| 3 | ;
|
---|
| 4 | EN ;Enter here for post initialization patch LR*5.2*166
|
---|
| 5 | I $$VER^LR7OU1<3 Q ;OE/RR 2.5 Check
|
---|
| 6 | N LRCHK
|
---|
| 7 | S X=$O(^ORD(101,"B","OR RECEIVE",0)) I 'X D MES^XPDUTL("Unable to continue. OE/RR 3.0 not installed. Conversion aborted!") Q ;OE/RR not installed
|
---|
| 8 | S Y=$O(^ORD(101,"B","LR7O CH EVSEND OR",0)) I 'Y D MES^XPDUTL("Unable to continue. Lab protocols for OE/RR have not been installed"),MES^XPDUTL("Conversion aborted!") Q ;Lab protocol not found
|
---|
| 9 | I '$D(^ORD(101,Y,10,"B",X)) D MES^XPDUTL("Unable to continue. OE/RR protocol 'OR RECEIVE' has not been placed on the"),MES^XPDUTL("Lab protocols. Conversion aborted!") Q ;OE/RR not on Lab protocol
|
---|
| 10 | S LRCHK=$$NEWCP^XPDUTL("POST3","L69^LR7OPOS")
|
---|
| 11 | Q
|
---|
| 12 | L69 ;Send Lab order parameters to OE/RR
|
---|
| 13 | Q:'$L($T(XPAR^XPAR))
|
---|
| 14 | N X
|
---|
| 15 | D BMES^XPDUTL("Now sending Lab order parameters to OE/RR...")
|
---|
| 16 | D EN^LR7OV1
|
---|
| 17 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.