LR553A.m

LR553A ;SLC/JNM - LAB ANATOMIC PATHOLOGY UPDATE ;Mar 01, 2022@13:19:07

 ;;5.2;LAB SERVICE;**553**;Feb 14, 1996;Build 21

 ;

 Q

 ;

 ;

PRE ; Pre Install of LR*5.2*553

 ;

 N DIU

 ;

 ;Backup Data in 69.73

 I '$D(^XTMP("LR*5.2*553","BACKUP")) D

 . D BMES("Backing up file 69.73 to ^XTMP.")

 . M ^XTMP("LR*5.2*553","BACKUP")=^LAB(69.73)

 S ^XTMP("LR*5.2*553",0)=$$FMADD^XLFDT(DT,180)_U_DT_U_"Backup of File 69.73"

 ;

 ; delete file 69.73 (including data and templates)

 D BMES("Deleting file 69.73.")

 S DIU="^LAB(69.73,"

 S DIU(0)="DT"

 D EN^DIU2

 ;

 Q

 ;

RESTORE ; Restore File 69.73 from backup

 I $D(^XTMP("LR*5.2*553","BACKUP")) D

 . K ^LAB(69.73)

 . M ^LAB(69.73)=^XTMP("LR*5.2*553","BACKUP")

 Q

 ;

BMES(STR) ;

 ; Write string

 D BMES^XPDUTL($$TRIM^XLFSTR($$CJ^XLFSTR(STR,$G(IOM,80)),"R"," "))

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LR553A   830     printed  Feb 18, 2025@23:30:22                                                                                                                                                                                                       Page 2

LR553A    ;SLC/JNM - LAB ANATOMIC PATHOLOGY UPDATE ;Mar 01, 2022@13:19:07

 +1       ;;5.2;LAB SERVICE;**553**;Feb 14, 1996;Build 21

 +2       ;

 +3        QUIT 

 +4       ;

 +5       ;

PRE       ; Pre Install of LR*5.2*553

 +1       ;

 +2        NEW DIU

 +3       ;

 +4       ;Backup Data in 69.73

 +5        IF '$DATA(^XTMP("LR*5.2*553","BACKUP"))

               Begin DoDot:1

 +6                DO BMES("Backing up file 69.73 to ^XTMP.")

 +7                MERGE ^XTMP("LR*5.2*553","BACKUP")=^LAB(69.73)

               End DoDot:1

 +8        SET ^XTMP("LR*5.2*553",0)=$$FMADD^XLFDT(DT,180)_U_DT_U_"Backup of File 69.73"

 +9       ;

 +10      ; delete file 69.73 (including data and templates)

 +11       DO BMES("Deleting file 69.73.")

 +12       SET DIU="^LAB(69.73,"

 +13       SET DIU(0)="DT"

 +14       DO EN^DIU2

 +15      ;

 +16       QUIT 

 +17      ;

RESTORE   ; Restore File 69.73 from backup

 +1        IF $DATA(^XTMP("LR*5.2*553","BACKUP"))

               Begin DoDot:1

 +2                KILL ^LAB(69.73)

 +3                MERGE ^LAB(69.73)=^XTMP("LR*5.2*553","BACKUP")

               End DoDot:1

 +4        QUIT 

 +5       ;

BMES(STR) ;

 +1       ; Write string

 +2        DO BMES^XPDUTL($$TRIM^XLFSTR($$CJ^XLFSTR(STR,$GET(IOM,80)),"R"," "))

 +3        QUIT