RA86PST ;Hines OI/GJC - Post-init Driver, patch 86 ;06/26/07 10:44
VERSION ;;5.0;Radiology/Nuclear Medicine;**86**;Mar 16, 1998;Build 7
;
;Supported IA #10013 reference to ^DIK
;Removed the auditing for Requesting Location Field of file #75.1
;
Q
;
PRE ;entry point for the pre-install logic.
S DIK="^DD(75.1,",DA(1)=75.1,DA=22 D ^DIK
K DA,DIK
Q
;
EN ; entry point for the post-install logic
; re-compile RA REGISTER input template
N X,Y,DMAX K RACTNAM,RADMAX,RAINPERR,RAINPNME S RADMAX=$$ROUSIZE^DILF
S RAINPNME="RA REGISTER"
S RACTNAM="RACTRG"
D FIND^DIC(.402,"","","X",RAINPNME,"","B","","","RAINPARY","")
I $P($G(RAINPARY("DILIST",0)),U)=0 S RAINPERR=$$ERROR(RAINPNME,0) Q
I $P($G(RAINPARY("DILIST",0)),U)>1 S RAINPERR=$$ERROR(RAINPNME,-1) Q
K DMAX,X,Y
;DMAX: maximum routine size
; X: the name of the routine for the compiled input template; i.e. RACTRG
; Y: the IEN of the input template to be compiled
S DMAX=RADMAX,X=RACTNAM,Y=$G(RAINPARY("DILIST",2,1))
D EN^DIEZ
;
K RACTNAM,RADMAX,RAINPARY,RAINPERR,RAINPNME
Q
;
; Integration Agreements utilized in this software
;
; tag routine number usage custodian
; --------------------------------------------------
; EN DIEZ 10002 supported VA FileMan
; BMES XPDUTL 10141 supported KERNEL
; FIND DIC 2051 supported VA FileMan
; ROUSIZE DILF 2649 supported VA FileMan
;
; RADMAX=maximum routine size (bytes) for this system
; RACTNAM=compiled input template name (fixed to input template)
; RAINPERR=error flag - default value is zero (no error condition)
; a value of one if: the input template lookup failed or
; expected compiled input template name is not associated
; with the proper input template
; RAINPARY=local array where input template specific data is stored
; RAINPNME=input template name
;
ERROR(N,Y) ;This function set the error flag & records the error
K RATXT
S:Y=0 RATXT(1)="'"_N_"' was not found in the INPUT TEMPLATE (#.402) file."
I Y=-1 D
.S RATXT(1)="Multiple versions of '"_N_"' were found"
.S RATXT(2)="in the INPUT TEMPLATE (#.402) file. Fix the"
.S RATXT(3)="problem and manually recompile the input template using"
.S RATXT(4)="the 'Template Compilation' [RA COMPILE TEMPLATES] option."
.Q
D BMES^XPDUTL(.RATXT) K RATXT
Q 1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRA86PST 2409 printed Nov 22, 2024@17:43:33 Page 2
RA86PST ;Hines OI/GJC - Post-init Driver, patch 86 ;06/26/07 10:44
VERSION ;;5.0;Radiology/Nuclear Medicine;**86**;Mar 16, 1998;Build 7
+1 ;
+2 ;Supported IA #10013 reference to ^DIK
+3 ;Removed the auditing for Requesting Location Field of file #75.1
+4 ;
+5 QUIT
+6 ;
PRE ;entry point for the pre-install logic.
+1 SET DIK="^DD(75.1,"
SET DA(1)=75.1
SET DA=22
DO ^DIK
+2 KILL DA,DIK
+3 QUIT
+4 ;
EN ; entry point for the post-install logic
+1 ; re-compile RA REGISTER input template
+2 NEW X,Y,DMAX
KILL RACTNAM,RADMAX,RAINPERR,RAINPNME
SET RADMAX=$$ROUSIZE^DILF
+3 SET RAINPNME="RA REGISTER"
+4 SET RACTNAM="RACTRG"
+5 DO FIND^DIC(.402,"","","X",RAINPNME,"","B","","","RAINPARY","")
+6 IF $PIECE($GET(RAINPARY("DILIST",0)),U)=0
SET RAINPERR=$$ERROR(RAINPNME,0)
QUIT
+7 IF $PIECE($GET(RAINPARY("DILIST",0)),U)>1
SET RAINPERR=$$ERROR(RAINPNME,-1)
QUIT
+8 KILL DMAX,X,Y
+9 ;DMAX: maximum routine size
+10 ; X: the name of the routine for the compiled input template; i.e. RACTRG
+11 ; Y: the IEN of the input template to be compiled
+12 SET DMAX=RADMAX
SET X=RACTNAM
SET Y=$GET(RAINPARY("DILIST",2,1))
+13 DO EN^DIEZ
+14 ;
+15 KILL RACTNAM,RADMAX,RAINPARY,RAINPERR,RAINPNME
+16 QUIT
+17 ;
+18 ; Integration Agreements utilized in this software
+19 ;
+20 ; tag routine number usage custodian
+21 ; --------------------------------------------------
+22 ; EN DIEZ 10002 supported VA FileMan
+23 ; BMES XPDUTL 10141 supported KERNEL
+24 ; FIND DIC 2051 supported VA FileMan
+25 ; ROUSIZE DILF 2649 supported VA FileMan
+26 ;
+27 ; RADMAX=maximum routine size (bytes) for this system
+28 ; RACTNAM=compiled input template name (fixed to input template)
+29 ; RAINPERR=error flag - default value is zero (no error condition)
+30 ; a value of one if: the input template lookup failed or
+31 ; expected compiled input template name is not associated
+32 ; with the proper input template
+33 ; RAINPARY=local array where input template specific data is stored
+34 ; RAINPNME=input template name
+35 ;
ERROR(N,Y) ;This function set the error flag & records the error
+1 KILL RATXT
+2 if Y=0
SET RATXT(1)="'"_N_"' was not found in the INPUT TEMPLATE (#.402) file."
+3 IF Y=-1
Begin DoDot:1
+4 SET RATXT(1)="Multiple versions of '"_N_"' were found"
+5 SET RATXT(2)="in the INPUT TEMPLATE (#.402) file. Fix the"
+6 SET RATXT(3)="problem and manually recompile the input template using"
+7 SET RATXT(4)="the 'Template Compilation' [RA COMPILE TEMPLATES] option."
+8 QUIT
End DoDot:1
+9 DO BMES^XPDUTL(.RATXT)
KILL RATXT
+10 QUIT 1
