APCHBU12.m

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