RA38PST.m

RA38PST ;HOIFO/SWM-Post install ;6/2/03  10:30

 ;;5.0;Radiology/Nuclear Medicine;**38**;Mar 16, 1998

 ; This is the post-install routine for patch RA*5.0*38

 ; and patch RA*5.0*38 is part of the combined build CSV_PS_1_0.KID

 ;

 ; This routine may be deleted after CSV_PS_1_0.KID is installed.

 ;

 ; Silent recompile of input template RA REGISTER

 I '$D(XPDNM)#2 D EN^DDIOL("This entry point must be called from the KIDS installation -- Nothing Done.",,"!!,$C(7)") Q

 N X,Y,DMAX,RATXT,RAITMPL,RAERR,I,N,RABAD

 S DMAX=$$ROUSIZE^DILF

 S X="RACTRG" ; compile routine name

 S RAITMPL="RA REGISTER" ; input template name

 S Y=$$FIND1^DIC(.402,,"BX",RAITMPL,,,"RAERR")

 I 'Y D  S RABAD=1

 . S RATXT(1)=" "

 . S RATXT(2)="** Cannot find input template "_RAITMPL_" **"

 . S RATXT(6)=" "

 . D MES^XPDUTL(.RATXT)

 I $D(RAERR) D  S RABAD=1

 . K RATXT

 . S RATXT(1)=" "

 . S RATXT(2)="** One or more error codes were return: **"

 . S N=2

 . S I=0 F I=1:1:17 S I=$O(RAERR("DIERR","E",I)) Q:'I  S N=N+1,RATXT(N)="     "_I_" -- "_$G(RAERR("DIERR",1,"TEXT",1))

 . S N=N+1,RATXT(N)=" "

 . D MES^XPDUTL(.RATXT)

 I $D(RABAD) D  Q

 . K RATXT

 . S RATXT(1)="** Recompilation of "_RAITMPL_" is not done. **"

 . S RATXT(2)=" "

 . S RATXT(3)="** Please log a NOIS for the Radiology module. **"

 . S RATXT(4)=" "

 . D MES^XPDUTL(.RATXT)

 S RATXT="          Compiling input template "_RAITMPL_"."

 D BMES^XPDUTL(RATXT)

 D EN^DIEZ

 S RATXT="          Finished compiling input template "_RAITMPL_"."

 D BMES^XPDUTL(RATXT)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RA38PST   1537     printed  Apr 09, 2024@21:42:06                                                                                                                                                                                                     Page 2

RA38PST   ;HOIFO/SWM-Post install ;6/2/03  10:30

 +1       ;;5.0;Radiology/Nuclear Medicine;**38**;Mar 16, 1998

 +2       ; This is the post-install routine for patch RA*5.0*38

 +3       ; and patch RA*5.0*38 is part of the combined build CSV_PS_1_0.KID

 +4       ;

 +5       ; This routine may be deleted after CSV_PS_1_0.KID is installed.

 +6       ;

 +7       ; Silent recompile of input template RA REGISTER

 +8        IF '$DATA(XPDNM)#2

               DO EN^DDIOL("This entry point must be called from the KIDS installation -- Nothing Done.",,"!!,$C(7)")

               QUIT 

 +9        NEW X,Y,DMAX,RATXT,RAITMPL,RAERR,I,N,RABAD

 +10       SET DMAX=$$ROUSIZE^DILF

 +11      ; compile routine name

           SET X="RACTRG"

 +12      ; input template name

           SET RAITMPL="RA REGISTER"

 +13       SET Y=$$FIND1^DIC(.402,,"BX",RAITMPL,,,"RAERR")

 +14       IF 'Y

               Begin DoDot:1

 +15               SET RATXT(1)=" "

 +16               SET RATXT(2)="** Cannot find input template "_RAITMPL_" **"

 +17               SET RATXT(6)=" "

 +18               DO MES^XPDUTL(.RATXT)

               End DoDot:1

               SET RABAD=1

 +19       IF $DATA(RAERR)

               Begin DoDot:1

 +20               KILL RATXT

 +21               SET RATXT(1)=" "

 +22               SET RATXT(2)="** One or more error codes were return: **"

 +23               SET N=2

 +24               SET I=0

                   FOR I=1:1:17

                       SET I=$ORDER(RAERR("DIERR","E",I))

                       if 'I

                           QUIT 

                       SET N=N+1

                       SET RATXT(N)="     "_I_" -- "_$GET(RAERR("DIERR",1,"TEXT",1))

 +25               SET N=N+1

                   SET RATXT(N)=" "

 +26               DO MES^XPDUTL(.RATXT)

               End DoDot:1

               SET RABAD=1

 +27       IF $DATA(RABAD)

               Begin DoDot:1

 +28               KILL RATXT

 +29               SET RATXT(1)="** Recompilation of "_RAITMPL_" is not done. **"

 +30               SET RATXT(2)=" "

 +31               SET RATXT(3)="** Please log a NOIS for the Radiology module. **"

 +32               SET RATXT(4)=" "

 +33               DO MES^XPDUTL(.RATXT)

               End DoDot:1

               QUIT 

 +34       SET RATXT="          Compiling input template "_RAITMPL_"."

 +35       DO BMES^XPDUTL(RATXT)

 +36       DO EN^DIEZ

 +37       SET RATXT="          Finished compiling input template "_RAITMPL_"."

 +38       DO BMES^XPDUTL(RATXT)

 +39       QUIT