RAIPR215 ;WOIFO/KLM - Pre-Install; May 20, 2024@14:27:34
;;5.0;Radiology/Nuclear Medicine;**215**;Mar 16, 1998;Build 2
;
; Reference to EN^DIU2 in ICR #10014
; Reference to MES^XPDUTL in ICR #10141
;
PRE ;pre-install code to execute
K DIU,RATXT,RAX
S DIU="^RA(73.2,",DIU(0)="DT" D EN^DIU2
S RAX=$O(^RA(73.2,0))
I $D(^RA(73.2,0))=0,(RAX="") D
.S RATXT(1)=" "
.S RATXT(2)="The RADIOLOGY CPT BY PROCEDURE TYPE (#73.2) has been deleted."
.S RATXT(3)="An updated version of file #73.2 will be installed."
.D MES^XPDUTL(.RATXT)
.Q
E D
.S RATXT(1)=" "
.S RATXT(2)="The RADIOLOGY CPT BY PROCEDURE TYPE (#73.2) has not been deleted."
.S RATXT(3)="An updated version of file #73.2 will not be installed."
.S RATXT(4)=" ",RATXT(5)="This build will not continue. Contact the national radiology"
.S RATXT(6)="development team."
.D MES^XPDUTL(.RATXT)
.;stop the build; keep the transport global
.S XPDQUIT=2
.Q
K DIU,RATXT,RAX
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAIPR215 974 printed Dec 13, 2024@02:35:55 Page 2
RAIPR215 ;WOIFO/KLM - Pre-Install; May 20, 2024@14:27:34
+1 ;;5.0;Radiology/Nuclear Medicine;**215**;Mar 16, 1998;Build 2
+2 ;
+3 ; Reference to EN^DIU2 in ICR #10014
+4 ; Reference to MES^XPDUTL in ICR #10141
+5 ;
PRE ;pre-install code to execute
+1 KILL DIU,RATXT,RAX
+2 SET DIU="^RA(73.2,"
SET DIU(0)="DT"
DO EN^DIU2
+3 SET RAX=$ORDER(^RA(73.2,0))
+4 IF $DATA(^RA(73.2,0))=0
IF (RAX="")
Begin DoDot:1
+5 SET RATXT(1)=" "
+6 SET RATXT(2)="The RADIOLOGY CPT BY PROCEDURE TYPE (#73.2) has been deleted."
+7 SET RATXT(3)="An updated version of file #73.2 will be installed."
+8 DO MES^XPDUTL(.RATXT)
+9 QUIT
End DoDot:1
+10 IF '$TEST
Begin DoDot:1
+11 SET RATXT(1)=" "
+12 SET RATXT(2)="The RADIOLOGY CPT BY PROCEDURE TYPE (#73.2) has not been deleted."
+13 SET RATXT(3)="An updated version of file #73.2 will not be installed."
+14 SET RATXT(4)=" "
SET RATXT(5)="This build will not continue. Contact the national radiology"
+15 SET RATXT(6)="development team."
+16 DO MES^XPDUTL(.RATXT)
+17 ;stop the build; keep the transport global
+18 SET XPDQUIT=2
+19 QUIT
End DoDot:1
+20 KILL DIU,RATXT,RAX
+21 QUIT
+22 ;
