- RAIENV160 ;HISC/GJC-environment check 160 ; Aug 26, 2020@10:11:07
- ;;5.0;Radiology/Nuclear Medicine;**160**;Mar 16, 1998;Build 4
- ;
- ;Routine File IA Type
- ;----------------------------------------------
- ;$$FIND1^DIC 2051 (S)
- ;
- ;The host system must have POSTMASTER with
- ;a DUZ value of .5 as a record in their NEW
- ;PERSON file in order to install RA*5.0*160.
- N RABOOL,RAIEN S RAIEN="`.5"
- S RABOOL=$S($$FIND1^DIC(200,,,RAIEN)=.5:0,1:1)
- CHK ;if RABOOL = 1 set XPDQUIT = 2 else POSTMASTER w/DUZ=.5
- ;XPDQUIT = 2: Don't install BUILD; but leave it in ^XTMP.
- I RABOOL D
- .N RATXT S RATXT(1)=XPDNM_" cannot be installed on this system unless POSTMASTER is"
- .S RATXT(2)="an entry in the NEW PERSON (#200) file and .5 is the value of the"
- .S RATXT(3)="variable DUZ."
- .D BMES^XPDUTL(.RATXT)
- .S XPDQUIT=2
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAIENV160 888 printed Mar 13, 2025@21:40:29 Page 2
- RAIENV160 ;HISC/GJC-environment check 160 ; Aug 26, 2020@10:11:07
- +1 ;;5.0;Radiology/Nuclear Medicine;**160**;Mar 16, 1998;Build 4
- +2 ;
- +3 ;Routine File IA Type
- +4 ;----------------------------------------------
- +5 ;$$FIND1^DIC 2051 (S)
- +6 ;
- +7 ;The host system must have POSTMASTER with
- +8 ;a DUZ value of .5 as a record in their NEW
- +9 ;PERSON file in order to install RA*5.0*160.
- +10 NEW RABOOL,RAIEN
- SET RAIEN="`.5"
- +11 SET RABOOL=$SELECT($$FIND1^DIC(200,,,RAIEN)=.5:0,1:1)
- CHK ;if RABOOL = 1 set XPDQUIT = 2 else POSTMASTER w/DUZ=.5
- +1 ;XPDQUIT = 2: Don't install BUILD; but leave it in ^XTMP.
- +2 IF RABOOL
- Begin DoDot:1
- +3 NEW RATXT
- SET RATXT(1)=XPDNM_" cannot be installed on this system unless POSTMASTER is"
- +4 SET RATXT(2)="an entry in the NEW PERSON (#200) file and .5 is the value of the"
- +5 SET RATXT(3)="variable DUZ."
- +6 DO BMES^XPDUTL(.RATXT)
- +7 SET XPDQUIT=2
- End DoDot:1
- +8 QUIT
- +9 ;
