Routine: PSS117PO

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.")

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")

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)

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

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

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

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

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

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

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

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

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

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

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

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

--- 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

PSS117PO.m