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

APCLP9.m

Go to the documentation of this file. 
  1. APCLP9 ; IHS/CMI/LAB - Routine to create bulletin ;
  1.  ;;2.0;IHS PCC SUITE;;MAY 14, 2009
  1.  ;;
  1.  ; The following line prevents the "Disable Options..." and "Move
  1.  ; Routines..." questions from being asked during the install.
  1.  I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
  1.  Q
  1.  ;
  1. POST ;EP
  1. CPTTAX ;install new cpt taxonomies
  1.  D ^APCLP9A ;   DM AUDIT FLU CPTS
  1.  D ^APCLP9B ;   DM AUDIT MAMMOGRAM CPTS
  1.  D ^APCLP9C ;   DM AUDIT PAP CPTS
  1. OPT ;add 2 new options (supplement, report)
  1.  NEW X S X=$$ADD^XPDMENU("APCL M MAN PATIENT LISTINGS","APCL P ELDER CARE 4","ELNH")
  1.  I 'X W "Attempt to add Elder Care Report 4 option failed." H 3
  1.  S X=$$ADD^XPDMENU("APCL M MAIN DM MENU","APCLDMSP","DPCS")
  1.  I 'X W "Attempt to add DM 2000 Audit Menu option failed.." H 3
  1.  ;*********SEND OUT ATXCHK
  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 APCLKEY
  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,"APCLBUL")
  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,""APCLBUL"",",XMY(1)="",XMY(DUZ)=""
  1.  I $E(IOST)="C" W !,"Sending Mailman message to holders of the"_" "_APCLKEY_" "_"security key."
  1.  D ^XMD
  1.  KILL ^TMP($J,"APCLBUL"),APCLKEY
  1.  Q
  1.  ;
  1. WRITEMSG ;
  1.  F %=3:1 S X=$P($T(WRITEMSG+%),";",3) Q:X="###"  S ^TMP($J,"APCLBUL",%)=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 Management Reports Patch 9 has recently been installed.  This patch
  1.  ;;includes the following modifications/enhancements:
  1.  ;;   
  1.  ;;-DM Audit 2000.  Fixes the EPI export record.
  1.  ;;-Adds logic to check for CPT codes for Flu, Pap and Mammogram
  1.  ;;-Adds VGEN items:  Microbiology Result, Microbiology Organism, and Culture
  1.  ;;-Adds VGEN item: Health Factor Quantity/Score
  1.  ;;-Adds an option to print a Diabetes Care Summary w/o printing
  1.  ;;a full health summary.
  1.  ;;-Fixes a potential error in the injury report.
  1.  ;;-Fixes a potential error in the active user report.
  1.  ;;-Modifies the drug taxonomy update system to display synonyms
  1.  ;;-Modifies the template creation from VGEN/PGEN to bypass fileman security
  1.  ;;
  1.  ;;For additional information contact your RPMS site manager, Area Office RPMS
  1.  ;;support staff or any of the following Cimarron staff members:
  1.  ;;
  1.  ;;Dorothy Russell *  Gary Lawless    *  Bill Mason       *  Lori Butcher
  1.  ;;(520)-743-3275     (715)-358-3763     (520)-615-0689      (520)-577-2146
  1.  ;;  
  1.  ;;+++++++++++++++++++++ end of announcement +++++++++++++++++++++++
  1.  ;;###
  1.  ;
  1. GETRECIP ;
  1.  ;* * * Define key below to identify recipients * * *
  1.  ;
  1.  S CTR=0,APCLKEY="APCLZMENU"
  1.  F  S CTR=$O(^XUSEC(APCLKEY,CTR)) Q:'CTR  S Y=CTR S XMY(Y)=""
  1.  Q