ACMBUL7.m

ACMBUL7 ; cmi/anch/maw - Routine to create bulletin for patch 7; [ 05/11/06  3:01 PM ]

 ;;2.0;ACM CASE MANAGEMENT SYSTEM;**7**;JAN 10, 1996

 ;;

 ;;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,"ACMBUL")

 D WRITEMSG,GETRECIP

 ;Change following lines as desired

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

SENDER S XMDUZ="Case Management System Coordinator"

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

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

 D ^XMD

 KILL ^TMP($J,"ACMBUL"),ACMKEY

 Q

 ;

WRITEMSG ;

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

 Q

 ;;  

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

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

 ;;+     upgrades or other important RPMS information

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

 ;;  

 ;;Case Management System patch 7 has recently been installed, and

 ;;includes the following modifications/enhancements:

 ;;   

 ;;1. Various technical programming fixes.

 ;;

 ;;  Changes and corrections for this patch:

 ;;

 ;;  a) New General Retrieval Items

 ;;  b) Fix date range prompt on general retrieval when select next review date

 ;;  c) Fix patient lookup, if user selects chart that isn't found it was looking at last 4 of SSN

 ;;

 ;;  d) New option to display register creator

 ;;  e) Make registers read only for certain users by addding security key ACMZ EDIT

 ;;

 ;;

 ;;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,ACMKEY="ACMZMENU"

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

 Q

ACMBUL7   ; cmi/anch/maw - Routine to create bulletin for patch 7; [ 05/11/06  3:01 PM ]

 +1       ;;2.0;ACM CASE MANAGEMENT SYSTEM;**7**;JAN 10, 1996

 +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,"ACMBUL")

 +15       DO WRITEMSG

           DO GETRECIP

 +16      ;Change following lines as desired

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

SENDER     SET XMDUZ="Case Management System Coordinator"

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

           SET XMY(1)=""

           SET XMY(DUZ)=""

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

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

 +3        DO ^XMD

 +4        KILL ^TMP($JOB,"ACMBUL"),ACMKEY

 +5        QUIT 

 +6       ;

WRITEMSG  ;

 +1        FOR %=3:1

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

               IF X="###"

                   QUIT 

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

 +10      ;;includes the following modifications/enhancements:

 +11      ;;   

 +12      ;;1. Various technical programming fixes.

 +13      ;;

 +14      ;;  Changes and corrections for this patch:

 +15      ;;

 +16      ;;  a) New General Retrieval Items

 +17      ;;  b) Fix date range prompt on general retrieval when select next review date

 +18      ;;  c) Fix patient lookup, if user selects chart that isn't found it was looking at last 4 of SSN

 +19      ;;

 +20      ;;  d) New option to display register creator

 +21      ;;  e) Make registers read only for certain users by addding security key ACMZ EDIT

 +22      ;;

 +23      ;;

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

 +25      ;;the HELP DESK.

 +26      ;;

 +27      ;;  

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

 +29      ;;###

 +30      ;

GETRECIP  ;

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

 +2       ;

 +3        SET CTR=0

           SET ACMKEY="ACMZMENU"

 +4        FOR 

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

               IF 'CTR

                   QUIT 

               SET Y=CTR

               SET XMY(Y)=""

 +5        QUIT