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

APCHBU16.m

Go to the documentation of this file. 
  1. APCHBU16 ; IHS/BJI/GRL - routine to create bulletin [ 01/14/05  10:36 AM ]
  1.  ;;2.0;IHS RPMS/PCC Health Summary;**14**;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 16 has recently been installed on this RPMS computer
  1.  ;;
  1.  ;; 1.  added new ICD9 codes 995.2* to the list of codes for allergies
  1.  ;; 
  1.  ;; 2.  Patient Wellness Handout
  1.  ;;     - added logic to allow the patient wellness handout to be
  1.  ;;       printed from EHR
  1.  ;; 
  1.  ;; 3.  added office phone to the demographic component of the health
  1.  ;;     summary
  1.  ;;
  1.  ;; 4.  added site parameters for both flowsheets and supplements
  1.  ;;     to allow the user to define the # of diagnoses in what # of years
  1.  ;;     to use to determine when a flowsheet or supplement should be 
  1.  ;;     printed.  For example, if the site wants the Diabetes Supplement
  1.  ;;     to print only if a patient has at least 2 diagnoses of diabetes
  1.  ;;     in the past 5 years they would enter 2 and 5 into these new
  1.  ;;     parameters.  Currently these items print if there is one diagnosis
  1.  ;;     in the past year.  These site parameters can be updated using 
  1.  ;;     the option: HSSP   Update Health Summary Site parameters
  1.  ;;
  1.  ;; 5.  Comments have been added as an option in the lab components.
  1.  ;;     added a new parameter that can be set when a health summary type
  1.  ;;     is created or edited to print the comments entered for a lab
  1.  ;;     test with that test when it displays in the most recent lab
  1.  ;;     components
  1.  ;;   
  1.  ;; 6.  modified the display of family history
  1.  ;;
  1.  ;; 7.  modified the reproductive factors section to support the new
  1.  ;;     additions to the WH package when the WH package is available
  1.  ;;
  1.  ;; 8.  Health maintenance items:
  1.  ;;     Updated ICD diagnosis, icd procedure, cpt and exam code lookup
  1.  ;;     logic to conform to the CRS logic and to accomodate for the
  1.  ;;     inactivation of many of the IHS Exam codes:
  1.  ;;    - ADULT MMR 1-DOSE VERSION and ADULT MMR 2-DOSE VERSION - added
  1.  ;;      diagnosis code V06.4, CPT codes 90707, 90710 and procedure
  1.  ;;      code 99.48 to logic for MMR
  1.  ;;    - Asthma - Flu Shot - added CPT 90656 to logic for flu shot
  1.  ;;    - Breast Exam - added V76.10, V76.12, V76.19 procedure 89.36
  1.  ;;      and CPT G0101 added refusal of exam 06, procedure 89.36
  1.  ;;      and CPT G0101.
  1.  ;;    - Cholesterol - added cpt 82465
  1.  ;;    - Colorectal Ca Scrn-FOBT - added cpt codes 82274, G0107, 89205
  1.  ;;    - Colorectal Ca Scrn-SCOPE/XRAY - matched GPRA logic
  1.  ;;    - Sigmoidoscopy looks for procedure 45.24, 45.42, cpts 45330-45345,
  1.  ;;      G0104
  1.  ;;    - Colonoscopy looks forV Procedure 45.22, 45.23, 45.25, 45.43;
  1.  ;;      V POV 76.51; CPT 44388-44394,44397, 45355, 45378-45387,
  1.  ;;      45391, 45392, 45325 (old), G0105, G0121
  1.  ;;    - Barium Enema - CPT or VRad: 74280, G0106, G0120
  1.  ;;    - Hearing Test - added CPT codes 92552, 92555, 92556, DX: V72.11,
  1.  ;;      V72.19
  1.  ;;    - Influenza - added CPT 90656 to flu shot logic
  1.  ;;    - Mammogram - added CPT 77055-77059, G0202, G0204, G0206
  1.  ;;    - Pap Smear - added dx codes V72.31, V72.32, V76.47, V76.49, 795.06
  1.  ;;    - Pelvic Exam - added CPT codes G0101, dx code V72.31, V72.32
  1.  ;;    - Rectal Exam - added V76.4, V76.44, procedure 89.34, CPT G0102,
  1.  ;;      S0601, S0605
  1.  ;;    - Visual Acuity Exam - added V72.0, procedures 95.09, 95.05, CPTs
  1.  ;;      99172, 99173
  1.  ;;
  1.  ;;9.  Added a new component called "REFUSALS - MOST RECENT OF EACH"
  1.  ;;
  1.  ;;10.  Added refusals to each component that refusals can be documented
  1.  ;;     for.  The following components were updated, the refusals will display
  1.  ;;     at the end of the component:
  1.  ;;     - Diagnostic Procedure
  1.  ;;     - Examinations - Most recent
  1.  ;;     - History of Minor Surgery
  1.  ;;     - History of Surgery
  1.  ;;     - Immunizations
  1.  ;;     - Lab Data - Most recent by Date
  1.  ;;     - Laboratory Data - Most Recent
  1.  ;;     - Measurement Panels
  1.  ;;     - Meds - All
  1.  ;;     - Meds - All w/#iss & alt name
  1.  ;;
  1.  ;;11.  Added 3 new CPT components to display CPT codes entered into the V CPT file
  1.  ;;     1   CPT - ALL BY CPT CODE
  1.  ;;     2   CPT - ALL BY DATE
  1.  ;;     3   CPT - MOST RECENT OF EACH
  1.  ;;     the user can apply date limits on each of the above components
  1.  ;;
  1.  ;;12.  Added CPT code documented procedures to the History of Surgery
  1.  ;;     and History of Minor Surgery components of the health summary.
  1.  ;;     Since there are many CPT codes and it is difficult to try and determine
  1.  ;;     at a national level what CPT codes are considered "major" and which "minor"
  1.  ;;     the determination of which CPT codes display in each component is made
  1.  ;;     by a taxonomy of CPT codes.  A site can modify this taxonomy using 2 new
  1.  ;;     options on the Health Summary Maintenance menu:
  1.  ;;   
  1.  ;;     IPT    Update the Minor Procedures CPT Taxonomy
  1.  ;;     MPT    Update the Major Procedures CPT Taxonomy
  1.  ;;
  1.  ;;     The taxonomies are distributed with the following code ranges but they
  1.  ;;     can be modified by the site to remove or add cpt code ranges.
  1.  ;;
  1.  ;;     Major Procedures taxonomy:  1)  19000-69990
  1.  ;;                                 2)  93501-93581
  1.  ;;                                 3)  97597-97602
  1.  ;;
  1.  ;;     Minor Procedures Taxonomy:  1)  10000-17999
  1.  ;;
  1.  ;;13.  Added new Health Maintenance reminder for Fall Risk Assessment.
  1.  ;;     Yearly for ages 65 and older.
  1.  ;;
  1.  ;;14.  Added health maintenance reminder using ANMC logic for EPSDT
  1.  ;;     screening.  Uses CPT codes to determine if screening has been
  1.  ;;     done.
  1.  ;;
  1.  ;;15.  Created a published entry point that an application can call to get
  1.  ;;     the printed value of the health maintenance reminders 3 columns of 
  1.  ;;     data.  For example, if the mammogram reminder for patient X displays
  1.  ;;     as this:
  1.  ;;                        LAST        NEXT
  1.  ;;    MAMMOGRAM          02/13/07  Undetermined (by NO DATE)
  1.  ;;                                  (per Women's Health system)
  1.  ;;
  1.  ;;     then the call S X=$$GVHMR^APCHSMU(dfn,ien of reminder) will return in X
  1.  ;;     X="MAMMOGRAM^3070213^02/13/07^Undetermined (by NO DATE) (per Women's Health system)"
  1.  ;;     where piece one is column 1 (label), piece 2 is the internal fileman form
  1.  ;;     of the date in the "last" column, piece 3 is the external value of the
  1.  ;;     "LAST" column and piece 4 is the value of the 3rd column.
  1.  ;;     If a reminder typically produces several lines of reminders (e.g.
  1.  ;;     immunizations due) the various lines will be in "|" pieces of the
  1.  ;;     output string (e.g. VARICELLA^^^Due|MMR^2060102^02/02/06^Due")
  1.  ;;    
  1.  ;; 16. Modified medication components MEDS - ALL W/#ISS & ALT NAME and
  1.  ;;     MEDS - ALL WITH # ISSUED to no longer separate by chronic and Other
  1.  ;;     medications, the components are sorted by fill date.  Added
  1.  ;;     an indication of whether the drug dispensed was a controlled
  1.  ;;     substance.
  1.  ;;
  1.  ;; 17. Add a new supplement:  CHRONIC MEDICATION REORDER SHORT FORM
  1.  ;;
  1.  ;; 18. Modified the 5 medicaton reorder supplements to allow the user
  1.  ;;     to define how far back in time to go when displaying drugs.
  1.  ;;     The user must indicate a value such as 90D or 1Y or 6M when
  1.  ;;     adding one of these supplements to the Supplement Panel of
  1.  ;;     a health summary type.  Default is 1 year.
  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