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

RA38PST.m

Go to the documentation of this file.
  1. RA38PST ;HOIFO/SWM-Post install ;6/2/03 10:30
  1. ;;5.0;Radiology/Nuclear Medicine;**38**;Mar 16, 1998
  1. ; This is the post-install routine for patch RA*5.0*38
  1. ; and patch RA*5.0*38 is part of the combined build CSV_PS_1_0.KID
  1. ;
  1. ; This routine may be deleted after CSV_PS_1_0.KID is installed.
  1. ;
  1. ; Silent recompile of input template RA REGISTER
  1. I '$D(XPDNM)#2 D EN^DDIOL("This entry point must be called from the KIDS installation -- Nothing Done.",,"!!,$C(7)") Q
  1. N X,Y,DMAX,RATXT,RAITMPL,RAERR,I,N,RABAD
  1. S DMAX=$$ROUSIZE^DILF
  1. S X="RACTRG" ; compile routine name
  1. S RAITMPL="RA REGISTER" ; input template name
  1. S Y=$$FIND1^DIC(.402,,"BX",RAITMPL,,,"RAERR")
  1. I 'Y D S RABAD=1
  1. . S RATXT(1)=" "
  1. . S RATXT(2)="** Cannot find input template "_RAITMPL_" **"
  1. . S RATXT(6)=" "
  1. . D MES^XPDUTL(.RATXT)
  1. I $D(RAERR) D S RABAD=1
  1. . K RATXT
  1. . S RATXT(1)=" "
  1. . S RATXT(2)="** One or more error codes were return: **"
  1. . S N=2
  1. . S I=0 F I=1:1:17 S I=$O(RAERR("DIERR","E",I)) Q:'I S N=N+1,RATXT(N)=" "_I_" -- "_$G(RAERR("DIERR",1,"TEXT",1))
  1. . S N=N+1,RATXT(N)=" "
  1. . D MES^XPDUTL(.RATXT)
  1. I $D(RABAD) D Q
  1. . K RATXT
  1. . S RATXT(1)="** Recompilation of "_RAITMPL_" is not done. **"
  1. . S RATXT(2)=" "
  1. . S RATXT(3)="** Please log a NOIS for the Radiology module. **"
  1. . S RATXT(4)=" "
  1. . D MES^XPDUTL(.RATXT)
  1. S RATXT=" Compiling input template "_RAITMPL_"."
  1. D BMES^XPDUTL(RATXT)
  1. D EN^DIEZ
  1. S RATXT=" Finished compiling input template "_RAITMPL_"."
  1. D BMES^XPDUTL(RATXT)
  1. Q