PSS147PO ;BIR/RTR-Post Install routine for patch PSS*1*147 ;07/17/09
;;1.0;PHARMACY DATA MAMAGEMENT;**147**;9/30/97;Build 16
;
;
N PSSKDACT,PSSMRMPF
K ^TMP($J,"PSS147TX")
S ^TMP($J,"PSS147TX",1,0)="Installation of patch PSS*1.0*147 has been successfully completed!"
S ^TMP($J,"PSS147TX",2,0)=" " I @XPDGREF@("PSS147IN","INSTALL") S PSSKDACT=3 G SUBS
S ^TMP($J,"PSS147TX",3,0)="Please use the IV Additive Report to review the auto-populated data in the"
S ^TMP($J,"PSS147TX",4,0)="new ADDITIVE FREQUENCY (#18) Field of the IV ADDITIVES (#52.6) File and"
S ^TMP($J,"PSS147TX",5,0)="edit as necessary." S ^TMP($J,"PSS147TX",6,0)=" " S PSSKDACT=7
SUBS ;
;
;
I '@XPDGREF@("PSS147IN","INSTALL") D BMES^XPDUTL("Populating new Additive Frequency field...") D IV D BMES^XPDUTL("Finished populating new Additive Frequency field...")
D BMES^XPDUTL("Rebuilding PSS MGR Menu...") D MENU D BMES^XPDUTL("Finished rebuilding PSS MGR Menu...")
D PROT D PRMAIL
D BMES^XPDUTL("Generating Mail message....") D MAIL D BMES^XPDUTL("Mail message sent...")
Q
;
;
IV ;Populate new ADDITIVE FREQUENCY Field in IV ADDITIVES File
N PSSADPN,PSSADPRC,PSSADPDR,PSSADPN1,PSSADPN3,PSSADPCL,X
S PSSADPN="" F S PSSADPN=$O(^PS(52.6,"B",PSSADPN)) Q:PSSADPN="" F PSSADPRC=0:0 S PSSADPRC=$O(^PS(52.6,"B",PSSADPN,PSSADPRC)) Q:'PSSADPRC D
.S PSSADPCL=""
.I $P($G(^PS(52.6,PSSADPRC,0)),"^",14)'="" Q
.S PSSADPDR=$P($G(^PS(52.6,PSSADPRC,0)),"^",2)
.I 'PSSADPDR Q
.S PSSADPN1=$P($G(^PSDRUG(PSSADPDR,"ND")),"^"),PSSADPN3=$P($G(^PSDRUG(PSSADPDR,"ND")),"^",3)
.I PSSADPN1,PSSADPN3 K X S PSSADPCL=$$DCLCODE^PSNAPIS(PSSADPN1,PSSADPN3) K X
.I PSSADPCL="" S PSSADPCL=$P($G(^PSDRUG(PSSADPDR,0)),"^",2)
.I PSSADPCL["VT" S $P(^PS(52.6,PSSADPRC,0),"^",14)=1 Q
.I PSSADPCL'="" S $P(^PS(52.6,PSSADPRC,0),"^",14)="A"
Q
;
;
N PSSKDARS,PSSKDARM
S PSSKDARM=$$LKOPT^XPDMENU("PSS MGR") I 'PSSKDARM D Q
.D BMES^XPDUTL("Unable to find PSS MGR Menu Option....")
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="Unable to find PSS MGR menu option.." S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="Please Log a Remedy Ticket and refer to this message." S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)=" " S PSSKDACT=PSSKDACT+1
I $$FIND1^DIC(19.01,","_PSSKDARM_",","X","PSS IV SOLUTION REPORT","B") D KTM K PSSKDARS S PSSKDARS=$$DELETE^XPDMENU("PSS MGR","PSS IV SOLUTION REPORT") I 'PSSKDARS D Q
.D BMES^XPDUTL("Unable to unlink PSS IV SOLUTION REPORT from PSS MGR Menu Option....")
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="Unable to unlink PSS IV SOLUTION REPORT from PSS MGR Menu Option" S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="Please Log a Remedy Ticket and refer to this message." S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)=" " S PSSKDACT=PSSKDACT+1
D KTM K PSSKDARS S PSSKDARS=$$ADD^XPDMENU("PSS ADDITIVE/SOLUTION REPORTS","PSS IV ADDITIVE REPORT",,1) I 'PSSKDARS D Q
.D BMES^XPDUTL("Unable to attach PSS IV ADDITIVE REPORT to PSS ADDITIVE/SOLUTION REPORTS Menu.")
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="Unable to attach PSS IV ADDITIVE REPORT to PSS ADDITIVE/SOLUTION REPORTS Menu" S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="Please Log a Remedy Ticket and refer to this message." S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)=" " S PSSKDACT=PSSKDACT+1
K PSSKDARS S PSSKDARS=$$ADD^XPDMENU("PSS ADDITIVE/SOLUTION REPORTS","PSS IV SOLUTION REPORT",,2) I 'PSSKDARS D Q
.D BMES^XPDUTL("Unable to attach PSS IV SOLUTION REPORT to PSS ADDITIVE/SOLUTION REPORTS Menu.")
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="Unable to attach PSS IV SOLUTION REPORT to PSS ADDITIVE/SOLUTION REPORTS Menu" S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="Please Log a Remedy Ticket and refer to this message." S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)=" " S PSSKDACT=PSSKDACT+1
K PSSKDARS S PSSKDARS=$$ADD^XPDMENU("PSS MGR","PSS ADDITIVE/SOLUTION REPORTS",,18) I 'PSSKDARS D
.D BMES^XPDUTL("Unable to attach PSS ADDITIVE/SOLUTION REPORTS to PSS MGR Menu Option....")
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="Unable to attach PSS ADDITIVE/SOLUTION REPORTS to PSS MGR Menu Option" S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="Please Log a Remedy Ticket and refer to this message." S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)=" " S PSSKDACT=PSSKDACT+1
Q
;
;
PROT ;Attaching Med Route Receive 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,PSSMRMER
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("PSS MED ROUTE RECEIVE Protocol 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)
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)
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)
Q
;
;
PRMAIL ;Add protocol message if necessary
I 'PSSMRMPF Q
I PSSMRMPF=1 D Q
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="Unable to find the XUMF MFS EVENTS protocol. This protocol was exported in" S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="patch XU*8.0*474. You must have this protocol so the PSS MED ROUTE RECEIVE" S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="protocol can be attached to it, in order to process any Standard Medication" S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="Route updates. Please log a Remedy Ticket and refer to this message."
I PSSMRMPF=2 D Q
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="Unable to find the PSS MED ROUTE RECEIVE protocol. This protocol is exported" S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="in patch PSS*1.0*147. You must have this protocol so it can be attached to the" S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="XUMF MFS EVENTS protocol, in order to process any Standard Medication Route" S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="updates. Please log a Remedy Ticket and refer to this message."
I PSSMRMPF=3 D Q
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="Unable to attach the PSS MED ROUTE RECEIVE protocol to the XUMF MFS EVENTS" S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="protocol. These protocols must be attached in order to process any Standard" S PSSKDACT=PSSKDACT+1
.S ^TMP($J,"PSS147TX",PSSKDACT,0)="Medication Route updates. Please log a Remedy Ticket and refer to this message."
Q
;
;
;
KTM ;Kill TMP global
K ^TMP("DIERR",$J)
Q
;
;
MAIL ;Send Mail Message
N PSS147RC,XMTEXT,XMY,XMSUB,XMDUZ,XMMG,XMSTRIP,XMROU,XMYBLOB,XMZ,XMDUN
S XMSUB="PSS*1*147 Installation Complete"
S XMDUZ="PSS*1*147 Install"
S XMTEXT="^TMP($J,""PSS147TX"","
S PSS147RC="" F S PSS147RC=$O(@XPDGREF@("PSS147DZ",PSS147RC)) Q:PSS147RC="" S XMY(PSS147RC)=""
N DIFROM D ^XMD
K ^TMP($J,"PSS147TX")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS147PO 8069 printed Nov 22, 2024@17:39:13 Page 2
PSS147PO ;BIR/RTR-Post Install routine for patch PSS*1*147 ;07/17/09
+1 ;;1.0;PHARMACY DATA MAMAGEMENT;**147**;9/30/97;Build 16
+2 ;
+3 ;
+4 NEW PSSKDACT,PSSMRMPF
+5 KILL ^TMP($JOB,"PSS147TX")
+6 SET ^TMP($JOB,"PSS147TX",1,0)="Installation of patch PSS*1.0*147 has been successfully completed!"
+7 SET ^TMP($JOB,"PSS147TX",2,0)=" "
IF @XPDGREF@("PSS147IN","INSTALL")
SET PSSKDACT=3
GOTO SUBS
+8 SET ^TMP($JOB,"PSS147TX",3,0)="Please use the IV Additive Report to review the auto-populated data in the"
+9 SET ^TMP($JOB,"PSS147TX",4,0)="new ADDITIVE FREQUENCY (#18) Field of the IV ADDITIVES (#52.6) File and"
+10 SET ^TMP($JOB,"PSS147TX",5,0)="edit as necessary."
SET ^TMP($JOB,"PSS147TX",6,0)=" "
SET PSSKDACT=7
SUBS ;
+1 ;
+2 ;
+3 IF '@XPDGREF@("PSS147IN","INSTALL")
DO BMES^XPDUTL("Populating new Additive Frequency field...")
DO IV
DO BMES^XPDUTL("Finished populating new Additive Frequency field...")
+4 DO BMES^XPDUTL("Rebuilding PSS MGR Menu...")
DO MENU
DO BMES^XPDUTL("Finished rebuilding PSS MGR Menu...")
+5 DO PROT
DO PRMAIL
+6 DO BMES^XPDUTL("Generating Mail message....")
DO MAIL
DO BMES^XPDUTL("Mail message sent...")
+7 QUIT
+8 ;
+9 ;
IV ;Populate new ADDITIVE FREQUENCY Field in IV ADDITIVES File
+1 NEW PSSADPN,PSSADPRC,PSSADPDR,PSSADPN1,PSSADPN3,PSSADPCL,X
+2 SET PSSADPN=""
FOR
SET PSSADPN=$ORDER(^PS(52.6,"B",PSSADPN))
if PSSADPN=""
QUIT
FOR PSSADPRC=0:0
SET PSSADPRC=$ORDER(^PS(52.6,"B",PSSADPN,PSSADPRC))
if 'PSSADPRC
QUIT
Begin DoDot:1
+3 SET PSSADPCL=""
+4 IF $PIECE($GET(^PS(52.6,PSSADPRC,0)),"^",14)'=""
QUIT
+5 SET PSSADPDR=$PIECE($GET(^PS(52.6,PSSADPRC,0)),"^",2)
+6 IF 'PSSADPDR
QUIT
+7 SET PSSADPN1=$PIECE($GET(^PSDRUG(PSSADPDR,"ND")),"^")
SET PSSADPN3=$PIECE($GET(^PSDRUG(PSSADPDR,"ND")),"^",3)
+8 IF PSSADPN1
IF PSSADPN3
KILL X
SET PSSADPCL=$$DCLCODE^PSNAPIS(PSSADPN1,PSSADPN3)
KILL X
+9 IF PSSADPCL=""
SET PSSADPCL=$PIECE($GET(^PSDRUG(PSSADPDR,0)),"^",2)
+10 IF PSSADPCL["VT"
SET $PIECE(^PS(52.6,PSSADPRC,0),"^",14)=1
QUIT
+11 IF PSSADPCL'=""
SET $PIECE(^PS(52.6,PSSADPRC,0),"^",14)="A"
End DoDot:1
+12 QUIT
+13 ;
+14 ;
+1 NEW PSSKDARS,PSSKDARM
+2 SET PSSKDARM=$$LKOPT^XPDMENU("PSS MGR")
IF 'PSSKDARM
Begin DoDot:1
+3 DO BMES^XPDUTL("Unable to find PSS MGR Menu Option....")
+4 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="Unable to find PSS MGR menu option.."
SET PSSKDACT=PSSKDACT+1
+5 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="Please Log a Remedy Ticket and refer to this message."
SET PSSKDACT=PSSKDACT+1
+6 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)=" "
SET PSSKDACT=PSSKDACT+1
End DoDot:1
QUIT
+7 IF $$FIND1^DIC(19.01,","_PSSKDARM_",","X","PSS IV SOLUTION REPORT","B")
DO KTM
KILL PSSKDARS
SET PSSKDARS=$$DELETE^XPDMENU("PSS MGR","PSS IV SOLUTION REPORT")
IF 'PSSKDARS
Begin DoDot:1
+8 DO BMES^XPDUTL("Unable to unlink PSS IV SOLUTION REPORT from PSS MGR Menu Option....")
+9 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="Unable to unlink PSS IV SOLUTION REPORT from PSS MGR Menu Option"
SET PSSKDACT=PSSKDACT+1
+10 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="Please Log a Remedy Ticket and refer to this message."
SET PSSKDACT=PSSKDACT+1
+11 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)=" "
SET PSSKDACT=PSSKDACT+1
End DoDot:1
QUIT
+12 DO KTM
KILL PSSKDARS
SET PSSKDARS=$$ADD^XPDMENU("PSS ADDITIVE/SOLUTION REPORTS","PSS IV ADDITIVE REPORT",,1)
IF 'PSSKDARS
Begin DoDot:1
+13 DO BMES^XPDUTL("Unable to attach PSS IV ADDITIVE REPORT to PSS ADDITIVE/SOLUTION REPORTS Menu.")
+14 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="Unable to attach PSS IV ADDITIVE REPORT to PSS ADDITIVE/SOLUTION REPORTS Menu"
SET PSSKDACT=PSSKDACT+1
+15 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="Please Log a Remedy Ticket and refer to this message."
SET PSSKDACT=PSSKDACT+1
+16 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)=" "
SET PSSKDACT=PSSKDACT+1
End DoDot:1
QUIT
+17 KILL PSSKDARS
SET PSSKDARS=$$ADD^XPDMENU("PSS ADDITIVE/SOLUTION REPORTS","PSS IV SOLUTION REPORT",,2)
IF 'PSSKDARS
Begin DoDot:1
+18 DO BMES^XPDUTL("Unable to attach PSS IV SOLUTION REPORT to PSS ADDITIVE/SOLUTION REPORTS Menu.")
+19 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="Unable to attach PSS IV SOLUTION REPORT to PSS ADDITIVE/SOLUTION REPORTS Menu"
SET PSSKDACT=PSSKDACT+1
+20 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="Please Log a Remedy Ticket and refer to this message."
SET PSSKDACT=PSSKDACT+1
+21 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)=" "
SET PSSKDACT=PSSKDACT+1
End DoDot:1
QUIT
+22 KILL PSSKDARS
SET PSSKDARS=$$ADD^XPDMENU("PSS MGR","PSS ADDITIVE/SOLUTION REPORTS",,18)
IF 'PSSKDARS
Begin DoDot:1
+23 DO BMES^XPDUTL("Unable to attach PSS ADDITIVE/SOLUTION REPORTS to PSS MGR Menu Option....")
+24 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="Unable to attach PSS ADDITIVE/SOLUTION REPORTS to PSS MGR Menu Option"
SET PSSKDACT=PSSKDACT+1
+25 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="Please Log a Remedy Ticket and refer to this message."
SET PSSKDACT=PSSKDACT+1
+26 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)=" "
SET PSSKDACT=PSSKDACT+1
End DoDot:1
+27 QUIT
+28 ;
+29 ;
PROT ;Attaching Med Route Receive 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,PSSMRMER
+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("PSS MED ROUTE RECEIVE Protocol 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 QUIT
+7 ;
+8 ;
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 QUIT
+7 ;
+8 ;
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 QUIT
+7 ;
+8 ;
PRMAIL ;Add protocol message if necessary
+1 IF 'PSSMRMPF
QUIT
+2 IF PSSMRMPF=1
Begin DoDot:1
+3 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="Unable to find the XUMF MFS EVENTS protocol. This protocol was exported in"
SET PSSKDACT=PSSKDACT+1
+4 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="patch XU*8.0*474. You must have this protocol so the PSS MED ROUTE RECEIVE"
SET PSSKDACT=PSSKDACT+1
+5 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="protocol can be attached to it, in order to process any Standard Medication"
SET PSSKDACT=PSSKDACT+1
+6 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="Route updates. Please log a Remedy Ticket and refer to this message."
End DoDot:1
QUIT
+7 IF PSSMRMPF=2
Begin DoDot:1
+8 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="Unable to find the PSS MED ROUTE RECEIVE protocol. This protocol is exported"
SET PSSKDACT=PSSKDACT+1
+9 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="in patch PSS*1.0*147. You must have this protocol so it can be attached to the"
SET PSSKDACT=PSSKDACT+1
+10 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="XUMF MFS EVENTS protocol, in order to process any Standard Medication Route"
SET PSSKDACT=PSSKDACT+1
+11 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="updates. Please log a Remedy Ticket and refer to this message."
End DoDot:1
QUIT
+12 IF PSSMRMPF=3
Begin DoDot:1
+13 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="Unable to attach the PSS MED ROUTE RECEIVE protocol to the XUMF MFS EVENTS"
SET PSSKDACT=PSSKDACT+1
+14 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="protocol. These protocols must be attached in order to process any Standard"
SET PSSKDACT=PSSKDACT+1
+15 SET ^TMP($JOB,"PSS147TX",PSSKDACT,0)="Medication Route updates. Please log a Remedy Ticket and refer to this message."
End DoDot:1
QUIT
+16 QUIT
+17 ;
+18 ;
+19 ;
KTM ;Kill TMP global
+1 KILL ^TMP("DIERR",$JOB)
+2 QUIT
+3 ;
+4 ;
MAIL ;Send Mail Message
+1 NEW PSS147RC,XMTEXT,XMY,XMSUB,XMDUZ,XMMG,XMSTRIP,XMROU,XMYBLOB,XMZ,XMDUN
+2 SET XMSUB="PSS*1*147 Installation Complete"
+3 SET XMDUZ="PSS*1*147 Install"
+4 SET XMTEXT="^TMP($J,""PSS147TX"","
+5 SET PSS147RC=""
FOR
SET PSS147RC=$ORDER(@XPDGREF@("PSS147DZ",PSS147RC))
if PSS147RC=""
QUIT
SET XMY(PSS147RC)=""
+6 NEW DIFROM
DO ^XMD
+7 KILL ^TMP($JOB,"PSS147TX")
+8 QUIT
