- 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 Feb 18, 2025@23:55:09 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