WV11PST ;HCIOFO/FT-Patch 11 Post-Installation Routine ;5/18/00 11:39
;;1.0;WOMEN'S HEALTH;**11**;Sep 30, 1998
;
; This routine uses the following IAs:
; #1157 - $$ADD^XPDMENU (supported)
;
N WVADD
D ADDOPT
D QMAIL
Q
ADDOPT ; Add/Update options on menus
N WVFLAG,WVMENU,WVOPTION,WVORDER,WVSYN
; Add WV ADD TO MST option to WV MENU-FILE MAINTENANCE menu.
S WVMENU="WV MENU-FILE MAINTENANCE"
S WVOPTION="WV ADD TO MST",WVSYN="MST",WVORDER=13
S WVFLAG=$$ADD^XPDMENU(WVMENU,WVOPTION,WVSYN,WVORDER)
; Enter DISPLAY ORDER for WV ADD/EDIT REFERRAL SOURCE option on
; WV MENU-FILE MAINTENANCE menu.
S WVMENU="WV MENU-FILE MAINTENANCE"
S WVOPTION="WV ADD/EDIT REFERRAL SOURCE",WVSYN="RS",WVORDER=12
S WVFLAG=$$ADD^XPDMENU(WVMENU,WVOPTION,WVSYN,WVORDER)
; Enter DISPLAY ORDER for WV SEXUAL TRAUMA SUMMARY option on
; WV MENU-MANAGEMENT REPORTS menu.
S WVMENU="WV MENU-MANAGEMENT REPORTS"
S WVOPTION="WV SEXUAL TRAUMA SUMMARY",WVSYN="ST",WVORDER=6
S WVFLAG=$$ADD^XPDMENU(WVMENU,WVOPTION,WVSYN,WVORDER)
; Add WV SEXUAL TRAUMA LIST to WV MENU-MANAGEMENT REPORTS menu.
S WVMENU="WV MENU-MANAGEMENT REPORTS"
S WVOPTION="WV SEXUAL TRAUMA LIST",WVSYN="LST",WVORDER=7
S WVFLAG=$$ADD^XPDMENU(WVMENU,WVOPTION,WVSYN,WVORDER)
; Add DGMST ENTER NEW MST option to WV MENU-PATIENT MANAGEMENT menu.
S WVMENU="WV MENU-PATIENT MANAGEMENT"
S WVOPTION="DGMST ENTER NEW MST",WVSYN="MST",WVORDER=13
S WVADD=$$ADD^XPDMENU(WVMENU,WVOPTION,WVSYN,WVORDER)
Q
QMAIL ; Queue mail message
N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
S ZTRTN="MAIL^WV11PST",ZTDESC="WV*1*11 INSTALLED"
S ZTIO="",ZTDTH=$H,ZTSAVE("WVADD")=""
D ^%ZTLOAD
Q
MAIL ; Send message to default case managers to inform them of the changes
N XMDUZ,XMSUB,XMTEXT,XMY,WVSITE,WVIEN,WVLINE,WVMSG
I $D(ZTQUEUED) S ZTREQ="@"
S (WVLINE,WVSITE)=0
F S WVSITE=$O(^WV(790.02,WVSITE)) Q:'WVSITE D
.S WVIEN=$P($G(^WV(790.02,WVSITE,0)),U,2) ;default case manager
.Q:'WVIEN
.S XMY(WVIEN)=""
.Q
; Include patch installer if DG option not added to WH menu
I $G(WVADD)=0 S XMY(DUZ)=""
I '$O(XMY(0)) Q
SEND ; Create and send mail message
S XMDUZ=.5 ;message sender
S XMSUB="Women's Health patch #11 installed"
S WVMSG(+$$LINE())="Patch #11 for the Women's Health (WH) package was installed. This patch"
S WVMSG(+$$LINE())="makes the following changes:"
S WVMSG(+$$LINE())=" "
S WVMSG(+$$LINE())="1) Adds the 'MST Status Add/Edit' option to the Patient Management menu."
S WVMSG(+$$LINE())="This is the same option used by the MST module of the Registration package."
S WVMSG(+$$LINE())="This option allows the user to enter Military Sexual Trauma (MST) data"
S WVMSG(+$$LINE())="directly into the MST module."
S WVMSG(+$$LINE())=" "
S WVMSG(+$$LINE())="2) Adds a new option, 'List Sexual Trauma Data', on the Management Reports"
S WVMSG(+$$LINE())="menu. This option prints a list of WH patients, their WH Sexual Trauma"
S WVMSG(+$$LINE())="value, and MST module value."
S WVMSG(+$$LINE())=" "
S WVMSG(+$$LINE())="3) Adds a new option, 'Add Sexual Trauma Data to MST Module' to the"
S WVMSG(+$$LINE())="File Maintenance menu. This option will copy WH Sexual Trauma data into"
S WVMSG(+$$LINE())="the MST module of the Registration package."
I $G(WVADD)=0 D
.S WVMSG(+$$LINE())=" "
.S WVMSG(+$$LINE())="The 'MST Status Add/Edit' option could not be added to the Patient Management"
.S WVMSG(+$$LINE())="menu. This mail message is being sent to the patch installer, too."
.S WVMSG(+$$LINE())="Attention patch installer: Please contact National Vista Support and"
.S WVMSG(+$$LINE())="report this problem. Thank you."
.Q
S XMTEXT="WVMSG("
D ^XMD
Q
LINE() ; Increment line counter by 1
S WVLINE=+$G(WVLINE)+1
Q WVLINE
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HWV11PST 3780 printed Dec 13, 2024@02:46:24 Page 2
WV11PST ;HCIOFO/FT-Patch 11 Post-Installation Routine ;5/18/00 11:39
+1 ;;1.0;WOMEN'S HEALTH;**11**;Sep 30, 1998
+2 ;
+3 ; This routine uses the following IAs:
+4 ; #1157 - $$ADD^XPDMENU (supported)
+5 ;
+6 NEW WVADD
+7 DO ADDOPT
+8 DO QMAIL
+9 QUIT
ADDOPT ; Add/Update options on menus
+1 NEW WVFLAG,WVMENU,WVOPTION,WVORDER,WVSYN
+2 ; Add WV ADD TO MST option to WV MENU-FILE MAINTENANCE menu.
+3 SET WVMENU="WV MENU-FILE MAINTENANCE"
+4 SET WVOPTION="WV ADD TO MST"
SET WVSYN="MST"
SET WVORDER=13
+5 SET WVFLAG=$$ADD^XPDMENU(WVMENU,WVOPTION,WVSYN,WVORDER)
+6 ; Enter DISPLAY ORDER for WV ADD/EDIT REFERRAL SOURCE option on
+7 ; WV MENU-FILE MAINTENANCE menu.
+8 SET WVMENU="WV MENU-FILE MAINTENANCE"
+9 SET WVOPTION="WV ADD/EDIT REFERRAL SOURCE"
SET WVSYN="RS"
SET WVORDER=12
+10 SET WVFLAG=$$ADD^XPDMENU(WVMENU,WVOPTION,WVSYN,WVORDER)
+11 ; Enter DISPLAY ORDER for WV SEXUAL TRAUMA SUMMARY option on
+12 ; WV MENU-MANAGEMENT REPORTS menu.
+13 SET WVMENU="WV MENU-MANAGEMENT REPORTS"
+14 SET WVOPTION="WV SEXUAL TRAUMA SUMMARY"
SET WVSYN="ST"
SET WVORDER=6
+15 SET WVFLAG=$$ADD^XPDMENU(WVMENU,WVOPTION,WVSYN,WVORDER)
+16 ; Add WV SEXUAL TRAUMA LIST to WV MENU-MANAGEMENT REPORTS menu.
+17 SET WVMENU="WV MENU-MANAGEMENT REPORTS"
+18 SET WVOPTION="WV SEXUAL TRAUMA LIST"
SET WVSYN="LST"
SET WVORDER=7
+19 SET WVFLAG=$$ADD^XPDMENU(WVMENU,WVOPTION,WVSYN,WVORDER)
+20 ; Add DGMST ENTER NEW MST option to WV MENU-PATIENT MANAGEMENT menu.
+21 SET WVMENU="WV MENU-PATIENT MANAGEMENT"
+22 SET WVOPTION="DGMST ENTER NEW MST"
SET WVSYN="MST"
SET WVORDER=13
+23 SET WVADD=$$ADD^XPDMENU(WVMENU,WVOPTION,WVSYN,WVORDER)
+24 QUIT
QMAIL ; Queue mail message
+1 NEW ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
+2 SET ZTRTN="MAIL^WV11PST"
SET ZTDESC="WV*1*11 INSTALLED"
+3 SET ZTIO=""
SET ZTDTH=$HOROLOG
SET ZTSAVE("WVADD")=""
+4 DO ^%ZTLOAD
+5 QUIT
MAIL ; Send message to default case managers to inform them of the changes
+1 NEW XMDUZ,XMSUB,XMTEXT,XMY,WVSITE,WVIEN,WVLINE,WVMSG
+2 IF $DATA(ZTQUEUED)
SET ZTREQ="@"
+3 SET (WVLINE,WVSITE)=0
+4 FOR
SET WVSITE=$ORDER(^WV(790.02,WVSITE))
if 'WVSITE
QUIT
Begin DoDot:1
+5 ;default case manager
SET WVIEN=$PIECE($GET(^WV(790.02,WVSITE,0)),U,2)
+6 if 'WVIEN
QUIT
+7 SET XMY(WVIEN)=""
+8 QUIT
End DoDot:1
+9 ; Include patch installer if DG option not added to WH menu
+10 IF $GET(WVADD)=0
SET XMY(DUZ)=""
+11 IF '$ORDER(XMY(0))
QUIT
SEND ; Create and send mail message
+1 ;message sender
SET XMDUZ=.5
+2 SET XMSUB="Women's Health patch #11 installed"
+3 SET WVMSG(+$$LINE())="Patch #11 for the Women's Health (WH) package was installed. This patch"
+4 SET WVMSG(+$$LINE())="makes the following changes:"
+5 SET WVMSG(+$$LINE())=" "
+6 SET WVMSG(+$$LINE())="1) Adds the 'MST Status Add/Edit' option to the Patient Management menu."
+7 SET WVMSG(+$$LINE())="This is the same option used by the MST module of the Registration package."
+8 SET WVMSG(+$$LINE())="This option allows the user to enter Military Sexual Trauma (MST) data"
+9 SET WVMSG(+$$LINE())="directly into the MST module."
+10 SET WVMSG(+$$LINE())=" "
+11 SET WVMSG(+$$LINE())="2) Adds a new option, 'List Sexual Trauma Data', on the Management Reports"
+12 SET WVMSG(+$$LINE())="menu. This option prints a list of WH patients, their WH Sexual Trauma"
+13 SET WVMSG(+$$LINE())="value, and MST module value."
+14 SET WVMSG(+$$LINE())=" "
+15 SET WVMSG(+$$LINE())="3) Adds a new option, 'Add Sexual Trauma Data to MST Module' to the"
+16 SET WVMSG(+$$LINE())="File Maintenance menu. This option will copy WH Sexual Trauma data into"
+17 SET WVMSG(+$$LINE())="the MST module of the Registration package."
+18 IF $GET(WVADD)=0
Begin DoDot:1
+19 SET WVMSG(+$$LINE())=" "
+20 SET WVMSG(+$$LINE())="The 'MST Status Add/Edit' option could not be added to the Patient Management"
+21 SET WVMSG(+$$LINE())="menu. This mail message is being sent to the patch installer, too."
+22 SET WVMSG(+$$LINE())="Attention patch installer: Please contact National Vista Support and"
+23 SET WVMSG(+$$LINE())="report this problem. Thank you."
+24 QUIT
End DoDot:1
+25 SET XMTEXT="WVMSG("
+26 DO ^XMD
+27 QUIT
LINE() ; Increment line counter by 1
+1 SET WVLINE=+$GET(WVLINE)+1
+2 QUIT WVLINE
+3 ;
