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 |  Found Entries |  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: 9

Package Total Routines
Registration 9 DG53P379    DGMSTAPI    DGMSTD    DGMSTL1    DGMSTR1    DGMSTR2    DGMSTR3    DGMSTR4
DGRTRIG    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Registration 3 DG53P379    DGMSTAPI    DGMSTL1    
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 VA 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:  SEP 13, 2005
  • 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.
  • RECORD INDEXES:  APDT (#73)
2 NAME 0;2 POINTER TO VA PATIENT FILE (#2)
************************REQUIRED FIELD************************
VA 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:  JUN 01, 2001
  • 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^APDT2^MUMPS
    1)= N DG1,DG2 S DG1=$P($G(^DGMS(29.11,DA,0)),U) I DG1 S DG2=$P(^(0),U,2) I DG2]"" S ^DGMS(29.11,"APDT",DG2,DG1,DA)=""
    2)= N DG1,DG2 S DG1=$P($G(^DGMS(29.11,DA,0)),U) I DG1 S DG2=$P(^(0),U,2) I DG2]"" K ^DGMS(29.11,DG2,DG1,DA)
    Cross-reference on patient name, status change date
  • 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
  • RECORD INDEXES:  APDT (#73)
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:  SEP 13, 2005
  • 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.
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:  JUN 21, 2007
  • 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
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.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All