- RAIP188 ;HISC/GRZES - RA5_0P188 pre-install routine; May 25, 2022@11:02:15
- ;;5.0;Radiology/Nuclear Medicine;**188**;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[HRAIP188 992 printed Jan 18, 2025@03:36:46 Page 2
- RAIP188 ;HISC/GRZES - RA5_0P188 pre-install routine; May 25, 2022@11:02:15
- +1 ;;5.0;Radiology/Nuclear Medicine;**188**;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 ;