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

Package: Fee Basis

FEE BASIS ID CARD AUDIT(#161.83)-->161.831

Sub-Field: 161.831


Information

Parent File Name Number Package
FEE BASIS ID CARD AUDIT(#161.83) DATE/TIME CARD NUMBER CHANGED 161.831 Fee Basis

Details

Field # Name Loc Type Details
.01 DATE/TIME CARD NUMBER CHANGED 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=(9999999.9999-X)
  • LAST EDITED:  APR 11, 1986
  • DESCRIPTION:  
    The date and time the ID card number was changed for this veteran.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1 CARD NUMBER 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<5) X
  • LAST EDITED:  APR 11, 1986
  • HELP-PROMPT:  ANSWER MUST BE 5-7 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The ID card number before it was changed.
  • CROSS-REFERENCE:  161.83^C
    1)= S ^FBAA(161.83,"C",$E(X,1,30),DA(1),DA)=""
    2)= K ^FBAA(161.83,"C",$E(X,1,30),DA(1),DA)
2 REASON FOR CHANGE 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<2) X
  • LAST EDITED:  APR 11, 1986
  • HELP-PROMPT:  ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The reason the ID card number was changed.
3 PERSON WHO CHANGED 0;4 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  APR 05, 1990
  • DESCRIPTION:  
    The clerk/user who changed the veterans ID card.
Info |  Details