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

ACMBUL6.m

Go to the documentation of this file. 
  1. ACMBUL6 ; IHS/CMI/TMJ - Routine to create bulletin; [ 05/11/06  3:01 PM ]
  1.  ;;2.0;ACM CASE MANAGEMENT SYSTEM;**6**;JAN 10, 1996
  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 appropriate key
  1.  ;;3. Make changes in SUBJECT and SENDER as desired
  1.  ;;4. Callthis routine 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,"ACMBUL")
  1.  D WRITEMSG,GETRECIP
  1.  ;Change following lines as desired
  1. SUBJECT S XMSUB="* * * IMPORTANT RPMS INFORMATION * * *"
  1. SENDER S XMDUZ="Case Management System Coordinator"
  1.  S XMTEXT="^TMP($J,""ACMBUL"",",XMY(1)="",XMY(DUZ)=""
  1.  I $E(IOST)="C" W !,"Sending Mailman message to holders of the"_" "_ACMKEY_" "_"security key."
  1.  D ^XMD
  1.  KILL ^TMP($J,"ACMBUL"),ACMKEY
  1.  Q
  1.  ;
  1. WRITEMSG ;
  1.  F %=3:1 S X=$P($T(WRITEMSG+%),";",3) Q:X="###"  S ^TMP($J,"ACMBUL",%)=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.  ;;Case Management System patch 6 has recently been installed, and
  1.  ;;includes the following modifications/enhancements:
  1.  ;;   
  1.  ;;1. Various technical programming changes.
  1.  ;;
  1.  ;;2. New Option to install National Pre-Diabetes Register
  1.  ;;
  1.  ;;This option will guide the User through the following
  1.  ;;1 = Installing the IHS National Pre-Diabetes Register"
  1.  ;;if you currently are not using a Pre-Diabetes Register.
  1.  ;;OR
  1.  ;;2 = Converting an existing Case Management based
  1.  ;;Register to the "IHS Pre-Diabetes Register, renaming your
  1.  ;;register and adding Elements: Register Data, Case Review
  1.  ;;Dates, Diagnoses, Complications, Diagnostic Criteria, and
  1.  ;;Risk Factors included in the IHS Standard.
  1.  ;;Answer NO if you have an existing Pre-Diabetes Register.
  1.  ;;Answer YES if you want the IHS National Pre-Diabetes
  1.  ;;Register installed.
  1.  ;;
  1.  ;;3. New General Retrieval Items
  1.  ;;  1.  Initial Entry Date
  1.  ;;  2.  Inactivation Date
  1.  ;;  3.  Risk Factors
  1.  ;;  4.  DX Criteria
  1.  ;;  5.  Intervention
  1.  ;;  6.  Intervention Due Date
  1.  ;;  7.  Intervention Result Date
  1.  ;;  8.  Intervention Results
  1.  ;;  9.  Mlg Address - State
  1.  ;;  10. Mlg Address - Zip
  1.  ;;
  1.  ;;
  1.  ;;4. Fix print template (ACM RECALL LETTERS) when printing Recall Letters.
  1.  ;;5. Added a Screen Message, when installing the new Pre-Diabetes
  1.  ;;Register.  If an existing Register is named IHS-PRE DIABETES the
  1.  ;;User must first change the existing Register name before install. 
  1.  ;;6. Added the Register Creator Name to the Screen Display - Stating
  1.  ;;You are not the Creator of this Register.
  1.  ;;7. Fix code on the Complication Onset Date under General Retrieval Item.
  1.  ;;8. Fixed Master List to single space patient names.
  1.  ;;9. Changed display on Case Summary for *Insurance Information* only if
  1.  ;;patient has insurance and added new heading for Patient Information.
  1.  ;;10. Completed data entry to include new measurement types.
  1.  ;;
  1.  ;;
  1.  ;;For additional information contact your RPMS site manager, Area Office RPMS or
  1.  ;;the HELP DESK.
  1.  ;;
  1.  ;;  
  1.  ;;+++++++++++++++++++++ End of Announcement +++++++++++++++++++++++
  1.  ;;###
  1.  ;
  1. GETRECIP ;
  1.  ;* * * Define key below to identify recipients * * *
  1.  ;
  1.  S CTR=0,ACMKEY="ACMZMENU"
  1.  F  S CTR=$O(^XUSEC(ACMKEY,CTR)) Q:'CTR  S Y=CTR S XMY(Y)=""
  1.  Q