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

APCLP10.m

Go to the documentation of this file. 
  1. APCLP10 ; IHS/CMI/LAB - Routine to create bulletin ; [ 08/23/01 4:32 PM ]
  1.  ;;3.0;IHS PCC REPORTS;**10**;FEB 15, 1997
  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. OPT ;add 2 new options (supplement, report)
  1.  S X=$$ADD^XPDMENU("APCL M MAIN DM MENU","APCL DM2001 AUDIT MENU","DM01",4)
  1.  I 'X W "Attempt to add DM 2001 Audit Menu option failed.." H 3
  1.  NEW X S X=$$ADD^XPDMENU("APCL M MAIN DM MENU","APCL DM PTS 4 MONTHS","DMV")
  1.  I 'X W "Attempt to add DM PTS WITH VALUES option failed." H 3
  1.  NEW X S X=$$ADD^XPDMENU("APCL M DX/PROC COUNT REPORTS","APCL P QA FREQ CPT","FCPT")
  1.  I 'X W "Attempt to add FREQUENCY OF CPT REPORT 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 10 has recently been installed.  This patch
  1.  ;;includes the following modifications/enhancements:
  1.  ;;   
  1.  ;;Contains the 2001 DM Audit.
  1.  ;;Contains a new Frequency of CPTs report.
  1.  ;;-DM Audit 2000.  Changes the way lab values are found.  If 2 of the
  1.  ;;same lab are found on the same day, the one with a result is used.
  1.  ;;-DM Audit 2000:  fixes the duration of diabetes cumulative totals.
  1.  ;;-DM Audit 2000:  fixes the TB status totals on the cumulative audit.
  1.  ;;-Adds VGEN items:  3P Bill Number, Exams, Posting Date of Visit
  1.  ;;-Fixes VGEN items:  PHN Items
  1.  ;;-Adds an option to print a list of Patients on the Diabetes Register with their 2 most
  1.  ;;recent HGB A1c, BP, LDL, HDL and Total Cholesterol Values.
  1.  ;;This report is run by Primary Provider and compares a provider to
  1.  ;;the entire register.
  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