RA86PST.m

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

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