STANDARD DATA DICTIONARY #161.81 -- FEE BASIS PARTICIPATION CODE FILE                                             9/29/25    PAGE 1
STORED IN ^FBAA(161.81,  (15 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                   (VERSION 3.5)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains all the valid Participation Code types that can be assigned to a vendor.  
 
Per VHA Directive 10-93-142, this file definition should not be modified.  


              DD ACCESS: @
              RD ACCESS: #
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
IDENTIFIED BY: CODE REPORTED TO AUSTIN (#1)[R]

POINTED TO BY: PART CODE field (#7) of the FEE BASIS VENDOR File (#161.2) 
               

CROSS
REFERENCED BY: NAME(B), CODE REPORTED TO AUSTIN(C)



161.81,.001   NUMBER                     NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
              LAST EDITED:      JAN 17, 1986 
              HELP-PROMPT:      TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999 
              DESCRIPTION:
                                The internal entry number of the Participation Code in this file.  


161.81,.01    NAME                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>46!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
              HELP-PROMPT:      ANSWER MUST BE 3-46 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                The name for this Participation code. Each vendor must have a participation code.  

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


161.81,1      CODE REPORTED TO AUSTIN 0;2 FREE TEXT (Required)

              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2) X
              LAST EDITED:      SEP 09, 1993 
              HELP-PROMPT:      ANSWER MUST BE 2 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                The acceptable code the Austin Central system expects for this participation code.  

              CROSS-REFERENCE:  161.81^C 
                                1)= S ^FBAA(161.81,"C",$E(X,1,30),DA)=""
                                2)= K ^FBAA(161.81,"C",$E(X,1,30),DA)
                                Used to get internal entry number in the server routines.  




INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):