Last change
on this file since 861 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
788 bytes
|
Line | |
---|
1 | RA27ENV ;HIRMFO/SWM-Environment Check routine ;10/19/01 09:08
|
---|
2 | VERSION ;;5.0;Radiology/Nuclear Medicine;**27**;Mar 16, 1998
|
---|
3 | ; check that the installer has a mailbox
|
---|
4 | I '$D(DUZ) G ABEND1
|
---|
5 | S XMDUZ=DUZ D INIT^XMVVITAE I $D(XMV("ERROR",4))#2 G ABEND2
|
---|
6 | D EN^DDIOL("The postinit, RA27PST, will send a mail msg to your mailbox",,"!!?5")
|
---|
7 | D EN^DDIOL("after the cleanup of duplicate clinical history from file #74.",,"!?5")
|
---|
8 | D EN^DDIOL("If you do not receive that message, please check the Taskman list.",,"!?5")
|
---|
9 | D EN^DDIOL("The task description is:",,"!!?5")
|
---|
10 | D EN^DDIOL("RA*5.0*27 Cleanup Duplicate Clin. Hist. from File 74",,"!?5")
|
---|
11 | D EN^DDIOL(" ",,"!!")
|
---|
12 | Q
|
---|
13 | ABEND1 ;
|
---|
14 | D EN^DDIOL("There's no DUZ defined",,"!!?5")
|
---|
15 | G SETABND
|
---|
16 | ABEND2 ;
|
---|
17 | D EN^DDIOL(XMV("ERROR",4),,"!!?5")
|
---|
18 | SETABND S XPDABORT=2 Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.