Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 2.3216

Package: Registration

PATIENT(#2)-->2.3216

Sub-Field: 2.3216


Information

Parent File Name Number Package
PATIENT(#2) MILITARY SERVICE EPISODE 2.3216 Registration

Details

Field # Name Loc Type Details
.01 SERVICE ENTRY DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA(1) K:'$$AGE^DGRPDD1(DFN,X) X I $D(X),$G(DA) D MSE^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,0,"MSE-"_DA) X I $D(X) S DGFRDT=X
  • LAST EDITED:  JUN 22, 2009
  • HELP-PROMPT:  Enter the date the patient entered this episode of military service.
  • DESCRIPTION:  For this veteran applicant, enter the date s/he commenced this episode of military service. If the military service component is ACTIVATED NATIONAL GUARD or ACTIVATED RESERVE, the period entered should be the period of
    activation, so this date is their first day of active duty for the episode.
    If the military service episode has been sent from the Health Eligibility Center (HEC), the data will be locked and cannot be edited or deleted.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2.3216^B
    1)= S ^DPT(DA(1),.3216,"B",$E(X,1,30),DA)=""
    2)= K ^DPT(DA(1),.3216,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  2.3216^AENR321601^MUMPS
    1)= D EVENT^IVMPLOG(DA(1))
    2)= D EVENT^IVMPLOG(DA(1))
    This MUMPS cross-reference is used to notify HEC of any changes to the SERVICE ENTRY DATE field.
  • CROSS-REFERENCE:  2.3216^ADGRU321601^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="")&($G(X)=$P($$LAST^DGMSEUTL(DA(1)),U)) ADGRU^DGRUDD01(DA(1))
    2)= D:($T(ADGRU^DGRUDD01)'="")&($G(X)=$P($$LAST^DGMSEUTL(DA(1)),U)) ADGRU^DGRUDD01(DA(1))
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT file (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
.02 SERVICE SEPARATION DATE 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA(1) D MSE^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,1,"MSE-"_DA) X
  • LAST EDITED:  JUN 23, 2009
  • HELP-PROMPT:  Enter the date on which this patient was separated from this episode of military service.
  • DESCRIPTION:  For this veteran applicant, enter the date s/he ended this episode of military service. If the military service component is ACTIVATED NATIONAL GUARD or ACTIVATED RESERVE, the period entered should be the period of
    activation, so this date is their last day of active duty for this episode.
    If the military service episode has been sent from the Health Eligibility Center (HEC), the data will be locked and cannot be edited or deleted.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2.3216^AENR321602^MUMPS
    1)= D EVENT^IVMPLOG(DA(1))
    2)= D EVENT^IVMPLOG(DA(1))
    This MUMPS cross-reference is used to notify HEC of any changes to the SERVICE SEPARATION DATE field.
  • CROSS-REFERENCE:  2.3216^ADGRU321602^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="")&($G(X)=$P($$LAST^DGMSEUTL(DA(1)),U,2)) ADGRU^DGRUDD01(DA(1))
    2)= D:($T(ADGRU^DGRUDD01)'="")&($G(X)=$P($$LAST^DGMSEUTL(DA(1)),U,2)) ADGRU^DGRUDD01(DA(1))
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT file (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • FIELD INDEX:  ACVCOM2 (#378) MUMPS IR ACTION WHOLE FILE (#2)
    Short Descr:  Update Combat Veteran End Date
    Description:  This MUMPS cross reference will trigger an update to the Combat Veteran End Date field #.5295 if the Service Separation Date for the last (most recent) military service episode is entered.
    Set Logic:  D SETCV^DGCV(DA(1),X2(2))
    Set Cond:  I '$P($G(^DPT(DA(1),.52)),U,15) S X=$$CVELIG^DGCV(DA(1))
    Kill Logic:  Q
    X(1):  SERVICE SEPARATION DATE  (2.3216,.02)  (forwards)
    X(2):  Computed Code: S X=$P($$LAST^DGMSEUTL(DA(1)),U,2)
.03 SERVICE BRANCH 0;3 POINTER TO BRANCH OF SERVICE FILE (#23)
************************REQUIRED FIELD************************
BRANCH OF SERVICE(#23)

  • INPUT TRANSFORM:  S DFN=DA(1) K:X=$O(^DIC(23,"B","B.E.C.","")) X I $D(X) D MSE^DGLOCK S DGCOMBR=$G(Y) Q
  • LAST EDITED:  JUN 18, 2009
  • HELP-PROMPT:  Enter the branch of service in which the patient served for this episode of military service.
  • DESCRIPTION:  Enter the service branch for this episode of military service.
    If the military service episode has been sent from the Health Eligibility Center (HEC), the data will be locked and cannot be edited or deleted.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2.3216^AENR321603^MUMPS
    1)= D EVENT^IVMPLOG(DA(1))
    2)= D EVENT^IVMPLOG(DA(1))
    This MUMPS cross-reference is used to notify HEC of any changes to the SERVICE BRANCH field.
  • CROSS-REFERENCE:  2.3216^AFV3216^MUMPS
    1)= Q
    2)= I $P($G(^DPT(DA(1),.321)),U,14)]"" D FVP1^DGRPMS
    This MUMPS cross-reference acts like a trigger cross-reference.  If the Service Branch fields in the Military Service Episode multiple do not contain a Filipino Veteran branch of service, the Filipino Vet Proof field
    (#.3214) is deleted.
  • CROSS-REFERENCE:  ^^TRIGGER^2.3216^.04
    1)= Q
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DPT(D0,.3216,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.3216,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=2.3216,DIG=.04 D
    ^DICR
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= SERVICE COMP
    This trigger will delete the SERVICE COMPONENT sub-field #.04 when the SERVICE BRANCH sub-field #.03 is changed or deleted.
.04 SERVICE COMPONENT 0;4 SET
  • 'R' FOR REGULAR;
  • 'V' FOR ACTIVATED RESERVE;
  • 'G' FOR ACTIVATED NG;

  • LAST EDITED:  FEB 26, 2009
  • HELP-PROMPT:  Enter the military service component of the patient for this military service episode.
  • DESCRIPTION:  For this veteran applicant, enter the military service component for this episode of military service.
    If the military service episode has been sent from the Health Eligibility Center (HEC), the data will be locked and cannot be edited or deleted.
    NATIONAL GUARD IS ONLY VALID FOR BRANCH OF SERVICE ARMY AND AIR FORCE.
  • SCREEN:  S DIC("S")="I $$VALCOMP^DGRPMS(DA(1),Y,DA_""^MSE"")"
  • EXPLANATION:  Component must be consistent with branch of service. Branch of service is required to enter component.
  • NOTES:  TRIGGERED by the SERVICE BRANCH field of the MILITARY SERVICE EPISODE sub-field of the PATIENT File
  • CROSS-REFERENCE:  2.3216^AENR321604^MUMPS
    1)= D EVENT^IVMPLOG(DA(1))
    2)= D EVENT^IVMPLOG(DA(1))
    This MUMPS cross-reference is used to notify HEC of any changes to the SERVICE COMPONENT field.
.05 SERVICE NUMBER 0;5 FREE TEXT

  • INPUT TRANSFORM:  S DFN=DA(1) D MSE^DGLOCK I $D(X) S:X?1"SS".E L=$S($D(^DPT(DA(1),0)):$P(^(0),U,9),1:X) D:X?1"SS".E EN^DDIOL(" "_L,"","?$X+2") S:X?1"SS".E X=L K:$L(X)>15!($L(X)<1)!'(X?.N) X
  • LAST EDITED:  AUG 11, 2009
  • HELP-PROMPT:  Enter the service number assigned to this patient during this episode of military service or 'SS' if it's the same as the SSN. Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    Enter the service number for this episode of military service.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2.3216^AENR321605^MUMPS
    1)= D EVENT^IVMPLOG(DA(1))
    2)= D EVENT^IVMPLOG(DA(1))
    This MUMPS cross-reference is used to notify HEC of any changes to the SERVICE NUMBER field.
.06 SERVICE DISCHARGE TYPE 0;6 POINTER TO TYPE OF DISCHARGE FILE (#25)
************************REQUIRED FIELD************************
TYPE OF DISCHARGE(#25)

  • INPUT TRANSFORM:  S DFN=DA(1) D MSE^DGLOCK Q
  • LAST EDITED:  FEB 24, 2009
  • HELP-PROMPT:  Select from the list the discharge type for this episode of military service.
  • DESCRIPTION:  For this veteran applicant, select from the available list the discharge type which s/he received for this episode of military service.
    If the military service episode has been sent from the Health Eligibility Center (HEC), the data will be locked and cannot be edited or deleted.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2.3216^AENR321606^MUMPS
    1)= D EVENT^IVMPLOG(DA(1))
    2)= D EVENT^IVMPLOG(DA(1))
    This MUMPS cross-reference is used to notify HEC of any changes to the SERVICE DISCHARGE TYPE field.
.07 DATA LOCKED 0;7 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • INPUT TRANSFORM:  S DFN=DA(1) D MSE^DGLOCK Q
  • LAST EDITED:  FEB 24, 2009
  • HELP-PROMPT:  This field is set to '1' (YES) when the military service episode data can no longer be changed or deleted.
  • DESCRIPTION:  
    When a military service episode is sent from HEC, the Data Locked field will be set to '1' (YES).  The data in the military service episode can no longer be changed or deleted.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.08 FUTURE DISCHARGE DATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 29, 2018
  • HELP-PROMPT:  Enter the date that an active duty service member is expected to be discharged.
  • DESCRIPTION:  
    The Future Discharge Date (FDD) is the date that an active duty service member is expected to be discharged. This date is controlled in VistA by the Enrollment Service (ES) and cannot be edited within VistA.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.09 REASON FOR EARLY SEPARATION 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>128!($L(X)<3) X
    MAXIMUM LENGTH:   128
  • LAST EDITED:  JUN 29, 2018
  • HELP-PROMPT:  Enter the Reason For Early Separation when a service member is discharged early for example due to disability, hardship or early out. 3 to 128 characters.
  • DESCRIPTION:  The Reason For Early Separation explains why a service member was discharged early, and displays if it was due to disability, hardship or early out reason. Reason for Early Separation for the patient is updated from the
    Health Eligibility Center (HEC) Enrollment System; the data will be locked and cannot be edited or deleted.  Only Military Service Episodes that are sent from the HEC can have a Reason for Early Separation.
    UNEDITABLE
.1 SEPARATION REASON CODE 0;10 POINTER TO SEPARATION REASON FILE (#26) SEPARATION REASON(#26)

  • LAST EDITED:  AUG 24, 2018
  • HELP-PROMPT:  Select from the available listing the Separation Reason code.
  • DESCRIPTION:  
    The 3 digit code from the SEPARATION REASON file #26.
    UNEDITABLE
Info |  Details |  All