BDMBUL ; cmi/anch/maw - Routine to create bulletin ;
;;2.0;DIABETES MANAGEMENT SYSTEM;;AUG 11, 2006
;;
;;Here's how to make this work:
;;
;;1. Create your message in subroutine WRITEMSG
;;2. Identify recipients in GETRECIP by setting appropriate key
;;3. Make changes in SUBJECT and SENDER as desired
;;4. Callthis routine on completion of patch or upgrade
;
I '$G(DUZ) W !,"DUZ UNDEFINED OR ZERO.",! Q
D HOME^%ZIS,DT^DICRW
;
NEW XMSUB,XMDUZ,XMTEXT,XMY,DIFROM
KILL ^TMP($J,"BDMBUL")
D WRITEMSG,GETRECIP
D ADDMENU
;Change following lines as desired
SUBJECT S XMSUB="* * * IMPORTANT RPMS INFORMATION * * *"
SENDER S XMDUZ="Diabetes Management System Coordinator" ;IHS/CMI/TMJ PATCH #5
S XMTEXT="^TMP($J,""BDMBUL"",",XMY(1)="",XMY(DUZ)=""
I $E(IOST)="C" W !,"Sending Mailman message to holders of the"_" "_BDMKEY_" "_"security key."
D ^XMD
KILL ^TMP($J,"BDMBUL"),BDMKEY
Q
;
WRITEMSG ;
F %=3:1 S X=$P($T(WRITEMSG+%),";",3) Q:X="###" S ^TMP($J,"BDMBUL",%)=X
Q
;;
;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;;+ This message is intended to advise you of changes, +
;;+ upgrades or other important RPMS information
;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;;
;;PCC Diabetes Management System Version 2.0 has recently been installed, and
;;includes the following modifications/enhancements:
;;
;;1. Various technical programming changes.
;;
;;2. Visual Diabetes GUI Client functionality.
;;
;;
;;
;;+++++++++++++++++++++ End of Announcement +++++++++++++++++++++++
;;###
;
GETRECIP ;
;* * * Define key below to identify recipients * * *
;
S CTR=0,BDMKEY="BDMZMENU"
F S CTR=$O(^XUSEC(BDMKEY,CTR)) Q:'CTR S Y=CTR S XMY(Y)=""
Q
;
N X
F BDMX="APCL DM2005 DM AUDIT TAX CHECK" D
.S BDMY="D5TC"
.S X=$$ADD^XPDMENU("BDM TAXONOMY SETUP",BDMX,BDMY)
;
F BDMX="APCL DM2005 AUDIT TAX UPDATE" D
.S BDMY="D5TU"
.S X=$$ADD^XPDMENU("BDM TAXONOMY SETUP",BDMX,BDMY)
;
F BDMX="APCL DM2005 PREDIAB TAX CHECK" D
.S BDMY="PDTC"
.S X=$$ADD^XPDMENU("BDM TAXONOMY SETUP",BDMX,BDMY)
;
F BDMX="APCL DM2005 PREDIAB TAX UPDATE" D
.S BDMY="PDTU"
.S X=$$ADD^XPDMENU("BDM TAXONOMY SETUP",BDMX,BDMY)
;
S X=$$ADD^XPDMENU("BDMMENU","APCHSBRW","BHS")
I 'X W !,"Attempt to add Health Summary Browser Option Failed" H 1
S X=$$ADD^XPDMENU("BDMMENU","APCL M MAIN DM MENU","DA")
I 'X W !,"Attempt to add Diabetes Audit Menu Option Failed" H 1
S X=$$ADD^XPDMENU("BDMMENU","APCDEDMUPD","DMU")
I 'X W !,"Attempt to add Update Patient Data Option Failed" H 1
S X=$$ADD^XPDMENU("BDMMENU","APCHSUM","HS")
I 'X W !,"Attempt to add Health Summary Option Failed" H 1
S X=$$ADD^XPDMENU("BDMMENU","APCHSUMM","MHS")
I 'X W !,"Attempt to add Multiple Health Summary Option Failed" H 1
S X=$$ADD^XPDMENU("BDMMENU","AMQQMENU","QMAN")
I 'X W !,"Attempt to add Q Man Option Failed" H 1
S X=$$ADD^XPDMENU("BDM REGISTER MAINTENANCE","APCL TAXONOMY SETUP","TM")
I 'X W !,"Attempt to add Taxonomy Setup Option Failed" H 1
S X=$$ADD^XPDMENU("BDM REGISTER MAINTENANCE","APCL FLOW SHEET SETUP","FS")
I 'X W !,"Attempt to add Flow Sheet Setup Option Failed" H 1
Q
;
BDMBUL ; cmi/anch/maw - Routine to create bulletin ;
+1 ;;2.0;DIABETES MANAGEMENT SYSTEM;;AUG 11, 2006
+2 ;;
+3 ;;Here's how to make this work:
+4 ;;
+5 ;;1. Create your message in subroutine WRITEMSG
+6 ;;2. Identify recipients in GETRECIP by setting appropriate key
+7 ;;3. Make changes in SUBJECT and SENDER as desired
+8 ;;4. Callthis routine on completion of patch or upgrade
+9 ;
+10 IF '$GET(DUZ)
WRITE !,"DUZ UNDEFINED OR ZERO.",!
QUIT
+11 DO HOME^%ZIS
DO DT^DICRW
+12 ;
+13 NEW XMSUB,XMDUZ,XMTEXT,XMY,DIFROM
+14 KILL ^TMP($JOB,"BDMBUL")
+15 DO WRITEMSG
DO GETRECIP
+16 DO ADDMENU
+17 ;Change following lines as desired
SUBJECT SET XMSUB="* * * IMPORTANT RPMS INFORMATION * * *"
SENDER ;IHS/CMI/TMJ PATCH #5
SET XMDUZ="Diabetes Management System Coordinator"
+1 SET XMTEXT="^TMP($J,""BDMBUL"","
SET XMY(1)=""
SET XMY(DUZ)=""
+2 IF $EXTRACT(IOST)="C"
WRITE !,"Sending Mailman message to holders of the"_" "_BDMKEY_" "_"security key."
+3 DO ^XMD
+4 KILL ^TMP($JOB,"BDMBUL"),BDMKEY
+5 QUIT
+6 ;
WRITEMSG ;
+1 FOR %=3:1
SET X=$PIECE($TEXT(WRITEMSG+%),";",3)
IF X="###"
QUIT
SET ^TMP($JOB,"BDMBUL",%)=X
+2 QUIT
+3 ;;
+4 ;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+5 ;;+ This message is intended to advise you of changes, +
+6 ;;+ upgrades or other important RPMS information
+7 ;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+8 ;;
+9 ;;PCC Diabetes Management System Version 2.0 has recently been installed, and
+10 ;;includes the following modifications/enhancements:
+11 ;;
+12 ;;1. Various technical programming changes.
+13 ;;
+14 ;;2. Visual Diabetes GUI Client functionality.
+15 ;;
+16 ;;
+17 ;;
+18 ;;+++++++++++++++++++++ End of Announcement +++++++++++++++++++++++
+19 ;;###
+20 ;
GETRECIP ;
+1 ;* * * Define key below to identify recipients * * *
+2 ;
+3 SET CTR=0
SET BDMKEY="BDMZMENU"
+4 FOR
SET CTR=$ORDER(^XUSEC(BDMKEY,CTR))
IF 'CTR
QUIT
SET Y=CTR
SET XMY(Y)=""
+5 QUIT
+6 ;
+1 NEW X
+2 FOR BDMX="APCL DM2005 DM AUDIT TAX CHECK"
Begin DoDot:1
+3 SET BDMY="D5TC"
+4 SET X=$$ADD^XPDMENU("BDM TAXONOMY SETUP",BDMX,BDMY)
End DoDot:1
+5 ;
+6 FOR BDMX="APCL DM2005 AUDIT TAX UPDATE"
Begin DoDot:1
+7 SET BDMY="D5TU"
+8 SET X=$$ADD^XPDMENU("BDM TAXONOMY SETUP",BDMX,BDMY)
End DoDot:1
+9 ;
+10 FOR BDMX="APCL DM2005 PREDIAB TAX CHECK"
Begin DoDot:1
+11 SET BDMY="PDTC"
+12 SET X=$$ADD^XPDMENU("BDM TAXONOMY SETUP",BDMX,BDMY)
End DoDot:1
+13 ;
+14 FOR BDMX="APCL DM2005 PREDIAB TAX UPDATE"
Begin DoDot:1
+15 SET BDMY="PDTU"
+16 SET X=$$ADD^XPDMENU("BDM TAXONOMY SETUP",BDMX,BDMY)
End DoDot:1
+17 ;
+18 SET X=$$ADD^XPDMENU("BDMMENU","APCHSBRW","BHS")
+19 IF 'X
WRITE !,"Attempt to add Health Summary Browser Option Failed"
HANG 1
+20 SET X=$$ADD^XPDMENU("BDMMENU","APCL M MAIN DM MENU","DA")
+21 IF 'X
WRITE !,"Attempt to add Diabetes Audit Menu Option Failed"
HANG 1
+22 SET X=$$ADD^XPDMENU("BDMMENU","APCDEDMUPD","DMU")
+23 IF 'X
WRITE !,"Attempt to add Update Patient Data Option Failed"
HANG 1
+24 SET X=$$ADD^XPDMENU("BDMMENU","APCHSUM","HS")
+25 IF 'X
WRITE !,"Attempt to add Health Summary Option Failed"
HANG 1
+26 SET X=$$ADD^XPDMENU("BDMMENU","APCHSUMM","MHS")
+27 IF 'X
WRITE !,"Attempt to add Multiple Health Summary Option Failed"
HANG 1
+28 SET X=$$ADD^XPDMENU("BDMMENU","AMQQMENU","QMAN")
+29 IF 'X
WRITE !,"Attempt to add Q Man Option Failed"
HANG 1
+30 SET X=$$ADD^XPDMENU("BDM REGISTER MAINTENANCE","APCL TAXONOMY SETUP","TM")
+31 IF 'X
WRITE !,"Attempt to add Taxonomy Setup Option Failed"
HANG 1
+32 SET X=$$ADD^XPDMENU("BDM REGISTER MAINTENANCE","APCL FLOW SHEET SETUP","FS")
+33 IF 'X
WRITE !,"Attempt to add Flow Sheet Setup Option Failed"
HANG 1
+34 QUIT
+35 ;
