Routine: APCDBUL5

APCDBUL5 ; 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,DIFROM

 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

WRITEMSG ;

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

;;

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

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

 ;;+     upgrades or other important RPMS information

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

;;

 ;;PCC Data Entry Patch 5 AND 6 have been installed.  This patch includes the following

 ;;modifications/enchancements:

;;

 ;; - New Option:  Merge 2 visits on different dates. APCDVMDD

 ;; - New Option:  Visit Display in Non-Browser mode. APCDVDP

 ;; - New Option:  Complete Orphaned Radiology Visits. APCDKRV

 ;; - New Option:  Complete Orphaned Pharmacy Visits.  APCDKPV

 ;; - New Option:  Re-print Group Forms.

 ;; - New Mnemonics:  AST - capture asthma related data.

 ;;               HAST - capture historical asthma related data.

 ;;               COC - coded chief complaint.  Capture Chief

 ;;                     Complaint in icd diagnosis format.

 ;;               PCF - documents that this pcc visit was created

 ;;                        By PCC+.

 ;;               PF - Peak Flow measurement type.

 ;;              O2 - O2 Saturation measurement type.

 ;;               PA - Pain measurement type.

 ;; - 3m Coder:  modification made to support the interface with the 3M coder.  (APCD3M, APCD3ME)

 ;; - stuff visit unique ID in visit record.  (APCDALV)

 ;; - Sentinel Surveillance link from V Lab added.  (APCDALVR)

 ;; - Prevent Undef in several places where a patient pointer may be null.  (APCDPRB, APCDDVD1

 ;; - Allow lookup of inactive patients in visit display and visit list in a date range options.  (APCDVLST, APCDDISP)

 ;; - Set a data entry date in the visit file for the data warehouse export.  (APCDEA2, APCDEAP, APCDEGP0, APCDEHI2, APCDPE2, APCDDMUP)

 ;; - DM update option:  add exam results, add education provider (APCDDMU1, ACPDDMU2)

 ;; - Allow the PPPV report in the Visit Review Report to be run for just pharmacy, radiology, lab or immunization visits. (APCDDVD, APCDR00)

 ;; - Print CPT codes on the PCC form print.  (APCDEF, APCDEFC, APCDEFP, APCDEFP1)

 ;; - Allow re-printing of group forms.

 ;; - Have user okay input before proceeding with group form entry.  (APCDEGP, APCDEPG0,APCDEGP1)

 ;; - Print VCN in WHAT mnemonic. (APCDEWHA)

 ;; - Print operator's name on Listing of Uncoded Diagnoses and Procedures Reports.  (APCDFPPV)

 ;; - Fixed HRN display on QA Coding reports. (APCDFQAP)

 ;; - Modified Complete Orphaned Reports and Purging options to allow

 ;;     Pharmacy and Radiology in addition to the existing Complete Orphaned

 ;;     Lab options.  (APCDKLV, APCDKLVR, APCDKLVP)

 ;; - Fixed formatting on immunization display.  (APCDLIM)

 ;; - Modified problem list entry option to use ^TMP rather than a local

 ;;    array due to PGMOV errors.  (APCDPL, APCDPL1, APCDPL2)

 ;; - Fixed ECODE error in VRR.  (APCDR07)

 ;; - Modified APCDVLK to use the AA index rather than the AC to speed

 ;;   up visit lookup.  (APCDVLK)

 ;; - Set .37 field of visit (merged to) for billing in VISIT

 ;;   MERGE.  (APCDVMRG)

 ;; - Modified several input templates for Fileman 22.

 ;; - Added V BLOOD BANK to items to be moved from one visit

 ;;    to another. (APCDKUL)

 ;; - Added GOAL STATUS to patient education

 ;;+++++++++++++++++++++ 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)=""

APCDBUL5  ; 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,DIFROM

 +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 5 AND 6 have been installed.  This patch includes the following

 +10      ;;modifications/enchancements:

 +11      ;;

 +12      ;; - New Option:  Merge 2 visits on different dates. APCDVMDD

 +13      ;; - New Option:  Visit Display in Non-Browser mode. APCDVDP

 +14      ;; - New Option:  Complete Orphaned Radiology Visits. APCDKRV

 +15      ;; - New Option:  Complete Orphaned Pharmacy Visits.  APCDKPV

 +16      ;; - New Option:  Re-print Group Forms.

 +17      ;; - New Mnemonics:  AST - capture asthma related data.

 +18      ;;               HAST - capture historical asthma related data.

 +19      ;;               COC - coded chief complaint.  Capture Chief

 +20      ;;                     Complaint in icd diagnosis format.

 +21      ;;               PCF - documents that this pcc visit was created

 +22      ;;                        By PCC+.

 +23      ;;               PF - Peak Flow measurement type.

 +24      ;;              O2 - O2 Saturation measurement type.

 +25      ;;               PA - Pain measurement type.

 +26      ;; - 3m Coder:  modification made to support the interface with the 3M coder.  (APCD3M, APCD3ME)

 +27      ;; - stuff visit unique ID in visit record.  (APCDALV)

 +28      ;; - Sentinel Surveillance link from V Lab added.  (APCDALVR)

 +29      ;; - Prevent Undef in several places where a patient pointer may be null.  (APCDPRB, APCDDVD1

 +30      ;; - Allow lookup of inactive patients in visit display and visit list in a date range options.  (APCDVLST, APCDDISP)

 +31      ;; - Set a data entry date in the visit file for the data warehouse export.  (APCDEA2, APCDEAP, APCDEGP0, APCDEHI2, APCDPE2, APCDDMUP)

 +32      ;; - DM update option:  add exam results, add education provider (APCDDMU1, ACPDDMU2)

 +33      ;; - Allow the PPPV report in the Visit Review Report to be run for just pharmacy, radiology, lab or immunization visits. (APCDDVD, APCDR00)

 +34      ;; - Print CPT codes on the PCC form print.  (APCDEF, APCDEFC, APCDEFP, APCDEFP1)

 +35      ;; - Allow re-printing of group forms.

 +36      ;; - Have user okay input before proceeding with group form entry.  (APCDEGP, APCDEPG0,APCDEGP1)

 +37      ;; - Print VCN in WHAT mnemonic. (APCDEWHA)

 +38      ;; - Print operator's name on Listing of Uncoded Diagnoses and Procedures Reports.  (APCDFPPV)

 +39      ;; - Fixed HRN display on QA Coding reports. (APCDFQAP)

 +40      ;; - Modified Complete Orphaned Reports and Purging options to allow

 +41      ;;     Pharmacy and Radiology in addition to the existing Complete Orphaned

 +42      ;;     Lab options.  (APCDKLV, APCDKLVR, APCDKLVP)

 +43      ;; - Fixed formatting on immunization display.  (APCDLIM)

 +44      ;; - Modified problem list entry option to use ^TMP rather than a local

 +45      ;;    array due to PGMOV errors.  (APCDPL, APCDPL1, APCDPL2)

 +46      ;; - Fixed ECODE error in VRR.  (APCDR07)

 +47      ;; - Modified APCDVLK to use the AA index rather than the AC to speed

 +48      ;;   up visit lookup.  (APCDVLK)

 +49      ;; - Set .37 field of visit (merged to) for billing in VISIT

 +50      ;;   MERGE.  (APCDVMRG)

 +51      ;; - Modified several input templates for Fileman 22.

 +52      ;; - Added V BLOOD BANK to items to be moved from one visit

 +53      ;;    to another. (APCDKUL)

 +54      ;; - Added GOAL STATUS to patient education

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

 +56      ;;###

 +57      ;

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

APCDBUL5.m