| 1 | RA38PST ;HOIFO/SWM-Post install ;6/2/03 10:30
|
|---|
| 2 | ;;5.0;Radiology/Nuclear Medicine;**38**;Mar 16, 1998
|
|---|
| 3 | ; This is the post-install routine for patch RA*5.0*38
|
|---|
| 4 | ; and patch RA*5.0*38 is part of the combined build CSV_PS_1_0.KID
|
|---|
| 5 | ;
|
|---|
| 6 | ; This routine may be deleted after CSV_PS_1_0.KID is installed.
|
|---|
| 7 | ;
|
|---|
| 8 | ; Silent recompile of input template RA REGISTER
|
|---|
| 9 | I '$D(XPDNM)#2 D EN^DDIOL("This entry point must be called from the KIDS installation -- Nothing Done.",,"!!,$C(7)") Q
|
|---|
| 10 | N X,Y,DMAX,RATXT,RAITMPL,RAERR,I,N,RABAD
|
|---|
| 11 | S DMAX=$$ROUSIZE^DILF
|
|---|
| 12 | S X="RACTRG" ; compile routine name
|
|---|
| 13 | S RAITMPL="RA REGISTER" ; input template name
|
|---|
| 14 | S Y=$$FIND1^DIC(.402,,"BX",RAITMPL,,,"RAERR")
|
|---|
| 15 | I 'Y D S RABAD=1
|
|---|
| 16 | . S RATXT(1)=" "
|
|---|
| 17 | . S RATXT(2)="** Cannot find input template "_RAITMPL_" **"
|
|---|
| 18 | . S RATXT(6)=" "
|
|---|
| 19 | . D MES^XPDUTL(.RATXT)
|
|---|
| 20 | I $D(RAERR) D S RABAD=1
|
|---|
| 21 | . K RATXT
|
|---|
| 22 | . S RATXT(1)=" "
|
|---|
| 23 | . S RATXT(2)="** One or more error codes were return: **"
|
|---|
| 24 | . S N=2
|
|---|
| 25 | . 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))
|
|---|
| 26 | . S N=N+1,RATXT(N)=" "
|
|---|
| 27 | . D MES^XPDUTL(.RATXT)
|
|---|
| 28 | I $D(RABAD) D Q
|
|---|
| 29 | . K RATXT
|
|---|
| 30 | . S RATXT(1)="** Recompilation of "_RAITMPL_" is not done. **"
|
|---|
| 31 | . S RATXT(2)=" "
|
|---|
| 32 | . S RATXT(3)="** Please log a NOIS for the Radiology module. **"
|
|---|
| 33 | . S RATXT(4)=" "
|
|---|
| 34 | . D MES^XPDUTL(.RATXT)
|
|---|
| 35 | S RATXT=" Compiling input template "_RAITMPL_"."
|
|---|
| 36 | D BMES^XPDUTL(RATXT)
|
|---|
| 37 | D EN^DIEZ
|
|---|
| 38 | S RATXT=" Finished compiling input template "_RAITMPL_"."
|
|---|
| 39 | D BMES^XPDUTL(RATXT)
|
|---|
| 40 | Q
|
|---|
