STANDARD DATA DICTIONARY #8925.98 -- TIU PERSONAL DOCUMENT TYPE LIST FILE 3/24/25 PAGE 1
STORED IN ^TIU(8925.98, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used to store "pick-lists" of documents (by class), for selection by the user.
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(8925.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(8925.1,.01,0),U,2) D Y^DIQ:Y
]"" W " ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
CROSS
REFERENCED BY: PERSON(AC), PARENT DOCUMENT CLASS(AC1), TIMESTAMP(AM), PERSON(B)
8925.98,.01 PERSON 0;1 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: SEP 05, 1995
HELP-PROMPT: Please indicate a person (by name, SSN, initials, etc.)
DESCRIPTION:
This is the person whose preference is being identified.
CROSS-REFERENCE: 8925.98^B
1)= S ^TIU(8925.98,"B",$E(X,1,30),DA)=""
2)= K ^TIU(8925.98,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 8925.98^AC^MUMPS
1)= I +$P($G(^TIU(8925.98,+DA,0)),U,2) S ^TIU(8925.98,"AC",+X,+$P(^TIU(8925.98,+DA,0),U,2),DA)=""
2)= I +$P($G(^TIU(8925.98,+DA,0)),U,2) K ^TIU(8925.98,"AC",+X,+$P(^TIU(8925.98,+DA,0),U,2),DA)
This multi-field, MUMPS-type crosss-reference by User and Parent Document class is used to
facilitate identification of the user's preferred list of documents within the context of a given
parent class.
8925.98,.02 PARENT DOCUMENT CLASS 0;2 POINTER TO TIU DOCUMENT DEFINITION FILE (#8925.1)
CLASS
INPUT TRANSFORM: S DIC("S")="I +$$CLASPICK^TIULA4(38,+Y,""CL"")" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: JUN 16, 2000
HELP-PROMPT: Please select the parent group to which the document list belongs.
DESCRIPTION: This is the group (i.e., either Document Class or Class) to which the preferred document list
belongs. i.e., enter the class Progress Notes to indicate that the corresponding list will apply
to Progress Notes.
SCREEN: S DIC("S")="I +$$CLASPICK^TIULA4(38,+Y,""CL"")"
EXPLANATION: You may only pick certain groups of documents at this prompt.
CROSS-REFERENCE: 8925.98^AC1^MUMPS
1)= I +$P($G(^TIU(8925.98,+DA,0)),U) S ^TIU(8925.98,"AC",+$P(^TIU(8925.98,+DA,0),U),+X,DA)=""
2)= I +$P($G(^TIU(8925.98,+DA,0)),U) K ^TIU(8925.98,"AC",+$P(^TIU(8925.98,+DA,0),U),+X,DA)
This multi-field, MUMPS-type cross-reference by User and Parent Document class is used to
facilitate identification of the user's preferred list ofdocuments within the context of a given
parent class.
8925.98,.03 DEFAULT TYPE 0;3 POINTER TO TIU DOCUMENT DEFINITION FILE (#8925.1)
DEFAULT TITLE
INPUT TRANSFORM: S DIC("S")="I +$$DFLTPICK^TIULA4(+$P(^TIU(8925.98,+DA,0),U,2),+Y,+DA)" D ^DIC K DIC S DIC=DIE,X=+Y
K:Y<0 X
LAST EDITED: NOV 01, 1996
HELP-PROMPT: Please indicate which document type will be the default.
DESCRIPTION: This determines what TITLE will be offered by default when selecting from a given parent class
(e.g., when entering a PROGRESS NOTE, you may want the DEFAULT TITLE to be DIABETES EDUCATION,
etc.).
SCREEN: S DIC("S")="I +$$DFLTPICK^TIULA4(+$P(^TIU(8925.98,+DA,0),U,2),+Y,+DA)"
EXPLANATION: You may only select active documents w/in the parent class.
8925.98,10 PERSONAL DOCUMENT LIST 10;0 POINTER Multiple #8925.9801
DESCRIPTION: This Multiple is used for storing personal lists of documents for type selection during
entry/editing.
IDENTIFIED BY:
"W.02": W " ",$P(^(0),U,2)
8925.9801,.01 TITLE 0;1 POINTER TO TIU DOCUMENT DEFINITION FILE (#8925.1) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^TIU(8925.1,+Y,0),U,4)=""DOC"",+$$ISA^TIULX(+Y,+$P(^TIU(8925.98,$S($D(DA(1)):+DA(1
),1:+DA),0),U,2)),+$$CANPICK^TIULP(+Y),+$$CANENTR^TIULP(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 29, 1998
HELP-PROMPT: Please select a document type.
DESCRIPTION:
This is the document to be included in your pick list of documents for the current document class.
SCREEN: S DIC("S")="I $P(^TIU(8925.1,+Y,0),U,4)=""DOC"",+$$ISA^TIULX(+Y,+$P(^TIU(8925.98,$S($D(DA(1)):+DA(1
),1:+DA),0),U,2)),+$$CANPICK^TIULP(+Y),+$$CANENTR^TIULP(+Y)"
EXPLANATION: You may only select TITLES that you are authorized to ENTER.
CROSS-REFERENCE:8925.9801^B
1)= S ^TIU(8925.98,DA(1),10,"B",$E(X,1,30),DA)=""
2)= K ^TIU(8925.98,DA(1),10,"B",$E(X,1,30),DA)
8925.9801,.02 SEQUENCE 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: SEP 25, 1995
HELP-PROMPT: Type a Number between 0 and 999, 3 Decimal Digits
DESCRIPTION:
This is the sequence in which you wish the document to appear in your list.
8925.9801,.03 DISPLAY NAME 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>26!($L(X)<2) X
LAST EDITED: OCT 11, 1995
HELP-PROMPT: Answer must be 2-26 characters in length.
DESCRIPTION:
This is the name of the document to be displayed in menus.
CROSS-REFERENCE:8925.9801^AM1^MUMPS
1)= D REDO^TIUDD98
2)= D REDO^TIUDD98
This MUMPS-type cross-reference is used for marking records for menu recompilation when the DISPLAY
NAME for an item changes.
8925.98,99 TIMESTAMP 99;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: SEP 11, 1995
HELP-PROMPT: Answer must be 1-15 characters in length.
DESCRIPTION: This is the timestamp on the record in $H format which is compared with that on the compiled menu
in ^XUTL("XQORM","DA;TIU(8925.98,",99) to determine whether recompilation is necessary.
CROSS-REFERENCE: 8925.98^AM^MUMPS
1)= D SET^TIUDD98
2)= D KILL^TIUDD98
This MUMPS-type cross reference on the TIMESTAMP field is used to accomplish menu compilation into
^XUTL("XQORM","DA;TIU(8925.98,", for presentation of menus by ^XQORM.
FILES POINTED TO FIELDS
NEW PERSON (#200) PERSON (#.01)
TIU DOCUMENT DEFINITION (#8925.1) PARENT DOCUMENT CLASS (#.02)
DEFAULT TYPE (#.03)
PERSONAL DOCUMENT LIST:TITLE (#.01)
INPUT TEMPLATE(S):
TIU ENTER/EDIT PERSONAL LIST JUN 21, 2000@10:27 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):