PSS117PO ;BIR/RTR-Post Install routine for patch PSS*1*117 ;11/22/08
;;1.0;PHARMACY DATA MANAGEMENT;**117**;9/30/97;Build 101
;
;
EN ;Do Mail Message
;
D MNUADD D BMES^XPDUTL("Generating Mail Message....") D MAIL D BMES^XPDUTL("Mail message sent.")
Q
;
;
MAIL ;Send mail message
N PSS17REC,PSS17PLP,XMTEXT,XMY,XMSUB,XMDUZ,XMMG,XMSTRIP,XMROU,XMYBLOB,XMZ,XMDUN
K ^TMP($J,"PSS17PTX")
F PSS17PLP=0:0 S PSS17PLP=$O(@XPDGREF@("PSSMLMSG",PSS17PLP)) Q:'PSS17PLP S ^TMP($J,"PSS17PTX",PSS17PLP)=@XPDGREF@("PSSMLMSG",PSS17PLP)
S XMSUB="PSS*1*117 Installation Complete"
S XMDUZ="PSS*1*117 Install"
S XMTEXT="^TMP($J,""PSS17PTX"","
;F PSSFDS=0:0 S PSSFDS=$O(@XPDGREF@("PSSVJARX",PSSFDS)) Q:'PSSFDS S XMY(PSSFDS)=""
;S XMY("G.PSS ORDER CHECKS")=""
S PSS17REC="" F S PSS17REC=$O(@XPDGREF@("PSSMLMDZ",PSS17REC)) Q:PSS17REC="" S XMY(PSS17REC)=""
N DIFROM D ^XMD
K ^TMP($J,"PSS17PTX")
Q
;
;
MNUADD ;Add PSS ORDER CHECK MANAGEMENT Sub-Menu to PSS MGR Menu option
D BMES^XPDUTL("Linking New PSS Menus....")
N PSSMNUA,PSSMNUAF,PSSMNUA1,PSSMNUA2
S PSSMNUA2=0
F PSSMNUA1=0:0 S PSSMNUA1=$O(@XPDGREF@("PSSMLMSG",PSSMNUA1)) Q:'PSSMNUA1 S PSSMNUA2=PSSMNUA2+1
;I PSSMNUA2>2 S PSSMNUA2=PSSMNUA2+1 S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" "
S PSSMNUA2=PSSMNUA2+1 S PSSMNUAF=1
K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS MGR","PSS ORDER CHECK MANAGEMENT",,4) I 'PSSMNUA D MNUADD1
K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS ORDER CHECK MANAGEMENT","PSS ORDER CHECK CHANGES",,1) I 'PSSMNUA D MNUADD2
K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS ORDER CHECK MANAGEMENT","PSS REPORT LOCAL INTERACTIONS",,2) I 'PSSMNUA D MNUADD3
K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS PEPS SERVICES","PSS SCHEDULE PEPS INTERFACE CK",,3) I 'PSSMNUA D MNUADD4
K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS ADDITIVE/SOLUTION","PSS IV ADDITIVE REPORT",,1) I 'PSSMNUA D MNUADD11
K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS ADDITIVE/SOLUTION","PSS IV SOLUTION REPORT",,2) I 'PSSMNUA D MNUADD12
K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS ADDITIVE/SOLUTION","PSS MARK PREMIX SOLUTIONS",,3) I 'PSSMNUA D MNUADD13
D REB I PSSMNUAF D BMES^XPDUTL("All Menu options linked successfully....")
;D TASKIT^PSSHRIT(15)
Q
;
;
MNUADD1 ;
S PSSMNUAF=0
D BMES^XPDUTL("Unable to link PSS ORDER CHECK MANAGEMENT Menu Option....")
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS ORDER CHECK MANAGEMENT Menu Option to PSS MGR Menu" S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
Q
;
;
MNUADD2 ;
S PSSMNUAF=0
D BMES^XPDUTL("Unable to link PSS ORDER CHECK CHANGES Option....")
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS ORDER CHECK CHANGES to PSS ORDER CHECK MANAGEMENT Menu" S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
Q
;
;
MNUADD3 ;
S PSSMNUAF=0
D BMES^XPDUTL("Unable to link PSS REPORT LOCAL INTERACTIONS Option....")
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS REPORT LOCAL INTERACTIONS to PSS ORDER CHECK MANAGEMENT Menu" S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
Q
MNUADD4 ;
S PSSMNUAF=0
D BMES^XPDUTL("Unable to link PSS SCHEDULE PEPS INTERFACE CK Option....")
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS SCHEDULE PEPS INTERFACE CK to PSS PEPS SERVICES Menu" S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
Q
;
;
REB ;Rebuild Menus
N PSSMNUR
;S PSSMNUR=$$DELETE^XPDMENU("PSS MGR","PSS ADDITIVE/SOLUTION REPORTS")
S PSSMNUR=$$DELETE^XPDMENU("PSS MGR","PSS WARNING BUILDER")
S PSSMNUR=$$DELETE^XPDMENU("PSS MGR","PSS WARNING MAPPING")
S PSSMNUR=$$DELETE^XPDMENU("PSS MGR","PSS PEPS SERVICES")
K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS MGR","PSS ADDITIVE/SOLUTION",,17) I 'PSSMNUA D MNUADD5
K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS MGR","PSS WARNING BUILDER",,18) I 'PSSMNUA D MNUADD6
K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS MGR","PSS WARNING MAPPING",,19) I 'PSSMNUA D MNUADD7
K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS MGR","PSS PEPS SERVICES",,20) I 'PSSMNUA D MNUADD8
Q
;
;
MNUADD5 ;
S PSSMNUAF=0
D BMES^XPDUTL("Unable to link PSS ADDITIVE/SOLUTION Option....")
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS ADDITIVE/SOLUTION to PSS MGR Menu" S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
Q
;
;
MNUADD6 ;
S PSSMNUAF=0
D BMES^XPDUTL("Unable to re-link PSS WARNING BUILDER Option....")
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to RE-link PSS WARNING BUILDER to PSS MGR Menu" S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
Q
;
;
MNUADD7 ;
S PSSMNUAF=0
D BMES^XPDUTL("Unable to re-link PSS WARNING MAPPING CK Option....")
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to re-link PSS WARNING MAPPING to PSS MGR Menu" S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
Q
;
;
MNUADD8 ;
S PSSMNUAF=0
D BMES^XPDUTL("Unable to re-link PSS PEPS SERVICES Option....")
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to re-link PSS PEPS SERVICES to PSS MGR Menu" S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
Q
;
;
MNUADD11 ;
S PSSMNUAF=0
D BMES^XPDUTL("Unable to link PSS IV ADDITIVE REPORT Option....")
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS IV ADDITIVE REPORT to PSS ADDITIVE/SOLUTION Menu" S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
Q
;
;
MNUADD12 ;
S PSSMNUAF=0
D BMES^XPDUTL("Unable to link PSS IV SOLUTION REPORT Option....")
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS IV SOLUTION REPORT to PSS ADDITIVE/SOLUTION Menu" S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
Q
;
;
MNUADD13 ;
S PSSMNUAF=0
D BMES^XPDUTL("Unable to link PSS MARK PREMIX SOLUTIONS Option....")
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS MARK PREMIX SOLUTIONS to PSS ADDITIVE/SOLUTION Menu" S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS117PO 7282 printed Apr 09, 2024@21:33:03 Page 2
PSS117PO ;BIR/RTR-Post Install routine for patch PSS*1*117 ;11/22/08
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**117**;9/30/97;Build 101
+2 ;
+3 ;
EN ;Do Mail Message
+1 ;
+2 DO MNUADD
DO BMES^XPDUTL("Generating Mail Message....")
DO MAIL
DO BMES^XPDUTL("Mail message sent.")
+3 QUIT
+4 ;
+5 ;
MAIL ;Send mail message
+1 NEW PSS17REC,PSS17PLP,XMTEXT,XMY,XMSUB,XMDUZ,XMMG,XMSTRIP,XMROU,XMYBLOB,XMZ,XMDUN
+2 KILL ^TMP($JOB,"PSS17PTX")
+3 FOR PSS17PLP=0:0
SET PSS17PLP=$ORDER(@XPDGREF@("PSSMLMSG",PSS17PLP))
if 'PSS17PLP
QUIT
SET ^TMP($JOB,"PSS17PTX",PSS17PLP)=@XPDGREF@("PSSMLMSG",PSS17PLP)
+4 SET XMSUB="PSS*1*117 Installation Complete"
+5 SET XMDUZ="PSS*1*117 Install"
+6 SET XMTEXT="^TMP($J,""PSS17PTX"","
+7 ;F PSSFDS=0:0 S PSSFDS=$O(@XPDGREF@("PSSVJARX",PSSFDS)) Q:'PSSFDS S XMY(PSSFDS)=""
+8 ;S XMY("G.PSS ORDER CHECKS")=""
+9 SET PSS17REC=""
FOR
SET PSS17REC=$ORDER(@XPDGREF@("PSSMLMDZ",PSS17REC))
if PSS17REC=""
QUIT
SET XMY(PSS17REC)=""
+10 NEW DIFROM
DO ^XMD
+11 KILL ^TMP($JOB,"PSS17PTX")
+12 QUIT
+13 ;
+14 ;
MNUADD ;Add PSS ORDER CHECK MANAGEMENT Sub-Menu to PSS MGR Menu option
+1 DO BMES^XPDUTL("Linking New PSS Menus....")
+2 NEW PSSMNUA,PSSMNUAF,PSSMNUA1,PSSMNUA2
+3 SET PSSMNUA2=0
+4 FOR PSSMNUA1=0:0
SET PSSMNUA1=$ORDER(@XPDGREF@("PSSMLMSG",PSSMNUA1))
if 'PSSMNUA1
QUIT
SET PSSMNUA2=PSSMNUA2+1
+5 ;I PSSMNUA2>2 S PSSMNUA2=PSSMNUA2+1 S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" "
+6 SET PSSMNUA2=PSSMNUA2+1
SET PSSMNUAF=1
+7 KILL PSSMNUA
SET PSSMNUA=$$ADD^XPDMENU("PSS MGR","PSS ORDER CHECK MANAGEMENT",,4)
IF 'PSSMNUA
DO MNUADD1
+8 KILL PSSMNUA
SET PSSMNUA=$$ADD^XPDMENU("PSS ORDER CHECK MANAGEMENT","PSS ORDER CHECK CHANGES",,1)
IF 'PSSMNUA
DO MNUADD2
+9 KILL PSSMNUA
SET PSSMNUA=$$ADD^XPDMENU("PSS ORDER CHECK MANAGEMENT","PSS REPORT LOCAL INTERACTIONS",,2)
IF 'PSSMNUA
DO MNUADD3
+10 KILL PSSMNUA
SET PSSMNUA=$$ADD^XPDMENU("PSS PEPS SERVICES","PSS SCHEDULE PEPS INTERFACE CK",,3)
IF 'PSSMNUA
DO MNUADD4
+11 KILL PSSMNUA
SET PSSMNUA=$$ADD^XPDMENU("PSS ADDITIVE/SOLUTION","PSS IV ADDITIVE REPORT",,1)
IF 'PSSMNUA
DO MNUADD11
+12 KILL PSSMNUA
SET PSSMNUA=$$ADD^XPDMENU("PSS ADDITIVE/SOLUTION","PSS IV SOLUTION REPORT",,2)
IF 'PSSMNUA
DO MNUADD12
+13 KILL PSSMNUA
SET PSSMNUA=$$ADD^XPDMENU("PSS ADDITIVE/SOLUTION","PSS MARK PREMIX SOLUTIONS",,3)
IF 'PSSMNUA
DO MNUADD13
+14 DO REB
IF PSSMNUAF
DO BMES^XPDUTL("All Menu options linked successfully....")
+15 ;D TASKIT^PSSHRIT(15)
+16 QUIT
+17 ;
+18 ;
MNUADD1 ;
+1 SET PSSMNUAF=0
+2 DO BMES^XPDUTL("Unable to link PSS ORDER CHECK MANAGEMENT Menu Option....")
+3 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS ORDER CHECK MANAGEMENT Menu Option to PSS MGR Menu"
SET PSSMNUA2=PSSMNUA2+1
+4 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message."
SET PSSMNUA2=PSSMNUA2+1
+5 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)=" "
SET PSSMNUA2=PSSMNUA2+1
+6 QUIT
+7 ;
+8 ;
MNUADD2 ;
+1 SET PSSMNUAF=0
+2 DO BMES^XPDUTL("Unable to link PSS ORDER CHECK CHANGES Option....")
+3 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS ORDER CHECK CHANGES to PSS ORDER CHECK MANAGEMENT Menu"
SET PSSMNUA2=PSSMNUA2+1
+4 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message."
SET PSSMNUA2=PSSMNUA2+1
+5 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)=" "
SET PSSMNUA2=PSSMNUA2+1
+6 QUIT
+7 ;
+8 ;
MNUADD3 ;
+1 SET PSSMNUAF=0
+2 DO BMES^XPDUTL("Unable to link PSS REPORT LOCAL INTERACTIONS Option....")
+3 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS REPORT LOCAL INTERACTIONS to PSS ORDER CHECK MANAGEMENT Menu"
SET PSSMNUA2=PSSMNUA2+1
+4 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message."
SET PSSMNUA2=PSSMNUA2+1
+5 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)=" "
SET PSSMNUA2=PSSMNUA2+1
+6 QUIT
MNUADD4 ;
+1 SET PSSMNUAF=0
+2 DO BMES^XPDUTL("Unable to link PSS SCHEDULE PEPS INTERFACE CK Option....")
+3 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS SCHEDULE PEPS INTERFACE CK to PSS PEPS SERVICES Menu"
SET PSSMNUA2=PSSMNUA2+1
+4 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message."
SET PSSMNUA2=PSSMNUA2+1
+5 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)=" "
SET PSSMNUA2=PSSMNUA2+1
+6 QUIT
+7 ;
+8 ;
REB ;Rebuild Menus
+1 NEW PSSMNUR
+2 ;S PSSMNUR=$$DELETE^XPDMENU("PSS MGR","PSS ADDITIVE/SOLUTION REPORTS")
+3 SET PSSMNUR=$$DELETE^XPDMENU("PSS MGR","PSS WARNING BUILDER")
+4 SET PSSMNUR=$$DELETE^XPDMENU("PSS MGR","PSS WARNING MAPPING")
+5 SET PSSMNUR=$$DELETE^XPDMENU("PSS MGR","PSS PEPS SERVICES")
+6 KILL PSSMNUA
SET PSSMNUA=$$ADD^XPDMENU("PSS MGR","PSS ADDITIVE/SOLUTION",,17)
IF 'PSSMNUA
DO MNUADD5
+7 KILL PSSMNUA
SET PSSMNUA=$$ADD^XPDMENU("PSS MGR","PSS WARNING BUILDER",,18)
IF 'PSSMNUA
DO MNUADD6
+8 KILL PSSMNUA
SET PSSMNUA=$$ADD^XPDMENU("PSS MGR","PSS WARNING MAPPING",,19)
IF 'PSSMNUA
DO MNUADD7
+9 KILL PSSMNUA
SET PSSMNUA=$$ADD^XPDMENU("PSS MGR","PSS PEPS SERVICES",,20)
IF 'PSSMNUA
DO MNUADD8
+10 QUIT
+11 ;
+12 ;
MNUADD5 ;
+1 SET PSSMNUAF=0
+2 DO BMES^XPDUTL("Unable to link PSS ADDITIVE/SOLUTION Option....")
+3 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS ADDITIVE/SOLUTION to PSS MGR Menu"
SET PSSMNUA2=PSSMNUA2+1
+4 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message."
SET PSSMNUA2=PSSMNUA2+1
+5 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)=" "
SET PSSMNUA2=PSSMNUA2+1
+6 QUIT
+7 ;
+8 ;
MNUADD6 ;
+1 SET PSSMNUAF=0
+2 DO BMES^XPDUTL("Unable to re-link PSS WARNING BUILDER Option....")
+3 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to RE-link PSS WARNING BUILDER to PSS MGR Menu"
SET PSSMNUA2=PSSMNUA2+1
+4 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message."
SET PSSMNUA2=PSSMNUA2+1
+5 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)=" "
SET PSSMNUA2=PSSMNUA2+1
+6 QUIT
+7 ;
+8 ;
MNUADD7 ;
+1 SET PSSMNUAF=0
+2 DO BMES^XPDUTL("Unable to re-link PSS WARNING MAPPING CK Option....")
+3 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to re-link PSS WARNING MAPPING to PSS MGR Menu"
SET PSSMNUA2=PSSMNUA2+1
+4 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message."
SET PSSMNUA2=PSSMNUA2+1
+5 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)=" "
SET PSSMNUA2=PSSMNUA2+1
+6 QUIT
+7 ;
+8 ;
MNUADD8 ;
+1 SET PSSMNUAF=0
+2 DO BMES^XPDUTL("Unable to re-link PSS PEPS SERVICES Option....")
+3 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to re-link PSS PEPS SERVICES to PSS MGR Menu"
SET PSSMNUA2=PSSMNUA2+1
+4 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message."
SET PSSMNUA2=PSSMNUA2+1
+5 QUIT
+6 ;
+7 ;
MNUADD11 ;
+1 SET PSSMNUAF=0
+2 DO BMES^XPDUTL("Unable to link PSS IV ADDITIVE REPORT Option....")
+3 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS IV ADDITIVE REPORT to PSS ADDITIVE/SOLUTION Menu"
SET PSSMNUA2=PSSMNUA2+1
+4 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message."
SET PSSMNUA2=PSSMNUA2+1
+5 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)=" "
SET PSSMNUA2=PSSMNUA2+1
+6 QUIT
+7 ;
+8 ;
MNUADD12 ;
+1 SET PSSMNUAF=0
+2 DO BMES^XPDUTL("Unable to link PSS IV SOLUTION REPORT Option....")
+3 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS IV SOLUTION REPORT to PSS ADDITIVE/SOLUTION Menu"
SET PSSMNUA2=PSSMNUA2+1
+4 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message."
SET PSSMNUA2=PSSMNUA2+1
+5 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)=" "
SET PSSMNUA2=PSSMNUA2+1
+6 QUIT
+7 ;
+8 ;
MNUADD13 ;
+1 SET PSSMNUAF=0
+2 DO BMES^XPDUTL("Unable to link PSS MARK PREMIX SOLUTIONS Option....")
+3 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS MARK PREMIX SOLUTIONS to PSS ADDITIVE/SOLUTION Menu"
SET PSSMNUA2=PSSMNUA2+1
+4 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message."
SET PSSMNUA2=PSSMNUA2+1
+5 SET @XPDGREF@("PSSMLMSG",PSSMNUA2)=" "
SET PSSMNUA2=PSSMNUA2+1
+6 QUIT
