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

APCHBU11.m

Go to the documentation of this file. 
  1. APCHBU11 ; IHS/BJI/GRL - routine to create bulletin [ 03/15/04  12:52 PM ]
  1.  ;;2.0;IHS RPMS/PCC Health Summary;**11**;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 11 has recently been installed on this RPMS computer
  1.  ;;
  1.  ;;
  1.  ;;  - total rewrite of how you create or modify a new health summary
  1.  ;;    type.  It is now in list manager. 
  1.  ;;  -  Put a check in for $D of LR node to protect against undefined
  1.  ;;    error when obtaining Blood type from Lab Blood Bank
  1.  ;;    section (APCHS1)
  1.  ;;  -  Added Notice of Privacy Practices to Demographic section
  1.  ;;    (APCHS1)
  1.  ;;  -  Added Objectives Met and Behavior Code (Goal set, etc.) to all
  1.  ;;    3 patient education components. (APCHS10)
  1.  ;;  - Added a list of all instances of dental ADA codes 1310, 1320
  1.  ;;    and 1330 to the patient education components.  Three components
  1.  ;;    were updated. (APCHS10)
  1.  ;;  - added new v8.0 Immunization package call to immunization
  1.  ;;    component (APCHS2)
  1.  ;;  - Added exam result to Exam component.  (APCHS3C)
  1.  ;;  - Added event visits to the outpatient sections for event
  1.  ;;    visits that have a POV.  This is so the visits passed to PCC
  1.  ;;    from RCIS are displayed. (APCHS2B,APCHS2C,APCHS2F,APCHS2H)
  1.  ;;  - Added the provider initial display as a part of the outpatient
  1.  ;;    section of the health summary as an option.  You must turn
  1.  ;;    on Provider initial display in all summary types by using the 
  1.  ;;    option to modify a summary type(APCHS2B,APCHS2C,APCHS2F,APCHS2H)
  1.  ;;  - Added 989.82 to the list of allergies. (APCHS40)
  1.  ;;  - Modified Allergy components to display NO KNOWN ALLERGIES when
  1.  ;;    documented as such in the Adverse Reaction Tracking package.
  1.  ;;  - In the medication components, if the drug was given outside
  1.  ;;    of the current facility (as defined by DUZ(2)) then the phrase
  1.  ;;    "Prescribed at" is displayed with the name of the facility
  1.  ;;    where prescribed.  (APCHS7*)
  1.  ;;  - Added the following 3 new Medication components:
  1.  ;;    1.  MEDS  ;;  - CHRONIC & ACUTE W/ ISSUE HISTORY (APCHS78)
  1.  ;;    2.  MEDS - CHONIC BY NAME (sorts by drug name) (APCHS77)
  1.  ;;    3.  MEDS - CURRENT BY NAME (sorts by drug name) (APCHS77)
  1.  ;;  - Added Diagnostic code display to Radiology component (APCHS3C)
  1.  ;;  - added refusals entered via the immunization package to the
  1.  ;;    refusal section (APCHS5)
  1.  ;;  - added kill of DIR variable in APCHS9B1
  1.  ;;  - added $G in APCHS9B3 due to missing file 6 nodes
  1.  ;;  - Modified how mammograms were being found in V Radiology due
  1.  ;;    due error in RAMIS "D" index.
  1.  ;;  - Added V77.1 as a hit on diabetes screening reminder (APCHSM02)
  1.  ;;  - updated the CVX codes and the cpt codes used for TD- Adult
  1.  ;;    health maintenance reminder. (APCHSMU1,APCHSMU2,APCHSM03)
  1.  ;;  - updated the CVX codes and the cpt codes used for Pneumovax
  1.  ;;    health maintenance reminder. (APCHSMU1,APCHSMU2,APCHSM03)
  1.  ;;  - updated the CVX codes and the cpt codes used for Influenza
  1.  ;;    health maintenance reminder. (APCHSMU1,APCHSMU2,APCHSM03)
  1.  ;;  - added ada code 9991, if found, as a "refusal" for dental
  1.  ;;    exam on the diabetes supplement. (APCHS9B6)
  1.  ;;
  1.  ;;  - NEW HEALTH MAINTENANCE REMINDERS:
  1.  ;;    NOTE:  in order to appear on the health summary these must be 
  1.  ;;    added to the appropriate health summary types. 
  1.  ;;
  1.  ;;    1.  ADULT MMR 1 dose version (APCHSM08)
  1.  ;;    2.  ADULT MMR 2 dose version (APCHSM08)
  1.  ;;    3.  Ischemic Heart Disease: IHD- LDL Screening (APCHSM06)
  1.  ;;    4.  Ischemic Heart Disease: IHD- Elevated LDL (APCHSM06)
  1.  ;;    5.  Rubella Vaccination Reminder (APCHSM08)
  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