RAIP188.m

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 ---RAIP188   992     printed  Apr 09, 2024@21:40:45                                                                                                                                                                                                      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      ;