STANDARD DATA DICTIONARY #413.3 -- CONCURRING OFFICIALS FILE                                                      9/29/25    PAGE 1
STORED IN ^PRCN(413.3,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                      (VERSION 1.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a list of users that are frequently used as concurring officials for equipment requests.  


              DD ACCESS: @
              RD ACCESS: [
              WR ACCESS: ]
             DEL ACCESS: %
           LAYGO ACCESS: $
           AUDIT ACCESS: @
IDENTIFIED BY: TITLE (#1)

POINTED TO BY: CONCURRING OFFICIALS field (#.01) of the CONCURRING OFFICIALS sub-field (#413.046) of the EQUIPMENT REQUEST File 
                   (#413) 
               

CROSS
REFERENCED BY: NAME(B)



413.3,.01     NAME                   0;1 POINTER TO NEW PERSON FILE (#200) (Required)

              LAST EDITED:      AUG 05, 1995 
              DESCRIPTION:      This is the name of designated officials at a VA Medical Center which must concur with any
                                particular equipment request.  

              CROSS-REFERENCE:  413.3^B 
                                1)= S ^PRCN(413.3,"B",$E(X,1,30),DA)=""
                                2)= K ^PRCN(413.3,"B",$E(X,1,30),DA)
                                This cross-reference is by concurring official.  


              CROSS-REFERENCE:  ^^TRIGGER^413.3^1 
                                1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCN(413.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S
                                 DIU=X K Y S X=DIV S X=$P(^VA(200,X,0),U,9) X ^DD(413.3,.01,1,2,1.4)

                                1.4)= S DIH=$S($D(^PRCN(413.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=413.3,DIG=1 D ^DIC
                                R:$O(^DD(DIH,DIG,1,0))>0

                                2)= Q

                                CREATE VALUE)= S X=$P(^VA(200,X,0),U,9)
                                DELETE VALUE)= NO EFFECT
                                FIELD)= #1
                                This triggers the title from the New Person file.  



413.3,1       TITLE                  0;2 POINTER TO TITLE FILE (#3.1)

              LAST EDITED:      DEC 03, 1993 
              DESCRIPTION:
                                This is the title of the concurring official.  

              NOTES:            TRIGGERED by the NAME field of the CONCURRING OFFICIALS File 



      FILES POINTED TO                      FIELDS

NEW PERSON (#200)                 NAME (#.01)

TITLE (#3.1)                      TITLE (#1)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):