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 ---[H[J[2J[HRA38PST 1537 printed Dec 13, 2024@02:33:16 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
