RA47PST.m

RA47PST ;Hines OI/GJC - Post-init Driver, patch 47 ;04/17/07  11:30

 ;;5.0;Radiology/Nuclear Medicine;**47**;Mar 16, 1998;Build 21

 ;

VERSION Q

 ;

EN ; entry point for the post-install logic

 ; make sure the [RA REGISTER] (RACTRG*) input template is

 ; re-compiled so user workflow is not interrupted.

 ;

 ; 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

 ; RAINP70=local array where input template specific data is stored

 ; RAINPNME=name on the input template to be compiled RA REGISTER

 ;

 N X,Y,DMAX S RADMAX=$$ROUSIZE^DILF

 ;

 ;input template RA REGISTER compiles routines in the namespace: RACTRG*

 ;

 S RACTNAM="RACTRG",RAINPNME="RA REGISTER"

 ;

 D FIND^DIC(.402,"","","O",RAINPNME,"","","","","RAINP70","")

 ;

 ;If the input template record is missing quit but check the other input

 ;template.

 ;

 I $G(RAINP70("DILIST",2,1))'>0 S RAINPERR=$$ERROR(RAINPNME) D XIT Q

 ;

 ;compile the input templates...

 ;

 ;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(RAINP70("DILIST",2,1))

 D EN^DIEZ

 ;

XIT ;clean up symbol table and exit

 K RACTNAM,RADMAX,RAINP70,RAINPERR,RAINPNME

 Q

 ;

ERROR(N) ;This function set the error flag & records the error

 K RATXT S RATXT(1)="'"_N_"' was not found in the INPUT TEMPLATE (#.402) file."

 S RATXT(2)=" " D BMES^XPDUTL(.RATXT) K RATXT

 Q 1

 ;

RA47PST   ;Hines OI/GJC - Post-init Driver, patch 47 ;04/17/07  11:30

 +1       ;;5.0;Radiology/Nuclear Medicine;**47**;Mar 16, 1998;Build 21

 +2       ;

VERSION    QUIT 

 +1       ;

EN        ; entry point for the post-install logic

 +1       ; make sure the [RA REGISTER] (RACTRG*) input template is

 +2       ; re-compiled so user workflow is not interrupted.

 +3       ;

 +4       ; Integration Agreements utilized in this software

 +5       ; 

 +6       ; tag     routine  number   usage      custodian

 +7       ; --------------------------------------------------

 +8       ; EN      DIEZ     10002    supported  VA FileMan

 +9       ; BMES    XPDUTL   10141    supported  KERNEL

 +10      ; FIND    DIC      2051     supported  VA FileMan

 +11      ; ROUSIZE DILF     2649     supported  VA FileMan

 +12      ;

 +13      ;   RADMAX=maximum routine size (bytes) for this system

 +14      ;  RACTNAM=compiled input template name (fixed to input template)

 +15      ; RAINPERR=error flag - default value is zero (no error condition)

 +16      ;          a value of one if: the input template lookup failed or

 +17      ;          expected compiled input template name is not associated

 +18      ;          with the proper input template

 +19      ; RAINP70=local array where input template specific data is stored

 +20      ; RAINPNME=name on the input template to be compiled RA REGISTER

 +21      ;

 +22       NEW X,Y,DMAX

           SET RADMAX=$$ROUSIZE^DILF

 +23      ;

 +24      ;input template RA REGISTER compiles routines in the namespace: RACTRG*

 +25      ;

 +26       SET RACTNAM="RACTRG"

           SET RAINPNME="RA REGISTER"

 +27      ;

 +28       DO FIND^DIC(.402,"","","O",RAINPNME,"","","","","RAINP70","")

 +29      ;

 +30      ;If the input template record is missing quit but check the other input

 +31      ;template.

 +32      ;

 +33       IF $GET(RAINP70("DILIST",2,1))'>0

               SET RAINPERR=$$ERROR(RAINPNME)

               DO XIT

               QUIT 

 +34      ;

 +35      ;compile the input templates...

 +36      ;

 +37      ;DMAX: maximum routine size

 +38      ;   X: the name of the routine for the compiled input template; i.e.

 +39      ;      RACTRG

 +40      ;   Y: the IEN of the input template to be compiled

 +41       SET DMAX=RADMAX

           SET X=RACTNAM

           SET Y=$GET(RAINP70("DILIST",2,1))

 +42       DO EN^DIEZ

 +43      ;

XIT       ;clean up symbol table and exit

 +1        KILL RACTNAM,RADMAX,RAINP70,RAINPERR,RAINPNME

 +2        QUIT 

 +3       ;

ERROR(N)  ;This function set the error flag & records the error

 +1        KILL RATXT

           SET RATXT(1)="'"_N_"' was not found in the INPUT TEMPLATE (#.402) file."

 +2        SET RATXT(2)=" "

           DO BMES^XPDUTL(.RATXT)

           KILL RATXT

 +3        QUIT 1

 +4       ;