RA126PRE.m

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 ---RA126PRE   898     printed  Apr 09, 2024@21:36:08                                                                                                                                                                                                     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