source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RA75PST.m@ 1008

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

initial load of FOIAVistA 6/30/08 version

File size: 2.3 KB
Line 
1RA75PST ;Hines OI/GJC - Post-init Driver, patch 75 ;01/05/06 06:32
2VERSION ;;5.0;Radiology/Nuclear Medicine;**75**;Mar 16, 1998;Build 4
3 ;
4 Q
5 ;
6EN ; entry point for the post-install logic
7 ; make sure the [RA ORDER EXAM] (RACTOE*) & [RA QUICK EXAM ORDER] (RACTQE*)
8 ; input templates are re-compiled so user workflow is not interrupted.
9 ;
10 ; Integration Agreements utilized in this software
11 ;
12 ; tag routine number usage custodian
13 ; --------------------------------------------------
14 ; EN DIEZ 10002 supported VA FileMan
15 ; BMES XPDUTL 10141 supported KERNEL
16 ; FIND DIC 2051 supported VA FileMan
17 ; ROUSIZE DILF 2649 supported VA FileMan
18 ;
19 ; RADMAX=maximum routine size (bytes) for this system
20 ; RACTNAM=compiled input template name (fixed to input template)
21 ; RAINPERR=error flag - default value is zero (no error condition)
22 ; a value of one if: the input template lookup failed or
23 ; expected compiled input template name is not associated
24 ; with the proper input template
25 ; RAINP751=local array where input template specific data is stored
26 ; RAINPNME=input template name
27 ;
28 N X,Y,DMAX K RACTNAM,RADMAX,RAINPERR,RAINPNME S RADMAX=$$ROUSIZE^DILF
29 F RAINPNME="RA ORDER EXAM","RA QUICK EXAM ORDER" D
30 .K RAINP751 S RAINPERR=0
31 .;
32 .;input template RA ORDER EXAM compiles routines in the namespace: RACTOE*
33 .;input template RA QUICK EXAM ORDER compiles routines in the namespace: RACTQE*
34 .;
35 .S RACTNAM=$S(RAINPNME="RA ORDER EXAM":"RACTOE",1:"RACTQE")
36 .;
37 .D FIND^DIC(.402,"","","O",RAINPNME,"","","","","RAINP751","")
38 .;
39 .;If the input template record is missing quit but check the other input template.
40 .;
41 .I $G(RAINP751("DILIST",2,1))'>0 S RAINPERR=$$ERROR(RAINPNME) Q
42 .;
43 .;compile the input templates...
44 .;
45 .K DMAX,X,Y
46 .;DMAX: maximum routine size
47 .; X: the name of the routine for the compiled input template; i.e. RACTOE
48 .; Y: the IEN of the input template to be compiled
49 .S DMAX=RADMAX,X=RACTNAM,Y=$G(RAINP751("DILIST",2,1))
50 .D EN^DIEZ
51 .Q
52XIT K RACTNAM,RADMAX,RAINP751,RAINPERR,RAINPNME
53 Q
54 ;
55ERROR(N) ;This function set the error flag & records the error
56 K RATXT S RATXT(1)="'"_N_"' was not found in the INPUT TEMPLATE (#.402) file."
57 S RATXT(2)=" " D BMES^XPDUTL(.RATXT) K RATXT
58 Q 1
59 ;
Note: See TracBrowser for help on using the repository browser.