Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSS117EN

PSS117EN.m

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