AMH30P2B ; IHS/BJI/GRL - Routine to create bulletin [ 04/27/04 2:30 PM ]
;;3.0;IHS BEHAVIORAL HEALTH;**2**;JAN 27, 2003
;;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 AMHKEY
;;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,"AMHBUL")
D WRITEMSG,GETRECIP
;Change following lines as desired
SUBJECT S XMSUB="* * * IMPORTANT RPMS INFORMATION * * *"
SENDER S XMDUZ="Cimarron Medical Informatics"
S XMTEXT="^TMP($J,""AMHBUL"",",XMY(1)="",XMY(DUZ)=""
I $E(IOST)="C" W !,"Sending Mailman message to holders of the"_" "_AMHKEY_" "_"security key."
D ^XMD
KILL ^TMP($J,"AMHBUL"),AMHKEY
Q
;
WRITEMSG ;
F %=3:1 S X=$P($T(WRITEMSG+%),";",3) Q:X="###" S ^TMP($J,"AMHBUL",%)=X
Q
;;
;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;;+ This message is intended to advise you of changes, +
;;+ upgrades or other important RPMS information
;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;;+++++++++++++++++++++ end of announcement +++++++++++++++++++++++
;;
;; - adds a new option under the Manager Utilities to allow backloading
;; of old CDMIS data into the Behavioral Health Module. This option
;; is locked with a key (AMHZ CDMIS BACKLOAD) and should be run
;; at the discretion of the program after they discontinue using
;; CDMIS and all CDMIS users are using the Behavioral Health Module.
;;
;; - Added a SECURITY KEY called AMHZ DELETE VISIT. The ability
;; to delete a visit, treatment plan or suicide form is not locked.
;; The supervisors and program managers should be allocated this
;; key. Only those with the key will be able to delete a visit,
;; treatment plan or suicide form.
;;
;; - added the capability for a site to have an Interactive PCC link.
;; If the site parameter is set to YES the user will be asked to
;; select a PCC visit if one already exists. This should be used
;; at sites that are checking patients into Mental Health, Social
;; Services or Chemical dependency clinics where the check-in
;; process creates the PCC visit. Site parameter file and
;; screens were updated.
;;
;; - modified the SEEN report to exclude closed cases (AMHRC1)
;;
;; - fixed activity report to correctly tally problems if problem
;; narrative is same or similar
;;
;; - Modified the ACT report to include AGE, GENDER and Clinic
;; type as choices
;;
;; - Added FACE SHEET as an option on PDE.
;;
;; - Added a new report to display time spent in group by patient.
;;
;; - Revised Treatment Plans needing reviewed report to exclude
;; resolved Treatment Plans.
;;
;; - Modified SAN F/U form to combine items 8 through 11.
;;
;; - Added a new site parameter to only allow those entered into the
;; site parameter file to see all visits on the day in SDE/RDE.
;; If the user is not entered into the site parameter they will
;; only see the visits they entered or were a provider on.
;;
;; - Added a display of the problem code narrative to the case screen.
;;
;; - changed the patient flag field to be 3 digits.
;;
;; - Added capture of IPV/DV screening to all forms.
;; - Added display of IPV/DV screening on FULL encounter form.
;; - Modified PCC link to pass IPV/DV screening.
;;
;; - Provided a new Option to updated Suicide Forms by Date.
;;
;; - Added personal Hx to PDE screen.
;;
;; - Added a delete case item to the Case update screen.
;;
;; - Added a delete intake item to the Intake Update screen.
;; - Data Dictionary changes:
;; 1. Added OTHER to set of codes for Program type in
;; Case Status file
;; 2. Added BRIEF as a Visit Type.
;; 3. Added INFO/REFERRAL to A/SA Type of Contact
;; - Changes the export to not error if a community does not
;; have a state, county, community code.
;; - Fixed sporadic undef error in screen refreshing on PDE (AMHLEP2)
;; - Removed site parameters items that are not longer used:
;; 1. Full SOAP
;; 2. Default device for export
;; - Fixed spelling of barbiturates on suicide form.
;; - Fixed spelling of highest on suicide form.
;; - Fixed Designated provider report to not generate an undef
;; if OTHER (2) is chosen.
;; - Fixed spelling of recurrence on SAN form.
;;###
;
GETRECIP ;
;* * * Define key below to identify recipients * * *
;
S CTR=0,AMHKEY="AMHZMENU"
F S CTR=$O(^XUSEC(AMHKEY,CTR)) Q:'CTR S Y=CTR S XMY(Y)=""
Q
AMH30P2B ; IHS/BJI/GRL - Routine to create bulletin [ 04/27/04 2:30 PM ]
+1 ;;3.0;IHS BEHAVIORAL HEALTH;**2**;JAN 27, 2003
+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 AMHKEY
+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,"AMHBUL")
+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,""AMHBUL"","
SET XMY(1)=""
SET XMY(DUZ)=""
+2 IF $EXTRACT(IOST)="C"
WRITE !,"Sending Mailman message to holders of the"_" "_AMHKEY_" "_"security key."
+3 DO ^XMD
+4 KILL ^TMP($JOB,"AMHBUL"),AMHKEY
+5 QUIT
+6 ;
WRITEMSG ;
+1 FOR %=3:1
SET X=$PIECE($TEXT(WRITEMSG+%),";",3)
IF X="###"
QUIT
SET ^TMP($JOB,"AMHBUL",%)=X
+2 QUIT
+3 ;;
+4 ;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+5 ;;+ This message is intended to advise you of changes, +
+6 ;;+ upgrades or other important RPMS information
+7 ;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+8 ;;+++++++++++++++++++++ end of announcement +++++++++++++++++++++++
+9 ;;
+10 ;; - adds a new option under the Manager Utilities to allow backloading
+11 ;; of old CDMIS data into the Behavioral Health Module. This option
+12 ;; is locked with a key (AMHZ CDMIS BACKLOAD) and should be run
+13 ;; at the discretion of the program after they discontinue using
+14 ;; CDMIS and all CDMIS users are using the Behavioral Health Module.
+15 ;;
+16 ;; - Added a SECURITY KEY called AMHZ DELETE VISIT. The ability
+17 ;; to delete a visit, treatment plan or suicide form is not locked.
+18 ;; The supervisors and program managers should be allocated this
+19 ;; key. Only those with the key will be able to delete a visit,
+20 ;; treatment plan or suicide form.
+21 ;;
+22 ;; - added the capability for a site to have an Interactive PCC link.
+23 ;; If the site parameter is set to YES the user will be asked to
+24 ;; select a PCC visit if one already exists. This should be used
+25 ;; at sites that are checking patients into Mental Health, Social
+26 ;; Services or Chemical dependency clinics where the check-in
+27 ;; process creates the PCC visit. Site parameter file and
+28 ;; screens were updated.
+29 ;;
+30 ;; - modified the SEEN report to exclude closed cases (AMHRC1)
+31 ;;
+32 ;; - fixed activity report to correctly tally problems if problem
+33 ;; narrative is same or similar
+34 ;;
+35 ;; - Modified the ACT report to include AGE, GENDER and Clinic
+36 ;; type as choices
+37 ;;
+38 ;; - Added FACE SHEET as an option on PDE.
+39 ;;
+40 ;; - Added a new report to display time spent in group by patient.
+41 ;;
+42 ;; - Revised Treatment Plans needing reviewed report to exclude
+43 ;; resolved Treatment Plans.
+44 ;;
+45 ;; - Modified SAN F/U form to combine items 8 through 11.
+46 ;;
+47 ;; - Added a new site parameter to only allow those entered into the
+48 ;; site parameter file to see all visits on the day in SDE/RDE.
+49 ;; If the user is not entered into the site parameter they will
+50 ;; only see the visits they entered or were a provider on.
+51 ;;
+52 ;; - Added a display of the problem code narrative to the case screen.
+53 ;;
+54 ;; - changed the patient flag field to be 3 digits.
+55 ;;
+56 ;; - Added capture of IPV/DV screening to all forms.
+57 ;; - Added display of IPV/DV screening on FULL encounter form.
+58 ;; - Modified PCC link to pass IPV/DV screening.
+59 ;;
+60 ;; - Provided a new Option to updated Suicide Forms by Date.
+61 ;;
+62 ;; - Added personal Hx to PDE screen.
+63 ;;
+64 ;; - Added a delete case item to the Case update screen.
+65 ;;
+66 ;; - Added a delete intake item to the Intake Update screen.
+67 ;; - Data Dictionary changes:
+68 ;; 1. Added OTHER to set of codes for Program type in
+69 ;; Case Status file
+70 ;; 2. Added BRIEF as a Visit Type.
+71 ;; 3. Added INFO/REFERRAL to A/SA Type of Contact
+72 ;; - Changes the export to not error if a community does not
+73 ;; have a state, county, community code.
+74 ;; - Fixed sporadic undef error in screen refreshing on PDE (AMHLEP2)
+75 ;; - Removed site parameters items that are not longer used:
+76 ;; 1. Full SOAP
+77 ;; 2. Default device for export
+78 ;; - Fixed spelling of barbiturates on suicide form.
+79 ;; - Fixed spelling of highest on suicide form.
+80 ;; - Fixed Designated provider report to not generate an undef
+81 ;; if OTHER (2) is chosen.
+82 ;; - Fixed spelling of recurrence on SAN form.
+83 ;;###
+84 ;
GETRECIP ;
+1 ;* * * Define key below to identify recipients * * *
+2 ;
+3 SET CTR=0
SET AMHKEY="AMHZMENU"
+4 FOR
SET CTR=$ORDER(^XUSEC(AMHKEY,CTR))
IF 'CTR
QUIT
SET Y=CTR
SET XMY(Y)=""
+5 QUIT
