STANDARD DATA DICTIONARY #161.83 -- FEE BASIS ID CARD AUDIT FILE                                                  9/29/25    PAGE 1
STORED IN ^FBAA(161.83,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                     (VERSION 3.5)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains a history of all 'old' ID card numbers and relevant data relating to prior non-current ID cards issued.  
 
Per VHA Directive 10-93-142, this file definition should not be modified.  


              DD ACCESS: @
              RD ACCESS: #
              WR ACCESS: #
             DEL ACCESS: @
           LAYGO ACCESS: #

CROSS
REFERENCED BY: NAME(B), CARD NUMBER(C)



161.83,.01    NAME                   0;1 POINTER TO PATIENT FILE (#2) (Required)

              INPUT TRANSFORM:  S DINUM=X
              LAST EDITED:      APR 11, 1986 
              DESCRIPTION:
                                Veteran for whom ID card was changed.  

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

              CROSS-REFERENCE:  161.83^B 
                                1)= S ^FBAA(161.83,"B",$E(X,1,30),DA)=""
                                2)= K ^FBAA(161.83,"B",$E(X,1,30),DA)


161.83,1      DATE/TIME CARD NUMBER CHANGED 1;0 DATE Multiple #161.831 (Add New Entry without Asking)

              DESCRIPTION:
                                Date and time the ID card number was modified.  


161.831,.01     DATE/TIME CARD NUMBER CHANGED 0;1 DATE (Required)

                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


161.831,1       CARD NUMBER            0;2 FREE TEXT (Required)

                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)


161.831,2       REASON FOR CHANGE      0;3 FREE TEXT (Required)

                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.  


161.831,3       PERSON WHO CHANGED     0;4 POINTER TO NEW PERSON FILE (#200) (Required)

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





      FILES POINTED TO                      FIELDS

NEW PERSON (#200)                 DATE/TIME CARD NUMBER CHANGED:PERSON WHO CHANGED (#3)

PATIENT (#2)                      NAME (#.01)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):