PSS117EN ;BIR/RTR-Environment check routine for patch PSS*1*117 ;11/20/08
;;1.0;PHARMACY DATA MANAGEMENT;**117**;9/30/97;Build 101
;
Q:'$G(XPDENV)
;
;USE PSSMRM,PSSMLM,PSSMGP
EN ;Check to see if all Local Med Routes are mapped
N PSSMRMFM,PSSMRMLP,PSSMRMNM,PSSMRMFD,PSSMRMAR,DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT,DIC,DA,DLAYGO
N PSSMRMCT,PSSMRMXX,PSSMRMIN,PSSMRMZR,PSSMRMN1,PSSMRMN3,PSSMRMOK,PSSMRM22,PSSMRMBB,PSSMRMT1,PSSMRMD1,PSSMRMD2,PSSMRMTC
N PSSMGPNM,PSSMGPTP,PSSMGPOR,PSSMGPSL,PSSMGPMY,PSSMGPDS,PSSMGPQT,PSSMGPAR,PSSMGPRS,PSSMRMPF,PSSMRMER
;
;
;This Mail Group should have been added with PSS*1*136, so this code should be bypasses by the FIND1 check
;
I $$FIND1^DIC(3.8,"","X","PSS ORDER CHECKS","B") D KTM G AIT
D KTM K PSSMGPAR
S PSSMGPAR(1)="A 'PSS ORDER CHECKS' Mail Group is now being created. Mail Group members will"
S PSSMGPAR(2)="receive various notifications that impact Enhanced Order Checks (drug-drug"
S PSSMGPAR(3)="interactions, duplicate therapy and dosing) introduced with PRE V. 0.5. Please"
S PSSMGPAR(4)="enter the Pharmacy ADPAC or a designee to be the Mail Group Organizer."
S PSSMGPAR(5)=" "
S PSSMGPAR(6)="To continue this install, you must now enter a Mail Group organizer."
S PSSMGPAR(7)=" "
D MES^XPDUTL(.PSSMGPAR)
K DIC S DIC=200,DIC(0)="QEAMZ",DIC("A")="Enter Mail Group Organizer: "
D ^DIC K DIC I $D(DTOUT)!($D(DUOUT))!(+Y'>0) S XPDABORT=2 Q
S PSSMGPOR=+Y,PSSMGPMY(+Y)=""
S PSSMGPNM="PSS ORDER CHECKS",PSSMGPTP=0,PSSMGPSL=0,PSSMGPQT=1
S PSSMGPDS(1)="Members of this mail group will receive various notifications that impact"
S PSSMGPDS(2)="Enhanced Order Checks (drug-drug interactions, duplicate therapy and dosing"
S PSSMGPDS(3)="checks) introduced with PRE V. 0.5 utilizing a COTS database."
S PSSMGPRS=$$MG^XMBGRP(PSSMGPNM,PSSMGPTP,PSSMGPOR,PSSMGPSL,.PSSMGPMY,.PSSMGPDS,PSSMGPQT)
I 'PSSMGPRS D BMES^XPDUTL(" ") D BMES^XPDUTL("Unable to create PSS ORDER CHECKS Mail Group, aborting install.") S XPDABORT=2 Q
D BMES^XPDUTL("PSS ORDER CHECKS Mail Group successfully created.")
;
;D TASKIT^PSSHRIT(15) ;Waiting for error code from Steve to abort if unable to task job
;
AIT ;Add Interventions types
;
;
;
;
D BMES^XPDUTL("Adding new Intervention Types.")
I '$$FIND1^DIC(9009032.3,"","X","MAX SINGLE DOSE","B") D ADDMX I '$$FIND1^DIC(9009032.3,"","X","MAX SINGLE DOSE","B") D AITX(1) S XPDABORT=2 D KTM Q
I '$$FIND1^DIC(9009032.3,"","X","DAILY DOSE RANGE","B") D ADDMXA I '$$FIND1^DIC(9009032.3,"","X","DAILY DOSE RANGE","B") D AITX(2) S XPDABORT=2 D KTM Q
I '$$FIND1^DIC(9009032.3,"","X","MAX SINGLE DOSE & DAILY DOSE RANGE","B") D ADDMXB I '$$FIND1^DIC(9009032.3,"","X","MAX SINGLE DOSE & DAILY DOSE RANGE","B") D AITX(3) S XPDABORT=2 D KTM Q
D KTM D BMES^XPDUTL("New Intervention Types successfully added.")
;-DOSING - Next line skips Med Route and Numeric Dose/Dose Unit checks, add to Dosing patch
;G PROT
S (PSSMRMFM,PSSMRMFD)=0
;Med Route check, using PSSMRMFM as flag
D BMES^XPDUTL("Checking for any remaining unmapped Local Medication Routes...")
S PSSMRMNM="" F S PSSMRMNM=$O(^PS(51.2,"B",PSSMRMNM)) Q:PSSMRMNM=""!(PSSMRMFM) D
.F PSSMRMLP=0:0 S PSSMRMLP=$O(^PS(51.2,"B",PSSMRMNM,PSSMRMLP)) Q:'PSSMRMLP!(PSSMRMFM) D
..I '$P($G(^PS(51.2,PSSMRMLP,0)),"^",4) Q
..I '$P($G(^PS(51.2,PSSMRMLP,1)),"^") S PSSMRMFM=1
I 'PSSMRMFM D BMES^XPDUTL("All Local Medication Routes have been mapped!!") G DOS
K PSSMRMAR
S PSSMRMAR(1)=" "
S PSSMRMAR(2)="There are still local Medication Routes marked for 'ALL PACKAGES' not yet"
S PSSMRMAR(3)="mapped. Any orders containing an unmapped medication route will not have"
S PSSMRMAR(4)="dosage checks performed. Please refer to the 'Medication Route Mapping Report'"
S PSSMRMAR(5)="option for more details."
S PSSMRMAR(6)=" "
D MES^XPDUTL(.PSSMRMAR) K PSSMRMAR
;K DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
;S DIR(0)="Y",DIR("B")="Y",DIR("A")="Do you want to continue to install this patch" D ^DIR
;I Y'=1!($D(DUOUT))!($D(DTOUT)) S XPDABORT=2 Q
;K DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
;
;
DOS ;Check to see if all Local Possible Dosages are mapped
;Local Possible Dosage check, using PSSMRMFD as flag
D BMES^XPDUTL("Checking for any remaining Local Possible Dosages missing data...")
;
S (PSSMRMFD,PSSMRMCT)=0
S PSSMRMXX="" F S PSSMRMXX=$O(^PSDRUG("B",PSSMRMXX)) Q:PSSMRMXX=""!(PSSMRMFD) F PSSMRMIN=0:0 S PSSMRMIN=$O(^PSDRUG("B",PSSMRMXX,PSSMRMIN)) Q:'PSSMRMIN!(PSSMRMFD) D
.K PSSMRMZR,PSSMRMN1,PSSMRMN3
.S PSSMRMZR=$G(^PSDRUG(PSSMRMIN,0)),PSSMRMN1=$P($G(^PSDRUG(PSSMRMIN,"ND")),"^"),PSSMRMN3=$P($G(^PSDRUG(PSSMRMIN,"ND")),"^",3)
.S PSSMRMCT=PSSMRMCT+1 I '(PSSMRMCT#2000) D BMES^XPDUTL("...Still checking Local Possible Dosages...")
.S PSSMRMOK=$$TEST
.Q:'PSSMRMOK
.S PSSMRM22=0 F PSSMRMBB=0:0 S PSSMRMBB=$O(^PSDRUG(PSSMRMIN,"DOS2",PSSMRMBB)) Q:'PSSMRMBB!(PSSMRM22) S PSSMRMT1=$G(^PSDRUG(PSSMRMIN,"DOS2",PSSMRMBB,0)) I $P(PSSMRMT1,"^")'="" I '$P(PSSMRMT1,"^",5)!($P(PSSMRMT1,"^",6)="") S PSSMRM22=1
.Q:'PSSMRM22
.S PSSMRMFD=1
I 'PSSMRMFD D BMES^XPDUTL("Population of data for eligible Local Possible Dosages has been completed!!") D BMES^XPDUTL(" ") G PRC
K PSSMRMAR
S PSSMRMAR(1)=" "
S PSSMRMAR(2)="There are still local possible dosages eligible for dosage checks that have"
S PSSMRMAR(3)="missing data in the Numeric Dose and Dose Unit fields. Any orders containing"
S PSSMRMAR(4)="such local possible dosages will not have dosage checks performed. Please"
S PSSMRMAR(5)="refer to the 'Local Possible Dosages Report' option for more details."
S PSSMRMAR(6)=" "
D MES^XPDUTL(.PSSMRMAR) K PSSMRMAR
;
;
PRC ;Ask to continue
I 'PSSMRMFM,'PSSMRMFD G PROT
;D BMES^XPDUTL(" ")
K DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
S DIR(0)="Y",DIR("B")="Y",DIR("A")="Do you want to continue to install this patch" D ^DIR
I Y'=1!($D(DUOUT))!($D(DTOUT)) S XPDABORT=2 Q
K DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
;
;
PROT ;
;D ADDPR
;
;
MAIL ;prompt for mail group members
;PROMPT FOR USER
D REC
;Set up mail message for Post Init
S @XPDGREF@("PSSMLMSG",1)="Installation of Patch PSS*1.0*117 has been successfully completed!"
S @XPDGREF@("PSSMLMSG",2)=" "
S PSSMRMTC=3
;DOSING - Added next line, for Dosing patch remove PRMAIL calls at +2 and 2 calls in LMESS tag
D MNU
I 'PSSMRMFM S @XPDGREF@("PSSMLMSG",PSSMRMTC)="All Local Medication Routes have been mapped!!" G LMESS
S @XPDGREF@("PSSMLMSG",PSSMRMTC)="There are still local Medication Routes marked for 'ALL PACKAGES' not yet" S PSSMRMTC=PSSMRMTC+1
S @XPDGREF@("PSSMLMSG",PSSMRMTC)="mapped. Any orders containing an unmapped medication route will not have" S PSSMRMTC=PSSMRMTC+1
S @XPDGREF@("PSSMLMSG",PSSMRMTC)="dosage checks performed. Please refer to the 'Medication Route Mapping Report'" S PSSMRMTC=PSSMRMTC+1
S @XPDGREF@("PSSMLMSG",PSSMRMTC)="option for more details."
;
;
LMESS ;
;S PSSMRMTC=PSSMRMTC+1
;S @XPDGREF@("PSSMLMSG",PSSMRMTC)=" "
;S PSSMRMTC=PSSMRMTC+1
D INC I 'PSSMRMFD S @XPDGREF@("PSSMLMSG",PSSMRMTC)="Population of data for eligible Local Possible Dosages has been completed!!" D INC Q
S @XPDGREF@("PSSMLMSG",PSSMRMTC)="There are still local possible dosages eligible for dosage checks that have" S PSSMRMTC=PSSMRMTC+1
S @XPDGREF@("PSSMLMSG",PSSMRMTC)="missing data in the Numeric Dose and Dose Unit fields. Any orders containing" S PSSMRMTC=PSSMRMTC+1
S @XPDGREF@("PSSMLMSG",PSSMRMTC)="such local possible dosages may not have dosage checks performed. Please" S PSSMRMTC=PSSMRMTC+1
S @XPDGREF@("PSSMLMSG",PSSMRMTC)="refer to the 'Local Possible Dosages Report' option for more details." D INC
Q
;
;
TEST() ;See if drug need Dose Unit and Numeric Dose defined
I 'PSSMRMN3!('PSSMRMN1) Q 0
I $P($G(^PSDRUG(PSSMRMIN,"I")),"^"),$P($G(^PSDRUG(PSSMRMIN,"I")),"^")<DT Q 0
I '$O(^PSDRUG(PSSMRMIN,"DOS2",0)) Q 0
I $P(PSSMRMZR,"^",3)["S"!($E($P(PSSMRMZR,"^",2),1,2)="XA") Q 0
N PSSMRMVV
S PSSMRMVV=""
I PSSMRMN1,PSSMRMN3,$T(OVRIDE^PSNAPIS)]"" S PSSMRMVV=$$OVRIDE^PSNAPIS(PSSMRMN1,PSSMRMN3)
K PSSMRMD1,PSSMRMD2
I PSSMRMN1,PSSMRMN3 S PSSMRMD1=$$DFSU^PSNAPIS(PSSMRMN1,PSSMRMN3) S PSSMRMD2=$P(PSSMRMD1,"^")
I $G(PSSMRMD2)'>0,$P($G(^PSDRUG(PSSMRMIN,2)),"^") S PSSMRMD2=$P($G(^PS(50.7,+$P($G(^PSDRUG(PSSMRMIN,2)),"^"),0)),"^",2)
I PSSMRMVV=""!('$G(PSSMRMD2))!($P($G(^PS(50.606,+$G(PSSMRMD2),1)),"^")="") Q 1
I $P($G(^PS(50.606,+$G(PSSMRMD2),1)),"^"),'PSSMRMVV Q 0
I '$P($G(^PS(50.606,+$G(PSSMRMD2),1)),"^"),PSSMRMVV Q 0
Q 1
;
;
REC ;Set up mail message recipients
S @XPDGREF@("PSSMLMDZ",DUZ)=""
S @XPDGREF@("PSSMLMDZ","G.PSS ORDER CHECKS")=""
Q
;
;
AITX(PSSMRMIT) ;
D BMES^XPDUTL(" ")
I PSSMRMIT=1 D BMES^XPDUTL("Cannot create 'MAX SINGLE DOSE' intervention type, aborting install.") Q
I PSSMRMIT=2 D BMES^XPDUTL("Cannot create 'DAILY DOSE RANGE' intervention type, aborting install.") Q
D BMES^XPDUTL("Cannot create 'MAX SINGLE DOSE & DAILY DOSE RANGE' intervention type,") D BMES^XPDUTL("aborting install.")
Q
;
;
ADDPR ;Attach protocol
;Check the +1 and +2 Usage in the FileMan documentation
S PSSMRMPF=0
D BMES^XPDUTL("Attaching PSS MED ROUTE RECEIVE protocol to XUMF MFS EVENTS protocol...")
N PSSMRMPR,PSSMRMDJ,PSSMRMRR,PSSMRMAT
S PSSMRMPR=$$FIND1^DIC(101,"","X","XUMF MFS EVENTS","B") I 'PSSMRMPR D PASE S PSSMRMPF=1 D KTM Q
S PSSMRMDJ=$$FIND1^DIC(101,"","X","PSS MED ROUTE RECEIVE","B") I 'PSSMRMDJ D PASEX S PSSMRMPF=2 D KTM Q
I $$FIND1^DIC(101.01,","_PSSMRMPR_",","X","PSS MED ROUTE RECEIVE","B") G ADDPRX
K PSSMRMER S PSSMRMAT(1,101.01,"+2,"_PSSMRMPR_",",.01)=PSSMRMDJ D UPDATE^DIE("","PSSMRMAT(1)",,"PSSMRMER(1)")
I '$$FIND1^DIC(101.01,","_PSSMRMPR_",","X","PSS MED ROUTE RECEIVE","B") S PSSMRMPF=3 D PACEZ D KTM Q
ADDPRX ;
D KTM D BMES^XPDUTL("Protocols attached successfully.")
Q
;
;
PASE ;
K PSSMRMRR
S PSSMRMRR(1)=" " S PSSMRMRR(2)="Cannot find XUMF MFS EVENTS protocol on system, installation will continue,"
S PSSMRMRR(3)="please see post installation mail message for further instructions."
S PSSMRMRR(4)=" "
D MES^XPDUTL(.PSSMRMRR)
D PRMP
Q
;
;
PASEX ;
K PSSMRMRR
S PSSMRMRR(1)=" " S PSSMRMRR(2)="Cannot find PSS MED ROUTE RECEIVE protocol on system, installation will"
S PSSMRMRR(3)="continue, please see post installation mail message for further instructions."
S PSSMRMRR(4)=" "
D MES^XPDUTL(.PSSMRMRR)
D PRMP
Q
;
;
PACEZ ;
K PSSMRMRR
S PSSMRMRR(1)=" " S PSSMRMRR(2)="Unable to attach PSS MED ROUTE RECEIVE protocol to XUMF MFS EVENTS protocol,"
S PSSMRMRR(3)="please see post installation mail message for further instructions."
S PSSMRMRR(4)=" "
D MES^XPDUTL(.PSSMRMRR)
D PRMP
Q
;
;
PRMP ;
K DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
S DIR(0)="E",DIR("A")="Press Return to Continue" D ^DIR
K DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
Q
;
;
PRMAIL ;Add protocol message if necessary
I 'PSSMRMPF Q
;Remove next line for Dosing patch
G PRMAILX
S PSSMRMTC=PSSMRMTC+1
S @XPDGREF@("PSSMLMSG",PSSMRMTC)=" "
S PSSMRMTC=PSSMRMTC+1
PRMAILX ;
I PSSMRMPF=1 D Q
.S @XPDGREF@("PSSMLMSG",PSSMRMTC)="Unable to find the XUMF MFS EVENTS protocol. This protocol was exported in" S PSSMRMTC=PSSMRMTC+1
.S @XPDGREF@("PSSMLMSG",PSSMRMTC)="patch XU*8.0*474. You must have this protocol so the PSS MED ROUTE RECEIVE" S PSSMRMTC=PSSMRMTC+1
.S @XPDGREF@("PSSMLMSG",PSSMRMTC)="protocol can be attached to it, in order to process any Standard Medication" S PSSMRMTC=PSSMRMTC+1
.S @XPDGREF@("PSSMLMSG",PSSMRMTC)="Route updates. Please log a Remedy Ticket and refer to this message."
I PSSMRMPF=2 D Q
.S @XPDGREF@("PSSMLMSG",PSSMRMTC)="Unable to find the PSS MED ROUTE RECEIVE protocol. This protocol was exported" S PSSMRMTC=PSSMRMTC+1
.S @XPDGREF@("PSSMLMSG",PSSMRMTC)="in patch PSS*1.0*136. You must have this protocol so it can be attached to the" S PSSMRMTC=PSSMRMTC+1
.S @XPDGREF@("PSSMLMSG",PSSMRMTC)="XUMF MFS EVENTS protocol, in order to process any Standard Medication Route" S PSSMRMTC=PSSMRMTC+1
.S @XPDGREF@("PSSMLMSG",PSSMRMTC)="updates. Please log a Remedy Ticket and refer to this message."
I PSSMRMPF=3 D Q
.S @XPDGREF@("PSSMLMSG",PSSMRMTC)="Unable to attach the PSS MED ROUTE RECEIVE protocol to the XUMF MFS EVENTS" S PSSMRMTC=PSSMRMTC+1
.S @XPDGREF@("PSSMLMSG",PSSMRMTC)="protocol. These protocols must be attached in order to process any Standard" S PSSMRMTC=PSSMRMTC+1
.S @XPDGREF@("PSSMLMSG",PSSMRMTC)="Medication Route updates. Please log a Remedy Ticket and refer to this message."
Q
;
;
ADDMX ;Add Max Single Dose
N PSSMRMPD K PSSMRMPD
K PSSMRMER S PSSMRMPD(1,9009032.3,"+1,",.01)="MAX SINGLE DOSE" D UPDATE^DIE("","PSSMRMPD(1)",,"PSSMRMER(1)")
Q
;
;
ADDMXA ;Add Max Daily Dose
N PSSMRMPD K PSSMRMPD
K PSSMRMER S PSSMRMPD(1,9009032.3,"+1,",.01)="DAILY DOSE RANGE" D UPDATE^DIE("","PSSMRMPD(1)",,"PSSMRMER(1)")
Q
;
;
ADDMXB ;Add Max single and Daily
N PSSMRMPD K PSSMRMPD
K PSSMRMER S PSSMRMPD(1,9009032.3,"+1,",.01)="MAX SINGLE DOSE & DAILY DOSE RANGE" D UPDATE^DIE("","PSSMRMPD(1)",,"PSSMRMER(1)")
Q
;
;
MNU ;Delete PSS DRG INTER MANAGEMENT option from PSS MGR menu
N PSSMNUXX D BMES^XPDUTL("Removing PSS DRG INTER MANAGEMENT option from PSS MGR Menu option.")
S PSSMNUXX=$$LKOPT^XPDMENU("PSS DRG INTER MANAGEMENT") I $G(PSSMNUXX)'>0 D MNUQ G MNUEN
N PSSMNUR
S PSSMNUR=$$DELETE^XPDMENU("PSS MGR","PSS DRG INTER MANAGEMENT")
I PSSMNUR D MNUQ G MNUEN
D BMES^XPDUTL("Unable to remove PSS DRG INTER MANAGEMENT option from PSS MGR Menu option.")
D PRMP
;I PSSMRMPF S PSSMRMTC=PSSMRMTC+1 S @XPDGREF@("PSSMLMSG",PSSMRMTC)=" " S PSSMRMTC=PSSMRMTC+1
S @XPDGREF@("PSSMLMSG",PSSMRMTC)="Unable to remove PSS DRG INTER MANAGEMENT option from PSS MGR Menu option." S PSSMRMTC=PSSMRMTC+1
S @XPDGREF@("PSSMLMSG",PSSMRMTC)="Please log a Remedy Ticket and refer to this message." D INC
;
MNUEN ;
D BMES^XPDUTL("Removing PSS ENHANCED ORDER CHECKS option from PSS MGR Menu option.")
S PSSMNUXX=$$LKOPT^XPDMENU("PSS ENHANCED ORDER CHECKS") I $G(PSSMNUXX)'>0 D MNUQQ Q
K PSSMNUR
S PSSMNUR=$$DELETE^XPDMENU("PSS MGR","PSS ENHANCED ORDER CHECKS")
I PSSMNUR D MNUQQ Q
D BMES^XPDUTL("Unable to remove PSS ENHANCED ORDER CHECKS option from PSS MGR Menu option.")
D PRMP
;I PSSMRMPF S PSSMRMTC=PSSMRMTC+1 S @XPDGREF@("PSSMLMSG",PSSMRMTC)=" " S PSSMRMTC=PSSMRMTC+1
S @XPDGREF@("PSSMLMSG",PSSMRMTC)="Unable to remove PSS ENHANCED ORDER CHECKS option from PSS MGR Menu option." S PSSMRMTC=PSSMRMTC+1
S @XPDGREF@("PSSMLMSG",PSSMRMTC)="Please log a Remedy Ticket and refer to this message." D INC
Q
;
;
;
MNUQ ;
D BMES^XPDUTL("Successfully removed PSS DRG INTER MANAGEMENT option.")
Q
;
;
MNUQQ ;
D BMES^XPDUTL("Successfully removed PSS ENHANCED ORDER CHECKS option.")
Q
;
;
KTM ;Kill TMP global
K ^TMP("DIERR",$J)
Q
;
;
INC ;
S PSSMRMTC=PSSMRMTC+1
S @XPDGREF@("PSSMLMSG",PSSMRMTC)=" "
S PSSMRMTC=PSSMRMTC+1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS117EN 14964 printed Apr 09, 2024@21:32:41 Page 2
PSS117EN ;BIR/RTR-Environment check routine for patch PSS*1*117 ;11/20/08
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**117**;9/30/97;Build 101
+2 ;
+3 if '$GET(XPDENV)
QUIT
+4 ;
+5 ;USE PSSMRM,PSSMLM,PSSMGP
EN ;Check to see if all Local Med Routes are mapped
+1 NEW PSSMRMFM,PSSMRMLP,PSSMRMNM,PSSMRMFD,PSSMRMAR,DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT,DIC,DA,DLAYGO
+2 NEW PSSMRMCT,PSSMRMXX,PSSMRMIN,PSSMRMZR,PSSMRMN1,PSSMRMN3,PSSMRMOK,PSSMRM22,PSSMRMBB,PSSMRMT1,PSSMRMD1,PSSMRMD2,PSSMRMTC
+3 NEW PSSMGPNM,PSSMGPTP,PSSMGPOR,PSSMGPSL,PSSMGPMY,PSSMGPDS,PSSMGPQT,PSSMGPAR,PSSMGPRS,PSSMRMPF,PSSMRMER
+4 ;
+5 ;
+6 ;This Mail Group should have been added with PSS*1*136, so this code should be bypasses by the FIND1 check
+7 ;
+8 IF $$FIND1^DIC(3.8,"","X","PSS ORDER CHECKS","B")
DO KTM
GOTO AIT
+9 DO KTM
KILL PSSMGPAR
+10 SET PSSMGPAR(1)="A 'PSS ORDER CHECKS' Mail Group is now being created. Mail Group members will"
+11 SET PSSMGPAR(2)="receive various notifications that impact Enhanced Order Checks (drug-drug"
+12 SET PSSMGPAR(3)="interactions, duplicate therapy and dosing) introduced with PRE V. 0.5. Please"
+13 SET PSSMGPAR(4)="enter the Pharmacy ADPAC or a designee to be the Mail Group Organizer."
+14 SET PSSMGPAR(5)=" "
+15 SET PSSMGPAR(6)="To continue this install, you must now enter a Mail Group organizer."
+16 SET PSSMGPAR(7)=" "
+17 DO MES^XPDUTL(.PSSMGPAR)
+18 KILL DIC
SET DIC=200
SET DIC(0)="QEAMZ"
SET DIC("A")="Enter Mail Group Organizer: "
+19 DO ^DIC
KILL DIC
IF $DATA(DTOUT)!($DATA(DUOUT))!(+Y'>0)
SET XPDABORT=2
QUIT
+20 SET PSSMGPOR=+Y
SET PSSMGPMY(+Y)=""
+21 SET PSSMGPNM="PSS ORDER CHECKS"
SET PSSMGPTP=0
SET PSSMGPSL=0
SET PSSMGPQT=1
+22 SET PSSMGPDS(1)="Members of this mail group will receive various notifications that impact"
+23 SET PSSMGPDS(2)="Enhanced Order Checks (drug-drug interactions, duplicate therapy and dosing"
+24 SET PSSMGPDS(3)="checks) introduced with PRE V. 0.5 utilizing a COTS database."
+25 SET PSSMGPRS=$$MG^XMBGRP(PSSMGPNM,PSSMGPTP,PSSMGPOR,PSSMGPSL,.PSSMGPMY,.PSSMGPDS,PSSMGPQT)
+26 IF 'PSSMGPRS
DO BMES^XPDUTL(" ")
DO BMES^XPDUTL("Unable to create PSS ORDER CHECKS Mail Group, aborting install.")
SET XPDABORT=2
QUIT
+27 DO BMES^XPDUTL("PSS ORDER CHECKS Mail Group successfully created.")
+28 ;
+29 ;D TASKIT^PSSHRIT(15) ;Waiting for error code from Steve to abort if unable to task job
+30 ;
AIT ;Add Interventions types
+1 ;
+2 ;
+3 ;
+4 ;
+5 DO BMES^XPDUTL("Adding new Intervention Types.")
+6 IF '$$FIND1^DIC(9009032.3,"","X","MAX SINGLE DOSE","B")
DO ADDMX
IF '$$FIND1^DIC(9009032.3,"","X","MAX SINGLE DOSE","B")
DO AITX(1)
SET XPDABORT=2
DO KTM
QUIT
+7 IF '$$FIND1^DIC(9009032.3,"","X","DAILY DOSE RANGE","B")
DO ADDMXA
IF '$$FIND1^DIC(9009032.3,"","X","DAILY DOSE RANGE","B")
DO AITX(2)
SET XPDABORT=2
DO KTM
QUIT
+8 IF '$$FIND1^DIC(9009032.3,"","X","MAX SINGLE DOSE & DAILY DOSE RANGE","B")
DO ADDMXB
IF '$$FIND1^DIC(9009032.3,"","X","MAX SINGLE DOSE & DAILY DOSE RANGE","B")
DO AITX(3)
SET XPDABORT=2
DO KTM
QUIT
+9 DO KTM
DO BMES^XPDUTL("New Intervention Types successfully added.")
+10 ;-DOSING - Next line skips Med Route and Numeric Dose/Dose Unit checks, add to Dosing patch
+11 ;G PROT
+12 SET (PSSMRMFM,PSSMRMFD)=0
+13 ;Med Route check, using PSSMRMFM as flag
+14 DO BMES^XPDUTL("Checking for any remaining unmapped Local Medication Routes...")
+15 SET PSSMRMNM=""
FOR
SET PSSMRMNM=$ORDER(^PS(51.2,"B",PSSMRMNM))
if PSSMRMNM=""!(PSSMRMFM)
QUIT
Begin DoDot:1
+16 FOR PSSMRMLP=0:0
SET PSSMRMLP=$ORDER(^PS(51.2,"B",PSSMRMNM,PSSMRMLP))
if 'PSSMRMLP!(PSSMRMFM)
QUIT
Begin DoDot:2
+17 IF '$PIECE($GET(^PS(51.2,PSSMRMLP,0)),"^",4)
QUIT
+18 IF '$PIECE($GET(^PS(51.2,PSSMRMLP,1)),"^")
SET PSSMRMFM=1
End DoDot:2
End DoDot:1
+19 IF 'PSSMRMFM
DO BMES^XPDUTL("All Local Medication Routes have been mapped!!")
GOTO DOS
+20 KILL PSSMRMAR
+21 SET PSSMRMAR(1)=" "
+22 SET PSSMRMAR(2)="There are still local Medication Routes marked for 'ALL PACKAGES' not yet"
+23 SET PSSMRMAR(3)="mapped. Any orders containing an unmapped medication route will not have"
+24 SET PSSMRMAR(4)="dosage checks performed. Please refer to the 'Medication Route Mapping Report'"
+25 SET PSSMRMAR(5)="option for more details."
+26 SET PSSMRMAR(6)=" "
+27 DO MES^XPDUTL(.PSSMRMAR)
KILL PSSMRMAR
+28 ;K DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
+29 ;S DIR(0)="Y",DIR("B")="Y",DIR("A")="Do you want to continue to install this patch" D ^DIR
+30 ;I Y'=1!($D(DUOUT))!($D(DTOUT)) S XPDABORT=2 Q
+31 ;K DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
+32 ;
+33 ;
DOS ;Check to see if all Local Possible Dosages are mapped
+1 ;Local Possible Dosage check, using PSSMRMFD as flag
+2 DO BMES^XPDUTL("Checking for any remaining Local Possible Dosages missing data...")
+3 ;
+4 SET (PSSMRMFD,PSSMRMCT)=0
+5 SET PSSMRMXX=""
FOR
SET PSSMRMXX=$ORDER(^PSDRUG("B",PSSMRMXX))
if PSSMRMXX=""!(PSSMRMFD)
QUIT
FOR PSSMRMIN=0:0
SET PSSMRMIN=$ORDER(^PSDRUG("B",PSSMRMXX,PSSMRMIN))
if 'PSSMRMIN!(PSSMRMFD)
QUIT
Begin DoDot:1
+6 KILL PSSMRMZR,PSSMRMN1,PSSMRMN3
+7 SET PSSMRMZR=$GET(^PSDRUG(PSSMRMIN,0))
SET PSSMRMN1=$PIECE($GET(^PSDRUG(PSSMRMIN,"ND")),"^")
SET PSSMRMN3=$PIECE($GET(^PSDRUG(PSSMRMIN,"ND")),"^",3)
+8 SET PSSMRMCT=PSSMRMCT+1
IF '(PSSMRMCT#2000)
DO BMES^XPDUTL("...Still checking Local Possible Dosages...")
+9 SET PSSMRMOK=$$TEST
+10 if 'PSSMRMOK
QUIT
+11 SET PSSMRM22=0
FOR PSSMRMBB=0:0
SET PSSMRMBB=$ORDER(^PSDRUG(PSSMRMIN,"DOS2",PSSMRMBB))
if 'PSSMRMBB!(PSSMRM22)
QUIT
SET PSSMRMT1=$GET(^PSDRUG(PSSMRMIN,"DOS2",PSSMRMBB,0))
IF $PIECE(PSSMRMT1,"^")'=""
IF '$PIECE(PSSMRMT1,"^",5)!($PIECE(PSSMRMT1,"^",6)="")
SET PSSMRM22=1
+12 if 'PSSMRM22
QUIT
+13 SET PSSMRMFD=1
End DoDot:1
+14 IF 'PSSMRMFD
DO BMES^XPDUTL("Population of data for eligible Local Possible Dosages has been completed!!")
DO BMES^XPDUTL(" ")
GOTO PRC
+15 KILL PSSMRMAR
+16 SET PSSMRMAR(1)=" "
+17 SET PSSMRMAR(2)="There are still local possible dosages eligible for dosage checks that have"
+18 SET PSSMRMAR(3)="missing data in the Numeric Dose and Dose Unit fields. Any orders containing"
+19 SET PSSMRMAR(4)="such local possible dosages will not have dosage checks performed. Please"
+20 SET PSSMRMAR(5)="refer to the 'Local Possible Dosages Report' option for more details."
+21 SET PSSMRMAR(6)=" "
+22 DO MES^XPDUTL(.PSSMRMAR)
KILL PSSMRMAR
+23 ;
+24 ;
PRC ;Ask to continue
+1 IF 'PSSMRMFM
IF 'PSSMRMFD
GOTO PROT
+2 ;D BMES^XPDUTL(" ")
+3 KILL DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
+4 SET DIR(0)="Y"
SET DIR("B")="Y"
SET DIR("A")="Do you want to continue to install this patch"
DO ^DIR
+5 IF Y'=1!($DATA(DUOUT))!($DATA(DTOUT))
SET XPDABORT=2
QUIT
+6 KILL DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
+7 ;
+8 ;
PROT ;
+1 ;D ADDPR
+2 ;
+3 ;
MAIL ;prompt for mail group members
+1 ;PROMPT FOR USER
+2 DO REC
+3 ;Set up mail message for Post Init
+4 SET @XPDGREF@("PSSMLMSG",1)="Installation of Patch PSS*1.0*117 has been successfully completed!"
+5 SET @XPDGREF@("PSSMLMSG",2)=" "
+6 SET PSSMRMTC=3
+7 ;DOSING - Added next line, for Dosing patch remove PRMAIL calls at +2 and 2 calls in LMESS tag
+8 DO MNU
+9 IF 'PSSMRMFM
SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="All Local Medication Routes have been mapped!!"
GOTO LMESS
+10 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="There are still local Medication Routes marked for 'ALL PACKAGES' not yet"
SET PSSMRMTC=PSSMRMTC+1
+11 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="mapped. Any orders containing an unmapped medication route will not have"
SET PSSMRMTC=PSSMRMTC+1
+12 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="dosage checks performed. Please refer to the 'Medication Route Mapping Report'"
SET PSSMRMTC=PSSMRMTC+1
+13 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="option for more details."
+14 ;
+15 ;
LMESS ;
+1 ;S PSSMRMTC=PSSMRMTC+1
+2 ;S @XPDGREF@("PSSMLMSG",PSSMRMTC)=" "
+3 ;S PSSMRMTC=PSSMRMTC+1
+4 DO INC
IF 'PSSMRMFD
SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="Population of data for eligible Local Possible Dosages has been completed!!"
DO INC
QUIT
+5 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="There are still local possible dosages eligible for dosage checks that have"
SET PSSMRMTC=PSSMRMTC+1
+6 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="missing data in the Numeric Dose and Dose Unit fields. Any orders containing"
SET PSSMRMTC=PSSMRMTC+1
+7 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="such local possible dosages may not have dosage checks performed. Please"
SET PSSMRMTC=PSSMRMTC+1
+8 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="refer to the 'Local Possible Dosages Report' option for more details."
DO INC
+9 QUIT
+10 ;
+11 ;
TEST() ;See if drug need Dose Unit and Numeric Dose defined
+1 IF 'PSSMRMN3!('PSSMRMN1)
QUIT 0
+2 IF $PIECE($GET(^PSDRUG(PSSMRMIN,"I")),"^")
IF $PIECE($GET(^PSDRUG(PSSMRMIN,"I")),"^")<DT
QUIT 0
+3 IF '$ORDER(^PSDRUG(PSSMRMIN,"DOS2",0))
QUIT 0
+4 IF $PIECE(PSSMRMZR,"^",3)["S"!($EXTRACT($PIECE(PSSMRMZR,"^",2),1,2)="XA")
QUIT 0
+5 NEW PSSMRMVV
+6 SET PSSMRMVV=""
+7 IF PSSMRMN1
IF PSSMRMN3
IF $TEXT(OVRIDE^PSNAPIS)]""
SET PSSMRMVV=$$OVRIDE^PSNAPIS(PSSMRMN1,PSSMRMN3)
+8 KILL PSSMRMD1,PSSMRMD2
+9 IF PSSMRMN1
IF PSSMRMN3
SET PSSMRMD1=$$DFSU^PSNAPIS(PSSMRMN1,PSSMRMN3)
SET PSSMRMD2=$PIECE(PSSMRMD1,"^")
+10 IF $GET(PSSMRMD2)'>0
IF $PIECE($GET(^PSDRUG(PSSMRMIN,2)),"^")
SET PSSMRMD2=$PIECE($GET(^PS(50.7,+$PIECE($GET(^PSDRUG(PSSMRMIN,2)),"^"),0)),"^",2)
+11 IF PSSMRMVV=""!('$GET(PSSMRMD2))!($PIECE($GET(^PS(50.606,+$GET(PSSMRMD2),1)),"^")="")
QUIT 1
+12 IF $PIECE($GET(^PS(50.606,+$GET(PSSMRMD2),1)),"^")
IF 'PSSMRMVV
QUIT 0
+13 IF '$PIECE($GET(^PS(50.606,+$GET(PSSMRMD2),1)),"^")
IF PSSMRMVV
QUIT 0
+14 QUIT 1
+15 ;
+16 ;
REC ;Set up mail message recipients
+1 SET @XPDGREF@("PSSMLMDZ",DUZ)=""
+2 SET @XPDGREF@("PSSMLMDZ","G.PSS ORDER CHECKS")=""
+3 QUIT
+4 ;
+5 ;
AITX(PSSMRMIT) ;
+1 DO BMES^XPDUTL(" ")
+2 IF PSSMRMIT=1
DO BMES^XPDUTL("Cannot create 'MAX SINGLE DOSE' intervention type, aborting install.")
QUIT
+3 IF PSSMRMIT=2
DO BMES^XPDUTL("Cannot create 'DAILY DOSE RANGE' intervention type, aborting install.")
QUIT
+4 DO BMES^XPDUTL("Cannot create 'MAX SINGLE DOSE & DAILY DOSE RANGE' intervention type,")
DO BMES^XPDUTL("aborting install.")
+5 QUIT
+6 ;
+7 ;
ADDPR ;Attach protocol
+1 ;Check the +1 and +2 Usage in the FileMan documentation
+2 SET PSSMRMPF=0
+3 DO BMES^XPDUTL("Attaching PSS MED ROUTE RECEIVE protocol to XUMF MFS EVENTS protocol...")
+4 NEW PSSMRMPR,PSSMRMDJ,PSSMRMRR,PSSMRMAT
+5 SET PSSMRMPR=$$FIND1^DIC(101,"","X","XUMF MFS EVENTS","B")
IF 'PSSMRMPR
DO PASE
SET PSSMRMPF=1
DO KTM
QUIT
+6 SET PSSMRMDJ=$$FIND1^DIC(101,"","X","PSS MED ROUTE RECEIVE","B")
IF 'PSSMRMDJ
DO PASEX
SET PSSMRMPF=2
DO KTM
QUIT
+7 IF $$FIND1^DIC(101.01,","_PSSMRMPR_",","X","PSS MED ROUTE RECEIVE","B")
GOTO ADDPRX
+8 KILL PSSMRMER
SET PSSMRMAT(1,101.01,"+2,"_PSSMRMPR_",",.01)=PSSMRMDJ
DO UPDATE^DIE("","PSSMRMAT(1)",,"PSSMRMER(1)")
+9 IF '$$FIND1^DIC(101.01,","_PSSMRMPR_",","X","PSS MED ROUTE RECEIVE","B")
SET PSSMRMPF=3
DO PACEZ
DO KTM
QUIT
ADDPRX ;
+1 DO KTM
DO BMES^XPDUTL("Protocols attached successfully.")
+2 QUIT
+3 ;
+4 ;
PASE ;
+1 KILL PSSMRMRR
+2 SET PSSMRMRR(1)=" "
SET PSSMRMRR(2)="Cannot find XUMF MFS EVENTS protocol on system, installation will continue,"
+3 SET PSSMRMRR(3)="please see post installation mail message for further instructions."
+4 SET PSSMRMRR(4)=" "
+5 DO MES^XPDUTL(.PSSMRMRR)
+6 DO PRMP
+7 QUIT
+8 ;
+9 ;
PASEX ;
+1 KILL PSSMRMRR
+2 SET PSSMRMRR(1)=" "
SET PSSMRMRR(2)="Cannot find PSS MED ROUTE RECEIVE protocol on system, installation will"
+3 SET PSSMRMRR(3)="continue, please see post installation mail message for further instructions."
+4 SET PSSMRMRR(4)=" "
+5 DO MES^XPDUTL(.PSSMRMRR)
+6 DO PRMP
+7 QUIT
+8 ;
+9 ;
PACEZ ;
+1 KILL PSSMRMRR
+2 SET PSSMRMRR(1)=" "
SET PSSMRMRR(2)="Unable to attach PSS MED ROUTE RECEIVE protocol to XUMF MFS EVENTS protocol,"
+3 SET PSSMRMRR(3)="please see post installation mail message for further instructions."
+4 SET PSSMRMRR(4)=" "
+5 DO MES^XPDUTL(.PSSMRMRR)
+6 DO PRMP
+7 QUIT
+8 ;
+9 ;
PRMP ;
+1 KILL DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
+2 SET DIR(0)="E"
SET DIR("A")="Press Return to Continue"
DO ^DIR
+3 KILL DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
+4 QUIT
+5 ;
+6 ;
PRMAIL ;Add protocol message if necessary
+1 IF 'PSSMRMPF
QUIT
+2 ;Remove next line for Dosing patch
+3 GOTO PRMAILX
+4 SET PSSMRMTC=PSSMRMTC+1
+5 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)=" "
+6 SET PSSMRMTC=PSSMRMTC+1
PRMAILX ;
+1 IF PSSMRMPF=1
Begin DoDot:1
+2 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="Unable to find the XUMF MFS EVENTS protocol. This protocol was exported in"
SET PSSMRMTC=PSSMRMTC+1
+3 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="patch XU*8.0*474. You must have this protocol so the PSS MED ROUTE RECEIVE"
SET PSSMRMTC=PSSMRMTC+1
+4 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="protocol can be attached to it, in order to process any Standard Medication"
SET PSSMRMTC=PSSMRMTC+1
+5 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="Route updates. Please log a Remedy Ticket and refer to this message."
End DoDot:1
QUIT
+6 IF PSSMRMPF=2
Begin DoDot:1
+7 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="Unable to find the PSS MED ROUTE RECEIVE protocol. This protocol was exported"
SET PSSMRMTC=PSSMRMTC+1
+8 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="in patch PSS*1.0*136. You must have this protocol so it can be attached to the"
SET PSSMRMTC=PSSMRMTC+1
+9 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="XUMF MFS EVENTS protocol, in order to process any Standard Medication Route"
SET PSSMRMTC=PSSMRMTC+1
+10 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="updates. Please log a Remedy Ticket and refer to this message."
End DoDot:1
QUIT
+11 IF PSSMRMPF=3
Begin DoDot:1
+12 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="Unable to attach the PSS MED ROUTE RECEIVE protocol to the XUMF MFS EVENTS"
SET PSSMRMTC=PSSMRMTC+1
+13 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="protocol. These protocols must be attached in order to process any Standard"
SET PSSMRMTC=PSSMRMTC+1
+14 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="Medication Route updates. Please log a Remedy Ticket and refer to this message."
End DoDot:1
QUIT
+15 QUIT
+16 ;
+17 ;
ADDMX ;Add Max Single Dose
+1 NEW PSSMRMPD
KILL PSSMRMPD
+2 KILL PSSMRMER
SET PSSMRMPD(1,9009032.3,"+1,",.01)="MAX SINGLE DOSE"
DO UPDATE^DIE("","PSSMRMPD(1)",,"PSSMRMER(1)")
+3 QUIT
+4 ;
+5 ;
ADDMXA ;Add Max Daily Dose
+1 NEW PSSMRMPD
KILL PSSMRMPD
+2 KILL PSSMRMER
SET PSSMRMPD(1,9009032.3,"+1,",.01)="DAILY DOSE RANGE"
DO UPDATE^DIE("","PSSMRMPD(1)",,"PSSMRMER(1)")
+3 QUIT
+4 ;
+5 ;
ADDMXB ;Add Max single and Daily
+1 NEW PSSMRMPD
KILL PSSMRMPD
+2 KILL PSSMRMER
SET PSSMRMPD(1,9009032.3,"+1,",.01)="MAX SINGLE DOSE & DAILY DOSE RANGE"
DO UPDATE^DIE("","PSSMRMPD(1)",,"PSSMRMER(1)")
+3 QUIT
+4 ;
+5 ;
MNU ;Delete PSS DRG INTER MANAGEMENT option from PSS MGR menu
+1 NEW PSSMNUXX
DO BMES^XPDUTL("Removing PSS DRG INTER MANAGEMENT option from PSS MGR Menu option.")
+2 SET PSSMNUXX=$$LKOPT^XPDMENU("PSS DRG INTER MANAGEMENT")
IF $GET(PSSMNUXX)'>0
DO MNUQ
GOTO MNUEN
+3 NEW PSSMNUR
+4 SET PSSMNUR=$$DELETE^XPDMENU("PSS MGR","PSS DRG INTER MANAGEMENT")
+5 IF PSSMNUR
DO MNUQ
GOTO MNUEN
+6 DO BMES^XPDUTL("Unable to remove PSS DRG INTER MANAGEMENT option from PSS MGR Menu option.")
+7 DO PRMP
+8 ;I PSSMRMPF S PSSMRMTC=PSSMRMTC+1 S @XPDGREF@("PSSMLMSG",PSSMRMTC)=" " S PSSMRMTC=PSSMRMTC+1
+9 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="Unable to remove PSS DRG INTER MANAGEMENT option from PSS MGR Menu option."
SET PSSMRMTC=PSSMRMTC+1
+10 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="Please log a Remedy Ticket and refer to this message."
DO INC
+11 ;
MNUEN ;
+1 DO BMES^XPDUTL("Removing PSS ENHANCED ORDER CHECKS option from PSS MGR Menu option.")
+2 SET PSSMNUXX=$$LKOPT^XPDMENU("PSS ENHANCED ORDER CHECKS")
IF $GET(PSSMNUXX)'>0
DO MNUQQ
QUIT
+3 KILL PSSMNUR
+4 SET PSSMNUR=$$DELETE^XPDMENU("PSS MGR","PSS ENHANCED ORDER CHECKS")
+5 IF PSSMNUR
DO MNUQQ
QUIT
+6 DO BMES^XPDUTL("Unable to remove PSS ENHANCED ORDER CHECKS option from PSS MGR Menu option.")
+7 DO PRMP
+8 ;I PSSMRMPF S PSSMRMTC=PSSMRMTC+1 S @XPDGREF@("PSSMLMSG",PSSMRMTC)=" " S PSSMRMTC=PSSMRMTC+1
+9 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="Unable to remove PSS ENHANCED ORDER CHECKS option from PSS MGR Menu option."
SET PSSMRMTC=PSSMRMTC+1
+10 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)="Please log a Remedy Ticket and refer to this message."
DO INC
+11 QUIT
+12 ;
+13 ;
+14 ;
MNUQ ;
+1 DO BMES^XPDUTL("Successfully removed PSS DRG INTER MANAGEMENT option.")
+2 QUIT
+3 ;
+4 ;
MNUQQ ;
+1 DO BMES^XPDUTL("Successfully removed PSS ENHANCED ORDER CHECKS option.")
+2 QUIT
+3 ;
+4 ;
KTM ;Kill TMP global
+1 KILL ^TMP("DIERR",$JOB)
+2 QUIT
+3 ;
+4 ;
INC ;
+1 SET PSSMRMTC=PSSMRMTC+1
+2 SET @XPDGREF@("PSSMLMSG",PSSMRMTC)=" "
+3 SET PSSMRMTC=PSSMRMTC+1
+4 QUIT
