source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RA41PST.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.6 KB
Line 
1RA41PST ;HOIFO/SWM-Post install ;6/2/03 10:30
2 ;;5.0;Radiology/Nuclear Medicine;**41**;Mar 16, 1998
3 ; This is the post-install routine for patch RA*5.0*41
4 ;
5 ; This routine may be deleted after RA*5.0*41 is installed.
6 ;
7 ; Silent recompile of input templates:
8 ; RA REGISTER (file 70)
9 ; RA ORDER EXAM (file 75.1)
10 ; RA QUICK EXAM ORDER (file 75.1)
11 ;
12 I '$D(XPDNM)#2 D EN^DDIOL("This entry point must be called from the KIDS installation -- Nothing Done.",,"!!,$C(7)") Q
13 N X,Y,DMAX,RATXT,RAITMPL,RAERR,I,N,RABAD
14 ;
15 ; X=rtn name, RAITMPL=tmpl name
16 ;
17 S X="RACTRG",RAITMPL="RA REGISTER" D COMP
18 S X="RACTQE",RAITMPL="RA QUICK EXAM ORDER" D COMP
19 S X="RACTOE",RAITMPL="RA ORDER EXAM" D COMP
20 Q
21COMP S DMAX=$$ROUSIZE^DILF
22 S Y=$$FIND1^DIC(.402,,"BX",RAITMPL,,,"RAERR")
23 I 'Y D S RABAD=1
24 . S RATXT(1)=" "
25 . S RATXT(2)="** Cannot find input template "_RAITMPL_" **"
26 . S RATXT(6)=" "
27 . D MES^XPDUTL(.RATXT)
28 I $D(RAERR) D S RABAD=1
29 . K RATXT
30 . S RATXT(1)=" "
31 . S RATXT(2)="** One or more error codes were return: **"
32 . S N=2
33 . 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))
34 . S N=N+1,RATXT(N)=" "
35 . D MES^XPDUTL(.RATXT)
36 I $D(RABAD) D Q
37 . K RATXT
38 . S RATXT(1)="** Recompilation of "_RAITMPL_" is not done. **"
39 . S RATXT(2)=" "
40 . S RATXT(3)="** Please log a NOIS for the Radiology module. **"
41 . S RATXT(4)=" "
42 . D MES^XPDUTL(.RATXT)
43 S RATXT=" Compiling input template "_RAITMPL_"."
44 D BMES^XPDUTL(RATXT)
45 D EN^DIEZ
46 S RATXT=" Finished compiling input template "_RAITMPL_"."
47 D BMES^XPDUTL(RATXT)
48 Q
Note: See TracBrowser for help on using the repository browser.