PSO251PO ;BIR/RTR-Post Init for PSO*7*251 ;09/17/09
;;7.0;OUTPATIENT PHARMACY;**251**;DEC 1997;Build 202
;
;
D MNUADD D BMES^XPDUTL("Generating Mail Message....") D MAIL D BMES^XPDUTL("Mail message sent.")
Q
;
;
MAIL ;Send mail message
N XMTEXT,XMY,XMSUB,XMDUZ,XMMG,XMSTRIP,XMROU,XMYBLOB,XMZ,XMDUN
S XMSUB="PSO*7*251 Installation Complete"
S XMDUZ="PSO*7*251 Install"
S XMTEXT="^TMP($J,""PSO125TX"","
I $G(DUZ) S XMY(DUZ)=""
S XMY("G.PSS ORDER CHECKS")=""
N DIFROM D ^XMD
K ^TMP($J,"PSO251TX")
Q
;
;
MNUADD ;Add PSO ORDER CHECKS VERIFY to PSO MANAGER and PSO USER1 Menu options
N PSO251CT
S PSO251CT=1
K ^TMP($J,"PSO251TX")
S ^TMP($J,"PSO125TX",PSO251CT)="The installation of patch PSO*7.0*251 is complete."
D BMES^XPDUTL("Linking PSO ORDER CHECKS VERIFY Option....")
N PSOMNUA,PSOMNUAF
S PSOMNUAF=1
K PSOMNUA S PSOMNUA=$$ADD^XPDMENU("PSO MANAGER","PSO ORDER CHECKS VERIFY") I 'PSOMNUA D MNUADD1
K PSOMNUA S PSOMNUA=$$ADD^XPDMENU("PSO USER1","PSO ORDER CHECKS VERIFY") I 'PSOMNUA D MNUADD2
I PSOMNUAF D BMES^XPDUTL("All options linked successfully...")
Q
;
;
MNUADD1 ;
S PSOMNUAF=0
D BMES^XPDUTL("Unable to link PSO ORDER CHECKS VERIFY to PSO MANAGER Menu Option...")
D INC S ^TMP($J,"PSO125TX",PSO251CT)="Unable to link PSO ORDER CHECKS VERIFY Option to PSO MANAGER Menu"
S PSO251CT=PSO251CT+1 S ^TMP($J,"PSO125TX",PSO251CT)="Please Log a Remedy Ticket and refer to this message."
Q
;
;
MNUADD2 ;
S PSOMNUAF=0
D BMES^XPDUTL("Unable to link PSO ORDER CHECKS VERIFY to PSO USER1 Menu Option...")
D INC S ^TMP($J,"PSO125TX",PSO251CT)="Unable to link PSO ORDER CHECKS VERIFY Option to PSO USER1 Menu"
S PSO251CT=PSO251CT+1 S ^TMP($J,"PSO125TX",PSO251CT)="Please Log a Remedy Ticket and refer to this message."
Q
;
;
INC ;
S PSO251CT=PSO251CT+1
S ^TMP($J,"PSO125TX",PSO251CT)=" "
S PSO251CT=PSO251CT+1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO251PO 1904 printed Sep 15, 2024@21:46:45 Page 2
PSO251PO ;BIR/RTR-Post Init for PSO*7*251 ;09/17/09
+1 ;;7.0;OUTPATIENT PHARMACY;**251**;DEC 1997;Build 202
+2 ;
+3 ;
+4 DO MNUADD
DO BMES^XPDUTL("Generating Mail Message....")
DO MAIL
DO BMES^XPDUTL("Mail message sent.")
+5 QUIT
+6 ;
+7 ;
MAIL ;Send mail message
+1 NEW XMTEXT,XMY,XMSUB,XMDUZ,XMMG,XMSTRIP,XMROU,XMYBLOB,XMZ,XMDUN
+2 SET XMSUB="PSO*7*251 Installation Complete"
+3 SET XMDUZ="PSO*7*251 Install"
+4 SET XMTEXT="^TMP($J,""PSO125TX"","
+5 IF $GET(DUZ)
SET XMY(DUZ)=""
+6 SET XMY("G.PSS ORDER CHECKS")=""
+7 NEW DIFROM
DO ^XMD
+8 KILL ^TMP($JOB,"PSO251TX")
+9 QUIT
+10 ;
+11 ;
MNUADD ;Add PSO ORDER CHECKS VERIFY to PSO MANAGER and PSO USER1 Menu options
+1 NEW PSO251CT
+2 SET PSO251CT=1
+3 KILL ^TMP($JOB,"PSO251TX")
+4 SET ^TMP($JOB,"PSO125TX",PSO251CT)="The installation of patch PSO*7.0*251 is complete."
+5 DO BMES^XPDUTL("Linking PSO ORDER CHECKS VERIFY Option....")
+6 NEW PSOMNUA,PSOMNUAF
+7 SET PSOMNUAF=1
+8 KILL PSOMNUA
SET PSOMNUA=$$ADD^XPDMENU("PSO MANAGER","PSO ORDER CHECKS VERIFY")
IF 'PSOMNUA
DO MNUADD1
+9 KILL PSOMNUA
SET PSOMNUA=$$ADD^XPDMENU("PSO USER1","PSO ORDER CHECKS VERIFY")
IF 'PSOMNUA
DO MNUADD2
+10 IF PSOMNUAF
DO BMES^XPDUTL("All options linked successfully...")
+11 QUIT
+12 ;
+13 ;
MNUADD1 ;
+1 SET PSOMNUAF=0
+2 DO BMES^XPDUTL("Unable to link PSO ORDER CHECKS VERIFY to PSO MANAGER Menu Option...")
+3 DO INC
SET ^TMP($JOB,"PSO125TX",PSO251CT)="Unable to link PSO ORDER CHECKS VERIFY Option to PSO MANAGER Menu"
+4 SET PSO251CT=PSO251CT+1
SET ^TMP($JOB,"PSO125TX",PSO251CT)="Please Log a Remedy Ticket and refer to this message."
+5 QUIT
+6 ;
+7 ;
MNUADD2 ;
+1 SET PSOMNUAF=0
+2 DO BMES^XPDUTL("Unable to link PSO ORDER CHECKS VERIFY to PSO USER1 Menu Option...")
+3 DO INC
SET ^TMP($JOB,"PSO125TX",PSO251CT)="Unable to link PSO ORDER CHECKS VERIFY Option to PSO USER1 Menu"
+4 SET PSO251CT=PSO251CT+1
SET ^TMP($JOB,"PSO125TX",PSO251CT)="Please Log a Remedy Ticket and refer to this message."
+5 QUIT
+6 ;
+7 ;
INC ;
+1 SET PSO251CT=PSO251CT+1
+2 SET ^TMP($JOB,"PSO125TX",PSO251CT)=" "
+3 SET PSO251CT=PSO251CT+1
+4 QUIT
