STANDARD DATA DICTIONARY #8927.9 -- TIU UNAUTHORIZED ABBREVIATION FILE 3/24/25 PAGE 1
STORED IN ^TIU(8927.9, (14 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a list of UNAUTHORIZED ABBREVIATIONS. The UNAUTHORIZED ABBREVIATION field (.01) cannot be modified once it is
created. If the CLASS field (.02) is set to "NATIONAL", the entry cannot be altered locally. If the CLASS field (.02) is set to
"LOCAL", then the rest of the fields can be added or modified locally.
DD ACCESS: @
RD ACCESS:
WR ACCESS:
DEL ACCESS: @
LAYGO ACCESS:
AUDIT ACCESS: @
IDENTIFIED BY: CLASS (#.02)[R], ABBREVIATION EXACT MATCH (#.03)[R], STATUS (#.04)[R]
CROSS
REFERENCED BY: UNAUTHORIZED ABBREVIATION(B)
INDEXED BY: STATUS & CLASS & UNAUTHORIZED ABBREVIATION & ABBREVIATION EXACT MATCH (AC)
LAST MODIFIED: JUL 26,2017@16:22:08
8927.9,.01 UNAUTHORIZED ABBREVIATION 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:'$$LABBV^TIUABBV(X) X
MAXIMUM LENGTH: 30
LAST EDITED: APR 23, 2017
HELP-PROMPT: UNAUTHORIZED ABBREVIATION must be 1 to 30 characters and cannot contain the following punctuations:
|^&~\:,!?
DESCRIPTION: Once an UNAUTHORIZED ABBREVIATION field is created, it cannot be modified or deleted. The STATUS
field is set to ACTIVE initially, but only LOCAL class entry can be toggled or inactivated.
DELETE TEST: .01,0)= I 1 D EN^DDIOL("DELETION IS NOT ALLOWED!","","!?10")
1,0)= I ($P($G(^TIU(8927.9,+$G(DA),0)),U,2)="N"&('$G(XUMF)))
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 8927.9^B
1)= S ^TIU(8927.9,"B",$E(X,1,30),DA)=""
2)= K ^TIU(8927.9,"B",$E(X,1,30),DA)
RECORD INDEXES: AC (#1456)
8927.9,.02 CLASS 0;2 SET (Required) (audited)
'N' FOR NATIONAL;
'L' FOR LOCAL;
INPUT TRANSFORM: K:'$$LCLASS^TIUABBV(X) X
LAST EDITED: APR 22, 2017
HELP-PROMPT: Local staff is only allowed to enter "LOCAL" for the CLASS.
DESCRIPTION: The value for the CLASS field is either "NATIONAL" or "LOCAL". When adding a new "Unauthorized
Abbreviation" entry, the CLASS field is automatically defaulted to "LOCAL" and cannot be edited
locally.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AC (#1456)
8927.9,.03 ABBREVIATION EXACT MATCH 0;3 SET (Required) (audited)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: APR 22, 2017
HELP-PROMPT: Select 'YES' if case sensitive check for this UNAUTHORIZED ABBREVIATION is required.
DESCRIPTION: The value of this field is either YES or NO. If the value is "YES", the system will flag an
abbreviation only if the text is matched exactly. If the value is "NO", the system will flag an
abbreviation with the same spelling regardless of case sensitivity.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AC (#1456)
8927.9,.04 STATUS 0;4 SET (Required) (audited)
'A' FOR ACTIVE;
'I' FOR INACTIVE;
LAST EDITED: APR 22, 2017
HELP-PROMPT: Select ACTIVE if this abbreviation is prohibited. Otherwise, enter INACTIVE.
DESCRIPTION: The STATUS of an unauthorized abbreviation is either 'ACTIVE' or 'INACTIVE'. If this field is set
to ACTIVE, the abbreviation is identified as unauthorized and is prohibited from being used in the
CPRS user's note. If this field is set to INACTIVE, the abbreviation is no longer unauthorized.
AUDIT: YES, ALWAYS
RECORD INDEXES: AC (#1456)
8927.9,.05 NOTE 0;5 FREE TEXT (audited)
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: APR 22, 2017
HELP-PROMPT: Answer must be 1-80 characters in length.
DESCRIPTION:
This field is used to provide more information about the abbreviation and the reason of the entry.
AUDIT: YES, ALWAYS
File #8927.9
Record Indexes:
AC (#1456) RECORD REGULAR IR SORTING ONLY
Short Descr: For easy retrieval.
Description: This index facilitates retrieval of entries by STATUS and CLASS and UNAUTHORIZED ABBREVIATION and ABBREVIATION
EXACT MATCH as
^TIU(8927.9,"AC",[STATUS],[CLASS],[UNAUTHORIZED ABBREVIATION],[ABBREVIATION EXACT MATCH],DA)
Examples:
^TIU(8927.9,"AC","A","L","IU",1,1)="" ^TIU(8927.9,"AC","A","L","MS",1,2)=""
^TIU(8927.9,"AC","A","L","MSO4",1,3)="" ^TIU(8927.9,"AC","A","L","MgSO4",1,4)=""
^TIU(8927.9,"AC","A","L","Q.D.",1,5)="" ^TIU(8927.9,"AC","A","L","Q.O.D.",1,6)=""
^TIU(8927.9,"AC","A","L","QD",1,7)="" ^TIU(8927.9,"AC","A","L","QOD",1,8)=""
^TIU(8927.9,"AC","A","L","U",1,9)="" ^TIU(8927.9,"AC","A","L","q.d.",1,10)=""
^TIU(8927.9,"AC","A","L","q.o.d.",1,11)="" ^TIU(8927.9,"AC","A","L","qd",1,12)=""
^TIU(8927.9,"AC","A","L","qod",1,13)="" ^TIU(8927.9,"AC","A","L","u",1,14)=""
Set Logic: S ^TIU(8927.9,"AC",$E(X(1),1,1),$E(X(2),1,1),$E(X(3),1,30),$E(X(4),1,1),DA)=""
Kill Logic: K ^TIU(8927.9,"AC",$E(X(1),1,1),$E(X(2),1,1),$E(X(3),1,30),$E(X(4),1,1),DA)
Whole Kill: K ^TIU(8927.9,"AC")
X(1): STATUS (8927.9,.04) (Subscr 1) (Len 1) (forwards)
X(2): CLASS (8927.9,.02) (Subscr 2) (Len 1) (forwards)
X(3): UNAUTHORIZED ABBREVIATION (8927.9,.01) (Subscr 3) (Len 30) (forwards)
X(4): ABBREVIATION EXACT MATCH (8927.9,.03) (Subscr 4) (Len 1) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):