PSSEC123 ;JD-Environment check routine for PSS*1*123 ; 6/6/07 2:27pm
;;1.0;PHARMACY DATA MANAGEMENT;**123**;9/30/97;Build 6
;Reference to $$PATCH^XPDUTL(X) supported by DBIA #10141
;Reference to ^XMB("NETNAME") supported by DBIA #1131
N PSSFL1,PSSFL2,PSSSTR
S PSSFL1="",PSSFL2="",PSSSTR="",$P(PSSSTR,"*",77)=""
I ^XMB("NETNAME")?1"CMOP-".E W !!,?10,"Consolidated Mail Outpatient Pharmacy Install.",!! Q
; Not a CMOP site. Check for required patches.
; Required patches are PSJ*5.0*134 and OR*3.0*243
I '$$PATCH^XPDUTL("PSJ*5.0*134") S PSSFL1=1 ; Required patch
I '$$PATCH^XPDUTL("OR*3.0*243") S PSSFL2=1 ; Required patch
I PSSFL1=1!(PSSFL2=1) D
. ; Logic to notify the IRM
. W !!,?2,PSSSTR
. W !,?2,"*",?34,"WARNING",?77,"*",!,?2,"*",?77,"*"
. I PSSFL1=1 W !,?2,"*",?14,"Required patch PSJ*5.0*134 is not installed.",?77,"*"
. I PSSFL2=1 W !,?2,"*",?14,"Required patch OR*3.0*243 is not installed.",?77,"*",!,?2,"*",?77,"*"
. W !,?2,"*",?10,"Please install the above mentioned required patch(es).",?77,"*"
. W !,?2,"*Once the required patch(es) are installed, you can reinstall",?77,"*"
. W !,?2,"*patch PSS*1.0*123.",?77,"*"
. W !,?2,PSSSTR
. S XPDQUIT=1 ; This will cause the install to quit and delete the transport global.
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSEC123 1278 printed Dec 13, 2024@02:31:28 Page 2
PSSEC123 ;JD-Environment check routine for PSS*1*123 ; 6/6/07 2:27pm
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**123**;9/30/97;Build 6
+2 ;Reference to $$PATCH^XPDUTL(X) supported by DBIA #10141
+3 ;Reference to ^XMB("NETNAME") supported by DBIA #1131
+4 NEW PSSFL1,PSSFL2,PSSSTR
+5 SET PSSFL1=""
SET PSSFL2=""
SET PSSSTR=""
SET $PIECE(PSSSTR,"*",77)=""
+6 IF ^XMB("NETNAME")?1"CMOP-".E
WRITE !!,?10,"Consolidated Mail Outpatient Pharmacy Install.",!!
QUIT
+7 ; Not a CMOP site. Check for required patches.
+8 ; Required patches are PSJ*5.0*134 and OR*3.0*243
+9 ; Required patch
IF '$$PATCH^XPDUTL("PSJ*5.0*134")
SET PSSFL1=1
+10 ; Required patch
IF '$$PATCH^XPDUTL("OR*3.0*243")
SET PSSFL2=1
+11 IF PSSFL1=1!(PSSFL2=1)
Begin DoDot:1
+12 ; Logic to notify the IRM
+13 WRITE !!,?2,PSSSTR
+14 WRITE !,?2,"*",?34,"WARNING",?77,"*",!,?2,"*",?77,"*"
+15 IF PSSFL1=1
WRITE !,?2,"*",?14,"Required patch PSJ*5.0*134 is not installed.",?77,"*"
+16 IF PSSFL2=1
WRITE !,?2,"*",?14,"Required patch OR*3.0*243 is not installed.",?77,"*",!,?2,"*",?77,"*"
+17 WRITE !,?2,"*",?10,"Please install the above mentioned required patch(es).",?77,"*"
+18 WRITE !,?2,"*Once the required patch(es) are installed, you can reinstall",?77,"*"
+19 WRITE !,?2,"*patch PSS*1.0*123.",?77,"*"
+20 WRITE !,?2,PSSSTR
+21 ; This will cause the install to quit and delete the transport global.
SET XPDQUIT=1
End DoDot:1
+22 QUIT
