Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
788 bytes
|
Rev | Line | |
---|
[613] | 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.