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 ---[H[J[2J[HLR553A 830 printed Sep 23, 2025@19:40:09 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
