WV14PST ;HCIOFO/FT-WV*1*14 POST INSTALL/Transfer Sexual Trauma Data to DG MST Module ;4/4/01 11:41
Source file <WV14PST.m>
| 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 | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | EN+4 |
| $$GETSTAT^DGMSTAPI | SET+12 |
| $$NEWSTAT^DGMSTAPI | SET+28 |
| ^DIK | DELETE+3 |
| EMAIL^WV14PST1 | START+5 |
| $$NAME^WVUTL1 | SET+22 |
| $$PERSON^WVUTL1 | SET+20, SET+32 |
| $$SSN^WVUTL1 | SET+23 |
| $$VET^WVUTL1A | SET+8 |
| $$DELETE^XPDMENU | REMOVE+5 |
| MES^XPDUTL | EN+6 |
| $$GET^XUA4A72 | PROVIDER+3, PROVIDER+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| 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 |
