source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RA27ENV.m@ 1590

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

initial load of FOIAVistA 6/30/08 version

File size: 788 bytes
Line 
1RA27ENV ;HIRMFO/SWM-Environment Check routine ;10/19/01 09:08
2VERSION ;;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
13ABEND1 ;
14 D EN^DDIOL("There's no DUZ defined",,"!!?5")
15 G SETABND
16ABEND2 ;
17 D EN^DDIOL(XMV("ERROR",4),,"!!?5")
18SETABND S XPDABORT=2 Q
Note: See TracBrowser for help on using the repository browser.