Routine: BDMBUL6

BDMBUL6 ; cmi/anch/maw - Routine to create bulletin ;

 ;;2.0;DIABETES MANAGEMENT SYSTEM;;AUG 11, 2006

;;

 ;;Here's how to make this work:

;;

 ;;1. Create your message in subroutine WRITEMSG

 ;;2. Identify recipients in GETRECIP by setting appropriate key

 ;;3. Make changes in SUBJECT and SENDER as desired

 ;;4. Callthis routine 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,"BDMBUL")

 D WRITEMSG,GETRECIP

 ;Change following lines as desired

SUBJECT S XMSUB="* * * IMPORTANT RPMS INFORMATION * * *"

SENDER S XMDUZ="Diabetes Management System Coordinator"

 S XMTEXT="^TMP($J,""BDMBUL"",",XMY(1)="",XMY(DUZ)=""

 I $E(IOST)="C" W !,"Sending Mailman message to holders of the"_" "_BDMKEY_" "_"security key."

 D ^XMD

 KILL ^TMP($J,"BDMBUL"),BDMKEY

WRITEMSG ;

 F %=3:1 S X=$P($T(WRITEMSG+%),";",3) Q:X="###"  S ^TMP($J,"BDMBUL",%)=X

;;

 ;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 ;;+     This message is intended to advise you of changes,        +

 ;;+     upgrades or other important RPMS information

 ;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

;;

 ;;PCC Diabetes Management System patch 6 has recently been installed, and

 ;;includes the following modifications/enhancements:

;;

 ;;1. Various technical programming changes.

;;

 ;;2. Adds new New General Retrieval Items-

;;

 ;;1.  Initial Entry Date

 ;;2.  Inactivation Date

 ;;3.  Risk Factors

 ;;4.  DX Criteria

 ;;5.  Intervention

 ;;6.  Intervention Due Date

 ;;7.  Intervention Result Date

 ;;8.  Intervention Results

 ;;9.  Mlg Address - State

 ;;10. Mlg Address - Zip

;;

 ;;3. Letter Education Inserts

 ;;1.  Foot Exam

 ;;2.  Eye Exam

 ;;3.  Dental Exam

 ;;4.  Flu Shot

 ;;5.  Tetanus

 ;;6.  PPD

 ;;7.  A1C Hemoglobin

 ;;8.  Creatinine

 ;;9.  Urine Test

 ;;10. Lipid Panel

 ;;11. Pap Smear

 ;;12. All Education

;;

 ;;4. Self Glucose Monitoring Report

;;

 ;;5. Fix to Follow-up Report

;;

 ;;6. Ability to print a selected Flow Sheet from PM Menu

;;

 ;;7. Modified Lister Routines to accommodate DMS GUI Interface

;;

;;

 ;;For additional information contact your RPMS site manager, Area Office RPMS or

 ;;the HELP DESK.

;;

;;

 ;;+++++++++++++++++++++ End of Announcement +++++++++++++++++++++++

 ;;###

GETRECIP ;

 ;* * * Define key below to identify recipients * * *

 S CTR=0,BDMKEY="BDMZMENU"

 F  S CTR=$O(^XUSEC(BDMKEY,CTR)) Q:'CTR  S Y=CTR S XMY(Y)=""

BDMBUL6   ; cmi/anch/maw - Routine to create bulletin ;

 +1       ;;2.0;DIABETES MANAGEMENT SYSTEM;;AUG 11, 2006

 +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 appropriate key

 +7       ;;3. Make changes in SUBJECT and SENDER as desired

 +8       ;;4. Callthis routine on completion of patch or upgrade

 +9       ;

 +10       IF '$GET(DUZ)

               WRITE !,"DUZ UNDEFINED OR ZERO.",!

               QUIT

 +11       DO HOME^%ZIS

           DO DT^DICRW

 +12      ;

 +13       NEW XMSUB,XMDUZ,XMTEXT,XMY,DIFROM

 +14       KILL ^TMP($JOB,"BDMBUL")

 +15       DO WRITEMSG

           DO GETRECIP

 +16      ;Change following lines as desired

SUBJECT    SET XMSUB="* * * IMPORTANT RPMS INFORMATION * * *"

SENDER     SET XMDUZ="Diabetes Management System Coordinator"

 +1        SET XMTEXT="^TMP($J,""BDMBUL"","

           SET XMY(1)=""

           SET XMY(DUZ)=""

 +2        IF $EXTRACT(IOST)="C"

               WRITE !,"Sending Mailman message to holders of the"_" "_BDMKEY_" "_"security key."

 +3        DO ^XMD

 +4        KILL ^TMP($JOB,"BDMBUL"),BDMKEY

 +5        QUIT

 +6       ;

WRITEMSG  ;

 +1        FOR %=3:1

               SET X=$PIECE($TEXT(WRITEMSG+%),";",3)

               IF X="###"

                   QUIT

               SET ^TMP($JOB,"BDMBUL",%)=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 Diabetes Management System patch 6 has recently been installed, and

 +10      ;;includes the following modifications/enhancements:

 +11      ;;

 +12      ;;1. Various technical programming changes.

 +13      ;;

 +14      ;;2. Adds new New General Retrieval Items-

 +15      ;;

 +16      ;;1.  Initial Entry Date

 +17      ;;2.  Inactivation Date

 +18      ;;3.  Risk Factors

 +19      ;;4.  DX Criteria

 +20      ;;5.  Intervention

 +21      ;;6.  Intervention Due Date

 +22      ;;7.  Intervention Result Date

 +23      ;;8.  Intervention Results

 +24      ;;9.  Mlg Address - State

 +25      ;;10. Mlg Address - Zip

 +26      ;;

 +27      ;;3. Letter Education Inserts

 +28      ;;1.  Foot Exam

 +29      ;;2.  Eye Exam

 +30      ;;3.  Dental Exam

 +31      ;;4.  Flu Shot

 +32      ;;5.  Tetanus

 +33      ;;6.  PPD

 +34      ;;7.  A1C Hemoglobin

 +35      ;;8.  Creatinine

 +36      ;;9.  Urine Test

 +37      ;;10. Lipid Panel

 +38      ;;11. Pap Smear

 +39      ;;12. All Education

 +40      ;;

 +41      ;;4. Self Glucose Monitoring Report

 +42      ;;

 +43      ;;5. Fix to Follow-up Report

 +44      ;;

 +45      ;;6. Ability to print a selected Flow Sheet from PM Menu

 +46      ;;

 +47      ;;7. Modified Lister Routines to accommodate DMS GUI Interface

 +48      ;;

 +49      ;;

 +50      ;;For additional information contact your RPMS site manager, Area Office RPMS or

 +51      ;;the HELP DESK.

 +52      ;;

 +53      ;;

 +54      ;;+++++++++++++++++++++ End of Announcement +++++++++++++++++++++++

 +55      ;;###

 +56      ;

GETRECIP  ;

 +1       ;* * * Define key below to identify recipients * * *

 +2       ;

 +3        SET CTR=0

           SET BDMKEY="BDMZMENU"

 +4        FOR

               SET CTR=$ORDER(^XUSEC(BDMKEY,CTR))

               IF 'CTR

                   QUIT

               SET Y=CTR

               SET XMY(Y)=""

 +5        QUIT

BDMBUL6.m