| 1 | RA86PST ;Hines OI/GJC - Post-init Driver, patch 86 ;06/26/07 10:44
|
|---|
| 2 | VERSION ;;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 | ;
|
|---|
| 9 | PRE ;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 | ;
|
|---|
| 14 | EN ; 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 | ;
|
|---|
| 50 | ERROR(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
|
|---|
