APCHBU14 ; IHS/BJI/GRL - routine to create bulletin [ 01/14/05 10:36 AM ]
;;2.0;IHS RPMS/PCC Health Summary;**14**;JUN 24, 1997
;;
;;Here's how to make this work:
;;
;;1. Create your message in subroutine WRITEMSG
;;2. Identify recipients in GETRECIP by setting APCHKEY
;;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,"APCHBUL")
D WRITEMSG,GETRECIP
;Change following lines as desired
SUBJECT S XMSUB="* * * IMPORTANT RPMS INFORMATION * * *"
SENDER S XMDUZ="Cimarron Medical Informatics"
S XMTEXT="^TMP($J,""APCHBUL"",",XMY(1)="",XMY(DUZ)=""
;I $E(IOST)="C" W !,"Sending Mailman message to holders of the"_" "_APCHKEY_" "_"security key."
I $E(IOST)="C" W !,"Sending Mailman message to all active RPMS users."
D ^XMD
KILL ^TMP($J,"APCHBUL"),APCHKEY
Q
;
WRITEMSG ;
F %=3:1 S X=$P($T(WRITEMSG+%),";",3) Q:X="###" S ^TMP($J,"APCHBUL",%)=X
Q
;;
;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;;+ This message is intended to advise you of changes, +
;;+ upgrades or other important RPMS information
;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;;
;;PCC Health Summary patch 14 has recently been installed on this RPMS computer
;;
;; - adds LOINC code lookups to all lab lookups in both
;; the Diabetes Supplement and the Health Maintenance
;; reminders
;;
;; - adds a New patient medical handout. This new
;; option is called "Patient Medical Handouts" (APCHPSUM) and can
;; be found on the APCHMENU option. This option is standalone
;; and can be added to a users menu. This provides the ability
;; to print out a handout sheet to give to the patient. There
;; are 2 handouts, one is a pre-visit handout to be given to
;; the patient before they see the provider and the second
;; one is a handout to be given to the patient after their
;; visit is over. The pre-visit handout can be printed at
;; check-in through scheduling by setting the parameter in the
;; PCC MASTER CONTROL file called "PROMPT FOR PT HANDOUT AT CHKIN"
;; to yes. For more information about these handouts please see
;; the supplemental document distributed with this patch.
;;
;; - fixed the DM Supplement to not display refusals for Mammogram
;; if the patient had a mammogram after the refusal date.
;;
;; - On the medication component called "MEDS - ALL W/#ISS & ALT NAME"
;; we have added the ability to display the ordering provider's name
;; if the site opts to do so. To turn this on you must set the field
;; called "DISPLAY PROV INITIALS W/MEDS" to YES in the health summary
;; type file for the type of summary on which you want the ordering
;; provider to display.
;;
;; - added a check for refusals to the pneumovax health maintenance
;; reminder.
;;
;;
;;--------------------- End of Announcement -----------------------
;;###
;
GETRECIP ;
;* * * Define key below to identify recipients * * *
;
S CTR=0,APCHKEY="APCHZMENU"
F S CTR=$O(^XUSEC(APCHKEY,CTR)) Q:'CTR D
.I $P($G(^VA(200,CTR,0)),"^",11)]]"" Q
.I $P($G(^VA(200,CTR,"PS")),U,4)]"" Q ;inactive date
.I $P($G(^VA(200,CTR,201)),"^")]"" S Y=CTR S XMY(Y)="" ;primary menu
;
Q
APCHBU14 ; IHS/BJI/GRL - routine to create bulletin [ 01/14/05 10:36 AM ]
+1 ;;2.0;IHS RPMS/PCC Health Summary;**14**;JUN 24, 1997
+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 APCHKEY
+7 ;;3. Make changes in SUBJECT and SENDER as desired
+8 ;;4. Rename this routine in appropriate namespace and
+9 ;; call on completion of patch or upgrade
+10 ;
+11 IF '$GET(DUZ)
WRITE !,"DUZ UNDEFINED OR ZERO.",!
QUIT
+12 DO HOME^%ZIS
DO DT^DICRW
+13 ;
+14 NEW XMSUB,XMDUZ,XMTEXT,XMY,DIFROM
+15 KILL ^TMP($JOB,"APCHBUL")
+16 DO WRITEMSG
DO GETRECIP
+17 ;Change following lines as desired
SUBJECT SET XMSUB="* * * IMPORTANT RPMS INFORMATION * * *"
SENDER SET XMDUZ="Cimarron Medical Informatics"
+1 SET XMTEXT="^TMP($J,""APCHBUL"","
SET XMY(1)=""
SET XMY(DUZ)=""
+2 ;I $E(IOST)="C" W !,"Sending Mailman message to holders of the"_" "_APCHKEY_" "_"security key."
+3 IF $EXTRACT(IOST)="C"
WRITE !,"Sending Mailman message to all active RPMS users."
+4 DO ^XMD
+5 KILL ^TMP($JOB,"APCHBUL"),APCHKEY
+6 QUIT
+7 ;
WRITEMSG ;
+1 FOR %=3:1
SET X=$PIECE($TEXT(WRITEMSG+%),";",3)
IF X="###"
QUIT
SET ^TMP($JOB,"APCHBUL",%)=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 Health Summary patch 14 has recently been installed on this RPMS computer
+10 ;;
+11 ;; - adds LOINC code lookups to all lab lookups in both
+12 ;; the Diabetes Supplement and the Health Maintenance
+13 ;; reminders
+14 ;;
+15 ;; - adds a New patient medical handout. This new
+16 ;; option is called "Patient Medical Handouts" (APCHPSUM) and can
+17 ;; be found on the APCHMENU option. This option is standalone
+18 ;; and can be added to a users menu. This provides the ability
+19 ;; to print out a handout sheet to give to the patient. There
+20 ;; are 2 handouts, one is a pre-visit handout to be given to
+21 ;; the patient before they see the provider and the second
+22 ;; one is a handout to be given to the patient after their
+23 ;; visit is over. The pre-visit handout can be printed at
+24 ;; check-in through scheduling by setting the parameter in the
+25 ;; PCC MASTER CONTROL file called "PROMPT FOR PT HANDOUT AT CHKIN"
+26 ;; to yes. For more information about these handouts please see
+27 ;; the supplemental document distributed with this patch.
+28 ;;
+29 ;; - fixed the DM Supplement to not display refusals for Mammogram
+30 ;; if the patient had a mammogram after the refusal date.
+31 ;;
+32 ;; - On the medication component called "MEDS - ALL W/#ISS & ALT NAME"
+33 ;; we have added the ability to display the ordering provider's name
+34 ;; if the site opts to do so. To turn this on you must set the field
+35 ;; called "DISPLAY PROV INITIALS W/MEDS" to YES in the health summary
+36 ;; type file for the type of summary on which you want the ordering
+37 ;; provider to display.
+38 ;;
+39 ;; - added a check for refusals to the pneumovax health maintenance
+40 ;; reminder.
+41 ;;
+42 ;;
+43 ;;--------------------- End of Announcement -----------------------
+44 ;;###
+45 ;
GETRECIP ;
+1 ;* * * Define key below to identify recipients * * *
+2 ;
+3 SET CTR=0
SET APCHKEY="APCHZMENU"
+4 FOR
SET CTR=$ORDER(^XUSEC(APCHKEY,CTR))
IF 'CTR
QUIT
Begin DoDot:1
+5 IF $PIECE($GET(^VA(200,CTR,0)),"^",11)]]""
QUIT
+6 ;inactive date
IF $PIECE($GET(^VA(200,CTR,"PS")),U,4)]""
QUIT
+7 ;primary menu
IF $PIECE($GET(^VA(200,CTR,201)),"^")]""
SET Y=CTR
SET XMY(Y)=""
End DoDot:1
+8 ;
+9 QUIT