Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^DGMS(29.11

Package: Registration

Global: ^DGMS(29.11


Information

FileMan FileNo FileMan Filename Package
29.11 MST HISTORY Registration

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
Registration 11 DG53P379    DGMSTAPI    DGMSTD    DGMSTL1    DGMSTR1    DGMSTR2    DGMSTR4    DGOTHMST
^DGMS(29.11    DGMSTR3    DGRTRIG    
Income Verification Match 1 IVMZ07C    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Registration 4 DG53P379    DGMSTAPI    DGMSTL1    DGOTHMST    
Clinical Reminders 1 PXRMMST    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Kernel 2 INSTITUTION(#4)[6]    NEW PERSON(#200)[4, 5]    
Registration 1 PATIENT(#2)[2]    

Fields, Total: 6

Field # Name Loc Type Details
.01 MST CHANGE STATUS DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EXR",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 09, 2019
  • HELP-PROMPT:  Enter the date when the MST status was changed
  • DESCRIPTION:  
    This field contains the date of the MST status change. Time is required, and future dates are not allowed.
    SOURCE OF DATA: USER INPUT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  29.11^B
    1)= S ^DGMS(29.11,"B",$E(X,1,30),DA)=""
    2)= K ^DGMS(29.11,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  29.11^AENR01^MUMPS
    1)= D E2911^DGRTRIG(DA)
    2)= D E2911^DGRTRIG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • FIELD INDEX:  AD (#1568) MUMPS IR ACTION
    Short Descr: This index is used to update eligibility fields in file 2 for OTH patients.
    Description: This index is used to update the following eligibility fields in file 2 for OTH patients: 2/.3611 is set to "V" 2/.3612 is set to value of 29.11/.01 2/.3616 is set to value of 29.11/4 2/.5501 is set to "OTH-EXT"
    Set Logic: D UPDELIG^DGOTHMST
    Set Cond: S X=X(3)'=""
    Kill Logic: Q
    X(1): MST CHANGE STATUS DATE (29.11,.01) (forwards)
    X(2): NAME (29.11,2) (forwards)
    X(3): MST STATUS (29.11,3) (forwards)
    X(4): PROVIDER DETERMINING STATUS (29.11,4) (forwards)
  • RECORD INDEXES:  APDT (#110)
2 NAME 0;2 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • INPUT TRANSFORM:  S DIC("S")="I $G(^(""VET""))=""Y"",'+$G(^(.35))>0!(+$G(^(.35))>0&(+$G(^(.35))'<2921001))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 09, 2019
  • HELP-PROMPT:  Enter the name of the patient who is reporting a MST classification
  • DESCRIPTION:  
    This field contains a pointer back to the PATIENT File (#2)
  • SCREEN:  S DIC("S")="I $G(^(""VET""))=""Y"",'+$G(^(.35))>0!(+$G(^(.35))>0&(+$G(^(.35))'<2921001))"
  • EXPLANATION:  Screen on 1) patient is a vet, no date of death; or 2) patient is a vet, there is a date if death, and it's greater than 10/1/1992
  • CROSS-REFERENCE:  29.11^C
    1)= S ^DGMS(29.11,"C",$E(X,1,30),DA)=""
    2)= K ^DGMS(29.11,"C",$E(X,1,30),DA)
    Cross-reference on patient name
  • FIELD INDEX:  AD (#1568) MUMPS IR ACTION
    Short Descr: This index is used to update eligibility fields in file 2 for OTH patients.
    Description: This index is used to update the following eligibility fields in file 2 for OTH patients: 2/.3611 is set to "V" 2/.3612 is set to value of 29.11/.01 2/.3616 is set to value of 29.11/4 2/.5501 is set to "OTH-EXT"
    Set Logic: D UPDELIG^DGOTHMST
    Set Cond: S X=X(3)'=""
    Kill Logic: Q
    X(1): MST CHANGE STATUS DATE (29.11,.01) (forwards)
    X(2): NAME (29.11,2) (forwards)
    X(3): MST STATUS (29.11,3) (forwards)
    X(4): PROVIDER DETERMINING STATUS (29.11,4) (forwards)
  • RECORD INDEXES:  APDT (#110)
3 MST STATUS 0;3 SET
************************REQUIRED FIELD************************
  • 'Y' FOR Yes, Screened reports MST;
  • 'N' FOR No, Screened does not report MST;
  • 'D' FOR Screened Declines to answer;
  • 'U' FOR Unknown, not screened;

  • LAST EDITED:  OCT 09, 2019
  • HELP-PROMPT:  Enter the appropriate MST status code for this patient
  • DESCRIPTION:  
    Indicates whether the patient has been screened, and whether the patient claims Military Sexual Trauma.
  • CROSS-REFERENCE:  29.11^AENR3^MUMPS
    1)= D E2911^DGRTRIG(DA)
    2)= D E2911^DGRTRIG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  29.11^AC^MUMPS
    1)= D MSTCHNG^DGOTHMST(DA)
    2)= D MSTCHNG^DGOTHMST(DA)
    This index calls API MSTCHNG^DGOTHMST when the MST STATUS CHANGES. The API will send a MailMan message to the DGEN ELIGIBILITY ALERT group if required.
  • FIELD INDEX:  AD (#1568) MUMPS IR ACTION
    Short Descr: This index is used to update eligibility fields in file 2 for OTH patients.
    Description: This index is used to update the following eligibility fields in file 2 for OTH patients: 2/.3611 is set to "V" 2/.3612 is set to value of 29.11/.01 2/.3616 is set to value of 29.11/4 2/.5501 is set to "OTH-EXT"
    Set Logic: D UPDELIG^DGOTHMST
    Set Cond: S X=X(3)'=""
    Kill Logic: Q
    X(1): MST CHANGE STATUS DATE (29.11,.01) (forwards)
    X(2): NAME (29.11,2) (forwards)
    X(3): MST STATUS (29.11,3) (forwards)
    X(4): PROVIDER DETERMINING STATUS (29.11,4) (forwards)
4 PROVIDER DETERMINING STATUS 0;4 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $$ACTIVPRV^PXAPI(Y,DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 09, 2019
  • HELP-PROMPT:  Enter name of the provider making the MST status determination
  • DESCRIPTION:  
    Pointer to the provider who determined the MST status of the patient
  • SCREEN:  S DIC("S")="I $$ACTIVPRV^PXAPI(Y,DT)"
  • EXPLANATION:  Checks for both an active PERSON CLASS and no TERMINATION DATE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  29.11^D
    1)= S ^DGMS(29.11,"D",$E(X,1,30),DA)=""
    2)= K ^DGMS(29.11,"D",$E(X,1,30),DA)
    Cross-reference on provider who determined MST status
  • FIELD INDEX:  AD (#1568) MUMPS IR ACTION
    Short Descr: This index is used to update eligibility fields in file 2 for OTH patients.
    Description: This index is used to update the following eligibility fields in file 2 for OTH patients: 2/.3611 is set to "V" 2/.3612 is set to value of 29.11/.01 2/.3616 is set to value of 29.11/4 2/.5501 is set to "OTH-EXT"
    Set Logic: D UPDELIG^DGOTHMST
    Set Cond: S X=X(3)'=""
    Kill Logic: Q
    X(1): MST CHANGE STATUS DATE (29.11,.01) (forwards)
    X(2): NAME (29.11,2) (forwards)
    X(3): MST STATUS (29.11,3) (forwards)
    X(4): PROVIDER DETERMINING STATUS (29.11,4) (forwards)
5 USER CHANGING STATUS 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 10, 1998
  • HELP-PROMPT:  Enter the name of the user who entered this change
  • DESCRIPTION:  
    Name of the user who entered this change in status for the patient
6 SITE DETERMINING STATUS 0;6 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  SEP 13, 2005
  • DESCRIPTION:  This field contains a pointer to the INSTITUTION file (#4) indicating the site associated with the MST Status determination. If the MST Status is entered by a local VistA site, then the API DGMSTAPI will load this field
    with the current Primary station number. If the MST Status is entered by Enrollment/Eligibility Data upload from the HEC, then the site stored with the record at the HEC will be loaded.
  • CROSS-REFERENCE:  29.11^AENR6^MUMPS
    1)= D E2911^DGRTRIG(DA)
    2)= D E2911^DGRTRIG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.

External References

Name Field # of Occurrence
^%DT .01+1
MSTCHNG^DGOTHMST 3(XREF 2S), 3(XREF 2K)
UPDELIG^DGOTHMST IXADSL+1
E2911^DGRTRIG .01(XREF 2S), .01(XREF 2K), 3(XREF 1S), 3(XREF 1K), 6(XREF 1S), 6(XREF 1K)
^DIC 2+1, 4+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMS(29.11 - [#29.11] IXAPDTSL+1*, IXAPDTKL+1!, IXAPDTKEIC+1!, .01(XREF 1S), .01(XREF 1K), 2(XREF 2S), 2(XREF 2K), 4(XREF 1S), 4(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*
>> %DT(0 .01+1*
>> DA IXAPDTSL+1, IXAPDTKL+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 2S), 2(XREF 2K), 3(XREF 1S), 3(XREF 1K)
, 3(XREF 2S), 3(XREF 2K), 4(XREF 1S), 4(XREF 1K), 6(XREF 1S), 6(XREF 1K)
DIC ID3+1, 2+1!*, 4+1!*
DIC("S" .01SCR+1*, 2+1*, 2SCR+1*, 4+1*, 4SCR+1*
>> DIE 2+1, 4+1
X IXADSCC+1*, .01+1*!, .01(XREF 1S), .01(XREF 1K), 2+1*!, 2(XREF 2S), 2(XREF 2K), 4+1*!, 4(XREF 1S), 4(XREF 1K)
X(1 IXAPDTSL+1, IXAPDTKL+1
X(2 IXAPDTSL+1, IXAPDTKL+1
X(3 IXADSCC+1
>> Y .01+1, 2+1, 4+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All