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

Package: Registration

PATIENT(#2)-->2.3215

Sub-Field: 2.3215


Information

Parent File Name Number Package
PATIENT(#2) SERVICE [OEF OR OIF] 2.3215 Registration

Details

Field # Name Loc Type Details
.01 LOCATION OF SERVICE 0;1 SET
  • '1' FOR OIF;
  • '2' FOR OEF;
  • '3' FOR UNKNOWN OEF/OIF;

  • LAST EDITED:  JUN 27, 2006
  • HELP-PROMPT:  Enter OEF or OIF operation where this patient was in combat.
  • DESCRIPTION:  
    This is the operation in which the patient was in combat during the specified time period.
  • SCREEN:  S DIC("S")="I $P($G(^DPT(DA(1),.3215,DA,0)),U),$P(^(0),U)=Y"
  • EXPLANATION:  CANNOT CHANGE THE LOCATION ONCE SET
  • CROSS-REFERENCE:  2.3215^B
    1)= S ^DPT(DA(1),.3215,"B",$E(X,1,30),DA)=""
    2)= K ^DPT(DA(1),.3215,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  2.3215^AENR321501^MUMPS
    1)= D EVENT^IVMPLOG(DA(1))
    2)= D EVENT^IVMPLOG(DA(1))
    This MUMPS cross-reference is used to notify HEC of changes to the LOCATION OF SERVICE field.
  • RECORD INDEXES:  ALOEIF (#675), ALSTUP (#676)
.02 OEF/OIF FROM DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y I $D(X) K:'$$VALCON1^DGRPMS(DA(1),DA,X,0) X I $D(X) S DFN=DA(1) D OEIF^DGLOCK S:$D(X) DGFRDT=X
  • LAST EDITED:  MAR 13, 2006
  • HELP-PROMPT:  Enter the date the patient was deployed to the OEF/OIF area, if known. Otherwise, enter the military pay start date for this OEF/OIF deployment.
  • DESCRIPTION:  If the service indicated is OEF or UNKNOWN OEF/OIF, this date must be on or after 9/01/2001 and the end date must be after 9/11/2001. If the service indicated is OIF, this date must be on or after 3/01/2003 and the end
    date must be after 3/19/2003.
    The meaning of this date depends on where the information was obtained from. If the data came from the VIS, Environmental Medicine or FHIE systems, this is the start date of military pay for the assignment to the
    OEF/OIF operation. If it came from any other source, it is the date the patient was actually deployed to the OEF/OIF area.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2.3215^AENR321502^MUMPS
    1)= D EVENT^IVMPLOG(DA(1))
    2)= D EVENT^IVMPLOG(DA(1))
    This MUMPS cross-reference is used to notify HEC of changes to the OEF/OIF FROM DATE field.
  • RECORD INDEXES:  ALOEIF (#675), ALSTUP (#676)
.03 OEF/OIF TO DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y I $D(X) K:'$$VALCON1^DGRPMS(DA(1),DA,X,1) X I $D(X) S DFN=DA(1) D OEIF^DGLOCK
  • LAST EDITED:  JUN 22, 2009
  • HELP-PROMPT:  Enter the date the patient left the OEF/OIF area if known. Otherwise, enter the end date of military pay for this OEF/OIF deployment.
  • DESCRIPTION:  If the service indicated is OEF or UNKNOWN OEF/OIF, this date must be on or after 9/11/2001. If the service indicated is OIF, this date must be on or after 3/19/2003.
    The meaning of this date depends on where the information was obtained from. If the data came from the VIS, Environmental Medicine or FHIE systems, this is the military pay end date for the assignment to the OEF/OIF
    operation. If it came from any other source, it is the date the patient actually left the OEF/OIF area.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2.3215^AENR321503^MUMPS
    1)= D EVENT^IVMPLOG(DA(1))
    2)= D EVENT^IVMPLOG(DA(1))
    This MUMPS cross-reference is used to notify HEC of changes to the OEF/OIF TO DATE field.
  • FIELD INDEX:  ACVCOM1 (#681) MUMPS ACTION
    Short Descr: Set CV End Date based on OEF/OIF fields
    Description: This MUMPS x-ref will trigger an update to the Combat Vet Eligibility End Date field under the following conditions:
    If the COMBAT VETERAN END DATE (#.5295) of the PATIENT file (#2) is null
    AND either
    The SERVICE SEPARATION DATE [LAST] (#.327) is missing
    OR
    The SERVICE SEPARATION DATE [LAST] (#.327) is less than the
    OEF/OIF TO DATE - #.03 in subfile 2.3215
    Set Logic: N DGZ S DGZ=$S(X2(3)'
    Set Cond: I '$P($G(^DPT(DA(1),.52)),"^",15) S X=$$CVELIG^DGCV(DA(1))
    Kill Logic: Q
    X(1): OEF/OIF TO DATE (2.3215,.03) (forwards)
    X(2): Computed Code: S X=$P($$LAST^DGENOEIF(DA(1)),U)
    X(3): Computed Code: S X=$S($D(^DPT(DA(1),.3216)):$P($$LAST^DGMSEUTL(DA(1)),U,2),1:$P($G(^DPT(DA(1),.32)),U,7))
  • RECORD INDEXES:  ALOEIF (#675), ALSTUP (#676)
.04 DATA LOCKED 0;4 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 17, 2005
  • HELP-PROMPT:  Enter YES (1) to lock the data in VistA so no changes or deletions can be made.
  • DESCRIPTION:  
    This is a flag that indicates the data is 'locked' at the site and can't be changed or deleted. This flag is set to 1 if the source of the data is the HEC system.
.05 RECORDED DATE/TIME 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 09, 2005
  • HELP-PROMPT:  Enter the date/time this data was last entered/updated.
  • DESCRIPTION:  
    This is a time stamp for when the data was last added/updated.
.06 ENTERED BY SITE 0;6 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • INPUT TRANSFORM:  S DIC("S")="I $P($G(^(99)),""^"")]""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 16, 2005
  • HELP-PROMPT:  Enter the facility where the data for this episode was entered.
  • DESCRIPTION:  
    This is the facility where the data was originally entered. If the data's source was not from a facility, it will be assumed to be generated from HEC (CEV) and this field will be blank.
  • SCREEN:  S DIC("S")="I $P($G(^(99)),""^"")]"""""
  • EXPLANATION:  Facility must have a station number assigned.
Info |  Details