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

PSS117PO.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ;
  1. EN ;Do Mail Message
  1. ;
  1. D MNUADD D BMES^XPDUTL("Generating Mail Message....") D MAIL D BMES^XPDUTL("Mail message sent.")
  1. Q
  1. ;
  1. ;
  1. MAIL ;Send mail message
  1. N PSS17REC,PSS17PLP,XMTEXT,XMY,XMSUB,XMDUZ,XMMG,XMSTRIP,XMROU,XMYBLOB,XMZ,XMDUN
  1. K ^TMP($J,"PSS17PTX")
  1. F PSS17PLP=0:0 S PSS17PLP=$O(@XPDGREF@("PSSMLMSG",PSS17PLP)) Q:'PSS17PLP S ^TMP($J,"PSS17PTX",PSS17PLP)=@XPDGREF@("PSSMLMSG",PSS17PLP)
  1. S XMSUB="PSS*1*117 Installation Complete"
  1. S XMDUZ="PSS*1*117 Install"
  1. S XMTEXT="^TMP($J,""PSS17PTX"","
  1. ;F PSSFDS=0:0 S PSSFDS=$O(@XPDGREF@("PSSVJARX",PSSFDS)) Q:'PSSFDS S XMY(PSSFDS)=""
  1. ;S XMY("G.PSS ORDER CHECKS")=""
  1. S PSS17REC="" F S PSS17REC=$O(@XPDGREF@("PSSMLMDZ",PSS17REC)) Q:PSS17REC="" S XMY(PSS17REC)=""
  1. N DIFROM D ^XMD
  1. K ^TMP($J,"PSS17PTX")
  1. Q
  1. ;
  1. ;
  1. MNUADD ;Add PSS ORDER CHECK MANAGEMENT Sub-Menu to PSS MGR Menu option
  1. D BMES^XPDUTL("Linking New PSS Menus....")
  1. N PSSMNUA,PSSMNUAF,PSSMNUA1,PSSMNUA2
  1. S PSSMNUA2=0
  1. F PSSMNUA1=0:0 S PSSMNUA1=$O(@XPDGREF@("PSSMLMSG",PSSMNUA1)) Q:'PSSMNUA1 S PSSMNUA2=PSSMNUA2+1
  1. ;I PSSMNUA2>2 S PSSMNUA2=PSSMNUA2+1 S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" "
  1. S PSSMNUA2=PSSMNUA2+1 S PSSMNUAF=1
  1. K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS MGR","PSS ORDER CHECK MANAGEMENT",,4) I 'PSSMNUA D MNUADD1
  1. K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS ORDER CHECK MANAGEMENT","PSS ORDER CHECK CHANGES",,1) I 'PSSMNUA D MNUADD2
  1. K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS ORDER CHECK MANAGEMENT","PSS REPORT LOCAL INTERACTIONS",,2) I 'PSSMNUA D MNUADD3
  1. K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS PEPS SERVICES","PSS SCHEDULE PEPS INTERFACE CK",,3) I 'PSSMNUA D MNUADD4
  1. K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS ADDITIVE/SOLUTION","PSS IV ADDITIVE REPORT",,1) I 'PSSMNUA D MNUADD11
  1. K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS ADDITIVE/SOLUTION","PSS IV SOLUTION REPORT",,2) I 'PSSMNUA D MNUADD12
  1. K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS ADDITIVE/SOLUTION","PSS MARK PREMIX SOLUTIONS",,3) I 'PSSMNUA D MNUADD13
  1. D REB I PSSMNUAF D BMES^XPDUTL("All Menu options linked successfully....")
  1. ;D TASKIT^PSSHRIT(15)
  1. Q
  1. ;
  1. ;
  1. MNUADD1 ;
  1. S PSSMNUAF=0
  1. D BMES^XPDUTL("Unable to link PSS ORDER CHECK MANAGEMENT Menu Option....")
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS ORDER CHECK MANAGEMENT Menu Option to PSS MGR Menu" S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
  1. Q
  1. ;
  1. ;
  1. MNUADD2 ;
  1. S PSSMNUAF=0
  1. D BMES^XPDUTL("Unable to link PSS ORDER CHECK CHANGES Option....")
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS ORDER CHECK CHANGES to PSS ORDER CHECK MANAGEMENT Menu" S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
  1. Q
  1. ;
  1. ;
  1. MNUADD3 ;
  1. S PSSMNUAF=0
  1. D BMES^XPDUTL("Unable to link PSS REPORT LOCAL INTERACTIONS Option....")
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS REPORT LOCAL INTERACTIONS to PSS ORDER CHECK MANAGEMENT Menu" S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
  1. Q
  1. MNUADD4 ;
  1. S PSSMNUAF=0
  1. D BMES^XPDUTL("Unable to link PSS SCHEDULE PEPS INTERFACE CK Option....")
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS SCHEDULE PEPS INTERFACE CK to PSS PEPS SERVICES Menu" S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
  1. Q
  1. ;
  1. ;
  1. REB ;Rebuild Menus
  1. N PSSMNUR
  1. ;S PSSMNUR=$$DELETE^XPDMENU("PSS MGR","PSS ADDITIVE/SOLUTION REPORTS")
  1. S PSSMNUR=$$DELETE^XPDMENU("PSS MGR","PSS WARNING BUILDER")
  1. S PSSMNUR=$$DELETE^XPDMENU("PSS MGR","PSS WARNING MAPPING")
  1. S PSSMNUR=$$DELETE^XPDMENU("PSS MGR","PSS PEPS SERVICES")
  1. K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS MGR","PSS ADDITIVE/SOLUTION",,17) I 'PSSMNUA D MNUADD5
  1. K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS MGR","PSS WARNING BUILDER",,18) I 'PSSMNUA D MNUADD6
  1. K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS MGR","PSS WARNING MAPPING",,19) I 'PSSMNUA D MNUADD7
  1. K PSSMNUA S PSSMNUA=$$ADD^XPDMENU("PSS MGR","PSS PEPS SERVICES",,20) I 'PSSMNUA D MNUADD8
  1. Q
  1. ;
  1. ;
  1. MNUADD5 ;
  1. S PSSMNUAF=0
  1. D BMES^XPDUTL("Unable to link PSS ADDITIVE/SOLUTION Option....")
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS ADDITIVE/SOLUTION to PSS MGR Menu" S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
  1. Q
  1. ;
  1. ;
  1. MNUADD6 ;
  1. S PSSMNUAF=0
  1. D BMES^XPDUTL("Unable to re-link PSS WARNING BUILDER Option....")
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to RE-link PSS WARNING BUILDER to PSS MGR Menu" S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
  1. Q
  1. ;
  1. ;
  1. MNUADD7 ;
  1. S PSSMNUAF=0
  1. D BMES^XPDUTL("Unable to re-link PSS WARNING MAPPING CK Option....")
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to re-link PSS WARNING MAPPING to PSS MGR Menu" S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
  1. Q
  1. ;
  1. ;
  1. MNUADD8 ;
  1. S PSSMNUAF=0
  1. D BMES^XPDUTL("Unable to re-link PSS PEPS SERVICES Option....")
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to re-link PSS PEPS SERVICES to PSS MGR Menu" S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
  1. Q
  1. ;
  1. ;
  1. MNUADD11 ;
  1. S PSSMNUAF=0
  1. D BMES^XPDUTL("Unable to link PSS IV ADDITIVE REPORT Option....")
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS IV ADDITIVE REPORT to PSS ADDITIVE/SOLUTION Menu" S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
  1. Q
  1. ;
  1. ;
  1. MNUADD12 ;
  1. S PSSMNUAF=0
  1. D BMES^XPDUTL("Unable to link PSS IV SOLUTION REPORT Option....")
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS IV SOLUTION REPORT to PSS ADDITIVE/SOLUTION Menu" S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
  1. Q
  1. ;
  1. ;
  1. MNUADD13 ;
  1. S PSSMNUAF=0
  1. D BMES^XPDUTL("Unable to link PSS MARK PREMIX SOLUTIONS Option....")
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Unable to link PSS MARK PREMIX SOLUTIONS to PSS ADDITIVE/SOLUTION Menu" S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)="Please Log a Remedy Ticket and refer to this message." S PSSMNUA2=PSSMNUA2+1
  1. S @XPDGREF@("PSSMLMSG",PSSMNUA2)=" " S PSSMNUA2=PSSMNUA2+1
  1. Q