STANDARD DATA DICTIONARY #8926.75 -- TIU LOINC SERVICE SYNONYMS FILE                                              9/29/25    PAGE 1
STORED IN ^TIU(8926.75,  (544 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 Services. Unlike the TIU LOINC SERVICE File (#8926.5), 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.5,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(8926.5,.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), SERVICE(SVC)



8926.75,.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 Service synonym.  

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

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


8926.75,.02   SERVICE                0;2 POINTER TO TIU LOINC SERVICE FILE (#8926.5) (Required)

              INPUT TRANSFORM:  S DIC("S")="I '$$SCREEN^XTID(8926.5,"""",+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 Service for this synonym. 
              DESCRIPTION:
                                This field is a reference to the LOINC Standard Service to which the synonym corresponds.  

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




      FILES POINTED TO                      FIELDS

TIU LOINC SERVICE (#8926.5)       SERVICE (#.02)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):