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

RAIP188.m

Go to the documentation of this file.
  1. RAIP188 ;HISC/GRZES - RA5_0P188 pre-install routine; May 25, 2022@11:02:15
  1. ;;5.0;Radiology/Nuclear Medicine;**188**;Mar 16, 1998;Build 2
  1. ;
  1. ; Reference to EN^DIU2 in ICR #10014
  1. ; Reference to MES^XPDUTL in ICR #10141
  1. ;
  1. PRE ;pre-install code to execute
  1. K DIU,RATXT,RAX
  1. S DIU="^RA(73.2,",DIU(0)="DT" D EN^DIU2
  1. S RAX=$O(^RA(73.2,0))
  1. I $D(^RA(73.2,0))=0,(RAX="") D
  1. .S RATXT(1)=" "
  1. .S RATXT(2)="The RADIOLOGY CPT BY PROCEDURE TYPE (#73.2) has been deleted."
  1. .S RATXT(3)="An updated version of file #73.2 will be installed."
  1. .D MES^XPDUTL(.RATXT)
  1. .Q
  1. E D
  1. .S RATXT(1)=" "
  1. .S RATXT(2)="The RADIOLOGY CPT BY PROCEDURE TYPE (#73.2) has not been deleted."
  1. .S RATXT(3)="An updated version of file #73.2 will not be installed."
  1. .S RATXT(4)=" ",RATXT(5)="This build will not continue. Contact the national radiology"
  1. .S RATXT(6)="development team."
  1. .D MES^XPDUTL(.RATXT)
  1. .;stop the build; keep the transport global
  1. .S XPDQUIT=2
  1. .Q
  1. K DIU,RATXT,RAX
  1. Q
  1. ;