BLRVPTCH.m

BLRVPTCH ; IHS/OIT/MKK - LAB VERSION & LATEST PATCH REPORT ; 22-Oct-2013 09:22 ; MKK

 ;;5.2;IHS LABORATORY;**1025,1033**;NOV 01, 1997

 ;

 ; Show latest Lab Patch & Lab Version

 ;

EP ; EP

 NEW HEADER,INSTALLN,INSTLLDT,LABPATCH,LABVER,STATUS

 ;

 S HEADER(1)="IHS LAB Package"

 S HEADER(2)="Current VERSION & PATCH Report"

 ;

 ; D LATEST(.LABPATCH,.INSTALLN)     ; Latest IHS Lab Patch & Install IEN

 ;

 ; S LABVER=$P(LABPATCH,"*",2)                      ; Version Number

 ;

 ; S INSTLLDT=$P($G(^XPD(9.7,INSTALLN,0)),"^",3)    ; Latest Patch Install Date

 ; S INSTLLDT=$$UP^XLFSTR($$FMTE^XLFDT(INSTLLDT,"MP"))

 ;

 D LATEST("LR",.LABPATCH,.INSTLLDT,.LABVER)      ; IHS/MSC/MKK - LR*5.2*1033

 ;

 D HEADERDT^BLRGMENU

 ;

 ; W $$CJ^XLFSTR("Lab Version "_LABVER,IOM)

 W $$CJ^XLFSTR("IHS Lab Version "_LABVER,IOM)    ; IHS/MSC/MKK - LR*5.2*1033

 W !!

 W $$CJ^XLFSTR("Latest IHS Lab Patch: "_LABPATCH,IOM)

 W !!

 W $$CJ^XLFSTR("Latest IHS Lab Patch Install Date/Time: "_INSTLLDT,IOM)

 W !

 ;

 D PRESSKEY^BLRGMENU(0)

 Q

 ;

 ; This is necessary because Kernel DOES NOT return the proper

 ; Install IF there were multiple installs in one day.

 ; LATEST(LABPATCH,INSTALLN) ; EP

 ; NEW LRP,LRPIN,LROKAY

 ;

 ; S LRP="LR*5.2*1000"

 ; S LROKAY=""

 ; F  S LRP=$O(^XPD(9.7,"B",LRP))  Q:LRP=""!($P(LRP,"*",1)'="LR")  D

 ; . S LRPIN=0

 ; . F  S LRPIN=$O(^XPD(9.7,"B",LRP,LRPIN))  Q:LRPIN=""  D

 ; .. I $P($G(^XPD(9.7,LRPIN,0)),"^",9)'=3 Q  ; Complete Status?

 ; .. ;

 ; .. ; I +$P(LRP,"*",3)>+$P($P(LROKAY,"^",1),"*",3) S LROKAY=LRP_"^"_LRPIN

 ;

 ; S LABPATCH=$P(LROKAY,"^",1)

 ; S INSTALLN=$P(LROKAY,"^",2)

 ;

 ; Q

 ; ----- BEGIN IHS/MSC/MKK - LR*5.2*1033

LATEST(WOT,PATCH,INSTLLDT,LABVER) ; EP - Written because Kernel $PATCH does NOT work if multiple installs in one day

 NEW INSTALLN,LRP,LRPIN,LROKAY

 ;

 S LROKAY=$$LABINSTL(WOT)

 ;

 S LABPATCH=$P(LROKAY,"^",1)

 S INSTALLN=$P(LROKAY,"^",2)

 ;

 S INSTLLDT=$P($G(^XPD(9.7,INSTALLN,0)),"^",3)    ; Latest Patch Install Date

 S INSTLLDT=$$UP^XLFSTR($$FMTE^XLFDT(INSTLLDT,"MP"))

 ;

 S LABVER=$P(PATCH,"*",2)                      ; Version Number

 Q

 ;

LABINSTL(LABLTRS) ; EP - Function to return IEN of Patch & IEN of Date/Time of completed install

 S LRP=LABLTRS_"*5.2*1099",LROKAY=""

 F  S LRP=$O(^XPD(9.7,"B",LRP),-1)  Q:LRP=""!($P(LRP,"*",1)'=LABLTRS)!($L(LROKAY))  D

 . S LRPIN="A"

 . F  S LRPIN=$O(^XPD(9.7,"B",LRP,LRPIN),-1)  Q:LRPIN=""!($L(LROKAY))  D

 .. I $P($G(^XPD(9.7,LRPIN,0)),"^",9)'=3 Q  ; Complete Status?

 .. ;

 .. I +$P(LRP,"*",3)'<+$P($P(LROKAY,"^",1),"*",3) S LROKAY=LRP_"^"_LRPIN

 Q LROKAY

 ; ----- END IHS/MSC/MKK - LR*5.2*1033

BLRVPTCH  ; IHS/OIT/MKK - LAB VERSION & LATEST PATCH REPORT ; 22-Oct-2013 09:22 ; MKK

 +1       ;;5.2;IHS LABORATORY;**1025,1033**;NOV 01, 1997

 +2       ;

 +3       ; Show latest Lab Patch & Lab Version

 +4       ;

EP        ; EP

 +1        NEW HEADER,INSTALLN,INSTLLDT,LABPATCH,LABVER,STATUS

 +2       ;

 +3        SET HEADER(1)="IHS LAB Package"

 +4        SET HEADER(2)="Current VERSION & PATCH Report"

 +5       ;

 +6       ; D LATEST(.LABPATCH,.INSTALLN)     ; Latest IHS Lab Patch & Install IEN

 +7       ;

 +8       ; S LABVER=$P(LABPATCH,"*",2)                      ; Version Number

 +9       ;

 +10      ; S INSTLLDT=$P($G(^XPD(9.7,INSTALLN,0)),"^",3)    ; Latest Patch Install Date

 +11      ; S INSTLLDT=$$UP^XLFSTR($$FMTE^XLFDT(INSTLLDT,"MP"))

 +12      ;

 +13      ; IHS/MSC/MKK - LR*5.2*1033

           DO LATEST("LR",.LABPATCH,.INSTLLDT,.LABVER)

 +14      ;

 +15       DO HEADERDT^BLRGMENU

 +16      ;

 +17      ; W $$CJ^XLFSTR("Lab Version "_LABVER,IOM)

 +18      ; IHS/MSC/MKK - LR*5.2*1033

           WRITE $$CJ^XLFSTR("IHS Lab Version "_LABVER,IOM)

 +19       WRITE !!

 +20       WRITE $$CJ^XLFSTR("Latest IHS Lab Patch: "_LABPATCH,IOM)

 +21       WRITE !!

 +22       WRITE $$CJ^XLFSTR("Latest IHS Lab Patch Install Date/Time: "_INSTLLDT,IOM)

 +23       WRITE !

 +24      ;

 +25       DO PRESSKEY^BLRGMENU(0)

 +26       QUIT 

 +27      ;

 +28      ; This is necessary because Kernel DOES NOT return the proper

 +29      ; Install IF there were multiple installs in one day.

 +30      ; LATEST(LABPATCH,INSTALLN) ; EP

 +31      ; NEW LRP,LRPIN,LROKAY

 +32      ;

 +33      ; S LRP="LR*5.2*1000"

 +34      ; S LROKAY=""

 +35      ; F  S LRP=$O(^XPD(9.7,"B",LRP))  Q:LRP=""!($P(LRP,"*",1)'="LR")  D

 +36      ; . S LRPIN=0

 +37      ; . F  S LRPIN=$O(^XPD(9.7,"B",LRP,LRPIN))  Q:LRPIN=""  D

 +38      ; .. I $P($G(^XPD(9.7,LRPIN,0)),"^",9)'=3 Q  ; Complete Status?

 +39      ; .. ;

 +40      ; .. ; I +$P(LRP,"*",3)>+$P($P(LROKAY,"^",1),"*",3) S LROKAY=LRP_"^"_LRPIN

 +41      ;

 +42      ; S LABPATCH=$P(LROKAY,"^",1)

 +43      ; S INSTALLN=$P(LROKAY,"^",2)

 +44      ;

 +45      ; Q

 +46      ; ----- BEGIN IHS/MSC/MKK - LR*5.2*1033

LATEST(WOT,PATCH,INSTLLDT,LABVER) ; EP - Written because Kernel $PATCH does NOT work if multiple installs in one day

 +1        NEW INSTALLN,LRP,LRPIN,LROKAY

 +2       ;

 +3        SET LROKAY=$$LABINSTL(WOT)

 +4       ;

 +5        SET LABPATCH=$PIECE(LROKAY,"^",1)

 +6        SET INSTALLN=$PIECE(LROKAY,"^",2)

 +7       ;

 +8       ; Latest Patch Install Date

           SET INSTLLDT=$PIECE($GET(^XPD(9.7,INSTALLN,0)),"^",3)

 +9        SET INSTLLDT=$$UP^XLFSTR($$FMTE^XLFDT(INSTLLDT,"MP"))

 +10      ;

 +11      ; Version Number

           SET LABVER=$PIECE(PATCH,"*",2)

 +12       QUIT 

 +13      ;

LABINSTL(LABLTRS) ; EP - Function to return IEN of Patch & IEN of Date/Time of completed install

 +1        SET LRP=LABLTRS_"*5.2*1099"

           SET LROKAY=""

 +2        FOR 

               SET LRP=$ORDER(^XPD(9.7,"B",LRP),-1)

               IF LRP=""!($PIECE(LRP,"*",1)'=LABLTRS)!($LENGTH(LROKAY))

                   QUIT 

               Begin DoDot:1

 +3                SET LRPIN="A"

 +4                FOR 

                       SET LRPIN=$ORDER(^XPD(9.7,"B",LRP,LRPIN),-1)

                       IF LRPIN=""!($LENGTH(LROKAY))

                           QUIT 

                       Begin DoDot:2

 +5       ; Complete Status?

                           IF $PIECE($GET(^XPD(9.7,LRPIN,0)),"^",9)'=3

                               QUIT 

 +6       ;

 +7                        IF +$PIECE(LRP,"*",3)'<+$PIECE($PIECE(LROKAY,"^",1),"*",3)

                               SET LROKAY=LRP_"^"_LRPIN

                       End DoDot:2

               End DoDot:1

 +8        QUIT LROKAY

 +9       ; ----- END IHS/MSC/MKK - LR*5.2*1033