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

BDMBUL.m

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