RA126PRE ;BP/KAM - Pre-init Driver, patch 126 ; 1/14/16 12:57pm
VERSION ;;5.0;Radiology/Nuclear Medicine;**126**;Mar 16, 1998;Build 4
; Backup 73.2 file during a pre-install process.
Q
PRE ;
I '$D(^XTMP("PRE 2016-UPDATE BACKUP OF 73.2")) D
. N X1,X2,X
. S X1=DT,X2=180 D C^%DTC
. 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"
. D EN^DDIOL("Backing up file 73.2 to ^XTMP.","","!!?1")
. M ^XTMP("PRE 2016-UPDATE BACKUP OF 73.2",73.2)=^RA(73.2)
. D EN^DDIOL("Backup complete","","!!?1")
DIAG ;
; Update Diagnosis Code 1217 from LUNGRADS 5 TO lUNGRADS S
;
S KMCODE="LUNGRADS S: SIGNIFICANT INCIDENTAL FINDING"
K KMFDA S KMFDA(78.3,1217_",",.01)=KMCODE D FILE^DIE("","KMFDA","KMMSG")
I $D(KMMSG) D EN^DDIOL("File 78.3 Error Message - "_KMMSG,"","!!?1")
K KMFDA,KMMSG,KMCODE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRA126PRE 898 printed Dec 13, 2024@02:33:05 Page 2
RA126PRE ;BP/KAM - Pre-init Driver, patch 126 ; 1/14/16 12:57pm
VERSION ;;5.0;Radiology/Nuclear Medicine;**126**;Mar 16, 1998;Build 4
+1 ; Backup 73.2 file during a pre-install process.
+2 QUIT
PRE ;
+1 IF '$DATA(^XTMP("PRE 2016-UPDATE BACKUP OF 73.2"))
Begin DoDot:1
+2 NEW X1,X2,X
+3 SET X1=DT
SET X2=180
DO C^%DTC
+4 SET ^XTMP("PRE 2016-UPDATE BACKUP OF 73.2",0)=$GET(X)_"^"_$GET(DT)_"^"_"Backup of file 73.2 before 2016 update is performed by Patch RA*5*126"
+5 DO EN^DDIOL("Backing up file 73.2 to ^XTMP.","","!!?1")
+6 MERGE ^XTMP("PRE 2016-UPDATE BACKUP OF 73.2",73.2)=^RA(73.2)
+7 DO EN^DDIOL("Backup complete","","!!?1")
End DoDot:1
DIAG ;
+1 ; Update Diagnosis Code 1217 from LUNGRADS 5 TO lUNGRADS S
+2 ;
+3 SET KMCODE="LUNGRADS S: SIGNIFICANT INCIDENTAL FINDING"
+4 KILL KMFDA
SET KMFDA(78.3,1217_",",.01)=KMCODE
DO FILE^DIE("","KMFDA","KMMSG")
+5 IF $DATA(KMMSG)
DO EN^DDIOL("File 78.3 Error Message - "_KMMSG,"","!!?1")
+6 KILL KMFDA,KMMSG,KMCODE
+7 QUIT
