WV14PST ;HCIOFO/FT-WV*1*14 POST INSTALL/Transfer Sexual Trauma Data to DG MST Module ;4/4/01 11:41
;;1.0;WOMEN'S HEALTH;**14**;Sep 30, 1998
;
; This routine uses the following IAs:
; #1625 - $$GET^XUA4A72 (supported)
; #2716 - $$GETSTAT^DGMSTAPI (supported)
; #2716 - $$NEWSTAT^DGMSTAPI (supported)
; #1157 - $$DELETE^XPDMENU (supported)
;
DESC ; Description of post install
; This post install converts the WH Sexual Trauma data (File 790,
; Field .27) into a Military Sexual Trauma (MST) value and a Civilian
; Sexual Trauma (CST) value. The MST value is then transferred to the
; Registration package. The CST value is stored in the Women's Health
; package. The MST module tracks data for veterans only. Data for
; non-veterans is not added to the MST module. WH patients whose Sexual
; Trauma value is 'Military', 'Civilian', 'Both' or 'None' will have
; that value translated into a MST value and added to the MST module.
; WH value MST value CST value
; -------- --------- ---------
; Military Yes No
; Civilian No Yes
; Both Yes Yes
; None No No
; <null> no transfer Unknown
;
; NOTE: If a WH patient is already in the MST module with a value of
; 'Yes' then no additional MST entry is made. Also, if a WH patient
; is already in the MST module with a value of 'No' and the WH Sexual
; Trauma value is 'None' or 'Civilian' then no additional MST entry
; is made.
; The provider who determined the value must be stored in the MST
; module. If the case manager associated with the patient or the user
; running this option is a provider, then the case manager or the user
; is identified as the provider who did the screening. If neither is
; a provider, then that patient's data is not added to the MST module.
; This option will display a list of WH patients whose data was added
; to the MST module. It will also display a list of WH patients whose
; data could not be added to the MST module. These lists are then sent
; to the case managers in a MailMan message.
;
EN ; Run in the background
N WVMESAGE,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
S ZTRTN="Q^WV14PST",ZTDESC="WV*1*14 INSTALLED"
S ZTIO="",ZTDTH=$H
D ^%ZTLOAD
S WVMESAGE="The post-installation will run as background job #"_$G(ZTSK)
D MES^XPDUTL(WVMESAGE)
Q
Q ; Entry point for the background job
D REMOVE
D START
D DELETE
D EXIT
Q
EXIT ; Exit and clean up
K ^TMP($J)
K WVCST,WVDASHES,WVDATE,WVDFN,WVDGMST,WVDUZ,WVFLAG,WVLINE,WVMGR,WVMGRN
K WVMGRO,WVMSG,WVNAME,WVNODE,WVPROV,WVREASON,WVSPACES,WVSSN,WVST
K WVTITLEN,WVTITLEY,WVUSER,WVX
K X,XMDUN,XMDUZ,XMSUB,XMTEXT,XMY,XMZ,Y
Q
START ; Loop through FILE 790
I $D(ZTQUEUED) S ZTREQ="@"
K ^TMP($J)
S WVDFN=0
F S WVDFN=$O(^WV(790,WVDFN)) Q:'WVDFN D SET
D EMAIL^WV14PST1 ;send email to case manager(s).
Q
SET ; Set tmp global
S WVNODE=$G(^WV(790,WVDFN,0)) Q:WVNODE=""
S WVST=$P(WVNODE,U,27) ;WH sexual trauma value
; determine CST value
S WVCST=$S(WVST="C":"Y",WVST="B":"Y",WVST="N":"N",WVST="M":"N",1:"U")
S:$P(WVNODE,U,28)="" $P(^WV(790,WVDFN,0),U,28)=WVCST ;set CST value
S $P(^WV(790,WVDFN,0),U,27)="" ;null out (new) MST field
Q:WVST="" ;no value to transfer to Registration
Q:$$VET^WVUTL1A(WVDFN)'="Yes" ;veterans only
S WVMGR=$P(WVNODE,U,10) ;case manager ien
I '$D(XMY(WVMGR)) S XMY(WVMGR)="" ;send message to these case mgrs
; $$GETSTAT^DGMSTAPI supported API - IA #2716
S WVDGMST=$$GETSTAT^DGMSTAPI(WVDFN) ;get MST value from Registration
Q:+WVDGMST=-1 ;couldn't retrieve MST status (i.e., DFN is null)
S WVDGMST=$E($P(WVDGMST,U,2),1)
Q:WVDGMST="Y" ;MST already set to YES
I WVST="N",WVDGMST="N" Q ;both are NO, don't update MST
I WVST="C",WVDGMST="N" Q ;Civilian & No, don't update MST
S WVDGMST=$$CONVERT(WVST)
Q:WVDGMST="" ;not an MST value
S WVMGRN=$$PERSON^WVUTL1(WVMGR) ;case manager name
S WVPROV=$$PROVIDER(DUZ,WVMGR)
S WVNAME=$$NAME^WVUTL1(WVDFN) ;patient name
S WVSSN=$$SSN^WVUTL1(WVDFN) ;patient ssn
S WVST=$S(WVST="M":"Military",WVST="C":"Civilian",WVST="B":"Both",WVST="N":"None",1:"<no value>")
I WVPROV="" S ^TMP($J,"WVNO",WVMGRN,WVMGR,WVNAME,WVDFN)=WVST_U_U_U_WVSSN_U_"Determining Provider Unknown" Q
; $$NEWSTAT^DGMSTAPI supported API - IA 2716
; parameters(dfn,mst status,date/time,provider ien). A null d/t=NOW.
S WVFLAG=$$NEWSTAT^DGMSTAPI(WVDFN,WVDGMST,"",WVPROV)
; +WVFLAG will be the ien of the MST entry, if successful
I +WVFLAG=-1 S ^TMP($J,"WVNO",WVMGRN,WVMGR,WVNAME,WVDFN)=WVST_U_U_U_WVSSN_U_$P(WVFLAG,U,2) Q ;no entry made in Registration
S WVDGMST=$S(WVDGMST="Y":"Yes",WVDGMST="N":"No",WVDGMST="D":"Declined",WVDGMST="U":"Undefined",1:"<no value>")
I WVPROV S WVPROV=$$PERSON^WVUTL1(WVPROV) ;get provider name
I +WVFLAG S ^TMP($J,"WVYES",WVMGRN,WVMGR,WVNAME,WVDFN)=WVST_U_WVDGMST_U_WVPROV_U_WVSSN
Q
CONVERT(WVST) ; Convert WH code to MST code
; Convert Military or Both to Yes.
; " Civilian or None to No.
; Ignore null.
Q $S(WVST="M":"Y",WVST="C":"N",WVST="B":"Y",WVST="N":"N",1:"")
;
PROVIDER(WVDUZ,WVMGR) ; Determine provider.
; Try case manager first, then try user (i.e., DUZ).
; $$GET^XUA4A72 supported API - IA #1625
I WVMGR I +$$GET^XUA4A72(WVMGR)>0 Q WVMGR
I WVDUZ I +$$GET^XUA4A72(WVDUZ)>0 Q WVDUZ
Q ""
;
REMOVE ; Remove [WV ADD TO MST] option from File Maintenance Menu
; Remove [DGMST ENTER NEW MST] option from Patient Management menu
N WVFLAG,WVMENU,WVOPTION
S WVMENU="WV MENU-PATIENT MANAGEMENT"
S WVOPTION="DGMST ENTER NEW MST"
S WVFLAG=$$DELETE^XPDMENU(WVMENU,WVOPTION)
Q
DELETE ; Delete the SEXUAL TRAUMA field (FILE 790, Field #.27)
N DA,DIK
S DIK="^DD(790,",DA=.27,DA(1)=790
D ^DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HWV14PST 5896 printed Dec 13, 2024@02:46:26 Page 2
WV14PST ;HCIOFO/FT-WV*1*14 POST INSTALL/Transfer Sexual Trauma Data to DG MST Module ;4/4/01 11:41
+1 ;;1.0;WOMEN'S HEALTH;**14**;Sep 30, 1998
+2 ;
+3 ; This routine uses the following IAs:
+4 ; #1625 - $$GET^XUA4A72 (supported)
+5 ; #2716 - $$GETSTAT^DGMSTAPI (supported)
+6 ; #2716 - $$NEWSTAT^DGMSTAPI (supported)
+7 ; #1157 - $$DELETE^XPDMENU (supported)
+8 ;
DESC ; Description of post install
+1 ; This post install converts the WH Sexual Trauma data (File 790,
+2 ; Field .27) into a Military Sexual Trauma (MST) value and a Civilian
+3 ; Sexual Trauma (CST) value. The MST value is then transferred to the
+4 ; Registration package. The CST value is stored in the Women's Health
+5 ; package. The MST module tracks data for veterans only. Data for
+6 ; non-veterans is not added to the MST module. WH patients whose Sexual
+7 ; Trauma value is 'Military', 'Civilian', 'Both' or 'None' will have
+8 ; that value translated into a MST value and added to the MST module.
+9 ; WH value MST value CST value
+10 ; -------- --------- ---------
+11 ; Military Yes No
+12 ; Civilian No Yes
+13 ; Both Yes Yes
+14 ; None No No
+15 ; <null> no transfer Unknown
+16 ;
+17 ; NOTE: If a WH patient is already in the MST module with a value of
+18 ; 'Yes' then no additional MST entry is made. Also, if a WH patient
+19 ; is already in the MST module with a value of 'No' and the WH Sexual
+20 ; Trauma value is 'None' or 'Civilian' then no additional MST entry
+21 ; is made.
+22 ; The provider who determined the value must be stored in the MST
+23 ; module. If the case manager associated with the patient or the user
+24 ; running this option is a provider, then the case manager or the user
+25 ; is identified as the provider who did the screening. If neither is
+26 ; a provider, then that patient's data is not added to the MST module.
+27 ; This option will display a list of WH patients whose data was added
+28 ; to the MST module. It will also display a list of WH patients whose
+29 ; data could not be added to the MST module. These lists are then sent
+30 ; to the case managers in a MailMan message.
+31 ;
EN ; Run in the background
+1 NEW WVMESAGE,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
+2 SET ZTRTN="Q^WV14PST"
SET ZTDESC="WV*1*14 INSTALLED"
+3 SET ZTIO=""
SET ZTDTH=$HOROLOG
+4 DO ^%ZTLOAD
+5 SET WVMESAGE="The post-installation will run as background job #"_$GET(ZTSK)
+6 DO MES^XPDUTL(WVMESAGE)
+7 QUIT
Q ; Entry point for the background job
+1 DO REMOVE
+2 DO START
+3 DO DELETE
+4 DO EXIT
+5 QUIT
EXIT ; Exit and clean up
+1 KILL ^TMP($JOB)
+2 KILL WVCST,WVDASHES,WVDATE,WVDFN,WVDGMST,WVDUZ,WVFLAG,WVLINE,WVMGR,WVMGRN
+3 KILL WVMGRO,WVMSG,WVNAME,WVNODE,WVPROV,WVREASON,WVSPACES,WVSSN,WVST
+4 KILL WVTITLEN,WVTITLEY,WVUSER,WVX
+5 KILL X,XMDUN,XMDUZ,XMSUB,XMTEXT,XMY,XMZ,Y
+6 QUIT
START ; Loop through FILE 790
+1 IF $DATA(ZTQUEUED)
SET ZTREQ="@"
+2 KILL ^TMP($JOB)
+3 SET WVDFN=0
+4 FOR
SET WVDFN=$ORDER(^WV(790,WVDFN))
if 'WVDFN
QUIT
DO SET
+5 ;send email to case manager(s).
DO EMAIL^WV14PST1
+6 QUIT
SET ; Set tmp global
+1 SET WVNODE=$GET(^WV(790,WVDFN,0))
if WVNODE=""
QUIT
+2 ;WH sexual trauma value
SET WVST=$PIECE(WVNODE,U,27)
+3 ; determine CST value
+4 SET WVCST=$SELECT(WVST="C":"Y",WVST="B":"Y",WVST="N":"N",WVST="M":"N",1:"U")
+5 ;set CST value
if $PIECE(WVNODE,U,28)=""
SET $PIECE(^WV(790,WVDFN,0),U,28)=WVCST
+6 ;null out (new) MST field
SET $PIECE(^WV(790,WVDFN,0),U,27)=""
+7 ;no value to transfer to Registration
if WVST=""
QUIT
+8 ;veterans only
if $$VET^WVUTL1A(WVDFN)'="Yes"
QUIT
+9 ;case manager ien
SET WVMGR=$PIECE(WVNODE,U,10)
+10 ;send message to these case mgrs
IF '$DATA(XMY(WVMGR))
SET XMY(WVMGR)=""
+11 ; $$GETSTAT^DGMSTAPI supported API - IA #2716
+12 ;get MST value from Registration
SET WVDGMST=$$GETSTAT^DGMSTAPI(WVDFN)
+13 ;couldn't retrieve MST status (i.e., DFN is null)
if +WVDGMST=-1
QUIT
+14 SET WVDGMST=$EXTRACT($PIECE(WVDGMST,U,2),1)
+15 ;MST already set to YES
if WVDGMST="Y"
QUIT
+16 ;both are NO, don't update MST
IF WVST="N"
IF WVDGMST="N"
QUIT
+17 ;Civilian & No, don't update MST
IF WVST="C"
IF WVDGMST="N"
QUIT
+18 SET WVDGMST=$$CONVERT(WVST)
+19 ;not an MST value
if WVDGMST=""
QUIT
+20 ;case manager name
SET WVMGRN=$$PERSON^WVUTL1(WVMGR)
+21 SET WVPROV=$$PROVIDER(DUZ,WVMGR)
+22 ;patient name
SET WVNAME=$$NAME^WVUTL1(WVDFN)
+23 ;patient ssn
SET WVSSN=$$SSN^WVUTL1(WVDFN)
+24 SET WVST=$SELECT(WVST="M":"Military",WVST="C":"Civilian",WVST="B":"Both",WVST="N":"None",1:"<no value>")
+25 IF WVPROV=""
SET ^TMP($JOB,"WVNO",WVMGRN,WVMGR,WVNAME,WVDFN)=WVST_U_U_U_WVSSN_U_"Determining Provider Unknown"
QUIT
+26 ; $$NEWSTAT^DGMSTAPI supported API - IA 2716
+27 ; parameters(dfn,mst status,date/time,provider ien). A null d/t=NOW.
+28 SET WVFLAG=$$NEWSTAT^DGMSTAPI(WVDFN,WVDGMST,"",WVPROV)
+29 ; +WVFLAG will be the ien of the MST entry, if successful
+30 ;no entry made in Registration
IF +WVFLAG=-1
SET ^TMP($JOB,"WVNO",WVMGRN,WVMGR,WVNAME,WVDFN)=WVST_U_U_U_WVSSN_U_$PIECE(WVFLAG,U,2)
QUIT
+31 SET WVDGMST=$SELECT(WVDGMST="Y":"Yes",WVDGMST="N":"No",WVDGMST="D":"Declined",WVDGMST="U":"Undefined",1:"<no value>")
+32 ;get provider name
IF WVPROV
SET WVPROV=$$PERSON^WVUTL1(WVPROV)
+33 IF +WVFLAG
SET ^TMP($JOB,"WVYES",WVMGRN,WVMGR,WVNAME,WVDFN)=WVST_U_WVDGMST_U_WVPROV_U_WVSSN
+34 QUIT
CONVERT(WVST) ; Convert WH code to MST code
+1 ; Convert Military or Both to Yes.
+2 ; " Civilian or None to No.
+3 ; Ignore null.
+4 QUIT $SELECT(WVST="M":"Y",WVST="C":"N",WVST="B":"Y",WVST="N":"N",1:"")
+5 ;
PROVIDER(WVDUZ,WVMGR) ; Determine provider.
+1 ; Try case manager first, then try user (i.e., DUZ).
+2 ; $$GET^XUA4A72 supported API - IA #1625
+3 IF WVMGR
IF +$$GET^XUA4A72(WVMGR)>0
QUIT WVMGR
+4 IF WVDUZ
IF +$$GET^XUA4A72(WVDUZ)>0
QUIT WVDUZ
+5 QUIT ""
+6 ;
REMOVE ; Remove [WV ADD TO MST] option from File Maintenance Menu
+1 ; Remove [DGMST ENTER NEW MST] option from Patient Management menu
+2 NEW WVFLAG,WVMENU,WVOPTION
+3 SET WVMENU="WV MENU-PATIENT MANAGEMENT"
+4 SET WVOPTION="DGMST ENTER NEW MST"
+5 SET WVFLAG=$$DELETE^XPDMENU(WVMENU,WVOPTION)
+6 QUIT
DELETE ; Delete the SEXUAL TRAUMA field (FILE 790, Field #.27)
+1 NEW DA,DIK
+2 SET DIK="^DD(790,"
SET DA=.27
SET DA(1)=790
+3 DO ^DIK
+4 QUIT
