STANDARD DATA DICTIONARY #35.1 -- SHARING AGREEMENT CATEGORY FILE                                                 9/29/25    PAGE 1
STORED IN ^DG(35.1,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                         (VERSION 5.3)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------



CROSS
REFERENCED BY: A/P(AC), ACTIVE(AD), CATEGORY(AE), A/P(B)



35.1,.01      A/P                    0;1          VARIABLE POINTER (Required)

              FILE  ORDER  PREFIX    LAYGO  MESSAGE
                 43.4 1    AR           n   VA ADMITTING REGULATION 
             409.1    2    AT           n   APPOINTMENT TYPE 
                                         
              LAST EDITED:      JAN 17, 1997 
              HELP-PROMPT:      Enter the Appointment Type or Admitting Regulation. 
              CROSS-REFERENCE:  35.1^B 
                                1)= S ^DG(35.1,"B",$E(X,1,30),DA)=""
                                2)= K ^DG(35.1,"B",$E(X,1,30),DA)

              CROSS-REFERENCE:  35.1^AC^MUMPS 
                                1)= I +$P(^DG(35.1,DA,0),U,2) S ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT
                                "),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)=$P(^DG(35.1,DA,0),U,3)

                                2)= K ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1)
                                ,+$P(^DG(35.1,DA,0),U,2),DA)


35.1,.02      CATEGORY               0;2 POINTER TO SHARING AGREEMENT SUB-CATEGORY FILE (#35.2)

              LAST EDITED:      JAN 17, 1997 
              CROSS-REFERENCE:  35.1^AE^MUMPS 
                                1)= I +$P(^DG(35.1,DA,0),U,2) S ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT
                                "),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)=$P(^DG(35.1,DA,0),U,3)

                                2)= K ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1)
                                ,+$P(^DG(35.1,DA,0),U,2),DA)


35.1,.03      ACTIVE                 0;3 SET

                                '1' FOR YES; 
                                '0' FOR NO; 
              LAST EDITED:      JAN 17, 1997 
              HELP-PROMPT:      Please enter 1 for "Yes" and 0 for "No". 
              CROSS-REFERENCE:  35.1^AD^MUMPS 
                                1)= I +$P(^DG(35.1,DA,0),U,2) S ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT
                                "),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)=$P(^DG(35.1,DA,0),U,3)

                                2)= K ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1)
                                ,+$P(^DG(35.1,DA,0),U,2),DA)



      FILES POINTED TO                      FIELDS

APPOINTMENT TYPE (#409.1)         A/P (#.01)

SHARING AGREEMENT SUB-CATEGORY 
                   (#35.2)        CATEGORY (#.02)

VA ADMITTING REGULATION (#43.4)   A/P (#.01)



INPUT TEMPLATE(S):
DGSHARESUB                    DEC 24, 1998@07:31  USER #0    
     Adds ability to edited Sub Category Name

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):