- 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 Feb 18, 2025@23:59:32 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