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

RA126PRE.m

Go to the documentation of this file.
  1. RA126PRE ;BP/KAM - Pre-init Driver, patch 126 ; 1/14/16 12:57pm
  1. VERSION ;;5.0;Radiology/Nuclear Medicine;**126**;Mar 16, 1998;Build 4
  1. ; Backup 73.2 file during a pre-install process.
  1. Q
  1. PRE ;
  1. I '$D(^XTMP("PRE 2016-UPDATE BACKUP OF 73.2")) D
  1. . N X1,X2,X
  1. . S X1=DT,X2=180 D C^%DTC
  1. . S ^XTMP("PRE 2016-UPDATE BACKUP OF 73.2",0)=$G(X)_"^"_$G(DT)_"^"_"Backup of file 73.2 before 2016 update is performed by Patch RA*5*126"
  1. . D EN^DDIOL("Backing up file 73.2 to ^XTMP.","","!!?1")
  1. . M ^XTMP("PRE 2016-UPDATE BACKUP OF 73.2",73.2)=^RA(73.2)
  1. . D EN^DDIOL("Backup complete","","!!?1")
  1. DIAG ;
  1. ; Update Diagnosis Code 1217 from LUNGRADS 5 TO lUNGRADS S
  1. ;
  1. S KMCODE="LUNGRADS S: SIGNIFICANT INCIDENTAL FINDING"
  1. K KMFDA S KMFDA(78.3,1217_",",.01)=KMCODE D FILE^DIE("","KMFDA","KMMSG")
  1. I $D(KMMSG) D EN^DDIOL("File 78.3 Error Message - "_KMMSG,"","!!?1")
  1. K KMFDA,KMMSG,KMCODE
  1. Q