Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RA47PST

RA47PST.m

Go to the documentation of this file. 
  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
  1.  ;
  1. VERSION Q
  1.  ;
  1. EN ; entry point for the post-install logic
  1.  ; make sure the [RA REGISTER] (RACTRG*) input template is
  1.  ; re-compiled so user workflow is not interrupted.
  1.  ;
  1.  ; Integration Agreements utilized in this software
  1.  ; 
  1.  ; tag     routine  number   usage      custodian
  1.  ; --------------------------------------------------
  1.  ; EN      DIEZ     10002    supported  VA FileMan
  1.  ; BMES    XPDUTL   10141    supported  KERNEL
  1.  ; FIND    DIC      2051     supported  VA FileMan
  1.  ; ROUSIZE DILF     2649     supported  VA FileMan
  1.  ;
  1.  ;   RADMAX=maximum routine size (bytes) for this system
  1.  ;  RACTNAM=compiled input template name (fixed to input template)
  1.  ; RAINPERR=error flag - default value is zero (no error condition)
  1.  ;          a value of one if: the input template lookup failed or
  1.  ;          expected compiled input template name is not associated
  1.  ;          with the proper input template
  1.  ; RAINP70=local array where input template specific data is stored
  1.  ; RAINPNME=name on the input template to be compiled RA REGISTER
  1.  ;
  1.  N X,Y,DMAX S RADMAX=$$ROUSIZE^DILF
  1.  ;
  1.  ;input template RA REGISTER compiles routines in the namespace: RACTRG*
  1.  ;
  1.  S RACTNAM="RACTRG",RAINPNME="RA REGISTER"
  1.  ;
  1.  D FIND^DIC(.402,"","","O",RAINPNME,"","","","","RAINP70","")
  1.  ;
  1.  ;If the input template record is missing quit but check the other input
  1.  ;template.
  1.  ;
  1.  I $G(RAINP70("DILIST",2,1))'>0 S RAINPERR=$$ERROR(RAINPNME) D XIT Q
  1.  ;
  1.  ;compile the input templates...
  1.  ;
  1.  ;DMAX: maximum routine size
  1.  ;   X: the name of the routine for the compiled input template; i.e.
  1.  ;      RACTRG
  1.  ;   Y: the IEN of the input template to be compiled
  1.  S DMAX=RADMAX,X=RACTNAM,Y=$G(RAINP70("DILIST",2,1))
  1.  D EN^DIEZ
  1.  ;
  1. XIT ;clean up symbol table and exit
  1.  K RACTNAM,RADMAX,RAINP70,RAINPERR,RAINPNME
  1.  Q
  1.  ;
  1. ERROR(N) ;This function set the error flag & records the error
  1.  K RATXT S RATXT(1)="'"_N_"' was not found in the INPUT TEMPLATE (#.402) file."
  1.  S RATXT(2)=" " D BMES^XPDUTL(.RATXT) K RATXT
  1.  Q 1
  1.  ;