RA41PST ;HOIFO/SWM-Post install ;6/2/03 10:30
;;5.0;Radiology/Nuclear Medicine;**41**;Mar 16, 1998
; This is the post-install routine for patch RA*5.0*41
;
; This routine may be deleted after RA*5.0*41 is installed.
;
; Silent recompile of input templates:
; RA REGISTER (file 70)
; RA ORDER EXAM (file 75.1)
; RA QUICK EXAM ORDER (file 75.1)
;
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
;
; X=rtn name, RAITMPL=tmpl name
;
S X="RACTRG",RAITMPL="RA REGISTER" D COMP
S X="RACTQE",RAITMPL="RA QUICK EXAM ORDER" D COMP
S X="RACTOE",RAITMPL="RA ORDER EXAM" D COMP
Q
COMP S DMAX=$$ROUSIZE^DILF
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[HRA41PST 1662 printed Nov 22, 2024@17:43:17 Page 2
RA41PST ;HOIFO/SWM-Post install ;6/2/03 10:30
+1 ;;5.0;Radiology/Nuclear Medicine;**41**;Mar 16, 1998
+2 ; This is the post-install routine for patch RA*5.0*41
+3 ;
+4 ; This routine may be deleted after RA*5.0*41 is installed.
+5 ;
+6 ; Silent recompile of input templates:
+7 ; RA REGISTER (file 70)
+8 ; RA ORDER EXAM (file 75.1)
+9 ; RA QUICK EXAM ORDER (file 75.1)
+10 ;
+11 IF '$DATA(XPDNM)#2
DO EN^DDIOL("This entry point must be called from the KIDS installation -- Nothing Done.",,"!!,$C(7)")
QUIT
+12 NEW X,Y,DMAX,RATXT,RAITMPL,RAERR,I,N,RABAD
+13 ;
+14 ; X=rtn name, RAITMPL=tmpl name
+15 ;
+16 SET X="RACTRG"
SET RAITMPL="RA REGISTER"
DO COMP
+17 SET X="RACTQE"
SET RAITMPL="RA QUICK EXAM ORDER"
DO COMP
+18 SET X="RACTOE"
SET RAITMPL="RA ORDER EXAM"
DO COMP
+19 QUIT
COMP SET DMAX=$$ROUSIZE^DILF
+1 SET Y=$$FIND1^DIC(.402,,"BX",RAITMPL,,,"RAERR")
+2 IF 'Y
Begin DoDot:1
+3 SET RATXT(1)=" "
+4 SET RATXT(2)="** Cannot find input template "_RAITMPL_" **"
+5 SET RATXT(6)=" "
+6 DO MES^XPDUTL(.RATXT)
End DoDot:1
SET RABAD=1
+7 IF $DATA(RAERR)
Begin DoDot:1
+8 KILL RATXT
+9 SET RATXT(1)=" "
+10 SET RATXT(2)="** One or more error codes were return: **"
+11 SET N=2
+12 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))
+13 SET N=N+1
SET RATXT(N)=" "
+14 DO MES^XPDUTL(.RATXT)
End DoDot:1
SET RABAD=1
+15 IF $DATA(RABAD)
Begin DoDot:1
+16 KILL RATXT
+17 SET RATXT(1)="** Recompilation of "_RAITMPL_" is not done. **"
+18 SET RATXT(2)=" "
+19 SET RATXT(3)="** Please log a NOIS for the Radiology module. **"
+20 SET RATXT(4)=" "
+21 DO MES^XPDUTL(.RATXT)
End DoDot:1
QUIT
+22 SET RATXT=" Compiling input template "_RAITMPL_"."
+23 DO BMES^XPDUTL(RATXT)
+24 DO EN^DIEZ
+25 SET RATXT=" Finished compiling input template "_RAITMPL_"."
+26 DO BMES^XPDUTL(RATXT)
+27 QUIT
