49 lines
1.6 KiB
Mathematica
49 lines
1.6 KiB
Mathematica
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
|