APCLP9.m

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

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

 ;;

 ; The following line prevents the "Disable Options..." and "Move

 ; Routines..." questions from being asked during the install.

 I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 Q

 ;

POST ;EP

CPTTAX ;install new cpt taxonomies

 D ^APCLP9A ;   DM AUDIT FLU CPTS

 D ^APCLP9B ;   DM AUDIT MAMMOGRAM CPTS

 D ^APCLP9C ;   DM AUDIT PAP CPTS

OPT ;add 2 new options (supplement, report)

 NEW X S X=$$ADD^XPDMENU("APCL M MAN PATIENT LISTINGS","APCL P ELDER CARE 4","ELNH")

 I 'X W "Attempt to add Elder Care Report 4 option failed." H 3

 S X=$$ADD^XPDMENU("APCL M MAIN DM MENU","APCLDMSP","DPCS")

 I 'X W "Attempt to add DM 2000 Audit Menu option failed.." H 3

 ;*********SEND OUT ATXCHK

 ;;Here's how to make this work:

 ;;

 ;;1. Create your message in subroutine WRITEMSG

 ;;2. Identify recipients in GETRECIP by setting APCLKEY

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

 D WRITEMSG,GETRECIP

 ;Change following lines as desired

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

SENDER S XMDUZ="Cimarron Medical Informatics"

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

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

 D ^XMD

 KILL ^TMP($J,"APCLBUL"),APCLKEY

 Q

 ;

WRITEMSG ;

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

 Q

 ;;  

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

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

 ;;+     upgrades or other important RPMS information

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

 ;;  

 ;;PCC Management Reports Patch 9 has recently been installed.  This patch

 ;;includes the following modifications/enhancements:

 ;;   

 ;;-DM Audit 2000.  Fixes the EPI export record.

 ;;-Adds logic to check for CPT codes for Flu, Pap and Mammogram

 ;;-Adds VGEN items:  Microbiology Result, Microbiology Organism, and Culture

 ;;-Adds VGEN item: Health Factor Quantity/Score

 ;;-Adds an option to print a Diabetes Care Summary w/o printing

 ;;a full health summary.

 ;;-Fixes a potential error in the injury report.

 ;;-Fixes a potential error in the active user report.

 ;;-Modifies the drug taxonomy update system to display synonyms

 ;;-Modifies the template creation from VGEN/PGEN to bypass fileman security

 ;;

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

 ;;support staff or any of the following Cimarron staff members:

 ;;

 ;;Dorothy Russell *  Gary Lawless    *  Bill Mason       *  Lori Butcher

 ;;(520)-743-3275     (715)-358-3763     (520)-615-0689      (520)-577-2146

 ;;  

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

 ;;###

 ;

GETRECIP ;

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

 ;

 S CTR=0,APCLKEY="APCLZMENU"

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

 Q

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

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

 +2       ;;

 +3       ; The following line prevents the "Disable Options..." and "Move

 +4       ; Routines..." questions from being asked during the install.

 +5        IF $GET(XPDENV)=1

               SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 +6        QUIT 

 +7       ;

POST      ;EP

CPTTAX    ;install new cpt taxonomies

 +1       ;   DM AUDIT FLU CPTS

           DO ^APCLP9A

 +2       ;   DM AUDIT MAMMOGRAM CPTS

           DO ^APCLP9B

 +3       ;   DM AUDIT PAP CPTS

           DO ^APCLP9C

OPT       ;add 2 new options (supplement, report)

 +1        NEW X

           SET X=$$ADD^XPDMENU("APCL M MAN PATIENT LISTINGS","APCL P ELDER CARE 4","ELNH")

 +2        IF 'X

               WRITE "Attempt to add Elder Care Report 4 option failed."

               HANG 3

 +3        SET X=$$ADD^XPDMENU("APCL M MAIN DM MENU","APCLDMSP","DPCS")

 +4        IF 'X

               WRITE "Attempt to add DM 2000 Audit Menu option failed.."

               HANG 3

 +5       ;*********SEND OUT ATXCHK

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

 +7       ;;

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

 +9       ;;2. Identify recipients in GETRECIP by setting APCLKEY

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

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

 +12      ;;   call on completion of patch or upgrade

 +13      ;

 +14       IF '$GET(DUZ)

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

               QUIT 

 +15       DO HOME^%ZIS

           DO DT^DICRW

 +16      ;

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

 +18       KILL ^TMP($JOB,"APCLBUL")

 +19       DO WRITEMSG

           DO GETRECIP

 +20      ;Change following lines as desired

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

SENDER     SET XMDUZ="Cimarron Medical Informatics"

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

           SET XMY(1)=""

           SET XMY(DUZ)=""

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

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

 +3        DO ^XMD

 +4        KILL ^TMP($JOB,"APCLBUL"),APCLKEY

 +5        QUIT 

 +6       ;

WRITEMSG  ;

 +1        FOR %=3:1

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

               IF X="###"

                   QUIT 

               SET ^TMP($JOB,"APCLBUL",%)=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 Management Reports Patch 9 has recently been installed.  This patch

 +10      ;;includes the following modifications/enhancements:

 +11      ;;   

 +12      ;;-DM Audit 2000.  Fixes the EPI export record.

 +13      ;;-Adds logic to check for CPT codes for Flu, Pap and Mammogram

 +14      ;;-Adds VGEN items:  Microbiology Result, Microbiology Organism, and Culture

 +15      ;;-Adds VGEN item: Health Factor Quantity/Score

 +16      ;;-Adds an option to print a Diabetes Care Summary w/o printing

 +17      ;;a full health summary.

 +18      ;;-Fixes a potential error in the injury report.

 +19      ;;-Fixes a potential error in the active user report.

 +20      ;;-Modifies the drug taxonomy update system to display synonyms

 +21      ;;-Modifies the template creation from VGEN/PGEN to bypass fileman security

 +22      ;;

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

 +24      ;;support staff or any of the following Cimarron staff members:

 +25      ;;

 +26      ;;Dorothy Russell *  Gary Lawless    *  Bill Mason       *  Lori Butcher

 +27      ;;(520)-743-3275     (715)-358-3763     (520)-615-0689      (520)-577-2146

 +28      ;;  

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

 +30      ;;###

 +31      ;

GETRECIP  ;

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

 +2       ;

 +3        SET CTR=0

           SET APCLKEY="APCLZMENU"

 +4        FOR 

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

               IF 'CTR

                   QUIT 

               SET Y=CTR

               SET XMY(Y)=""

 +5        QUIT