APCHBU14.m

APCHBU14 ; IHS/BJI/GRL - routine to create bulletin [ 01/14/05  10:36 AM ]

 ;;2.0;IHS RPMS/PCC Health Summary;**14**;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 14 has recently been installed on this RPMS computer

 ;;

 ;;    - adds LOINC code lookups to all lab lookups in both

 ;;      the Diabetes Supplement and the Health Maintenance

 ;;      reminders

 ;;

 ;;    - adds a New patient medical handout.  This new

 ;;      option is called "Patient Medical Handouts" (APCHPSUM) and can

 ;;      be found on the APCHMENU option.  This option is standalone

 ;;      and can be added to a users menu.  This provides the ability

 ;;      to print out a handout sheet to give to the patient.  There

 ;;      are 2 handouts, one is a pre-visit handout to be given to

 ;;      the patient before they see the provider and the second 

 ;;      one is a handout to be given to the patient after their

 ;;      visit is over.  The pre-visit handout can be printed at

 ;;      check-in through scheduling by setting the parameter in the

 ;;      PCC MASTER CONTROL file called "PROMPT FOR PT HANDOUT AT CHKIN"

 ;;      to yes.  For more information about these handouts please see

 ;;      the supplemental document distributed with this patch.

 ;;

 ;;    - fixed the DM Supplement to not display refusals for Mammogram

 ;;      if the patient had a mammogram after the refusal date.

 ;;

 ;;    - On the medication component called "MEDS - ALL W/#ISS & ALT NAME"

 ;;      we have added the ability to display the ordering provider's name

 ;;      if the site opts to do so.  To turn this on you must set the field

 ;;      called "DISPLAY PROV INITIALS W/MEDS" to YES in the health summary

 ;;      type file for the type of summary on which you want the ordering

 ;;      provider to display.

 ;;      

 ;;    - added a check for refusals to the pneumovax health maintenance

 ;;      reminder.

 ;; 

 ;;

 ;;--------------------- 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

APCHBU14  ; 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

 +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 14 has recently been installed on this RPMS computer

 +10      ;;

 +11      ;;    - adds LOINC code lookups to all lab lookups in both

 +12      ;;      the Diabetes Supplement and the Health Maintenance

 +13      ;;      reminders

 +14      ;;

 +15      ;;    - adds a New patient medical handout.  This new

 +16      ;;      option is called "Patient Medical Handouts" (APCHPSUM) and can

 +17      ;;      be found on the APCHMENU option.  This option is standalone

 +18      ;;      and can be added to a users menu.  This provides the ability

 +19      ;;      to print out a handout sheet to give to the patient.  There

 +20      ;;      are 2 handouts, one is a pre-visit handout to be given to

 +21      ;;      the patient before they see the provider and the second 

 +22      ;;      one is a handout to be given to the patient after their

 +23      ;;      visit is over.  The pre-visit handout can be printed at

 +24      ;;      check-in through scheduling by setting the parameter in the

 +25      ;;      PCC MASTER CONTROL file called "PROMPT FOR PT HANDOUT AT CHKIN"

 +26      ;;      to yes.  For more information about these handouts please see

 +27      ;;      the supplemental document distributed with this patch.

 +28      ;;

 +29      ;;    - fixed the DM Supplement to not display refusals for Mammogram

 +30      ;;      if the patient had a mammogram after the refusal date.

 +31      ;;

 +32      ;;    - On the medication component called "MEDS - ALL W/#ISS & ALT NAME"

 +33      ;;      we have added the ability to display the ordering provider's name

 +34      ;;      if the site opts to do so.  To turn this on you must set the field

 +35      ;;      called "DISPLAY PROV INITIALS W/MEDS" to YES in the health summary

 +36      ;;      type file for the type of summary on which you want the ordering

 +37      ;;      provider to display.

 +38      ;;      

 +39      ;;    - added a check for refusals to the pneumovax health maintenance

 +40      ;;      reminder.

 +41      ;; 

 +42      ;;

 +43      ;;--------------------- End of Announcement -----------------------

 +44      ;;###

 +45      ;

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