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

APCHBU10.m

Go to the documentation of this file. 
  1. APCHBU10 ; IHS/BJI/GRL - routine to create bulletin [ 02/19/03  8:38 AM ]
  1.  ;;2.0;IHS RPMS/PCC Health Summary;**10**;JUN 24, 1997
  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 APCHKEY
  1.  ;;3. Make changes in SUBJECT and SENDER as desired
  1.  ;;4. Rename this routine in appropriate namespace and 
  1.  ;;   call 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,"APCHBUL")
  1.  D WRITEMSG,GETRECIP
  1.  ;Change following lines as desired
  1. SUBJECT S XMSUB="* * * IMPORTANT RPMS INFORMATION * * *"
  1. SENDER S XMDUZ="Cimarron Medical Informatics"
  1.  S XMTEXT="^TMP($J,""APCHBUL"",",XMY(1)="",XMY(DUZ)=""
  1.  ;I $E(IOST)="C" W !,"Sending Mailman message to holders of the"_" "_APCHKEY_" "_"security key."
  1.  I $E(IOST)="C" W !,"Sending Mailman message to all active RPMS users."
  1.  D ^XMD
  1.  KILL ^TMP($J,"APCHBUL"),APCHKEY
  1.  Q
  1.  ;
  1. WRITEMSG ;
  1.  F %=3:1 S X=$P($T(WRITEMSG+%),";",3) Q:X="###"  S ^TMP($J,"APCHBUL",%)=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 Health Summary patch 10 has recently been installed on this RPMS computer
  1.  ;;
  1.  ;;This patch fixes/modifies the following functionality:
  1.  ;;
  1.  ;; - Added 5 new Asthma Health Maintenance Reminders.
  1.  ;; *** you must have the new Asthma Register package installed
  1.  ;; *** for these to work.  That package should be released shortly.
  1.  ;; - Added a prompt to the Microbiology and Blood Bank components
  1.  ;;  to notify providers to see the Lab package for more details
  1.  ;; - Reordered the lab component to sort by date of test
  1.  ;; - Added site where drug dispensed to all medication components
  1.  ;;   when the drug was dispensed at a site other than the site
  1.  ;;   logged in to.
  1.  ;; - Modified the DM Supplement to look at all registers with the
  1.  ;;   term "DIAB" in their names when searching for Date of Onset
  1.  ;; - Modified the DM Supplement to search for EKG in V RADIOLOGY
  1.  ;;
  1.  ;;--------------------- End of Announcement -----------------------
  1.  ;;###
  1.  ;
  1. GETRECIP ;
  1.  ;* * * Define key below to identify recipients * * *
  1.  ;
  1.  S CTR=0,APCHKEY="APCHZMENU"
  1.  F  S CTR=$O(^XUSEC(APCHKEY,CTR)) Q:'CTR  D
  1.  .I $P($G(^VA(200,CTR,0)),"^",11)]]"" Q
  1.  .I $P($G(^VA(200,CTR,"PS")),U,4)]"" Q  ;inactive date
  1.  .I $P($G(^VA(200,CTR,201)),"^")]"" S Y=CTR S XMY(Y)=""  ;primary menu
  1.  ;
  1.  Q