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

AMH30P2B.m

Go to the documentation of this file. 
  1. AMH30P2B ; IHS/BJI/GRL - Routine to create bulletin [ 04/27/04  2:30 PM ]
  1.  ;;3.0;IHS BEHAVIORAL HEALTH;**2**;JAN 27, 2003
  1.  ;;Borrowed from ACHSP1, ACHSP1A
  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 AMHKEY
  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,"AMHBUL")
  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,""AMHBUL"",",XMY(1)="",XMY(DUZ)=""
  1.  I $E(IOST)="C" W !,"Sending Mailman message to holders of the"_" "_AMHKEY_" "_"security key."
  1.  D ^XMD
  1.  KILL ^TMP($J,"AMHBUL"),AMHKEY
  1.  Q
  1.  ;
  1. WRITEMSG ;
  1.  F %=3:1 S X=$P($T(WRITEMSG+%),";",3) Q:X="###"  S ^TMP($J,"AMHBUL",%)=X
  1.  Q
  1.  ;;  
  1.  ;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  1.  ;;+     This message is intended to advise you of changes,        +
  1.  ;;+     upgrades or other important RPMS information
  1.  ;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  1.  ;;+++++++++++++++++++++ end of announcement +++++++++++++++++++++++
  1.  ;;
  1.  ;; - adds a new option under the Manager Utilities to allow backloading
  1.  ;;   of old CDMIS data into the Behavioral Health Module.  This option
  1.  ;;   is locked with a key (AMHZ CDMIS BACKLOAD) and should be run
  1.  ;;   at the discretion of the program after they discontinue using
  1.  ;;   CDMIS and all CDMIS users are using the Behavioral Health Module.
  1.  ;; 
  1.  ;; - Added a SECURITY KEY called AMHZ DELETE VISIT.  The ability
  1.  ;;   to delete a visit, treatment plan or suicide form is not locked.
  1.  ;;   The supervisors and program managers should be allocated this
  1.  ;;   key.  Only those with the key will be able to delete a visit, 
  1.  ;;   treatment plan or suicide form.  
  1.  ;; 
  1.  ;; - added the capability for a site to have an Interactive PCC link.
  1.  ;;   If the site parameter is set to YES the user will be asked to
  1.  ;;   select a PCC visit if one already exists.  This should be used
  1.  ;;   at sites that are checking patients into Mental Health, Social
  1.  ;;   Services or Chemical dependency clinics where the check-in
  1.  ;;   process creates the PCC visit.  Site parameter file and
  1.  ;;   screens were updated. 
  1.  ;; 
  1.  ;; - modified the SEEN report to exclude closed cases (AMHRC1)
  1.  ;; 
  1.  ;; - fixed activity report to correctly tally problems if problem
  1.  ;;   narrative is same or similar 
  1.  ;; 
  1.  ;; - Modified the ACT report to include AGE, GENDER and Clinic
  1.  ;;   type as choices 
  1.  ;; 
  1.  ;; - Added FACE SHEET as an option on PDE. 
  1.  ;; 
  1.  ;; - Added a new report to display time spent in group by patient. 
  1.  ;; 
  1.  ;; - Revised Treatment Plans needing reviewed report to exclude
  1.  ;;   resolved Treatment Plans. 
  1.  ;; 
  1.  ;; - Modified SAN F/U form to combine items 8 through 11. 
  1.  ;; 
  1.  ;; - Added a new site parameter to only allow those entered into the
  1.  ;;   site parameter file to see all visits on the day in SDE/RDE.
  1.  ;;   If the user is not entered into the site parameter they will
  1.  ;;   only see the visits they entered or were a provider on. 
  1.  ;; 
  1.  ;; - Added a display of the problem code narrative to the case screen.
  1.  ;; 
  1.  ;; - changed the patient flag field to be 3 digits.
  1.  ;; 
  1.  ;; - Added capture of IPV/DV screening to all forms.
  1.  ;; - Added display of IPV/DV screening on FULL encounter form.
  1.  ;; - Modified PCC link to pass IPV/DV screening.
  1.  ;; 
  1.  ;; - Provided a new Option to updated Suicide Forms by Date.
  1.  ;; 
  1.  ;; - Added personal Hx to PDE screen.
  1.  ;; 
  1.  ;; - Added a delete case item to the Case update screen.
  1.  ;; 
  1.  ;; - Added a delete intake item to the Intake Update screen.
  1.  ;; - Data Dictionary changes:
  1.  ;;   1.  Added OTHER to set of codes for Program type in 
  1.  ;;   Case Status file
  1.  ;;   2.  Added BRIEF as a Visit Type.
  1.  ;;   3.  Added INFO/REFERRAL to A/SA Type of Contact
  1.  ;; - Changes the export to not error if a community does not
  1.  ;;   have a state, county, community code. 
  1.  ;; - Fixed sporadic undef error in screen refreshing on PDE (AMHLEP2)
  1.  ;; - Removed site parameters items that are not longer used:
  1.  ;;      1.  Full SOAP
  1.  ;;      2.  Default device for export
  1.  ;; - Fixed spelling of barbiturates on suicide form.
  1.  ;; - Fixed spelling of highest on suicide form.
  1.  ;; - Fixed Designated provider report to not generate an undef
  1.  ;;   if OTHER (2) is chosen.
  1.  ;; - Fixed spelling of recurrence on SAN form.
  1.  ;;###
  1.  ;
  1. GETRECIP ;
  1.  ;* * * Define key below to identify recipients * * *
  1.  ;
  1.  S CTR=0,AMHKEY="AMHZMENU"
  1.  F  S CTR=$O(^XUSEC(AMHKEY,CTR)) Q:'CTR  S Y=CTR S XMY(Y)=""
  1.  Q