PSSEC119.m

PSSEC119 ;RJS-Environment check routine for PSS*1*119 ; 05/30/07

 ;;1.0;PHARMACY DATA MANAGEMENT;**119**;9/30/97;Build 9

 N PSSFL1,PSSFL2

 S PSSFL1="",PSSFL2=""

 I $O(^PSX(550,"C",0))!(^XMB("NETNAME")?1"CMOP-".E) W !!,?10,"Consolidated Mail Outpatient Pharmacy Install.",!! S XPDQUIT=1 Q

 ; Not a CMOP site.  Check for required patches.

 ; Required patches are PSJ*5.0*194 and PSO*7.0*282

 I '$$PATCH^XPDUTL("PSJ*5.0*194") S PSSFL1=1 ; Required patch

 I '$$PATCH^XPDUTL("PSO*7.0*282") S PSSFL2=1 ; Required patch

 I PSSFL1=1!(PSSFL2=1) D

 . ; Logic to notify the IRM

 .W !!,"****************************************************************************"

 .W !,"*",?34,"WARNING",?75,"*",!,"*",?75,"*"

 .I PSSFL1=1 W !,"*",?14,"Required patch PSJ*5.0*194 is not installed.",?75,"*"

 .I PSSFL2=1 W !,"*",?14,"Required patch PSO*7.0*282 is not installed.",?75,"*",!,"*",?75,"*"

 .W !,"*",?10,"Please install the above mentioned required patch(es).",?75,"*"

 .W !,"*Once the required patch(es) are installed, you can reinstall(PSS*1.0*119).*"

 .W !,"****************************************************************************"

 .S XPDQUIT=1 ; This will cause the install to quit and delete the transport global.

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSSEC119   1230     printed  Apr 09, 2024@21:32:18                                                                                                                                                                                                    Page 2

PSSEC119  ;RJS-Environment check routine for PSS*1*119 ; 05/30/07

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;**119**;9/30/97;Build 9

 +2        NEW PSSFL1,PSSFL2

 +3        SET PSSFL1=""

           SET PSSFL2=""

 +4        IF $ORDER(^PSX(550,"C",0))!(^XMB("NETNAME")?1"CMOP-".E)

               WRITE !!,?10,"Consolidated Mail Outpatient Pharmacy Install.",!!

               SET XPDQUIT=1

               QUIT 

 +5       ; Not a CMOP site.  Check for required patches.

 +6       ; Required patches are PSJ*5.0*194 and PSO*7.0*282

 +7       ; Required patch

           IF '$$PATCH^XPDUTL("PSJ*5.0*194")

               SET PSSFL1=1

 +8       ; Required patch

           IF '$$PATCH^XPDUTL("PSO*7.0*282")

               SET PSSFL2=1

 +9        IF PSSFL1=1!(PSSFL2=1)

               Begin DoDot:1

 +10      ; Logic to notify the IRM

 +11               WRITE !!,"****************************************************************************"

 +12               WRITE !,"*",?34,"WARNING",?75,"*",!,"*",?75,"*"

 +13               IF PSSFL1=1

                       WRITE !,"*",?14,"Required patch PSJ*5.0*194 is not installed.",?75,"*"

 +14               IF PSSFL2=1

                       WRITE !,"*",?14,"Required patch PSO*7.0*282 is not installed.",?75,"*",!,"*",?75,"*"

 +15               WRITE !,"*",?10,"Please install the above mentioned required patch(es).",?75,"*"

 +16               WRITE !,"*Once the required patch(es) are installed, you can reinstall(PSS*1.0*119).*"

 +17               WRITE !,"****************************************************************************"

 +18      ; This will cause the install to quit and delete the transport global.

                   SET XPDQUIT=1

               End DoDot:1

 +19       QUIT