PXVE206.m

PXVE206 ;BPOIFO/CLR - ENVIRONMENT CHECK ;04/22/2015

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**206**;Aug 12, 1996;Build 50

 ;Patch cannot be re-installed without assistance if STS seeding and deployment have commenced

 I $$STATUS() D  Q 

  . D BMES^XPDUTL("Patch cannot be re-installed without assistance from Product Support - INSTALLATION ABORTED")

  . S XPDQUIT=1

 Q

 ;

STATUS() ;checks STS status of files

 ; Return  0  if OK to re-install patch

 ;         1  if NOT OK to re-install

 N PXVFF,PXVSTOP,PXV920

 S PXVSTOP=0

 F PXVFF=920,920.1,920.2,920.3,920.4,920.5,9999999.04,9999999.28,9999999.14 D

 . S PXVSTOP=$S(PXVSTOP:1,+$$GETSTAT^HDISVF01(PXVFF)=0:0,1:1)

 Q PXVSTOP

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXVE206   685     printed  Apr 09, 2024@21:31:15                                                                                                                                                                                                      Page 2

PXVE206   ;BPOIFO/CLR - ENVIRONMENT CHECK ;04/22/2015

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**206**;Aug 12, 1996;Build 50

 +2       ;Patch cannot be re-installed without assistance if STS seeding and deployment have commenced

 +3        IF $$STATUS()

               Begin DoDot:1

 +4                DO BMES^XPDUTL("Patch cannot be re-installed without assistance from Product Support - INSTALLATION ABORTED")

 +5                SET XPDQUIT=1

               End DoDot:1

               QUIT 

 +6        QUIT 

 +7       ;

STATUS()  ;checks STS status of files

 +1       ; Return  0  if OK to re-install patch

 +2       ;         1  if NOT OK to re-install

 +3        NEW PXVFF,PXVSTOP,PXV920

 +4        SET PXVSTOP=0

 +5        FOR PXVFF=920,920.1,920.2,920.3,920.4,920.5,9999999.04,9999999.28,9999999.14

               Begin DoDot:1

 +6                SET PXVSTOP=$SELECT(PXVSTOP:1,+$$GETSTAT^HDISVF01(PXVFF)=0:0,1:1)

               End DoDot:1

 +7        QUIT PXVSTOP