source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RA86PST.m@ 765

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

initial load of FOIAVistA 6/30/08 version

File size: 2.3 KB
Line 
1RA86PST ;Hines OI/GJC - Post-init Driver, patch 86 ;06/26/07 10:44
2VERSION ;;5.0;Radiology/Nuclear Medicine;**86**;Mar 16, 1998;Build 7
3 ;
4 ;Supported IA #10013 reference to ^DIK
5 ;Removed the auditing for Requesting Location Field of file #75.1
6 ;
7 Q
8 ;
9PRE ;entry point for the pre-install logic.
10 S DIK="^DD(75.1,",DA(1)=75.1,DA=22 D ^DIK
11 K DA,DIK
12 Q
13 ;
14EN ; entry point for the post-install logic
15 ; re-compile RA REGISTER input template
16 N X,Y,DMAX K RACTNAM,RADMAX,RAINPERR,RAINPNME S RADMAX=$$ROUSIZE^DILF
17 S RAINPNME="RA REGISTER"
18 S RACTNAM="RACTRG"
19 D FIND^DIC(.402,"","","X",RAINPNME,"","B","","","RAINPARY","")
20 I $P($G(RAINPARY("DILIST",0)),U)=0 S RAINPERR=$$ERROR(RAINPNME,0) Q
21 I $P($G(RAINPARY("DILIST",0)),U)>1 S RAINPERR=$$ERROR(RAINPNME,-1) Q
22 K DMAX,X,Y
23 ;DMAX: maximum routine size
24 ; X: the name of the routine for the compiled input template; i.e. RACTRG
25 ; Y: the IEN of the input template to be compiled
26 S DMAX=RADMAX,X=RACTNAM,Y=$G(RAINPARY("DILIST",2,1))
27 D EN^DIEZ
28 ;
29 K RACTNAM,RADMAX,RAINPARY,RAINPERR,RAINPNME
30 Q
31 ;
32 ; Integration Agreements utilized in this software
33 ;
34 ; tag routine number usage custodian
35 ; --------------------------------------------------
36 ; EN DIEZ 10002 supported VA FileMan
37 ; BMES XPDUTL 10141 supported KERNEL
38 ; FIND DIC 2051 supported VA FileMan
39 ; ROUSIZE DILF 2649 supported VA FileMan
40 ;
41 ; RADMAX=maximum routine size (bytes) for this system
42 ; RACTNAM=compiled input template name (fixed to input template)
43 ; RAINPERR=error flag - default value is zero (no error condition)
44 ; a value of one if: the input template lookup failed or
45 ; expected compiled input template name is not associated
46 ; with the proper input template
47 ; RAINPARY=local array where input template specific data is stored
48 ; RAINPNME=input template name
49 ;
50ERROR(N,Y) ;This function set the error flag & records the error
51 K RATXT
52 S:Y=0 RATXT(1)="'"_N_"' was not found in the INPUT TEMPLATE (#.402) file."
53 I Y=-1 D
54 .S RATXT(1)="Multiple versions of '"_N_"' were found"
55 .S RATXT(2)="in the INPUT TEMPLATE (#.402) file. Fix the"
56 .S RATXT(3)="problem and manually recompile the input template using"
57 .S RATXT(4)="the 'Template Compilation' [RA COMPILE TEMPLATES] option."
58 .Q
59 D BMES^XPDUTL(.RATXT) K RATXT
60 Q 1
Note: See TracBrowser for help on using the repository browser.