| 1 | RA75PST ;Hines OI/GJC - Post-init Driver, patch 75 ;01/05/06 06:32
|
|---|
| 2 | VERSION ;;5.0;Radiology/Nuclear Medicine;**75**;Mar 16, 1998;Build 4
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | EN ; 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
|
|---|
| 52 | XIT K RACTNAM,RADMAX,RAINP751,RAINPERR,RAINPNME
|
|---|
| 53 | Q
|
|---|
| 54 | ;
|
|---|
| 55 | ERROR(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 | ;
|
|---|
