APCDBUL.m

APCDBUL ; IHS/CMI/LAB - Routine to create bulletin ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;;Borrowed from ACHSP1, ACHSP1A

 ;;

 ;;Here's how to make this work:

 ;;

 ;;1. Create your message in subroutine WRITEMSG

 ;;2. Identify recipients in GETRECIP by setting APCDKEY

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

 KILL ^TMP($J,"APCDBUL")

 D WRITEMSG,GETRECIP

 ;Change following lines as desired

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

SENDER S XMDUZ="Cimarron Medical Informatics"

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

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

 D ^XMD

 KILL ^TMP($J,"APCDBUL"),APCDKEY

 Q

 ;

WRITEMSG ;

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

 Q

 ;;  

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

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

 ;;+     upgrades or other important RPMS information

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

 ;;  

 ;;PCC Data Entry Patch 3 has been installed.  This patch includes the following

 ;;modifications/enchancements:

 ;;-  Adds a new data entry option called UPDATE DIABETES PATIENT DATA.  This

 ;;   option can be used when providers are attempting to update historical data

 ;;   related to diabetes care.

 ;;-  Adds a new data entry option called PRINT A PCC VISIT IN ENCOUNTER FORM

 ;;   FORMAT.

 ;;   This option can be used to print a visit after it has been completely

 ;;   entered.  This similiar is to displaying a visit, but the format will look like

 ;;   a PCC Encounter Form.

 ;;-  New mnemonics:

 ;;   CC   - to pick up and record the Chief Complaint

 ;;   AOP  - similar to OP but this will prompt for anesthesia information

 ;;   NMI  - similar to the REF (Refusals) mnemonic.  This one should be 

 ;;          used if the provider indicates that the refusal is because the item

 ;;          is not medically indicated.

 ;;-  The RAD mnemonic will now prompt for CPT Modifiers.  These are not

 ;;   required.

 ;;-  The RAD mnemonic will now prompt for ordering provider.  This is not

 ;;   a required data element.

 ;;-  If an IHS VCN is entered on a visit, it will now display when a visit

 ;;   is being selected. 

 ;;

 ;;+++++++++++++++++++++ end of announcement +++++++++++++++++++++++

 ;;###

 ;

GETRECIP ;

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

 ;

 S CTR=0,APCDKEY="APCDZMENU"

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

 Q

APCDBUL   ; IHS/CMI/LAB - Routine to create bulletin ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;;Borrowed from ACHSP1, ACHSP1A

 +3       ;;

 +4       ;;Here's how to make this work:

 +5       ;;

 +6       ;;1. Create your message in subroutine WRITEMSG

 +7       ;;2. Identify recipients in GETRECIP by setting APCDKEY

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

 +9       ;;4. Rename this routine in appropriate namespace and 

 +10      ;;   call on completion of patch or upgrade

 +11      ;

 +12       IF '$GET(DUZ)

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

               QUIT 

 +13       DO HOME^%ZIS

           DO DT^DICRW

 +14      ;

 +15       NEW XMSUB,XMDUZ,XMTEXT,XMY

 +16       KILL ^TMP($JOB,"APCDBUL")

 +17       DO WRITEMSG

           DO GETRECIP

 +18      ;Change following lines as desired

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

SENDER     SET XMDUZ="Cimarron Medical Informatics"

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

           SET XMY(1)=""

           SET XMY(DUZ)=""

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

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

 +3        DO ^XMD

 +4        KILL ^TMP($JOB,"APCDBUL"),APCDKEY

 +5        QUIT 

 +6       ;

WRITEMSG  ;

 +1        FOR %=3:1

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

               IF X="###"

                   QUIT 

               SET ^TMP($JOB,"APCDBUL",%)=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 Data Entry Patch 3 has been installed.  This patch includes the following

 +10      ;;modifications/enchancements:

 +11      ;;-  Adds a new data entry option called UPDATE DIABETES PATIENT DATA.  This

 +12      ;;   option can be used when providers are attempting to update historical data

 +13      ;;   related to diabetes care.

 +14      ;;-  Adds a new data entry option called PRINT A PCC VISIT IN ENCOUNTER FORM

 +15      ;;   FORMAT.

 +16      ;;   This option can be used to print a visit after it has been completely

 +17      ;;   entered.  This similiar is to displaying a visit, but the format will look like

 +18      ;;   a PCC Encounter Form.

 +19      ;;-  New mnemonics:

 +20      ;;   CC   - to pick up and record the Chief Complaint

 +21      ;;   AOP  - similar to OP but this will prompt for anesthesia information

 +22      ;;   NMI  - similar to the REF (Refusals) mnemonic.  This one should be 

 +23      ;;          used if the provider indicates that the refusal is because the item

 +24      ;;          is not medically indicated.

 +25      ;;-  The RAD mnemonic will now prompt for CPT Modifiers.  These are not

 +26      ;;   required.

 +27      ;;-  The RAD mnemonic will now prompt for ordering provider.  This is not

 +28      ;;   a required data element.

 +29      ;;-  If an IHS VCN is entered on a visit, it will now display when a visit

 +30      ;;   is being selected. 

 +31      ;;

 +32      ;;+++++++++++++++++++++ end of announcement +++++++++++++++++++++++

 +33      ;;###

 +34      ;

GETRECIP  ;

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

 +2       ;

 +3        SET CTR=0

           SET APCDKEY="APCDZMENU"

 +4        FOR 

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

               IF 'CTR

                   QUIT 

               SET Y=CTR

               SET XMY(Y)=""

 +5        QUIT