source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RA38PST.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.5 KB
Line 
1RA38PST ;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
Note: See TracBrowser for help on using the repository browser.