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

LR334P.m

Go to the documentation of this file.
  1. LR334P ;DALOI/FHS - LR*5.2*334 POST INSTALL ROUTINE;31-AUG-2001
  1. ;;5.2;LAB SERVICE;**334**;Sep 27, 1994;Build 12
  1. ;Resolve preinstall data saved in XTMP("LR334",FILE#,IEN,FIELD)=Free Text -
  1. EN ;
  1. Q:'$D(XPDNM)
  1. DD ;Purge .001 from installed files
  1. F LRDA=64.2,64.3,64.061,64.062,95.3,95.31 D
  1. . N DA,DIK
  1. . S DA(1)=LRDA,DA=.001,DIK="^DD("_LRDA_","
  1. . D ^DIK
  1. N LRGLB,LRFDA,LRDATA
  1. I '$G(^XTMP("LR334",1,0)) D Q
  1. . D BMES^LR334("ERROR CONDITION - Preinstall historical data maybe incomplete.")
  1. . D BMES^LR334("Post-Install repointing process aborted.")
  1. S LRGLB="^XTMP(""LR334"",2)",LRCNT=0,LRFILE=""
  1. K LRFDA
  1. LOOP ;Loop through historical data and restore file
  1. F S LRGLB=$Q(@LRGLB) Q:$QS(LRGLB,1)'="LR334" Q:'$QS(LRGLB,2) D
  1. . I $G(LRFILE)'=$QS(LRGLB,2) D
  1. . . S LRFILE=$QS(LRGLB,2) D BMES^LR334("Processing data for File/Subfile #"_LRFILE)
  1. . S LRIEN=$QS(LRGLB,3),LRFLD=$QS(LRGLB,4),LRDATA=@LRGLB,LRCNT=$G(LRCNT)+1
  1. . Q:$S('$G(LRIEN):1,'LRFLD:1,'$L(LRDATA):1,1:0)
  1. . I LRFILE=64.2 D
  1. . . N LR642,ERR
  1. . . S LR642=$G(^XTMP("LR334",LRFILE,LRIEN,1))
  1. . . S LRIEN=$$FIND1^DIC(LRFILE,"","XO",LR642_" ","C","","ERR")
  1. . . I '$G(LRIEN) K LRIEN Q
  1. . . S LRIEN=LRIEN_","
  1. . Q:'$G(LRIEN)
  1. . I LRFILE=64.2,LRFLD=1 Q
  1. . S LRFDA(LRCNT,LRFILE,LRIEN,LRFLD)=LRDATA
  1. . I LRCNT#200=0 W "."
  1. . I $G(LRDBUG)=2 W "LRFDA("_LRCNT_","_LRFILE_","_LRIEN_","_LRFLD_") = "_@LRGLB,! Q
  1. . K LRERR
  1. . D FILE^DIE("KSE","LRFDA("_LRCNT_")","LRERR")
  1. . I $D(LRERR) D ERR Q
  1. . K LRFDA(LRCNT)
  1. . I '$G(LRDBUG) K ^XTMP("LR334",LRFILE,LRIEN,LRFLD)
  1. . S $P(^XTMP("LR334",1,0),U,3)=LRCNT
  1. . S ^XTMP("LR334",1,LRFILE)=LRIEN
  1. D BMES^LR334("Historical data restored")
  1. D
  1. . N LRIEN
  1. . S LRIEN="" F S LRIEN=$O(^XTMP("LR334",64.2,LRIEN)) Q:LRIEN="" D
  1. . . Q:$O(^XTMP("LR334",64.2,LRIEN,1))
  1. . . K ^XTMP("LR334",64.2,LRIEN)
  1. D MESLMI
  1. Q
  1. ERR ;Record data update error
  1. W !,"ERROR" S ^XTMP("LR334","LRERR",LRCNT)=LRFILE_U_LRIEN_U_LRFLD_U_LRDATA
  1. K LRFDA(LRCNT)
  1. Q
  1. MESLMI ; Notify LIM patch is installed.
  1. N XQA,XQAMSG
  1. D BMES^LR334("Sending install completion alert to mail group G.LMI")
  1. ;
  1. S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")_" completed on "_$$HTE^XLFDT($H)
  1. S XQA("G.LMI")=""
  1. D SETUP^XQALERT
  1. ;
  1. S XQAMSG="LIM: Review description for "_$G(XPDNM,"Unknown patch")_" use KIDS:Utilities:Build File Print"
  1. S XQA("G.LMI")=""
  1. D SETUP^XQALERT
  1. Q