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

APCHBUL9.m

Go to the documentation of this file. 
  1. APCHBUL9 ; IHS/BJI/GRL - routine to create bulletin [ 07/21/02  7:25 PM ]
  1.  ;;2.0;IHS RPMS/PCC Health Summary;**8**;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 9 has recently been installed on this RPMS computer
  1.  ;;
  1.  ;;This patch fixes/modifies the following functionality:
  1.  ;;
  1.  ;; - Added MICROBIOLOGY component.
  1.  ;; - Added BLOOD BANK component.
  1.  ;; - Added a PATIENT ED - MOST RECENT BY TOPIC component to display
  1.  ;;    patient education by topic name.
  1.  ;; - Added a new Medication component to display chronic meds only 
  1.  ;;   but does not display any meds that have been D/C'ed.
  1.  ;; - Modifies the demographic section to display Blood Type/Rh
  1.  ;;   from the Blood bank section of lab if available.  - APCHS1
  1.  ;; - Modifies the logic for supplement display to display a
  1.  ;;   supplement if the patient has had a diagnoses within the 
  1.  ;;   evoking codes list during the past year.  The visit must be
  1.  ;;   to a primary care provider.  Previously, only the problem list
  1.  ;;   was scanned for a diagnoses with the evoking codes list.
  1.  ;; - DM Supplement:
  1.  ;;    - Made EP2^APCHS9B1 a published entry point
  1.  ;;    - If no DM problem on Problem list display ***NONE RECORDED***
  1.  ;;      to prompt provider to add DM to problem list.
  1.  ;;    - If patient is not on a Diabetes Register, prompt such
  1.  ;;      on the the supplement.
  1.  ;;    - Display date of last Chest Xray if Known Positive PPD or TB.
  1.  ;; - Fixed TD to look at immunization tetanus toxoid
  1.  ;; - Modifies the logic for flowsheet display to display a flowsheet
  1.  ;;   if the patient has had a diagnoses within the evoking codes
  1.  ;;   list during the past year.  The visit must be to a primary care
  1.  ;;   provider.  Previously, only the problem list was scanned for a 
  1.  ;;   diagnoses with the evoking codes list.
  1.  ;; - Kills ^TMP where appropriate after the lab display (APCHS3A)
  1.  ;; - Adds NKDA and NO KNOWN DRUG ALLERGIES as narratives that
  1.  ;;   evoke the No Known Allergies phrase in the allergy component
  1.  ;; - Prints Medicaid Plan Name in the demographic section.  (APCHS5A)
  1.  ;; - Modifies 2 med components to pick up free text name if available
  1.  ;;   from outside pharmacy system links.  (APCHS73, APCHS74)
  1.  ;; - Fixed 1 space errors after quits (APCHS79)
  1.  ;; - Modifies several routines that were using 365.25 with
  1.  ;;   $$FMADD^XLFDT to use 365 as the function call does not support
  1.  ;;   partial days.
  1.  ;; - Fixes the PATIENT ED - MOST RECENT component to observe time frame and max
  1.  ;;   occurrences parameters.
  1.  ;;
  1.  ;;--------------------- End of Announcement -----------------------
  1.  ;;###
  1.  ;
  1. GETRECIP ;
  1.  ;* * * Define key below to identify recipients * * *
  1.  ;
  1.  S CTR=0,APCHKEY="PROVIDER"
  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