LR495PO.m

LR495PO ;BPFO/DTG - POST INSTALL ROUTINE FOR PATCH LR*5.2*495 ;09/18/2017

 ;;5.2;LAB SERVICE;**495**;Sep 27, 1994;Build 6

 ;

 ;post install routine to save a copy of 61, 61.2, 62, 95.4 in ^XTEMP

 ;

 ;

EN ; entry for data save

 S U="^" I $G(DT)="" S DT=$$DT^XLFDT

 N WB,LRX,LRXNM,LRDTA,LRMSG

 S WB=$$SITE^VASITE,WB=$P(WB,U,1)

 S LRXNM="LR SAVE OF 61,61.2,62,95.4",LRX=0

 S LRDTA=$G(^XTMP(LRXNM,0)) S:LRDTA="" $P(LRDTA,U,3)="Save of file 61,61.2,62 and 95.4 for patch LR*5.2*495"

 S $P(LRDTA,U,1)=$$FMADD^XLFDT(DT,365),$P(LRDTA,U,2)=$$NOW^XLFDT(),^XTMP(LRXNM,0)=LRDTA

 S LRX=$G(^XTMP(LRXNM,"D",0)),LRX=LRX+1,^XTMP(LRXNM,"D",0)=LRX

 ;save 61

 M ^XTMP(LRXNM,"D",LRX,"61")=^LAB(61)

 ;save 61.2

 M ^XTMP(LRXNM,"D",LRX,"61.2")=^LAB(61.2)

 ;save 62

 M ^XTMP(LRXNM,"D",LRX,"62")=^LAB(62)

 ;save 95.4

 M ^XTMP(LRXNM,"D",LRX,"95.4")=^LAHM(95.4)

 ;

PSTDONE ; display FINISHED message

 K LRMSG

 S LRMSG(1)=""

 S LRMSG(2)=""

 S LRMSG(3)="***** Post-installation of Patch LR*5.2*495 has completed successfully. *****"

 S LRMSG(4)=""

 D MES^XPDUTL(.LRMSG)

 ;

 K WB,LRX,LRXNM,LRDTA,LRMSG

 ;

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LR495PO   1115     printed  Apr 09, 2024@21:20:50                                                                                                                                                                                                     Page 2

LR495PO   ;BPFO/DTG - POST INSTALL ROUTINE FOR PATCH LR*5.2*495 ;09/18/2017

 +1       ;;5.2;LAB SERVICE;**495**;Sep 27, 1994;Build 6

 +2       ;

 +3       ;post install routine to save a copy of 61, 61.2, 62, 95.4 in ^XTEMP

 +4       ;

 +5       ;

EN        ; entry for data save

 +1        SET U="^"

           IF $GET(DT)=""

               SET DT=$$DT^XLFDT

 +2        NEW WB,LRX,LRXNM,LRDTA,LRMSG

 +3        SET WB=$$SITE^VASITE

           SET WB=$PIECE(WB,U,1)

 +4        SET LRXNM="LR SAVE OF 61,61.2,62,95.4"

           SET LRX=0

 +5        SET LRDTA=$GET(^XTMP(LRXNM,0))

           if LRDTA=""

               SET $PIECE(LRDTA,U,3)="Save of file 61,61.2,62 and 95.4 for patch LR*5.2*495"

 +6        SET $PIECE(LRDTA,U,1)=$$FMADD^XLFDT(DT,365)

           SET $PIECE(LRDTA,U,2)=$$NOW^XLFDT()

           SET ^XTMP(LRXNM,0)=LRDTA

 +7        SET LRX=$GET(^XTMP(LRXNM,"D",0))

           SET LRX=LRX+1

           SET ^XTMP(LRXNM,"D",0)=LRX

 +8       ;save 61

 +9        MERGE ^XTMP(LRXNM,"D",LRX,"61")=^LAB(61)

 +10      ;save 61.2

 +11       MERGE ^XTMP(LRXNM,"D",LRX,"61.2")=^LAB(61.2)

 +12      ;save 62

 +13       MERGE ^XTMP(LRXNM,"D",LRX,"62")=^LAB(62)

 +14      ;save 95.4

 +15       MERGE ^XTMP(LRXNM,"D",LRX,"95.4")=^LAHM(95.4)

 +16      ;

PSTDONE   ; display FINISHED message

 +1        KILL LRMSG

 +2        SET LRMSG(1)=""

 +3        SET LRMSG(2)=""

 +4        SET LRMSG(3)="***** Post-installation of Patch LR*5.2*495 has completed successfully. *****"

 +5        SET LRMSG(4)=""

 +6        DO MES^XPDUTL(.LRMSG)

 +7       ;

 +8        KILL WB,LRX,LRXNM,LRDTA,LRMSG

 +9       ;

 +10       QUIT 

 +11      ;