RAIENVCK ;HIRMFO/GJC-Environmental Check Routine ;5/16/97 08:50
VERSION ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
EN1 ; Version 5.0 environment check routine for Radiology/Nuclear Medicine.
I $S($D(DUZ)[0:1,$D(DUZ(0))[0:1,'DUZ:1,1:0) D S XPDABORT=2 Q
. W !?5,"DUZ and DUZ(0) must be defined as an active user to initialize"
. W !?5,"the RADIOLOGY/NUCLEAR MEDICINE v",$P($T(+2),";",3)
. W " software.",$C(7)
. Q
I DUZ(0)'="@" D S XPDABORT=2 Q
. W !?5,"You must have programmer access i.e, DUZ(0)=@, to run this "
. W "init!",$C(7)
. Q
Q:$G(^RADPT(0))']"" ; virgin install, quit!
; Check for the two imaging types which will use radiopharmaceuticals.
; Abort the install if they are not present.
S RAFLG=0
I +$G(^DD(70,0,"VR"))<5.0 D
. F RAI=1:1 S RATXT=$P($T(TEXT+RAI),";;",2) Q:RATXT']"" D
.. S RATXT(1)=$P(RATXT,";"),RATXT(2)=$P(RATXT,";",2)
.. I '$D(^RA(79.2,"C",RATXT(2))) D
... S (RAFLG,XPDABORT)=2 ; abort install, don't remove from ^XTMP
... W !!?3,"The Imaging type abbreviated as: "_RATXT(2)
... W !?3,"is missing. ("_RATXT(1)_")"
... Q
.. Q
. Q
I RAFLG D ERR792
S RA787=+$O(^RA(78.7,"B","VERIFIED DATE",0))
I $G(^RA(78.7,RA787,"E"))'["RAVERFDT" D
. W !!?3,"Patch 2 (RA*4.5*2) must be installed before"
. W " RADIOLOGY/NUCLEAR",!?3,"MEDICINE v",$P($T(+2),";",3)
. W " can be installed!",$C(7) S XPDABORT=2
. Q
I '$$PATCH^XPDUTL("RA*4.5*10") D
. W !!?3,"Patch 10 (RA*4.5*10) must be installed before"
. W " RADIOLOGY/NUCLEAR",!?3,"MEDICINE v",$P($T(+2),";",3)
. W " can be installed!",$C(7) S XPDABORT=2
. Q
I '$$CLEANUP() D
. W !!?3,"RADIOLOGY/NUCLEAR MEDICINE CLEANUP v",$P($T(+2),";",3)
. W " must be loaded and reside",!?3,"in the transport global before"
. W " RADIOLOGY/NUCLEAR MEDICINE v",$P($T(+2),";",3)
. W !?3,"can be installed!",!,$C(7) S XPDABORT=2
. Q
XIT ; Exit point, kill variables then quit application.
K RA787,RAFLG,RAI,RATXT
Q
CLEANUP() ; Check if the 'Radiology/Nuclear Medicine Cleanup 5.0'
; distribution has been loaded and is resident in the transport global.
; Output: 0 if not loaded -OR- not resident in transport global
; 1 if ok to proceed (loaded & transport global present)
N %,DIC,RASTAT,X,Y
S X="RADIOLOGY/NUCLEAR MEDICINE CLEANUP "_$P($T(+2),";",3)
S DIC="^XPD(9.7,",DIC(0)="O" D ^DIC Q:+Y'>0 0 ;cleanup missing
S RASTAT=$$GET1^DIQ(9.7,+Y,.02,"I") ; status of distribution
Q:RASTAT'=0 0 ; status must be 'loaded from distribution'
Q:'$D(^XTMP("XPDI",+Y,"BLD")) 0 ; missing from transport global
Q 1
ERR792 ; Error messages for an incomplete Imaging Type file. Needed are the
; imaging type abbreviations for those imaging types which will use
; radiopharmaceuticals.
W !!?3,"The Imaging Type file must have these imaging type"
W !?3,"abbreviations before the package can be updated from"
W !?3,"version 4.5 to 5.0:",!
W !?5,"CARD - Cardiology Studies (Nuc Med)"
W !?5,"NM - Nuclear Medicine"
W !!?3,"Package installation cannot proceed. Contact the Radiology/"
W !?3,"Nuclear Medicine ADPAC for assistance.",$C(7)
Q
TEXT ; Check I-Type & abbreviation of file 79.2 against those listed below.
;;CARDIOLOGY STUDIES (NUC MED);CARD
;;NUCLEAR MEDICINE;NM
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAIENVCK 3264 printed Dec 13, 2024@02:35:46 Page 2
RAIENVCK ;HIRMFO/GJC-Environmental Check Routine ;5/16/97 08:50
VERSION ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
EN1 ; Version 5.0 environment check routine for Radiology/Nuclear Medicine.
+1 IF $SELECT($DATA(DUZ)[0:1,$DATA(DUZ(0))[0:1,'DUZ:1,1:0)
Begin DoDot:1
+2 WRITE !?5,"DUZ and DUZ(0) must be defined as an active user to initialize"
+3 WRITE !?5,"the RADIOLOGY/NUCLEAR MEDICINE v",$PIECE($TEXT(+2),";",3)
+4 WRITE " software.",$CHAR(7)
+5 QUIT
End DoDot:1
SET XPDABORT=2
QUIT
+6 IF DUZ(0)'="@"
Begin DoDot:1
+7 WRITE !?5,"You must have programmer access i.e, DUZ(0)=@, to run this "
+8 WRITE "init!",$CHAR(7)
+9 QUIT
End DoDot:1
SET XPDABORT=2
QUIT
+10 ; virgin install, quit!
if $GET(^RADPT(0))']""
QUIT
+11 ; Check for the two imaging types which will use radiopharmaceuticals.
+12 ; Abort the install if they are not present.
+13 SET RAFLG=0
+14 IF +$GET(^DD(70,0,"VR"))<5.0
Begin DoDot:1
+15 FOR RAI=1:1
SET RATXT=$PIECE($TEXT(TEXT+RAI),";;",2)
if RATXT']""
QUIT
Begin DoDot:2
+16 SET RATXT(1)=$PIECE(RATXT,";")
SET RATXT(2)=$PIECE(RATXT,";",2)
+17 IF '$DATA(^RA(79.2,"C",RATXT(2)))
Begin DoDot:3
+18 ; abort install, don't remove from ^XTMP
SET (RAFLG,XPDABORT)=2
+19 WRITE !!?3,"The Imaging type abbreviated as: "_RATXT(2)
+20 WRITE !?3,"is missing. ("_RATXT(1)_")"
+21 QUIT
End DoDot:3
+22 QUIT
End DoDot:2
+23 QUIT
End DoDot:1
+24 IF RAFLG
DO ERR792
+25 SET RA787=+$ORDER(^RA(78.7,"B","VERIFIED DATE",0))
+26 IF $GET(^RA(78.7,RA787,"E"))'["RAVERFDT"
Begin DoDot:1
+27 WRITE !!?3,"Patch 2 (RA*4.5*2) must be installed before"
+28 WRITE " RADIOLOGY/NUCLEAR",!?3,"MEDICINE v",$PIECE($TEXT(+2),";",3)
+29 WRITE " can be installed!",$CHAR(7)
SET XPDABORT=2
+30 QUIT
End DoDot:1
+31 IF '$$PATCH^XPDUTL("RA*4.5*10")
Begin DoDot:1
+32 WRITE !!?3,"Patch 10 (RA*4.5*10) must be installed before"
+33 WRITE " RADIOLOGY/NUCLEAR",!?3,"MEDICINE v",$PIECE($TEXT(+2),";",3)
+34 WRITE " can be installed!",$CHAR(7)
SET XPDABORT=2
+35 QUIT
End DoDot:1
+36 IF '$$CLEANUP()
Begin DoDot:1
+37 WRITE !!?3,"RADIOLOGY/NUCLEAR MEDICINE CLEANUP v",$PIECE($TEXT(+2),";",3)
+38 WRITE " must be loaded and reside",!?3,"in the transport global before"
+39 WRITE " RADIOLOGY/NUCLEAR MEDICINE v",$PIECE($TEXT(+2),";",3)
+40 WRITE !?3,"can be installed!",!,$CHAR(7)
SET XPDABORT=2
+41 QUIT
End DoDot:1
XIT ; Exit point, kill variables then quit application.
+1 KILL RA787,RAFLG,RAI,RATXT
+2 QUIT
CLEANUP() ; Check if the 'Radiology/Nuclear Medicine Cleanup 5.0'
+1 ; distribution has been loaded and is resident in the transport global.
+2 ; Output: 0 if not loaded -OR- not resident in transport global
+3 ; 1 if ok to proceed (loaded & transport global present)
+4 NEW %,DIC,RASTAT,X,Y
+5 SET X="RADIOLOGY/NUCLEAR MEDICINE CLEANUP "_$PIECE($TEXT(+2),";",3)
+6 ;cleanup missing
SET DIC="^XPD(9.7,"
SET DIC(0)="O"
DO ^DIC
if +Y'>0
QUIT 0
+7 ; status of distribution
SET RASTAT=$$GET1^DIQ(9.7,+Y,.02,"I")
+8 ; status must be 'loaded from distribution'
if RASTAT'=0
QUIT 0
+9 ; missing from transport global
if '$DATA(^XTMP("XPDI",+Y,"BLD"))
QUIT 0
+10 QUIT 1
ERR792 ; Error messages for an incomplete Imaging Type file. Needed are the
+1 ; imaging type abbreviations for those imaging types which will use
+2 ; radiopharmaceuticals.
+3 WRITE !!?3,"The Imaging Type file must have these imaging type"
+4 WRITE !?3,"abbreviations before the package can be updated from"
+5 WRITE !?3,"version 4.5 to 5.0:",!
+6 WRITE !?5,"CARD - Cardiology Studies (Nuc Med)"
+7 WRITE !?5,"NM - Nuclear Medicine"
+8 WRITE !!?3,"Package installation cannot proceed. Contact the Radiology/"
+9 WRITE !?3,"Nuclear Medicine ADPAC for assistance.",$CHAR(7)
+10 QUIT
TEXT ; Check I-Type & abbreviation of file 79.2 against those listed below.
+1 ;;CARDIOLOGY STUDIES (NUC MED);CARD
+2 ;;NUCLEAR MEDICINE;NM
+3 ;;
