APCHBU12 ; IHS/BJI/GRL - routine to create bulletin [ 01/14/05 10:36 AM ]
;;2.0;IHS RPMS/PCC Health Summary;**12**;JUN 24, 1997
;;
;;Here's how to make this work:
;;
;;1. Create your message in subroutine WRITEMSG
;;2. Identify recipients in GETRECIP by setting APCHKEY
;;3. Make changes in SUBJECT and SENDER as desired
;;4. Rename this routine in appropriate namespace and
;; call on completion of patch or upgrade
;
I '$G(DUZ) W !,"DUZ UNDEFINED OR ZERO.",! Q
D HOME^%ZIS,DT^DICRW
;
NEW XMSUB,XMDUZ,XMTEXT,XMY,DIFROM
KILL ^TMP($J,"APCHBUL")
D WRITEMSG,GETRECIP
;Change following lines as desired
SUBJECT S XMSUB="* * * IMPORTANT RPMS INFORMATION * * *"
SENDER S XMDUZ="Cimarron Medical Informatics"
S XMTEXT="^TMP($J,""APCHBUL"",",XMY(1)="",XMY(DUZ)=""
;I $E(IOST)="C" W !,"Sending Mailman message to holders of the"_" "_APCHKEY_" "_"security key."
I $E(IOST)="C" W !,"Sending Mailman message to all active RPMS users."
D ^XMD
KILL ^TMP($J,"APCHBUL"),APCHKEY
Q
;
WRITEMSG ;
F %=3:1 S X=$P($T(WRITEMSG+%),";",3) Q:X="###" S ^TMP($J,"APCHBUL",%)=X
Q
;;
;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;;+ This message is intended to advise you of changes, +
;;+ upgrades or other important RPMS information
;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;;
;;PCC Health Summary patch 12 has recently been installed on this RPMS computer
;;
;;
;;- Modified the In-Hospital section of the health summary
;; to not display In-Hospital visits with no purpose
;; of visit. Displaying these takes up space is meaningless
;; without a purpose of visit. (APCHS2B)
;;
;;- Modified the EXAM section to display the provider's name
;; if the provider is recorded with the exam as the provider
;; performing the exam. Data entry will soon be prompted for
;; provider with the EX mnemonic, if the provider initials the
;; exam when it is documented they can enter the provider's name
;; to link that provider to the exam. This is being done for the
;; INTIMATE PARTNER VIOLENCE SCREENING exam. (APCHS3C)
;;
;;- Added a new component called RADIOLOGY EXAMS. This component
;; differs from the existing RADIOLOGY-MOST RECENT component
;; in that it lists all Radiology exams in the date range specified
;; by the summary type, not just the most recent. This component
;; was built for use on the PATIENT MERGE (COMPLETE) summary
;; type so that a user who is reviewing all of a patient's data
;; can see all radiology exams. This component may not be
;; appropriate for the adult regular summary type. (APCHS3C)
;;
;;- Diabetes Supplement:
;; 1. Modified the supplement to display the last DIABETES
;; SELF MONITORING health factor if no strips were
;; found as being dispensed through pharmacy. (APCHS9B2)
;; 2. Added the last ESTIMATED GFR value under the CREATININE
;; Value. (APCHS9B3)
;; 3. Modified the Tobacco Use display to the last TOBACCO
;; Health factor on file. (APCHS9B6, APCHSMU)
;; 4. Modified the PAP logic to match the GPRA logic for finding
;; a Pap Smear. (APCHS9B2,APCHS9B4)
;; 5. Added LOINC code lookups to selected lab test items.
;;
;;- Added a new PRE DIABETES CARE SUMMARY as a supplement type.
;; The user must put this supplement type on their health summary
;; Types in order to have it displayed. This new supplement,
;; designed by the diabetes providers will display if the patient
;; has had a pre diabetes diagnoses (e.g. IGT) and does not have
;; diabetes on the problem list and has not had a diabetes dx
;; in the past year. Two lab taxonomies must be reviewed and
;; populated for this supplement:
;; DM AUDIT GLUCOSE TESTS TAX
;; DM AUDIT 2 HR GTT TAX
;;
;;- Added the ability to automatically switch from the health
;; summary type defined by the clinic in scheduling to the
;; diabetes summary type if the patient has diabetes on the
;; problem list or has had a diagnosis of Diabetes on a visit
;; with a primary care provider. In order to make this happen,
;; it the site decides this is desired you must update the
;; Health Summary Site parameters using option HEALTH SUMMARY
;; SITE PARAMETER SETUP which is on the Health Summary Maintenance
;; and the Build Health Summary menu options. When you
;; choose this option you must answer YES to auto switch
;; summary types and then put the name of your Diabetes
;; summary type into the subsequent field.
;;
;;- Modified the allergy sections of the health summary to work
;; with both the new and old versions of allergy tracking.
;;
;;- added a new component for scheduled encounters that excludes
;; chart requests and walk ins.
;;
;; - added an new health maintenance reminder for IPV/DV screening
;; the criteria is to prompt for Due every year for females 15
;; and over.
;; If you would like to see this prompt on your summary types
;; it must be added to the surveillance items section of the health
;; summary type.
;;
;; - added 2 medication reorder documents as supplements to the health
;; summary. These documents are used as a means to re-order
;; medications
;; for a patient. Listed on this document are all current
;; medications (defined as twice duration or 60 days) and all
;; chronic medications (defined as those flagged as chronic in
;; the pharmacy package) that were dispensed in the last year.
;; To use this document you must have it added to the summary
;; type in the supplement section.
;;--------------------- End of Announcement -----------------------
;;###
;
GETRECIP ;
;* * * Define key below to identify recipients * * *
;
S CTR=0,APCHKEY="APCHZMENU"
F S CTR=$O(^XUSEC(APCHKEY,CTR)) Q:'CTR D
.I $P($G(^VA(200,CTR,0)),"^",11)]]"" Q
.I $P($G(^VA(200,CTR,"PS")),U,4)]"" Q ;inactive date
.I $P($G(^VA(200,CTR,201)),"^")]"" S Y=CTR S XMY(Y)="" ;primary menu
;
Q
APCHBU12 ; IHS/BJI/GRL - routine to create bulletin [ 01/14/05 10:36 AM ]
+1 ;;2.0;IHS RPMS/PCC Health Summary;**12**;JUN 24, 1997
+2 ;;
+3 ;;Here's how to make this work:
+4 ;;
+5 ;;1. Create your message in subroutine WRITEMSG
+6 ;;2. Identify recipients in GETRECIP by setting APCHKEY
+7 ;;3. Make changes in SUBJECT and SENDER as desired
+8 ;;4. Rename this routine in appropriate namespace and
+9 ;; call on completion of patch or upgrade
+10 ;
+11 IF '$GET(DUZ)
WRITE !,"DUZ UNDEFINED OR ZERO.",!
QUIT
+12 DO HOME^%ZIS
DO DT^DICRW
+13 ;
+14 NEW XMSUB,XMDUZ,XMTEXT,XMY,DIFROM
+15 KILL ^TMP($JOB,"APCHBUL")
+16 DO WRITEMSG
DO GETRECIP
+17 ;Change following lines as desired
SUBJECT SET XMSUB="* * * IMPORTANT RPMS INFORMATION * * *"
SENDER SET XMDUZ="Cimarron Medical Informatics"
+1 SET XMTEXT="^TMP($J,""APCHBUL"","
SET XMY(1)=""
SET XMY(DUZ)=""
+2 ;I $E(IOST)="C" W !,"Sending Mailman message to holders of the"_" "_APCHKEY_" "_"security key."
+3 IF $EXTRACT(IOST)="C"
WRITE !,"Sending Mailman message to all active RPMS users."
+4 DO ^XMD
+5 KILL ^TMP($JOB,"APCHBUL"),APCHKEY
+6 QUIT
+7 ;
WRITEMSG ;
+1 FOR %=3:1
SET X=$PIECE($TEXT(WRITEMSG+%),";",3)
IF X="###"
QUIT
SET ^TMP($JOB,"APCHBUL",%)=X
+2 QUIT
+3 ;;
+4 ;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+5 ;;+ This message is intended to advise you of changes, +
+6 ;;+ upgrades or other important RPMS information
+7 ;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+8 ;;
+9 ;;PCC Health Summary patch 12 has recently been installed on this RPMS computer
+10 ;;
+11 ;;
+12 ;;- Modified the In-Hospital section of the health summary
+13 ;; to not display In-Hospital visits with no purpose
+14 ;; of visit. Displaying these takes up space is meaningless
+15 ;; without a purpose of visit. (APCHS2B)
+16 ;;
+17 ;;- Modified the EXAM section to display the provider's name
+18 ;; if the provider is recorded with the exam as the provider
+19 ;; performing the exam. Data entry will soon be prompted for
+20 ;; provider with the EX mnemonic, if the provider initials the
+21 ;; exam when it is documented they can enter the provider's name
+22 ;; to link that provider to the exam. This is being done for the
+23 ;; INTIMATE PARTNER VIOLENCE SCREENING exam. (APCHS3C)
+24 ;;
+25 ;;- Added a new component called RADIOLOGY EXAMS. This component
+26 ;; differs from the existing RADIOLOGY-MOST RECENT component
+27 ;; in that it lists all Radiology exams in the date range specified
+28 ;; by the summary type, not just the most recent. This component
+29 ;; was built for use on the PATIENT MERGE (COMPLETE) summary
+30 ;; type so that a user who is reviewing all of a patient's data
+31 ;; can see all radiology exams. This component may not be
+32 ;; appropriate for the adult regular summary type. (APCHS3C)
+33 ;;
+34 ;;- Diabetes Supplement:
+35 ;; 1. Modified the supplement to display the last DIABETES
+36 ;; SELF MONITORING health factor if no strips were
+37 ;; found as being dispensed through pharmacy. (APCHS9B2)
+38 ;; 2. Added the last ESTIMATED GFR value under the CREATININE
+39 ;; Value. (APCHS9B3)
+40 ;; 3. Modified the Tobacco Use display to the last TOBACCO
+41 ;; Health factor on file. (APCHS9B6, APCHSMU)
+42 ;; 4. Modified the PAP logic to match the GPRA logic for finding
+43 ;; a Pap Smear. (APCHS9B2,APCHS9B4)
+44 ;; 5. Added LOINC code lookups to selected lab test items.
+45 ;;
+46 ;;- Added a new PRE DIABETES CARE SUMMARY as a supplement type.
+47 ;; The user must put this supplement type on their health summary
+48 ;; Types in order to have it displayed. This new supplement,
+49 ;; designed by the diabetes providers will display if the patient
+50 ;; has had a pre diabetes diagnoses (e.g. IGT) and does not have
+51 ;; diabetes on the problem list and has not had a diabetes dx
+52 ;; in the past year. Two lab taxonomies must be reviewed and
+53 ;; populated for this supplement:
+54 ;; DM AUDIT GLUCOSE TESTS TAX
+55 ;; DM AUDIT 2 HR GTT TAX
+56 ;;
+57 ;;- Added the ability to automatically switch from the health
+58 ;; summary type defined by the clinic in scheduling to the
+59 ;; diabetes summary type if the patient has diabetes on the
+60 ;; problem list or has had a diagnosis of Diabetes on a visit
+61 ;; with a primary care provider. In order to make this happen,
+62 ;; it the site decides this is desired you must update the
+63 ;; Health Summary Site parameters using option HEALTH SUMMARY
+64 ;; SITE PARAMETER SETUP which is on the Health Summary Maintenance
+65 ;; and the Build Health Summary menu options. When you
+66 ;; choose this option you must answer YES to auto switch
+67 ;; summary types and then put the name of your Diabetes
+68 ;; summary type into the subsequent field.
+69 ;;
+70 ;;- Modified the allergy sections of the health summary to work
+71 ;; with both the new and old versions of allergy tracking.
+72 ;;
+73 ;;- added a new component for scheduled encounters that excludes
+74 ;; chart requests and walk ins.
+75 ;;
+76 ;; - added an new health maintenance reminder for IPV/DV screening
+77 ;; the criteria is to prompt for Due every year for females 15
+78 ;; and over.
+79 ;; If you would like to see this prompt on your summary types
+80 ;; it must be added to the surveillance items section of the health
+81 ;; summary type.
+82 ;;
+83 ;; - added 2 medication reorder documents as supplements to the health
+84 ;; summary. These documents are used as a means to re-order
+85 ;; medications
+86 ;; for a patient. Listed on this document are all current
+87 ;; medications (defined as twice duration or 60 days) and all
+88 ;; chronic medications (defined as those flagged as chronic in
+89 ;; the pharmacy package) that were dispensed in the last year.
+90 ;; To use this document you must have it added to the summary
+91 ;; type in the supplement section.
+92 ;;--------------------- End of Announcement -----------------------
+93 ;;###
+94 ;
GETRECIP ;
+1 ;* * * Define key below to identify recipients * * *
+2 ;
+3 SET CTR=0
SET APCHKEY="APCHZMENU"
+4 FOR
SET CTR=$ORDER(^XUSEC(APCHKEY,CTR))
IF 'CTR
QUIT
Begin DoDot:1
+5 IF $PIECE($GET(^VA(200,CTR,0)),"^",11)]]""
QUIT
+6 ;inactive date
IF $PIECE($GET(^VA(200,CTR,"PS")),U,4)]""
QUIT
+7 ;primary menu
IF $PIECE($GET(^VA(200,CTR,201)),"^")]""
SET Y=CTR
SET XMY(Y)=""
End DoDot:1
+8 ;
+9 QUIT
