Routine: WV14PST

Package	Total	Call Graph
Kernel	4	^%ZTLOAD $$DELETE^XPDMENU MES^XPDUTL $$GET^XUA4A72
Womens Health	3	EMAIL^WV14PST1 ($$NAME,$$PERSON,$$SSN)^WVUTL1 $$VET^WVUTL1A
Registration	1	($$GETSTAT,$$NEWSTAT)^DGMSTAPI
VA FileMan	1	^DIK

Entry Points

Name	Comments	DBIA/ICR reference
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
EN	; Run in the background
Q	; Entry point for the background job
EXIT	; Exit and clean up
START	; Loop through FILE 790
SET	; Set tmp global
CONVERT(WVST)	; Convert WH code to MST code ; Convert Military or Both to Yes. ; " Civilian or None to No. ; Ignore null.
PROVIDER(WVDUZ,WVMGR)	; Determine provider. ; Try case manager first, then try user (i.e., DUZ). ; $$GET^XUA4A72 supported API - IA #1625
REMOVE	; Remove [WV ADD TO MST] option from File Maintenance Menu ; Remove [DGMST ENTER NEW MST] option from Patient Management menu
DELETE	; Delete the SEXUAL TRAUMA field (FILE 790, Field #.27)

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	EXIT+1!, START+2!, SET+25, SET+30, SET+33*
^WV(790 - [#790]	START+4, SET+1, SET+5, SET+6

Name	Field # of Occurrence
DA	DELETE+1~, DELETE+2*
DA(1	DELETE+2*
DIK	DELETE+1~, DELETE+2*
DUZ	SET+21
U	SET+2, SET+5, SET+6, SET+9, SET+14, SET+25, SET+30, SET+33
WVCST	EXIT+2!, SET+4*, SET+5
WVDASHES	EXIT+2!
WVDATE	EXIT+2!
WVDFN	EXIT+2!, START+3, START+4, SET+1, SET+5, SET+6, SET+8, SET+12, SET+22, SET+23 , SET+25, SET+28, SET+30, SET+33
WVDGMST	EXIT+2!, SET+12, SET+13, SET+14, SET+15, SET+16, SET+17, SET+18, SET+19, SET+28 , SET+31, SET+33
WVDUZ	EXIT+2!, PROVIDER~, PROVIDER+4
WVFLAG	EXIT+2!, SET+28, SET+30, SET+33, REMOVE+2~, REMOVE+5
WVLINE	EXIT+2!
WVMENU	REMOVE+2~, REMOVE+3*, REMOVE+5
WVMESAGE	EN+1~, EN+5*, EN+6
WVMGR	EXIT+2!, SET+9*, SET+10, SET+20, SET+21, SET+25, SET+30, SET+33, PROVIDER~, PROVIDER+3
WVMGRN	EXIT+2!, SET+20*, SET+25, SET+30, SET+33
WVMGRO	EXIT+3!
WVMSG	EXIT+3!
WVNAME	EXIT+3!, SET+22*, SET+25, SET+30, SET+33
WVNODE	EXIT+3!, SET+1*, SET+2, SET+5, SET+9
WVOPTION	REMOVE+2~, REMOVE+4*, REMOVE+5
WVPROV	EXIT+3!, SET+21, SET+25, SET+28, SET+32, SET+33
WVREASON	EXIT+3!
WVSPACES	EXIT+3!
WVSSN	EXIT+3!, SET+23*, SET+25, SET+30, SET+33
WVST	EXIT+3!, SET+2, SET+4, SET+7, SET+16, SET+17, SET+18, SET+24, SET+25, SET+30 , SET+33, CONVERT~, CONVERT+4
WVTITLEN	EXIT+4!
WVTITLEY	EXIT+4!
WVUSER	EXIT+4!
WVX	EXIT+4!
X	EXIT+5!
XMDUN	EXIT+5!
XMDUZ	EXIT+5!
XMSUB	EXIT+5!
XMTEXT	EXIT+5!
XMY	EXIT+5!
XMY(	SET+10*
XMZ	EXIT+5!
Y	EXIT+5!
ZTDESC	EN+1~, EN+2*
ZTDTH	EN+1~, EN+3*
ZTIO	EN+1~, EN+3*
>> ZTQUEUED	START+1
>> ZTREQ	START+1*
ZTRTN	EN+1~, EN+2*
ZTSAVE	EN+1~
>> ZTSK	EN+5