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: 2040.06

Package: Visual Impairment Service Team

VIST ROSTER(#2040)-->2040.06

Sub-Field: 2040.06


Information

Parent File Name Number Package
VIST ROSTER(#2040) VIS TEAM REVIEW DATE 2040.06 Visual Impairment Service Team

Details

Field # Name Loc Type Details
.01 VIS TEAM REVIEW DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 20, 1998
  • HELP-PROMPT:  Enter date of VIST Review.
  • DESCRIPTION:  
    This is the date of the most recent VIST Review.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2040^AB
    1)= S ^ANRV(2040,"AB",$E(X,1,30),DA(1),DA)=""
    2)= K ^ANRV(2040,"AB",$E(X,1,30),DA(1),DA)
    This is a regular cross reference on the VIS TEAM REVIEW DATE field. It sets the "AB" cross reference in the following format;
    ^ANRV(2040,"AB",2980204,4,1)=""
    20980204 - VIS TEAM REVIEW DATE
    4 - Internal Entry # of the Patient in the VIST ROSTER file
    1 - Internal Entry # of the VIS TEAM REVIEW DATE multiple
  • CROSS-REFERENCE:  ^^TRIGGER^2040.06^3
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ANRV(2040,D0,6,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(2040.06,.01,1,2,1.1) X ^DD(2040.06,.01,1,2,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ANRV(2040,D0,2)):^(2),1:"") S X=$P(Y(1),U,1)
    1.4)= S DIH=$S($D(^ANRV(2040,DIV(0),6,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=2040.06,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ANRV(2040,D0,6,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2040.06,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^ANRV(2040,DIV(0),6,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=2040.06,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= VA ELIGIBILITY
    DELETE VALUE)= @
    FIELD)= ELIGIBILITY ON REVIEW DATE
1 AMIS-STATUS OF REVIEW 0;2 SET
  • '035' FOR COMPLETE (035);
  • '036' FOR DECLINED (036);
  • '037' FOR NO SHOW (037);

  • LAST EDITED:  MAR 29, 1989
  • HELP-PROMPT:  Enter the AMIS status at the time of review.
  • DESCRIPTION:  
    This is the AMIS status on the date of review.
2 TYPE OF REVIEW 0;3 SET
  • '1' FOR FORMAL;
  • '2' FOR COMPONENT;

  • LAST EDITED:  MAY 04, 1989
  • HELP-PROMPT:  Enter the type of review.
  • DESCRIPTION:  
    This determines the type of review. Possible choices are "FORMAL" and "COMPONENT".
3 ELIGIBILITY ON REVIEW DATE 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  MAR 20, 1998
  • HELP-PROMPT:  Answer must be 3-80 characters in length.
  • DESCRIPTION:  
    This is the veteran's eligibility status on the date of this review.
  • NOTES:  TRIGGERED by the VIS TEAM REVIEW DATE field of the VIS TEAM REVIEW DATE sub-field of the VIST ROSTER File
Info |  Details