AMH30P3B ; IHS/BJI/GRL - Routine to create bulletin [ 09/14/04 6:56 AM ]
;;3.0;IHS BEHAVIORAL HEALTH;**3**;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 5 new activity codes:
;; 85 - Art Therapy
;; 86 - Recreation Activities
;; 87 - Outreach
;; 88 - Acupuncture
;; 89 - Methadone Maintenance
;;
;; - adds triggers to populate the new designated specialty provider
;; package.
;;
;; - changed the code for unable to screen for IPV/DV to UAS
;; - the system now prevents users from selecting inactive
;; locations as the location of encounter.
;;
;; Previous patches made the following modifications:
;;
;; - 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
AMH30P3B ; IHS/BJI/GRL - Routine to create bulletin [ 09/14/04 6:56 AM ]
+1 ;;3.0;IHS BEHAVIORAL HEALTH;**3**;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 5 new activity codes:
+11 ;; 85 - Art Therapy
+12 ;; 86 - Recreation Activities
+13 ;; 87 - Outreach
+14 ;; 88 - Acupuncture
+15 ;; 89 - Methadone Maintenance
+16 ;;
+17 ;; - adds triggers to populate the new designated specialty provider
+18 ;; package.
+19 ;;
+20 ;; - changed the code for unable to screen for IPV/DV to UAS
+21 ;; - the system now prevents users from selecting inactive
+22 ;; locations as the location of encounter.
+23 ;;
+24 ;; Previous patches made the following modifications:
+25 ;;
+26 ;; - adds a new option under the Manager Utilities to allow backloading
+27 ;; of old CDMIS data into the Behavioral Health Module. This option
+28 ;; is locked with a key (AMHZ CDMIS BACKLOAD) and should be run
+29 ;; at the discretion of the program after they discontinue using
+30 ;; CDMIS and all CDMIS users are using the Behavioral Health Module.
+31 ;;
+32 ;; - Added a SECURITY KEY called AMHZ DELETE VISIT. The ability
+33 ;; to delete a visit, treatment plan or suicide form is not locked.
+34 ;; The supervisors and program managers should be allocated this
+35 ;; key. Only those with the key will be able to delete a visit,
+36 ;; treatment plan or suicide form.
+37 ;;
+38 ;; - added the capability for a site to have an Interactive PCC link.
+39 ;; If the site parameter is set to YES the user will be asked to
+40 ;; select a PCC visit if one already exists. This should be used
+41 ;; at sites that are checking patients into Mental Health, Social
+42 ;; Services or Chemical dependency clinics where the check-in
+43 ;; process creates the PCC visit. Site parameter file and
+44 ;; screens were updated.
+45 ;;
+46 ;; - modified the SEEN report to exclude closed cases (AMHRC1)
+47 ;;
+48 ;; - fixed activity report to correctly tally problems if problem
+49 ;; narrative is same or similar
+50 ;;
+51 ;; - Modified the ACT report to include AGE, GENDER and Clinic
+52 ;; type as choices
+53 ;;
+54 ;; - Added FACE SHEET as an option on PDE.
+55 ;;
+56 ;; - Added a new report to display time spent in group by patient.
+57 ;;
+58 ;; - Revised Treatment Plans needing reviewed report to exclude
+59 ;; resolved Treatment Plans.
+60 ;;
+61 ;; - Modified SAN F/U form to combine items 8 through 11.
+62 ;;
+63 ;; - Added a new site parameter to only allow those entered into the
+64 ;; site parameter file to see all visits on the day in SDE/RDE.
+65 ;; If the user is not entered into the site parameter they will
+66 ;; only see the visits they entered or were a provider on.
+67 ;;
+68 ;; - Added a display of the problem code narrative to the case screen.
+69 ;;
+70 ;; - changed the patient flag field to be 3 digits.
+71 ;;
+72 ;; - Added capture of IPV/DV screening to all forms.
+73 ;; - Added display of IPV/DV screening on FULL encounter form.
+74 ;; - Modified PCC link to pass IPV/DV screening.
+75 ;;
+76 ;; - Provided a new Option to updated Suicide Forms by Date.
+77 ;;
+78 ;; - Added personal Hx to PDE screen.
+79 ;;
+80 ;; - Added a delete case item to the Case update screen.
+81 ;;
+82 ;; - Added a delete intake item to the Intake Update screen.
+83 ;; - Data Dictionary changes:
+84 ;; 1. Added OTHER to set of codes for Program type in
+85 ;; Case Status file
+86 ;; 2. Added BRIEF as a Visit Type.
+87 ;; 3. Added INFO/REFERRAL to A/SA Type of Contact
+88 ;; - Changes the export to not error if a community does not
+89 ;; have a state, county, community code.
+90 ;; - Fixed sporadic undef error in screen refreshing on PDE (AMHLEP2)
+91 ;; - Removed site parameters items that are not longer used:
+92 ;; 1. Full SOAP
+93 ;; 2. Default device for export
+94 ;; - Fixed spelling of barbiturates on suicide form.
+95 ;; - Fixed spelling of highest on suicide form.
+96 ;; - Fixed Designated provider report to not generate an undef
+97 ;; if OTHER (2) is chosen.
+98 ;; - Fixed spelling of recurrence on SAN form.
+99 ;;###
+100 ;
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
