STANDARD DATA DICTIONARY #125 -- PROBLEM SELECTION LIST FILE                                                      6/27/25    PAGE 1
STORED IN ^GMPL(125,  (1 ENTRY)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                         (VERSION 2.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains information defining lists of problems commonly seen by a particular clinic or user.  These lists will be
presented as menus to select from, to facilitate adding new problems.  


              DD ACCESS: @
             DEL ACCESS: @
IDENTIFIED BY: CLASS (#.04)[R]

PRIMARY KEY:        A (#131)
  Uniqueness Index: B (#1485)
       File, Field: 1) NAME (125,.01)

POINTED TO BY: LIST field (#.01) of the PROBLEM SELECTION LIST CONTENTS File (#125.1) 
               PROBLEM SELECTION LIST field (#125.1) of the NEW PERSON File (#200) 
               

CROSS
REFERENCED BY: CLINIC(C)

INDEXED BY:    CATEGORY NAME (AC), SEQUENCE (AD), NAME (B)


    LAST MODIFIED: DEC 27,2017@13:40:01

125,.01       NAME                   0;1 FREE TEXT (Required) (Key field)

              INPUT TRANSFORM:  K:$L(X)>65!(X?.N)!($L(X)<3)!'(X'?1P.E)!'(+$$VNAME^GMPLINTR(.X)) X
              MAXIMUM LENGTH:   65
              LAST EDITED:      JUN 29, 2017 
              HELP-PROMPT:      Name must be 3-65 characters, not numeric or starting with punctuation 
              DESCRIPTION:
                                This is a free text name for the list; it must be unique. National lists are prefixed with a "VA-".  

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

              FIELD INDEX:      B (#1485)    REGULAR    IR    LOOKUP & SORTING
                   Unique for:  Key A (#131), File #125
                  Short Descr:  New Style B cross-reference
                  Description:  This cross-reference allows for the look up and sorting of selection list names. A primary key is
                                created to ensure uniqueness in the selection list names. 
                                 
                                The indexes are stored as follows: ^GMPL(125,"B",NAME,DA), where NAME is the selection list name
                                and DA is the IEN of File #125 or the record number of the selection list.  
                    Set Logic:  S ^GMPL(125,"B",$E(X,1,65),DA)=""
                   Kill Logic:  K ^GMPL(125,"B",$E(X,1,65),DA)
                   Whole Kill:  K ^GMPL(125,"B")
                         X(1):  NAME  (125,.01)  (Subscr 1)  (Len 65)  (forwards)


125,.02       DATE LAST MODIFIED     0;2 DATE

              INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
              LAST EDITED:      OCT 04, 1993 
              HELP-PROMPT:      Enter the date/time this list was last edited. 
              DESCRIPTION:      This is the date[/time] this list was last changed in any way; this value is stuffed in by the
                                Problem List pkg utilities that manage this file.  


125,.03       CLINIC                 0;3 POINTER TO HOSPITAL LOCATION FILE (#44)

              INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
              LAST EDITED:      FEB 06, 2017 
              HELP-PROMPT:      Enter the clinic to be associated with this list. 
              DESCRIPTION:      This is the clinic to be associated with this list.  This should be the primary clinic in which
                                this list will be used to populate patient problem lists; when adding new problems for a patient
                                from this clinic, this list will automatically be presented to select problems from.  
                                 
                                **NOTE**: This field will no longer be utilized with GMPL*2.0*49 and will be replaced with the
                                ORQQPL SELECTION LIST parameter settings.  

              SCREEN:           S DIC("S")="I $P(^(0),U,3)=""C"""
              EXPLANATION:      Only hospital locations that are clinics are allowed.
              CROSS-REFERENCE:  125^C 
                                1)= S ^GMPL(125,"C",$E(X,1,30),DA)=""
                                2)= K ^GMPL(125,"C",$E(X,1,30),DA)


125,.04       CLASS                  0;4 SET (Required)

                                'N' FOR National; 
                                'V' FOR VISN; 
                                'L' FOR Local; 
              INPUT TRANSFORM:  K:'+$$VCLASS^GMPLINTR(X) X
              LAST EDITED:      SEP 19, 2017 
              HELP-PROMPT:      Enter the Class for this selection list. 
              DESCRIPTION:      This is the Class of the selection list. Possible classes are "N" for national, "V" for VISN, and
                                "L" for local. National lists cannot be edited by sites.  

              SCREEN:           S DIC("S")="I Y'=""N"""
              EXPLANATION:      National lists are reserved for National Development and cannot be edited by sites.
              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


125,1         CATEGORY               1;0 POINTER Multiple #125.01

              LAST EDITED:      JUL 25, 2016 
              DESCRIPTION:
                                These are the problem categories that are associated with this list.  


125.01,.01      CATEGORY NAME          0;1 POINTER TO PROBLEM SELECTION CATEGORY FILE (#125.11) (Required)

                LAST EDITED:      AUG 25, 2016 
                HELP-PROMPT:      Enter the problem category you wish to include in this list. 
                DESCRIPTION:      This is the category whose problem items are to be included in the current list; it may have a
                                  subheader in this list, and a designated order.  

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

                FIELD INDEX:      AC (#1147)    MUMPS    IR    ACTION    WHOLE FILE (#125)
                    Short Descr:  Index of Categories associated with a list
                    Description:  This cross-reference allows the retrieval of categories in a sequential order of a list. The
                                  indexes are stored as follows: ^GMPL(125,"AC",CAT,DA(1)).  
                                   
                                  DA(1) is the IEN of File #125 or the record number of the list the category is associated with.
                                  CAT is the category within that list.  
                      Set Logic:  S ^GMPL(125,"AC",X(1),DA(1))=""
                     Kill Logic:  K ^GMPL(125,"AC",X(1),DA(1))
                           X(1):  CATEGORY NAME  (125.01,.01)  (Subscr 1)  (forwards)


125.01,.02      SEQUENCE               0;2 NUMBER

                INPUT TRANSFORM:  K:+X'=X!(X>999.99)!(X<.01)!(X?.E1"."3N.N) X
                LAST EDITED:      AUG 31, 2016 
                HELP-PROMPT:      Type a number between .01 and 999.99, 2 decimal digits. 
                DESCRIPTION:      This is a number which will determine the order this group will appear in the current list; up to
                                  two decimal places may be used.  

                FIELD INDEX:      AD (#1484)    MUMPS    IR    ACTION    WHOLE FILE (#125)
                    Short Descr:  Index of list contents in sequenced order
                    Description:  This cross-reference allows the retrieval of the list categories in a sequential order. The
                                  indexes are stored as follows: ^GMPL(125,"AD",DA(1),CSEQ,DA).  
                                   
                                  DA(1) is the IEN of File #125 or the record number of the list. CSEQ is the sequence number of
                                  the categories associated with that list. DA is the sub-record number for those categories.  
                      Set Logic:  S ^GMPL(125,"AD",DA(1),X(1),DA)=""
                     Kill Logic:  K ^GMPL(125,"AD",DA(1),X(1),DA)
                           X(1):  SEQUENCE  (125.01,.02)  (Subscr 1)  (forwards)


125.01,.03      SUBHEADER              0;3 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>65!($L(X)<2)!(X?.N)!'(X'?1P.E) X
                MAXIMUM LENGTH:   65
                LAST EDITED:      FEB 23, 2017 
                HELP-PROMPT:      Answer must be 2-65 characters in length, non-numeric, and does not start with a punctuation. 
                DESCRIPTION:      This is text which will appear in the list as a subheader or title to this group of problems. It
                                  will have a single blank row between it and the previous problem group, and it will be
                                  underlined.  

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


125.01,.04      SHOW PROBLEMS          0;4 SET

                                  '1' FOR YES; 
                                  '0' FOR NO; 
                LAST EDITED:      JUL 25, 2016 
                HELP-PROMPT:      Enter YES to immediately display the problems in this category when using this list for 
                                  selection. 
                DESCRIPTION:      This field controls the initial display of this category in this selection list. If set to YES,
                                  the problems will automatically be displayed as part of the list when it is initially built and
                                  displayed; if null or NO, the category must be selected in order to expand the list and show the 
                                  problems.  





      FILES POINTED TO                      FIELDS

HOSPITAL LOCATION (#44)           CLINIC (#.03)

PROBLEM SELECTION CATEGORY 
                   (#125.11)      CATEGORY:CATEGORY NAME (#.01)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):