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

APCHBU15.m

Go to the documentation of this file. 
  1. APCHBU15 ; IHS/BJI/GRL - routine to create bulletin [ 01/14/05  10:36 AM ]
  1.  ;;2.0;IHS RPMS/PCC Health Summary;**14**;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 15 has recently been installed on this RPMS computer
  1.  ;;
  1.  ;;    - adds an option to Print a Patient Medical Handout
  1.  ;;      This option (APCHSPMH) is already attached to APCHMENU,
  1.  ;;      however, since not all clinical staff will have that option
  1.  ;;      on their menus, APCHSPMH may also be added to a user's
  1.  ;;      Secondary Menu or attached to any appropriate RPMS
  1.  ;;      application menu.
  1.  ;;
  1.  ;;    - Changes the term "Prescribed at" to "Dispensed at" on the medication
  1.  ;;      components.
  1.  ;;      
  1.  ;;    - changes the terminology for the IPV/DV Screening exam in the
  1.  ;;      exam section.
  1.  ;;      
  1.  ;;    - adds the result of the Domestic Violence Screening back
  1.  ;;      to the exam section
  1.  ;;      
  1.  ;;    - adds a new Depression Screening Health maintenance reminder
  1.  ;;      this reminder must be added to each health summary type on
  1.  ;;      which you wish this reminder to be displayed 
  1.  ;;      
  1.  ;;    - adds 2 new supplements which are medication reorder documents
  1.  ;;      that display ONLY Chronic medications     
  1.  ;;    
  1.  ;;    - adds the education topic mnemonic to the education display
  1.  ;;    
  1.  ;;    - fixes the HCT/Hgb reminder to correctly lookup the taxonomy
  1.  ;;    
  1.  ;;    - Fixes the lab components to display reference ranges even if units
  1.  ;;      is blank
  1.  ;;      
  1.  ;;    - Adds a check in the Behavioral Health package and adds a check
  1.  ;;       for refusals to the Depression Screening on the DM Supplement
  1.  ;;       
  1.  ;;    - Adds the last A/C Ratio test result to the DM Supplement
  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