|
Last change
on this file since 1397 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
