STANDARD DATA DICTIONARY #8926.73 -- TIU LOINC ROLE SYNONYMS FILE                                                 9/29/25    PAGE 1
STORED IN ^TIU(8926.73,  (77 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                   (VERSION 1.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file supports and facilitates the mapping of local titles to LOINC Standard Titles, by simplifying the correct association
between partial names and the LOINC Standard Roles. Unlike the TIU LOINC ROLE File (#8926.3), this file may be locally extended.  


              DD ACCESS: @
              RD ACCESS: @
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
           AUDIT ACCESS: @
IDENTIFIED BY: 
       "W.02": S %I=Y,Y=$S('$D(^(0)):"",$D(^TIU(8926.3,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(8926.3,.01,0),U,2) D Y^DIQ:Y
               ]"" W "   ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I

CROSS
REFERENCED BY: SYNONYM(B), ROLE(ROLE)



8926.73,.01   SYNONYM                0;1 FREE TEXT (Required)

              LEXICAL VARIANT   
              INPUT TRANSFORM:  S:$L($T(UP^XLFSTR)) X=$$UP^XLFSTR(X) K:$L(X)>90!($L(X)<2)!'(X'?1P.E) X
              LAST EDITED:      JUL 06, 2006 
              HELP-PROMPT:      Answer must be 2-90 characters in length, all UPPER case. 
              DESCRIPTION:
                                This is the text of the Role synonym.  

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

              CROSS-REFERENCE:  8926.73^B 
                                1)= S ^TIU(8926.73,"B",$E(X,1,90),DA)=""
                                2)= K ^TIU(8926.73,"B",$E(X,1,90),DA)


8926.73,.02   ROLE                   0;2 POINTER TO TIU LOINC ROLE FILE (#8926.3) (Required)

              INPUT TRANSFORM:  S DIC("S")="I '$$SCREEN^XTID(8926.3,"""",+Y_"","")" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
              LAST EDITED:      JUN 23, 2006 
              HELP-PROMPT:      Required. Specify the Role for this synonym. 
              DESCRIPTION:
                                This field is a reference to the LOINC Standard Role to which the synonym corresponds.  

              SCREEN:           S DIC("S")="I '$$SCREEN^XTID(8926.3,"""",+Y_"","")"
              EXPLANATION:      Only ACTIVE Roles may be selected.
              CROSS-REFERENCE:  8926.73^ROLE 
                                1)= S ^TIU(8926.73,"ROLE",$E(X,1,30),DA)=""
                                2)= K ^TIU(8926.73,"ROLE",$E(X,1,30),DA)
                                3)= ** DO NOT DELETE **
                                This REGULAR FileMan Cross-reference by Role is for look-ups as well as sorting.  




      FILES POINTED TO                      FIELDS

TIU LOINC ROLE (#8926.3)          ROLE (#.02)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):