RA27ENV.m

RA27ENV ;HIRMFO/SWM-Environment Check routine ;10/19/01  09:08

VERSION ;;5.0;Radiology/Nuclear Medicine;**27**;Mar 16, 1998

 ; check that the installer has a mailbox

 I '$D(DUZ) G ABEND1

 S XMDUZ=DUZ D INIT^XMVVITAE I $D(XMV("ERROR",4))#2 G ABEND2

 D EN^DDIOL("The postinit, RA27PST, will send a mail msg to your mailbox",,"!!?5")

 D EN^DDIOL("after the cleanup of duplicate clinical history from file #74.",,"!?5")

 D EN^DDIOL("If you do not receive that message, please check the Taskman list.",,"!?5")

 D EN^DDIOL("The task description is:",,"!!?5")

 D EN^DDIOL("RA*5.0*27 Cleanup Duplicate Clin. Hist. from File 74",,"!?5")

 D EN^DDIOL(" ",,"!!")

 Q

ABEND1 ;

 D EN^DDIOL("There's no DUZ defined",,"!!?5")

 G SETABND

ABEND2 ;

 D EN^DDIOL(XMV("ERROR",4),,"!!?5")

SETABND S XPDABORT=2 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RA27ENV   806     printed  Apr 09, 2024@21:37:17                                                                                                                                                                                                      Page 2

RA27ENV   ;HIRMFO/SWM-Environment Check routine ;10/19/01  09:08

VERSION   ;;5.0;Radiology/Nuclear Medicine;**27**;Mar 16, 1998

 +1       ; check that the installer has a mailbox

 +2        IF '$DATA(DUZ)

               GOTO ABEND1

 +3        SET XMDUZ=DUZ

           DO INIT^XMVVITAE

           IF $DATA(XMV("ERROR",4))#2

               GOTO ABEND2

 +4        DO EN^DDIOL("The postinit, RA27PST, will send a mail msg to your mailbox",,"!!?5")

 +5        DO EN^DDIOL("after the cleanup of duplicate clinical history from file #74.",,"!?5")

 +6        DO EN^DDIOL("If you do not receive that message, please check the Taskman list.",,"!?5")

 +7        DO EN^DDIOL("The task description is:",,"!!?5")

 +8        DO EN^DDIOL("RA*5.0*27 Cleanup Duplicate Clin. Hist. from File 74",,"!?5")

 +9        DO EN^DDIOL(" ",,"!!")

 +10       QUIT 

ABEND1    ;

 +1        DO EN^DDIOL("There's no DUZ defined",,"!!?5")

 +2        GOTO SETABND

ABEND2    ;

 +1        DO EN^DDIOL(XMV("ERROR",4),,"!!?5")

SETABND    SET XPDABORT=2

           QUIT