STANDARD DATA DICTIONARY #8925 -- TIU DOCUMENT FILE 3/24/25 PAGE 1
STORED IN ^TIU(8925, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores textual information for the clinical record database. Though it is designed to initially accommodate Progress
Notes, Consult Reports, and Discharge Summaries, it is intended to be sufficiently flexible to accommodate textual reports or
provider narrative of any length or type, and to potentially accommodate such data transmitted from remote sites, which may be
excluded from the corresponding local DHCP Package databases (e.g., Operative Reports, Radiology Reports, Pathology Reports, etc.)
to avoid confusion with local workload.
FILE SCREEN (SCR-node) : I 1 S TIUFPRIV=1
COMPILED CROSS-REFERENCE ROUTINE: TIUXRC
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
APPLICATION GROUP(S): TIU
IDENTIFIED BY: PATIENT (#.02), EPISODE BEGIN DATE/TIME (#.07)
POINTED TO BY: NOTE field (#.05) of the SEXUAL ORIENTATION sub-field (#2.025) of the PATIENT File (#2)
TIU PN LINK field (#.06) of the PRF ASSIGNMENT HISTORY File (#26.14)
TIU ENTRY POINTER - AU field (#1) of the TIU REFERENCE DATE/TIME - AU sub-field (#63.101) of the LAB DATA File (#63)
TIU ENTRY POINTER - SP field (#1) of the TIU REFERENCE DATE/TIME - SP sub-field (#63.19) of the SURGICAL PATHOLOGY
sub-field (#63.08) of the LAB DATA File (#63)
TIU ENTRY POINTER - CY field (#1) of the TIU REFERENCE DATE/TIME - CY sub-field (#63.47) of the CYTOPATHOLOGY
sub-field (#63.09) of the LAB DATA File (#63)
TIU ENTRY POINTER - EM field (#1) of the TIU REFERENCE DATE/TIME - EM sub-field (#63.49) of the EM sub-field
(#63.02) of the LAB DATA File (#63)
NOTE field (#.09) of the QUERIES sub-field (#101.621) of the PDMP QUERY LOG File (#101.62)
TIU RESULT NARRATIVE field (#16) of the REQUEST/CONSULTATION File (#123)
RESULT field (#9) of the REQUEST PROCESSING ACTIVITY sub-field (#123.02) of the REQUEST/CONSULTATION File (#123)
ASSOCIATED RESULTS field (#.01) of the ASSOCIATED RESULTS sub-field (#123.03) of the REQUEST/CONSULTATION File
(#123)
TIU OPERATIVE SUMMARY field (#1000) of the SURGERY File (#130)
TIU NURSE INTRAOP REPORT field (#1001) of the SURGERY File (#130)
TIU PROCEDURE REPORT (NON-OR) field (#1002) of the SURGERY File (#130)
TIU ANESTHESIA REPORT field (#1003) of the SURGERY File (#130)
TIU DOCUMENT field (#23) of the CAPRI TEMPLATES File (#396.17)
TIU DOCUMENT ID field (#75) of the 2507 EXAM File (#396.4)
TIU NOTE field (#.06) of the CP TRANSACTION File (#702)
TIU_NOTE_ID field (#.02) of the CP_TRANSACTION_TIU_HISTORY File (#702.001)
PROG NOTE IEN field (#.16) of the FUNCTIONAL INDEPENDENCE MEASUREMENT RECORD File (#783)
TIU DOCUMENT field (#5) of the PREGNANCY STATUSES sub-field (#790.05) of the WV PATIENT File (#790)
TIU DOCUMENT field (#5) of the LACTATION STATUSES sub-field (#790.16) of the WV PATIENT File (#790)
NOTE field (#3) of the PROCEDURE ACTIONS sub-field (#790.23) of the WV PROCEDURE File (#790.1)
TIU DOCUMENT field (#3) of the WV DATA NEEDING REVIEW File (#790.8)
NOTE field (#3) of the ITEMS sub-field (#809.04) of the REMINDERS EPISODE OF CARE File (#809)
TIU NOTE field (#105) of the MRAR INSTANCE sub-field (#853.51) of the VPS MRAR PDO File (#853.5)
LATEST DNR NOTE field (#18) of the NUPA CARE PLANS File (#1927.4)
TIU NOTE REFERENCE field (#27) of the IMAGE SERIES File (#2005.63)
PARENT field (#.06) of the TIU DOCUMENT File (#8925)
RETRACTED ORIGINAL field (#1406) of the TIU DOCUMENT File (#8925)
ID PARENT field (#2101) of the TIU DOCUMENT File (#8925)
TIU DOCUMENT NAME field (#.01) of the TIU AUDIT TRAIL File (#8925.5)
ID PARENT field (#3.05) of the TIU AUDIT TRAIL File (#8925.5)
TIU DOCUMENT NUMBER field (#.01) of the TIU MULTIPLE SIGNATURE File (#8925.7)
DOCUMENT field (#.01) of the TIU PROBLEM LINK File (#8925.9)
DOCUMENT field (#.01) of the TIU EXTERNAL DATA LINK File (#8925.91)
CROSS
REFERENCED BY: PATIENT(2270), PATIENT(AA), VISIT(AA1), DOCUMENT TYPE(AA2), AUTHOR/DICTATOR(AAU), REFERENCE DATE(AAU1),
DOCUMENT TYPE(AAU2), STATUS(AAU3), AUTHOR/DICTATOR(AAUP), SIGNATURE DATE/TIME(AAUP1), PATIENT(ACLAU),
REFERENCE DATE(ACLAU01), DOCUMENT TYPE(ACLAU02), AUTHOR/DICTATOR(ACLAU03), SIGNATURE DATE/TIME(ACLAU04),
STATUS(ACLAU05), ENTERED BY(ACLAU103), PATIENT(ACLEC), DOCUMENT TYPE(ACLEC01), REFERENCE DATE(ACLEC02),
EXPECTED COSIGNER(ACLEC03), SIGNATURE DATE/TIME(ACLEC04), COSIGNATURE DATE/TIME(ACLEC05), STATUS(ACLEC06),
DOCUMENT TYPE(ACLPT01), SIGNATURE DATE/TIME(ACLPT02), REFERENCE DATE(ACLPT03), STATUS(ACLPT05),
COSIGNATURE DATE/TIME(ACLPT1507), PATIENT(ACLSB), DOCUMENT TYPE(ACLSB01), REFERENCE DATE(ACLSB02),
SIGNED BY(ACLSB3), PATIENT(ADCPT), REFERENCE DATE(ADCPT1), PARENT DOCUMENT TYPE(ADCPT2), STATUS(ADCPT3),
PATIENT(AE), VISIT(AE1), DOCUMENT TYPE(AE2), REFERENCE DATE(ALL1), DOCUMENT TYPE(ALL2), STATUS(ALL3),
HOSPITAL LOCATION(ALOC), REFERENCE DATE(ALOC1), DOCUMENT TYPE(ALOC2), STATUS(ALOC3), HOSPITAL LOCATION(ALOCP),
SIGNATURE DATE/TIME(ALOCP1), REFERENCE DATE(APRB1), DOCUMENT TYPE(APRB2), STATUS(APRB3), PATIENT(APT),
REFERENCE DATE(APT1), DOCUMENT TYPE(APT2), STATUS(APT3), PATIENT(APTCL), REFERENCE DATE(APTCL1),
DOCUMENT TYPE(APTCL2), PATIENT(APTCL38), REFERENCE DATE(APTCL381), DOCUMENT TYPE(APTCL382),
DOCUMENT TYPE(APTLD01), PATIENT(APTLD02), VISIT(APTLD03), EPISODE BEGIN DATE/TIME(APTLD07),
VISIT LOCATION(APTLD1211), VISIT TYPE(APTLD13), PATIENT(APTP), SIGNATURE DATE/TIME(APTP1),
SUBJECT (OPTIONAL description)(ASUB), REFERENCE DATE(ASUB1), DOCUMENT TYPE(ASUB2), STATUS(ASUB3),
EXPECTED COSIGNER(ASUP), REFERENCE DATE(ASUP1), DOCUMENT TYPE(ASUP2), STATUS(ASUP3), SERVICE(ASVC),
REFERENCE DATE(ASVC1), DOCUMENT TYPE(ASVC2), STATUS(ASVC3), ENTERED BY(ATC), REFERENCE DATE(ATC1),
DOCUMENT TYPE(ATC2), STATUS(ATC3), TREATING SPECIALTY(ATS), REFERENCE DATE(ATS1), DOCUMENT TYPE(ATS2),
STATUS(ATS3), PATIENT(AV), VISIT(AV1), VISIT(AV10), SECONDARY VISIT(AV1207), DOCUMENT TYPE(AV2), VISIT(AVSIT),
REFERENCE DATE(AVSIT1), DOCUMENT TYPE(AVSIT2), STATUS(AVSIT3), DOCUMENT TYPE(B), PATIENT(C), AUTHOR/DICTATOR(CA),
EXPECTED COSIGNER(CS), REFERENCE DATE(D), PARENT(DAD), RELEASE DATE/TIME(E), ENTRY DATE/TIME(F),
MARK DISCH DT FOR CORRECTION(FIX), REQUESTING PACKAGE REFERENCE(G), ID PARENT(GDAD), REFERENCE DATE(H),
SERVICE(SVC), ENTERED BY(TC), TREATING SPECIALTY(TS), VISIT(V), VISIT ID(VID), SECONDARY VISIT(VS)
INDEXED BY: AUTHOR/DICTATOR & ENTERED BY & REFERENCE DATE (AADT), DIVISION & DOCUMENT TYPE & STATUS & REFERENCE DATE (ADIV),
DOCUMENT TYPE & STATUS & PARENT & EPISODE BEGIN DATE/TIME & EPISODE END DATE/TIME & AUTHOR/DICTATOR & HOSPITAL
LOCATION & REFERENCE DATE & REQUESTING PACKAGE REFERENCE & SUBJECT (OPTIONAL description) & ID PARENT & PATIENT
(AEVT), ENTRY DATE/TIME & VBC LINE COUNT (VBC), SECONDARY VISIT (VS)
LAST MODIFIED: JUN 16,2023@12:43:29
8925,.01 DOCUMENT TYPE 0;1 POINTER TO TIU DOCUMENT DEFINITION FILE (#8925.1) (Required) (audited)
OUTPUT TRANSFORM: S Y=$S($$PNAME^TIULC1(+Y)]"":$$PNAME^TIULC1(+Y),$P(^TIU(8925.1,+Y,0),U,3)]"":$P(^TIU(8925.1,+Y,0),U
,3),1:Y)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Select the type of document.
DESCRIPTION: This field points to the Tiu Document Definition file, whose entry defines the components of the
document and various parameters for the document's behavior.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
CROSS-REFERENCE: 8925^B
1)= S ^TIU(8925,"B",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 8925^APT2^MUMPS
1)= I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8
925,"APT",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),
DA)=""
2)= I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8
925,"APT",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),
DA)
This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT TYPE, STATUS, and INVERSE
ENTRY/DICTATION DATE facilitates look-ups by patient.
CROSS-REFERENCE: 8925^AAU2^MUMPS
1)= I +$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^
TIU(8925,"AAU",+$P($G(^TIU(8925,+DA,12)),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925
,+DA,13)),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^
TIU(8925,"AAU",+$P($G(^TIU(8925,+DA,12)),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925
,+DA,13)),U)),DA)
This MUMPS-type, multi-field cross-reference by AUTHOR, DOCUMENT TYPE, STATUS, and INVERSE
ENTRY/DICTATION DATE facilitates look-ups by author.
CROSS-REFERENCE: 8925^ASUP2^MUMPS
1)= I +$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^
TIU(8925,"ASUP",+$P($G(^TIU(8925,+DA,12)),U,8),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(892
5,+DA,13)),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^
TIU(8925,"ASUP",+$P($G(^TIU(8925,+DA,12)),U,8),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(892
5,+DA,13)),U)),DA)
This multi-field, MUMPS-type cross-reference by (EXPECTED COSIGNER), DOCUMENT TYPE, STATUS, INVERSE
ENTRY/DICTATION DATE/TIME is used for look-ups and queries.
CROSS-REFERENCE: 8925^AV2^MUMPS
1)= I $P($$DOCTYPE^TIULF(+DA),U)="DOC",+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^(0)),U,3) S ^TIU(8925,
"AV",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,3),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^(0)),U,3) K ^TIU(8925,"AV",+$P(^TIU(8925,+DA,0),U,2),+X
,+$P(^TIU(8925,+DA,0),U,3),+DA)
This MUMPS-type, multi-field cross-reference by patient, document type, and visit number will allow
for a candidate key to determine whether a given document exists for a particular patient visit.
CROSS-REFERENCE: 8925^ATS2^MUMPS
1)= I +$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^
TIU(8925,"ATS",+$P($G(^TIU(8925,+DA,14)),U,2),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(
8925,+DA,13)),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^
TIU(8925,"ATS",+$P($G(^TIU(8925,+DA,14)),U,2),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(
8925,+DA,13)),U)),DA)
This MUMPS-type, multi-field cross-reference by TREATING SPECIALTY, DOCUMENT TYPE, STATUS, and
INVERSE ENTRY/DICTATION DATE facilitates look-ups by treating specialty.
CROSS-REFERENCE: 8925^ATC2^MUMPS
1)= I +$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^
TIU(8925,"ATC",+$P($G(^TIU(8925,+DA,13)),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925
,+DA,13)),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^
TIU(8925,"ATC",+$P($G(^TIU(8925,+DA,13)),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925
,+DA,13)),U)),DA)
This MUMPS-type, multi-field cross-reference by TRANSCRIPTIONIST ID, DOCUMENT TYPE, STATUS, and
INVERSE DICTATION DATE will facilitate look-ups by transcriptionist.
CROSS-REFERENCE: 8925^ALL2^MUMPS
1)= I +$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ALL","ANY",+X,+$P(^TI
U(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ALL","ANY",+X,+$P(^TI
U(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
This multi-field cross-reference is used for building the review screen across all categories
(Author, Attending Physician, Patient, Transcriptionist, or treating specialty).
CROSS-REFERENCE: 8925^AA2^MUMPS
1)= I $P($$DOCTYPE^TIULF(+DA),U)="DOC",$L($P(^TIU(8925,+DA,0),U,2)),(+$P(^(0),U,3)>0) S ^TIU(8925,"
AA",+$P(^(0),U,2),+X,(9999999-$P(+^AUPNVSIT(+$P(^TIU(8925,+DA,0),U,3),0),".")),DA)=""
2)= I $L($P(^TIU(8925,+DA,0),U,2)),(+$P(^(0),U,3)>0) K ^TIU(8925,"AA",+$P(^(0),U,2),+X,(9999999-$P(
+^AUPNVSIT(+$P(^TIU(8925,+DA,0),U,3),0),".")),DA)
This multi-field, MUMPS-type cross-reference by patient, document type and inverse visit date is
optimized for searches by entity, attribute, and time.
CROSS-REFERENCE: 8925^ASUB2^MUMPS
1)= I $L($P($G(^TIU(8925,+DA,17)),U)),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) D
ASUBS^TIUDD($P($G(^TIU(8925,+DA,17)),U),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13)
)),DA)
2)= I $L($P($G(^TIU(8925,+DA,17)),U)),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) D
ASUBK^TIUDD($P($G(^TIU(8925,+DA,17)),U),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13)
)),DA)
This MUMPS-type, multi-field cross-reference is used for queries by subject.
CROSS-REFERENCE: 8925^ASVC2^MUMPS
1)= I +$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^
TIU(8925,"ASVC",+$P($G(^TIU(8925,+DA,14)),U,4),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU
(8925,+DA,13)),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^
TIU(8925,"ASVC",+$P($G(^TIU(8925,+DA,14)),U,4),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU
(8925,+DA,13)),U)),DA)
This MUMPS-type, multi-field cross-reference by SERVICE, DOCUMENT TYPE, STATUS, and INVERSE
ENTRY/DICTATION DATE facilitates by SERVICE.
CROSS-REFERENCE: 8925^AE2^MUMPS
1)= I $P($$DOCTYPE^TIULF(+DA),U)="DOC",+$P($G(^TIU(8925,+DA,0)),U,2),(+$P($G(^(0)),U,3)>0) S ^TIU(8
925,"AE",+$P($G(^TIU(8925,+DA,0)),U,2),(9999999-$P(+^AUPNVSIT(+$P(^TIU(8925,+DA,0),U,3),0),".")),+X
,+DA)=""
2)= I $L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) K ^TIU(8925,"AE",+$P($G(^TIU(8925,+DA,0)),U,2),(
9999999-$P(+^AUPNVSIT(+$P(^TIU(8925,+DA,0),U,3),0),".")),+X,+DA)
This multi-field, MUMPS-type Cross-reference by Patient, Inverse Date, and Report Type is to
optimize searching by entity, time, and attribute
CROSS-REFERENCE: 8925^ALOC2^MUMPS
1)= I +$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^
TIU(8925,"ALOC",+$P($G(^TIU(8925,+DA,12)),U,5),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU
(8925,+DA,13)),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^
TIU(8925,"ALOC",+$P($G(^TIU(8925,+DA,12)),U,5),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU
(8925,+DA,13)),U)),DA)
This MUMPS-type, multi-field cross-reference is optimized for searching hospital location, document
type, status, and date range.
CROSS-REFERENCE: 8925^APRB2^MUMPS
1)= I +$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$O(^TIU(8925.9,"B",+DA,0)) D APRB
S^TIUDD(+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)
2)= I +$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$O(^TIU(8925.9,"B",+DA,0)) D APRB
K^TIUDD(+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)
This MUMPS-type, multi-field cross-reference by Problem, Document Type, Status, and Inverse
Reference Date facilitates query for documents by problem.
CROSS-REFERENCE: 8925^AVSIT2^MUMPS
1)= I +$P(^TIU(8925,+DA,0),U,3),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8
925,"AVSIT",+$P(^TIU(8925,+DA,0),U,3),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)
),DA)=""
2)= I +$P(^TIU(8925,+DA,0),U,3),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8
925,"AVSIT",+$P(^TIU(8925,+DA,0),U,3),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)
),DA)
This MUMPS-type, multi-field cross-reference by VISIT, DOCUMENT TYPE, STATUS, and INVERSE
ENTRY/DICTATION DATE facilitates look-ups by visit.
CROSS-REFERENCE: 8925^APTCL2^MUMPS
1)= I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,
0),U,2),+$$CLINDOC^TIULC1(+X,+DA),(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
2)= I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,
0),U,2),+$$CLINDOC^TIULC1(+X,+DA),(9999999-$P(^TIU(8925,+DA,13),U)),DA)
This MUMPS-type, multi-field cross-reference by PATIENT, CLINICAL DOCUMENT CLASS, and INVERSE
REFERENCE DATE facilitates look-ups by patient.
CROSS-REFERENCE: 8925^APTCL382^MUMPS
1)= I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,
0),U,2),38,(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
2)= I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,
0),U,2),38,(9999999-$P(^TIU(8925,+DA,13),U)),DA)
This MUMPS-type, multi-field cross-reference by PATIENT, ROOT CLASS, and INVERSE REFERENCE DATE
facilitates look-ups by patient.
CROSS-REFERENCE: 8925^ACLPT01^MUMPS
1)= D SACLPT^TIUDD0(.01,X)
2)= D KACLPT^TIUDD01(.01,X)
This multi-field, MUMPS-type cross-reference on CLASS, PATIENT, INVERSE REFERENCE DATE/TIME, and
RECORD # is designed to support rapid queries by patient.
CROSS-REFERENCE: 8925^ACLAU02^MUMPS
1)= D SACLAU^TIUDD0(.01,X),SACLAU1^TIUDD0(.01,X)
2)= D KACLAU^TIUDD01(.01,X),KACLAU1^TIUDD01(.01,X)
This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED BY), PATIENT, INVERSE
REFERENCE DATE/TIME, and RECORD # is designed to facilitate rapid access to the current users
unsigned notes about a patient.
CROSS-REFERENCE: 8925^ACLEC01^MUMPS
1)= D SACLEC^TIUDD0(.01,X)
2)= D KACLEC^TIUDD01(.01,X)
This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER, PATIENT, INVERSE
REFERENCE DATE/TIME, and RECORD # is useful for finding the uncosigned notes by the current user
for a given patient.
CROSS-REFERENCE: 8925^ACLSB01^MUMPS
1)= D SACLSB^TIUDD0(.01,X)
2)= D KACLSB^TIUDD01(.01,X)
This cross-reference by CLASS, SIGNED BY, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # will
facilitate finding records signed by a given user about the current patient.
CROSS-REFERENCE: 8925^APTLD01^MUMPS
1)= D SAPTLD^TIUDD0(.01,X)
2)= D KAPTLD^TIUDD01(.01,X)
This MUMPS type Multi-field index by PT,TITLE,"LOC;VDT;VTYP",DA is used for optimizing checks for
documents for a particular visit.
RECORD INDEXES: ADIV (#247), AEVT (#1329)
8925,.02 PATIENT 0;2 POINTER TO PATIENT/IHS FILE (#9000001) (audited)
LAST EDITED: OCT 05, 2021
DESCRIPTION:
This field contains a pointer to the patient file.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
CROSS-REFERENCE: 8925^AA^MUMPS
1)= I $P($$DOCTYPE^TIULF(+DA),U)="DOC",$L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) S ^TIU(8925,"AA
",+X,+^TIU(8925,+DA,0),(9999999-$P(+^AUPNVSIT($P(^TIU(8925,+DA,0),U,3),0),".")),+DA)=""
2)= I $L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) K ^TIU(8925,"AA",+X,+^TIU(8925,+DA,0),(9999999-$
P(+^AUPNVSIT($P(^TIU(8925,+DA,0),U,3),0),".")),+DA)
This multi-field, MUMPS-type cross-reference by Patient, Document Type, and Inverse Visit Date
will help to identify documents by patient and time.
CROSS-REFERENCE: 8925^APT^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU
(8925,"APT",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),
DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU
(8925,"APT",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),
DA)
This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT TYPE, STATUS, and INVERSE
ENTRY/DICTATION DATE will facilitate look-ups by patient.
CROSS-REFERENCE: 8925^AE^MUMPS
1)= I $P($$DOCTYPE^TIULF(+DA),U)="DOC",$L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) S ^TIU(8925,"AE
",+X,(9999999-$P(+^AUPNVSIT($P(^TIU(8925,+DA,0),U,3),0),".")),+^TIU(8925,+DA,0),+DA)=""
2)= I $L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) K ^TIU(8925,"AE",+X,(9999999-$P(+^AUPNVSIT($P(^T
IU(8925,+DA,0),U,3),0),".")),+^TIU(8925,+DA,0),+DA)
This multi-field, MUMPS-type Cross-reference by Patient, Inverse Visit Date, and Report Type is to
optimize searching by entity, time, and attribute.
CROSS-REFERENCE: 8925^C
1)= S ^TIU(8925,"C",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"C",$E(X,1,30),DA)
This REGULAR FileMan type cross-reference is used for look-up by patient.
CROSS-REFERENCE: 8925^AV^MUMPS
1)= I $P($$DOCTYPE^TIULF(+DA),U)="DOC",+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^(0)),U,3) S ^TIU(8925,"A
V",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,3),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^(0)),U,3) K ^TIU(8925,"AV",+X,+$P(^TIU(8925,+DA,0),U),+$P
(^TIU(8925,+DA,0),U,3),+DA)
This MUMPS-type, multi-field cross-reference by patient, document type and visit record number will
serve as a candidate key to determine whether a given document exists for a particular patient
visit.
CROSS-REFERENCE: 8925^APTP^MUMPS
1)= I +$$APTP^TIULX(+DA),+$P($G(^TIU(8925,+DA,15)),U) S ^TIU(8925,"APTP",+X,+$P($G(^TIU(8925,+DA,15
)),U),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,15)),U) K ^TIU(8925,"APTP",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)
This MUMPS-type, multi-field cross-reference by Patient and REGULAR Signature Date/Time is used to
maintain the daily print queue for batch printing of documents (currently, just Progress Notes) on
signature.
CROSS-REFERENCE: 8925^ADCPT^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U,4),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^T
IU(8925,"ADCPT",+X,+$P(^TIU(8925,+DA,0),U,4),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13
),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U,4),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^T
IU(8925,"ADCPT",+X,+$P(^TIU(8925,+DA,0),U,4),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13
),U)),DA)
This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT CLASS, STATUS, and INVERSE
REFERENCE DATE facilitates look-ups by PATIENT AND DOCUMENT CLASS (e.g., all SIGNED Violence
Postings for patient John Doe).
CROSS-REFERENCE: 8925^APTCL^MUMPS
1)= I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"APTCL",+X,+$$CLINDOC^TIULC1
(+$P(^TIU(8925,+DA,0),U),+DA),(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
2)= I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"APTCL",+X,+$$CLINDOC^TIULC1
(+$P(^TIU(8925,+DA,0),U),+DA),(9999999-$P(^TIU(8925,+DA,13),U)),DA)
This MUMPS-type, multi-field cross-reference by PATIENT, CLINICAL DOCUMENT CLASS, and INVERSE
REFERENCE DATE facilitates look-ups by patient.
CROSS-REFERENCE: 8925^APTCL38^MUMPS
1)= I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"APTCL",+X,38,(9999999-$P(^T
IU(8925,+DA,13),U)),DA)=""
2)= I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"APTCL",+X,38,(9999999-$P(^T
IU(8925,+DA,13),U)),DA)
This MUMPS-type, multi-field cross-reference by PATIENT, ROOT CLASS, and INVERSE REFERENCE DATE
facilitates look-ups by patient.
CROSS-REFERENCE: 8925^2270^MUMPS
1)= D SACLPT^TIUDD0(.02,X)
2)= D KACLPT^TIUDD01(.02,X)
3)= This x-ref is used to extract lists based on context
This cross-reference permits the rapid extraction of documents which are of the specified document
class, for a the patient(s) selected, and within the specified date range.
CROSS-REFERENCE: 8925^ACLAU^MUMPS
1)= D SACLAU^TIUDD0(.02,X),SACLAU1^TIUDD0(.02,X)
2)= D KACLAU^TIUDD01(.02,X),KACLAU1^TIUDD01(.02,X)
3)= This x-ref is used to extract lists based on context
This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED BY), PATIENT, INVERSE
REFERENCE DATE/TIME, and RECORD # is designed to facilitate rapid access to the current users
unsigned notes about a patient.
CROSS-REFERENCE: 8925^ACLEC^MUMPS
1)= D SACLEC^TIUDD0(.02,X)
2)= D KACLEC^TIUDD01(.02,X)
3)= This x-ref is used to extract lists based on context
This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER, PATIENT, INVERSE
REFERENCE DATE/TIME, and RECORD # is useful for finding the uncosigned notes by the current user
for a given patient.
CROSS-REFERENCE: 8925^ACLSB^MUMPS
1)= D SACLSB^TIUDD0(.02,X)
2)= D KACLSB^TIUDD01(.02,X)
3)= This x-ref is used to extract lists based on context
This cross-reference by CLASS, SIGNED BY, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # will
facilitate finding records signed by a given user about the current patient.
CROSS-REFERENCE: 8925^APTLD02^MUMPS
1)= D SAPTLD^TIUDD0(.02,X)
2)= D KAPTLD^TIUDD01(.02,X)
This MUMPS type Multi-field index by PT,TITLE,"LOC;VDT;VTYP",DA is used for optimizing checks for
documents for a particular visit.
RECORD INDEXES: AEVT (#1329)
8925,.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010)
LAST EDITED: OCT 05, 2021
CROSS-REFERENCE: 8925^AA1^MUMPS
1)= I $P($$DOCTYPE^TIULF(+DA),U)="DOC",$L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,2)>0) S ^TIU(8925,"AA
",$P(^(0),U,2),+$P(^(0),U),(9999999-$P(+$G(^AUPNVSIT(X,0)),".")),DA)=""
2)= I $L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,2)>0) K ^TIU(8925,"AA",$P(^(0),U,2),+$P(^(0),U),(99999
99-$P(+$G(^AUPNVSIT(X,0)),".")),DA)
This multi-field, MUMPS-type cross-reference by patient, document type, and inverse visit date is
optimized for searches by entity, attribute, and time.
CROSS-REFERENCE: 8925^AE1^MUMPS
1)= I $P($$DOCTYPE^TIULF(+DA),U)="DOC",$L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,2)>0) S ^TIU(8925,"AE
",+$P(^TIU(8925,+DA,0),U,2),(9999999-$P(+$G(^AUPNVSIT(+X,0)),".")),+^TIU(8925,+DA,0),+DA)=""
2)= I $L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,2)>0) K ^TIU(8925,"AE",+$P(^TIU(8925,+DA,0),U,2),(9999
999-$P(+$G(^AUPNVSIT(+X,0)),".")),+^TIU(8925,+DA,0),+DA)
This multi-field, MUMPS-type Cross-reference by Patient, Inverse Visit Date, and document type
will optimize searching by entity, time, and attribute.
CROSS-REFERENCE: 8925^AV1^MUMPS
1)= I $P($$DOCTYPE^TIULF(+DA),U)="DOC",+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^(0)),U,2) S ^TIU(8925,"A
V",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U),+X,+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^(0)),U,2) K ^TIU(8925,"AV",+$P(^TIU(8925,+DA,0),U,2),+$P(
^TIU(8925,+DA,0),U),+X,+DA)
This MUMPS-type, multi-field cross-reference by patient, document type, and visit record number
serves as a candidate key to determine whether a given document exists for a particular patient
visit.
CROSS-REFERENCE: 8925^AV10^MUMPS
1)= D:$D(^AUPNVSIT(+X)) ADD^AUPNVSIT
2)= D:$D(^AUPNVSIT(+X)) SUB^AUPNVSIT
This MUMPS-type cross-reference is used to maintain the dependent entry count in the VISIT file.
CROSS-REFERENCE: 8925^AVSIT^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU
(8925,"AVSIT",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)
),DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU
(8925,"AVSIT",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)
),DA)
This MUMPS-type, multi-field cross-reference by VISIT, DOCUMENT TYPE, STATUS, and INVERSE
ENTRY/DICTATION DATE facilitates look-ups by visit.
CROSS-REFERENCE: 8925^V
1)= S ^TIU(8925,"V",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"V",$E(X,1,30),DA)
This REGULAR FileMan Cross-reference by VISIT is used to help identify dependent entries.
CROSS-REFERENCE: ^^TRIGGER^8925^15001
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^TIU(8925,D0,150)):^(150),1:"") S X=$P(Y(1),U,1),X=X
S DIU=X K Y X ^DD(8925,.03,1,7,1.1) X ^DD(8925,.03,1,7,1.4)
1.1)= S X=DIV S X=DIV,X=X S X=X,X=$$IEN2VID^VSIT(X)
1.4)= S DIH=$S($D(^TIU(8925,DIV(0),150)):^(150),1:""),DIV=X S $P(^(150),U,1)=DIV,DIH=8925,DIG=15001
D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^TIU(8925,D0,150)):^(150),1:"") S X=$P(Y(1),U,1),X=X
S DIU=X K Y S X="" X ^DD(8925,.03,1,7,2.4)
2.4)= S DIH=$S($D(^TIU(8925,DIV(0),150)):^(150),1:""),DIV=X S $P(^(150),U,1)=DIV,DIH=8925,DIG=15001
D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= TIU VISIT ID(INTERNAL(VISIT))
DELETE VALUE)= @
FIELD)= VISIT ID
CROSS-REFERENCE: 8925^APTLD03^MUMPS
1)= D SAPTLD^TIUDD0(.03,X)
2)= D KAPTLD^TIUDD01(.03,X)
This MUMPS-type Multifield cross-reference by PT,TITLE,"LOC;VDT;VTYP",DA is used for optimizing
checks for documents for a particular visit.
8925,.04 PARENT DOCUMENT TYPE 0;4 POINTER TO TIU DOCUMENT DEFINITION FILE (#8925.1)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Indicate the PARENT DOCUMENT TYPE to which the current document belongs.
DESCRIPTION: This field points to the immediate parent class or document type to which the current record
belongs. For example, when the current document has the type SOAP - GENERAL NOTE, this field will
point to PROGRESS NOTE, as the parent class to which SOAP Notes belong, whereas, if the current
record is a SUBJECTIVE component, then this field will point to SOAP - GENERAL NOTE as the parent
document type to which the component belongs.
CROSS-REFERENCE: 8925^ADCPT2^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^T
IU(8925,"ADCPT",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13
),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^T
IU(8925,"ADCPT",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13
),U)),DA)
This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT CLASS, STATUS, and INVERSE
REFERENCE DATE facilitates look-ups by PATIENT AND DOCUMENT CLASS (e.g., all SIGNED Violence
Postings for patient John Doe).
8925,.05 STATUS 0;5 POINTER TO TIU STATUS FILE (#8925.6) (audited)
LAST EDITED: JUL 18, 2022
HELP-PROMPT: Enter the status of the document.
DESCRIPTION:
This field is intended to accommodate the status of a given report.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
CROSS-REFERENCE: 8925^ASUP3^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,0)),U,5) S ^T
IU(8925,"ASUP",+$P(^TIU(8925,+DA,12),U,8),+$P(^TIU(8925,+DA,0),U),+X,(9999999-+$P(^TIU(8925,+DA,13)
,U)),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,0)),U,5) K ^T
IU(8925,"ASUP",+$P(^TIU(8925,+DA,12),U,8),+$P(^TIU(8925,+DA,0),U),+X,(9999999-+$P(^TIU(8925,+DA,13)
,U)),+DA)
This MUMPS-type, multi-field cross-reference by (EXPECTED COSIGNER), DOCUMENT TYPE, STATUS, and
INVERSE ENTRY/DICTATION DATE/TIME, will be used for look-ups and queries.
CROSS-REFERENCE: 8925^AAU3^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TI
U(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)
),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TI
U(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)
),+DA)
This MUMPS-type, multi-field cross-reference by AUTHOR/DICTATOR, DOCUMENT TYPE, STATUS, and INVERSE
ENTRY/DICTATION DATE/TIME is used for look-ups and queries.
CROSS-REFERENCE: 8925^APT3^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU
(8925,"APT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),
+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU
(8925,"APT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),
+DA)
This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT TYPE, STATUS, and INVERSE
ENTRY/DICTATION DATE/TIME is used for look-ups and queries.
CROSS-REFERENCE: 8925^ATC3^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TI
U(8925,"ATC",+$P($G(^TIU(8925,+DA,13)),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA
,13)),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TI
U(8925,"ATC",+$P($G(^TIU(8925,+DA,13)),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA
,13)),U)),DA)
This MUMPS-type, multi-field cross-reference by ENTERED BY, DOCUMENT TYPE, STATUS, and INVERSE
ENTRY/DICTATION DATE/TIME is used for look-ups and queries.
CROSS-REFERENCE: 8925^ATS3^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TI
U(8925,"ATS",+$P($G(^TIU(8925,+DA,14)),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA
,13)),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TI
U(8925,"ATS",+$P($G(^TIU(8925,+DA,14)),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA
,13)),U)),DA)
This MUMPS-type, multi-field cross-reference by TREATING SPECIALTY, DOCUMENT TYPE, STATUS, and
INVERSE ENTRY/DICTATION DATE/TIME is used for look-ups and queries.
CROSS-REFERENCE: 8925^ALL3^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"ALL","ANY",+$P(^TIU(892
5,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"ALL","ANY",+$P(^TIU(892
5,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)
This MUMPS-type, multi-field cross-reference by DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION
DATE/TIME is used for queries and look-ups.
CROSS-REFERENCE: 8925^ASUB3^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),$L($P($G(^TIU(8925,+DA,17)),U)),+$P($G(^TIU(8925,+DA,13)),U) D AS
UBS^TIUDD($P($G(^TIU(8925,+DA,17)),U),+$G(^TIU(8925,+DA,0)),+X,(9999999-+$G(^TIU(8925,+DA,13))),DA)
2)= I +$P($G(^TIU(8925,+DA,0)),U),$L($P($G(^TIU(8925,+DA,17)),U)),+$P($G(^TIU(8925,+DA,13)),U) D AS
UBK^TIUDD($P($G(^TIU(8925,+DA,17)),U),+$G(^TIU(8925,+DA,0)),+X,(9999999-+$G(^TIU(8925,+DA,13))),DA)
This MUMPS-type, multi-field cross-reference is used in queries by subject.
CROSS-REFERENCE: 8925^ASVC3^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,13)),U) S ^TI
U(8925,"ASVC",+$P($G(^TIU(8925,+DA,14)),U,4),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+D
A,13)),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,13)),U) K ^TI
U(8925,"ASVC",+$P($G(^TIU(8925,+DA,14)),U,4),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+D
A,13)),U)),DA)
This MUMPS-type, multi-field cross-reference by SERVICE, TYPE, STATUS, and INVERSE ENTRY/DICTATION
DATE/TIME is used look-ups and
CROSS-REFERENCE: 8925^ALOC3^MUMPS
1)= I +$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U) S ^TI
U(8925,"ALOC",+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U),+X,(9999999-$P($G(^TIU(892
5,+DA,13)),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U) K ^TI
U(8925,"ALOC",+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U),+X,(9999999-$P($G(^TIU(892
5,+DA,13)),U)),DA)
This MUMPS-type, multi-field cross-reference is optimized for searching hospital location, document
type, status, and date range.
CROSS-REFERENCE: 8925^APRB3^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$O(^TIU(8925.9,"B",+DA,0)) D APRBS^
TIUDD(+$G(^TIU(8925,+DA,0)),+X,(9999999-+$G(^TIU(8925,+DA,13))),DA)
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$O(^TIU(8925.9,"B",+DA,0)) D APRBK^
TIUDD(+$G(^TIU(8925,+DA,0)),+X,(9999999-+$G(^TIU(8925,+DA,13))),DA)
This MUMPS-type, Multi-field index by PROBLEM, DOCUMENT TYPE, STATUS, and INVERSE DICTATION
DATE/TIME facilitates queries by problem.
CROSS-REFERENCE: 8925^AVSIT3^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,3),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU
(8925,"AVSIT",+$P(^TIU(8925,+DA,0),U,3),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)
),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,3),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU
(8925,"AVSIT",+$P(^TIU(8925,+DA,0),U,3),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)
),+DA)
This MUMPS-type, multi-field cross-reference by VISIT, DOCUMENT TYPE, STATUS, and INVERSE
ENTRY/DICTATION DATE facilitates look-ups by visit.
CROSS-REFERENCE: 8925^ADCPT3^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,4) S ^T
IU(8925,"ADCPT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U,4),+X,(9999999-$P(^TIU(8925,+DA,13
),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,4) K ^T
IU(8925,"ADCPT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U,4),+X,(9999999-$P(^TIU(8925,+DA,13
),U)),DA)
This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT CLASS, STATUS, and INVERSE
REFERENCE DATE facilitates look-ups by PATIENT AND DOCUMENT CLASS (e.g., all SIGNED Violence
Postings for patient John Doe).
CROSS-REFERENCE: 8925^ACLPT05^MUMPS
1)= D SACLPT^TIUDD0(.05,X)
2)= D KACLPT^TIUDD01(.05,X)
This multi-field M-type cross-reference on CLASS, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD
# supports rapid queries by patient. The global set looks like
^TIU(8925,"ACLPT",,,,)=""
The STATUS field is cross-referenced to catch cases where the status is not updated until after the
SIGNATURE DATE/TIME is edited. Generally, documents are added to the ACLPT cross-reference when
they are first signed, via the SIGNATURE DATE/TIME field. However, they are added only if their
status is already signed or higher. Since Sign on Chart code does not update status until AFTER
editing SIGNATURE DATE/TIME, SOC documents are omitted from the cross-reference. Adding this cross-
reference to the status field corrects this problem.
CROSS-REFERENCE: 8925^ACLEC06^MUMPS
1)= D SACLEC^TIUDD0(.05,X)
2)= D KACLEC^TIUDD01(.05,X)
This multi-field, MUMPS-type cross reference on CLASS, EXPECTED COSIGNER, PATIENT, INVERSE
REFERENCE DATE/TIME, and RECORD # is useful for finding the uncosigned notes by the current user
for a given patient.
CROSS-REFERENCE: 8925^ACLAU05^MUMPS
1)= D SACLAU^TIUDD0(.05,X),SACLAU1^TIUDD0(.05,X)
2)= D KACLAU^TIUDD01(.05,X),KACLAU1^TIUDD01(.05,X)
This multi-field, MUMPS-type cross reference on CLASS, AUTHOR (or ENTERED BY), PATIENT, INVERSE
REFERENCE DATE/TIME, and RECORD # is designed to faciliate rapid access to the current users
unsigned notes about a patient.
RECORD INDEXES: ADIV (#247), AEVT (#1329)
8925,.06 PARENT 0;6 POINTER TO TIU DOCUMENT FILE (#8925)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Select the original report
DESCRIPTION: In the event that the current report is an addendum or replacement, or is a component of a report,
this field points to the original report.
CROSS-REFERENCE: 8925^DAD
1)= S ^TIU(8925,"DAD",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"DAD",$E(X,1,30),DA)
Cross-reference on parent to help find addenda.
RECORD INDEXES: AEVT (#1329)
8925,.07 EPISODE BEGIN DATE/TIME 0;7 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter the admission date (time is optional).
DESCRIPTION: This is the date/time at which the treatment episode associated with this document was initiated
(e.g., Amission date/time for a discharge summary, Visit date/time for a clinic note, Transfer
date/time for an interim summary). Time is optional.
CROSS-REFERENCE: 8925^APTLD07^MUMPS
1)= D SAPTLD^TIUDD0(.07,X)
2)= D KAPTLD^TIUDD01(.07,X)
This MUMPS type Multi-field index by PT,TITLE,"LOC;VDT;VTYP",DA is used for optimizing checks for
documents for a particular visit.
RECORD INDEXES: AEVT (#1329)
8925,.08 EPISODE END DATE/TIME 0;8 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter discharge date (time is optional).
DESCRIPTION: This is the ending date/time for the treatment episode associated with this document (e.g., . Time
is optional.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AEVT (#1329)
8925,.09 URGENCY 0;9 SET
'P' FOR priority;
'R' FOR routine;
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter urgency.
DESCRIPTION:
This is the urgency with which the report should be completed.
SCREEN: S X=$$URGENCY^TIULS($G(X)),DIC("S")="I 1"
EXPLANATION: STAT is equivalent to priority.
8925,.1 LINE COUNT 0;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1)!'(X?1.8N) X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Answer must be 1-8 characters in length.
DESCRIPTION: This is the number of characters in the document (blank lines excluded), divided by the CHARACTERS
PER LINE parameter defined by your site.
8925,.11 CREDIT STOP CODE ON COMPLETION 0;11 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Indicate whether the stop-code for a new visit should be credited.
DESCRIPTION: This boolean field indicates whether the stop code associated with a new visit should be credited
when the note is completed.
8925,.12 MARK DISCH DT FOR CORRECTION 0;12 SET
'1' FOR YES;
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Indicate whether discharge date must be corrected by the daemon
DESCRIPTION: This boolean field identfies those discharge summaries which were filed prior to actual discharge
of the patient for the nightly background process to back-fill with corrected discharge dates.
CROSS-REFERENCE: 8925^FIX
1)= S ^TIU(8925,"FIX",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"FIX",$E(X,1,30),DA)
This regular FileMan Cross-reference is used by the nightly daemon to identify those records which
require evaluation/correction of their discharge dates...
8925,.13 VISIT TYPE 0;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1)!'(X?1U.E) X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This field contains the visit type identification and is entered by the program during processing.
DESCRIPTION: This field is used to identify the type of visit information related to the current document. The
value is determined during processing and is entered by the program. It is used in the generation
of a cross-reference to identify available documents for specified visits.
CROSS-REFERENCE: 8925^APTLD13^MUMPS
1)= D SAPTLD^TIUDD0(.13,X)
2)= D KAPTLD^TIUDD01(.13,X)
This MUMPS type Multi-field index by PT,TITLE,"LOC;VDT;VTYP",DA is used for optimizing checks for
documents for a particular visit.
8925,2 REPORT TEXT TEXT;0 WORD-PROCESSING #8925.02 (AUDITED)
DESCRIPTION:
This is a word processing field that contains the report text.
LAST EDITED: OCT 05, 2021
AUDIT: EDITED OR DELETED
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
8925,3 EDIT TEXT BUFFER TEMP;0 WORD-PROCESSING #8925.03 (NOWRAP) (AUDITED)
DESCRIPTION: This field provides a temporary holding place for the body of a report to prevent inadvertant
record deletion or corruption in a manner independent of the user's preferred editor.
LAST EDITED: OCT 05, 2021
8925,1201 ENTRY DATE/TIME 12;1 DATE (audited)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Date/time of entry into database.
DESCRIPTION:
This is the date/time at which the document was originally entered into the database.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
CROSS-REFERENCE: 8925^F
1)= S ^TIU(8925,"F",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"F",$E(X,1,30),DA)
This regular FileMan Cross-reference on Entry Date/time supports the Nightly background task, by
helping to identify the subset of records which is overdue for either signature or purging.
RECORD INDEXES: VBC (#557)
8925,1202 AUTHOR/DICTATOR 12;2 POINTER TO NEW PERSON FILE (#200) (audited)
AUTHOR OF NOTE
INPUT TRANSFORM: S DIC("S")="I '+$$ISTERM^USRLM(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter the author or dictating provider.
DESCRIPTION:
This is the person who composed or dictated the document.
SCREEN: S DIC("S")="I '+$$ISTERM^USRLM(+Y)"
EXPLANATION: Terminated users may NOT be selected.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
CROSS-REFERENCE: 8925^CA
1)= S ^TIU(8925,"CA",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"CA",$E(X,1,30),DA)
This REGULAR, whole-file cross-reference by Author/Dictator will facilitate both look-ups and
sorting by author.
CROSS-REFERENCE: 8925^AAU^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU
(8925,"AAU",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),
+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU
(8925,"AAU",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),
+DA)
This MUMPS-type, multi-field cross-reference by author, document type, status, and inverse
dictation date/time is intended to facilitate look-up by author for the review process.
CROSS-REFERENCE: 8925^AAUP^MUMPS
1)= I +$$AAUP^TIULX(+DA),+$P($G(^TIU(8925,+DA,15)),U) S ^TIU(8925,"AAUP",+X,+$P($G(^TIU(8925,+DA,15
)),U),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,15)),U) K ^TIU(8925,"AAUP",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)
This MUMPS-type, multi-field cross-reference by Author and REGULAR Signature Date/Time is used to
maintain the daily print queue for batch printing of documents (currently, just Progress Notes) on
signature.
CROSS-REFERENCE: 8925^ACLAU03^MUMPS
1)= D SACLAU^TIUDD0(1202,X)
2)= D KACLAU^TIUDD01(1202,X)
This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED BY), PATIENT, INVERSE
REFERENCE DATE/TIME, and RECORD # is designed to facilitate rapid access to the current users
unsigned notes about a patient.
CROSS-REFERENCE: ^^TRIGGER^8925^1404
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '+$$ISDS^TIULX(+$G(^TIU(8925,+DA,0))) I X S X=DIV S Y(
1)=$S($D(^TIU(8925,D0,14)):^(14),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(8925,1202,1,5,1.1) X
^DD(8925,1202,1,5,1.4)
1.1)= S X=DIV S X=+$$PROVSVC^TIULV(+$P($G(^TIU(8925,DA,12)),U,2))
1.4)= S DIH=$S($D(^TIU(8925,DIV(0),14)):^(14),1:""),DIV=X S $P(^(14),U,4)=DIV,DIH=8925,DIG=1404 D ^
DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= I '+$$ISDS^TIULX(+$G(^TIU(8925,+DA,0)))
CREATE VALUE)= S X=+$$PROVSVC^TIULV(+$P($G(^TIU(8925,DA,12)),U,2))
DELETE VALUE)= NO EFFECT
FIELD)= SERVICE
RECORD INDEXES: AADT (#1571), AEVT (#1329)
8925,1203 CLINIC 12;3 POINTER TO CLINIC STOP FILE (#40.7)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter the stop code for the clinic.
DESCRIPTION: This is the stop code to which the document is to be credited (e.g., if the document is a progress
note documenting an encounter which took place in the Admitting/Screening Clinic, then select the
corresponding stop code, etc.).
8925,1204 EXPECTED SIGNER 12;4 POINTER TO NEW PERSON FILE (#200) (audited)
OUTPUT TRANSFORM: S:+Y>0 Y=$S($D(TIUSIG)&$L($P($G(^VA(200,+Y,20)),U,2)):$P(^(20),U,2),1:$P(^VA(200,+Y,0),U))
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter the person responsible for signing the document.
DESCRIPTION: This is the person who is expected to enter the first-line signature for the document. Ordinarily,
this would be the author. One case in which this would differ would be in the case of a Discharge
Summary, when the author's signature is NOT required. Then, the attending physician would be the
expected signer.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
8925,1205 HOSPITAL LOCATION 12;5 POINTER TO HOSPITAL LOCATION FILE (#44)
PATIENT LOCATION
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter the location associated with the document.
DESCRIPTION:
This is the location (WARD or CLINIC) associated with the document.
CROSS-REFERENCE: 8925^ALOC^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU
(8925,"ALOC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,
+DA,13)),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU
(8925,"ALOC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,
+DA,13)),U)),DA)
This MUMPS-type, multi-field cross-reference is optimized for searching hospital location, document
type, status, and date range.
CROSS-REFERENCE: 8925^ALOCP^MUMPS
1)= I +$$ALOCP^TIULX(+DA),+$P($G(^TIU(8925,+DA,15)),U) S ^TIU(8925,"ALOCP",+X,+$P($G(^TIU(8925,+DA,
15)),U),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,15)),U) K ^TIU(8925,"ALOCP",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)
This MUMPS-type, multi-field cross-reference by Hospital Location and REGULAR Signature Date/Time
is used to maintain the daily print queue for batch printing of documents (currently, just Progress
Notes) on signature.
RECORD INDEXES: AEVT (#1329)
8925,1206 SERVICE CREDIT STOP 12;6 POINTER TO CLINIC STOP FILE (#40.7)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter the name of the STOP CODE for the Secondary Visit.
DESCRIPTION: This is the attending physician of record, who is ultimately responsible for the care of the
patient, and the accurate documentation of the care episode.
8925,1207 SECONDARY VISIT 12;7 POINTER TO VISIT FILE (#9000010)
LAST EDITED: OCT 05, 2021
CROSS-REFERENCE: 8925^AV1207^MUMPS
1)= D:$D(^AUPNVSIT(+X)) ADD^AUPNVSIT
2)= D:$D(^AUPNVSIT(+X)) SUB^AUPNVSIT
This MUMPS-type cross-reference is used to maintain the dependent entry count in the VISIT file for
the SECONDARY VISIT.
CROSS-REFERENCE: 8925^VS
1)= S ^TIU(8925,"VS",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"VS",$E(X,1,30),DA)
This is the standard cross-reference set for the Visit Tracking application. It allows that
application to identify entries that point to the VISIT file.
FIELD INDEX: VS (#583) REGULAR IR LOOKUP & SORTING
Short Descr: REGULAR XREF ON FIELD 1207
Description: THIS XREF CONTAINS AS A SUBSCRIPT THE VALUE OF FIELD 1207 OF FILE #8925
Set Logic: S ^TIU(8925,"VS",X,DA)=""
Kill Logic: K ^TIU(8925,"VS",X,DA)
Whole Kill: K ^TIU(8925,"VS")
X(1): SECONDARY VISIT (8925,1207) (Subscr 1) (forwards)
8925,1208 EXPECTED COSIGNER 12;8 POINTER TO NEW PERSON FILE (#200) (audited)
INPUT TRANSFORM: S DIC("S")="I +$G(DA),+$$SCRCSNR^TIULA3(+DA,+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 13, 2022
HELP-PROMPT: Enter the person who is expected to cosign the document.
SCREEN: S DIC("S")="I +$G(DA),+$$SCRCSNR^TIULA3(+DA,+Y)"
EXPLANATION: You may not select self, author, or others who require cosignature.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
CROSS-REFERENCE: 8925^CS
1)= S ^TIU(8925,"CS",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"CS",$E(X,1,30),DA)
This REGULAR, FileMan type cross-reference by supervisor (expected cosigner) will be used to
optimize FM Sorts and searches.
CROSS-REFERENCE: 8925^ASUP^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU
(8925,"ASUP",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13))
,U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU
(8925,"ASUP",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13))
,U)),DA)
This MUMPS-type, multi-field cross-reference by (EXPECTED COSIGNER), DOCUMENT TYPE, STATUS, and
INVERSE ENTRY/DICTATION DATE/TIME will be used for look-ups and queries.
CROSS-REFERENCE: 8925^ACLEC03^MUMPS
1)= D SACLEC^TIUDD0(1208,X)
2)= D KACLEC^TIUDD01(1208,X)
This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER, PATIENT, INVERSE
REFERENCE DATE/TIME, and RECORD # is useful for finding the uncosigned notes by the current user
for a given patient.
8925,1209 ATTENDING PHYSICIAN 12;9 POINTER TO NEW PERSON FILE (#200) (audited)
INPUT TRANSFORM: S DIC("S")="I +$G(DA),+$$SCRATT^TIULA3(+DA,+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter the name of the Attending Physician.
SCREEN: S DIC("S")="I +$G(DA),+$$SCRATT^TIULA3(+DA,+Y)"
EXPLANATION: Discharge Summary Attendings may not be terminated, must be in USR Class PROVIDER, and may not requ
ire cosignature. Other Attendings must be active providers.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8925,1210 ORDER NUMBER 12;10 POINTER TO ORDER FILE (#100)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Indicate the Order with which this document is associated.
DESCRIPTION:
This is the Order which was acted on to produce the result reported in the current document.
8925,1211 VISIT LOCATION 12;11 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter the Hospital Location at which the visit occurred.
DESCRIPTION: This is the location at which the visit/admission occurred. As distinct from the HOSPITAL LOCATION
field, which represents the location at the time the document was written, this is the location for
the visit/admission with which the note is associated.
CROSS-REFERENCE: 8925^APTLD1211^MUMPS
1)= D SAPTLD^TIUDD0(1211,X)
2)= D KAPTLD^TIUDD01(1211,X)
This MUMPS-type, Multi-field index by PT,TITLE,"VLOC;VDT;VTYP",DA is used to optimize the check for
documents of a given title for a particular visit.
8925,1212 DIVISION 12;12 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter the institution associated with the document.
DESCRIPTION: This field contains the institution associated with the document. It is extracted from the
document's hospital location if known; otherwise it is extracted from the user's log-on division.
RECORD INDEXES: ADIV (#247)
8925,1301 REFERENCE DATE 13;1 DATE (audited)
DATE/TIME OF NOTE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This is the date (and time) by which the document will be referenced.
DESCRIPTION: This is the Date (and time) by which the clinician will reference the document. For Progress
Notes, this will likely be the date of the provider's encounter with the patient. For Discharge
Summaries, it will correspond to the Discharge Date of the Admission referenced in the document.
(If there is no Discharge Date when dictated, it will correspond to the dictation date of the
record instead.) In all cases, this is the date by which the document will be referenced and
sorted.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
CROSS-REFERENCE: 8925^AAU1^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^T
IU(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999
-X),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^T
IU(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999
-X),+DA)
This MUMPS-type, multi-field cross-reference is used for look-ups by author, document type, status,
and date range.
CROSS-REFERENCE: 8925^ASUP1^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,0)),U,5) S ^T
IU(8925,"ASUP",+$P(^TIU(8925,+DA,12),U,8),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(999999
9-X),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,0)),U,5) K ^T
IU(8925,"ASUP",+$P(^TIU(8925,+DA,12),U,8),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(999999
9-X),+DA)
This MUMPS-type, multi-field cross-reference by EXPECTED COSIGNER), DOCUMENT TYPE, STATUS, and
INVERSE ENTRY/DICTATION DATE/TIME will be used for look-ups and queries.
CROSS-REFERENCE: 8925^APT1^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TI
U(8925,"APT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X
),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TI
U(8925,"APT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X
),+DA)
This MUMPS-type, multi-field cross-reference is used for look-ups by patient, document type,
status, and date range.
CROSS-REFERENCE: 8925^ATS1^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^T
IU(8925,"ATS",+$P(^TIU(8925,+DA,14),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999
-X),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^T
IU(8925,"ATS",+$P(^TIU(8925,+DA,14),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999
-X),+DA)
This MUMPS-type, multi-field cross-reference is used for look-ups by Treating Specialty, document
type, status, and date range.
CROSS-REFERENCE: 8925^ATC1^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^T
IU(8925,"ATC",+$P(^TIU(8925,+DA,13),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999
-X),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^T
IU(8925,"ATC",+$P(^TIU(8925,+DA,13),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999
-X),+DA)
This MUMPS-type, multi-field cross-reference is used for look-ups by Entry person, document type,
status, and date range.
CROSS-REFERENCE: 8925^ALL1^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ALL","ANY",+$P(^TIU(89
25,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ALL","ANY",+$P(^TIU(89
25,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
This MUMPS-type, multi-field cross-reference is used for look-ups by document type and date range.
CROSS-REFERENCE: 8925^ASUB1^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),$L($P($G(^TIU(8925,+DA,17)),U)) D A
SUBS^TIUDD($P($G(^TIU(8925,+DA,17)),U),+$G(^TIU(8925,+DA,0)),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999
-+X),DA)
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),$L($P($G(^TIU(8925,+DA,17)),U)) D A
SUBK^TIUDD($P($G(^TIU(8925,+DA,17)),U),+$G(^TIU(8925,+DA,0)),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999
-+X),DA)
This MULTI-fields, MUMPS-type cross-reference is used for queries by subject.
CROSS-REFERENCE: 8925^ASVC1^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,0)),U,5) S ^T
IU(8925,"ASVC",+$P(^TIU(8925,+DA,14),U,4),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(999999
9-X),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,0)),U,5) K ^T
IU(8925,"ASVC",+$P(^TIU(8925,+DA,14),U,4),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(999999
9-X),+DA)
This MUMPS-type, multi-field cross-reference is used for look-ups SERVICE, document type, status,
and date
CROSS-REFERENCE: 8925^APRB1^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$O(^TIU(8925.9,"B",+DA,0)) D APRBS
^TIUDD(+$G(^TIU(8925,+DA,0)),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-+X),DA)
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$O(^TIU(8925.9,"B",+DA,0)) D APRBK
^TIUDD(+$G(^TIU(8925,+DA,0)),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-+X),DA)
This MUMPS-type, multi-field cross-reference by Problem, Document type, Status, and Inverse
Reference Date/time is used to facilitate query by problem.
CROSS-REFERENCE: 8925^AVSIT1^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,3),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TI
U(8925,"AVSIT",+$P(^TIU(8925,+DA,0),U,3),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999
-X),DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,3),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TI
U(8925,"AVSIT",+$P(^TIU(8925,+DA,0),U,3),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999
-X),DA)
This MUMPS-type, multi-field cross-reference by VISIT, DOCUMENT TYPE, STATUS, and INVERSE
ENTRY/DICTATION DATE facilitates look-ups by visit.
CROSS-REFERENCE: 8925^ADCPT1^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U,4),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^
TIU(8925,"ADCPT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U,4),+$P(^TIU(8925,+DA,0),U,5),(999
9999-X),DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U,4),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^
TIU(8925,"ADCPT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U,4),+$P(^TIU(8925,+DA,0),U,5),(999
9999-X),DA)
This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT CLASS, STATUS, and INVERSE
REFERENCE DATE facilitates look-ups by PATIENT AND DOCUMENT CLASS (e.g., all SIGNED Violence
Postings for patient John Doe).
CROSS-REFERENCE: 8925^D
1)= S ^TIU(8925,"D",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"D",$E(X,1,30),DA)
This REGULAR FileMan Cross-reference by Reference Date/time is used for both look-ups and sorts.
CROSS-REFERENCE: 8925^APTCL1^MUMPS
1)= I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,0)),U,2) S ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,0
),U,2),+$$CLINDOC^TIULC1(+$P(^TIU(8925,+DA,0),U),+DA),(9999999-X),DA)=""
2)= I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,0)),U,2) K ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,0
),U,2),+$$CLINDOC^TIULC1(+$P(^TIU(8925,+DA,0),U),+DA),(9999999-X),DA)
This MUMPS-type, multi-field cross-reference by PATIENT, CLINICAL DOCUMENT CLASS, and INVERSE
REFERENCE DATE facilitates look-ups by patient.
CROSS-REFERENCE: 8925^APTCL381^MUMPS
1)= I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,0)),U,2) S ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,0
),U,2),38,(9999999-X),DA)=""
2)= I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,0)),U,2) K ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,0
),U,2),38,(9999999-X),DA)
This MUMPS-type, multi-field cross-reference by PATIENT, ROOT CLASS, and INVERSE REFERENCE DATE
facilitates look-ups by patient.
CROSS-REFERENCE: 8925^ALOC1^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U,5) S ^T
IU(8925,"ALOC",+$P(^TIU(8925,+DA,12),U,5),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(999999
9-X),+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U,5) K ^T
IU(8925,"ALOC",+$P(^TIU(8925,+DA,12),U,5),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(999999
9-X),+DA)
This MUMPS-type, multi-field cross-reference is used for look-ups LOCATION, document type, status,
and date
CROSS-REFERENCE: 8925^ACLPT03^MUMPS
1)= D SACLPT^TIUDD0(1301,X)
2)= D KACLPT^TIUDD01(1301,X)
This multi-field, MUMPS-type cross-reference on CLASS, PATIENT, INVERSE REFERENCE DATE/TIME, and
RECORD # is designed to support rapid queries by patient.
CROSS-REFERENCE: 8925^ACLAU01^MUMPS
1)= D SACLAU^TIUDD0(1301,X),SACLAU1^TIUDD0(1301,X)
2)= D KACLAU^TIUDD01(1301,X),KACLAU1^TIUDD01(1301,X)
This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED BY), PATIENT, INVERSE
REFERENCE DATE/TIME, and RECORD # is designed to facilitate rapid access to the current users
unsigned notes about a patient.
CROSS-REFERENCE: 8925^ACLEC02^MUMPS
1)= D SACLEC^TIUDD0(1301,X)
2)= D KACLEC^TIUDD01(1301,X)
This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER, PATIENT, INVERSE
REFERENCE DATE/TIME, and RECORD # is useful for finding the uncosigned notes by the current user
for a given patient.
CROSS-REFERENCE: 8925^ACLSB02^MUMPS
1)= D SACLSB^TIUDD0(1301,X)
2)= D KACLSB^TIUDD01(1301,X)
This cross-reference by CLASS, SIGNED BY, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # will
facilitate finding records signed by a given user about the current patient.
CROSS-REFERENCE: 8925^H
1)= S ^TIU(8925,"H",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"H",$E(X,1,30),DA)
This index is used for quick lookup by Reference Date.
RECORD INDEXES: AADT (#1571), ADIV (#247), AEVT (#1329)
8925,1302 ENTERED BY 13;2 POINTER TO NEW PERSON FILE (#200) (audited)
OUTPUT TRANSFORM: S Y=$S(+$G(TIUINI):$$LOWER^TIULS($P($G(^VA(200,+Y(0),0)),U,2)),1:$P($G(^VA(200,+Y(0),0)),U,2))
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This is the person who entered the document into the computer.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
CROSS-REFERENCE: 8925^TC
1)= S ^TIU(8925,"TC",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"TC",$E(X,1,30),DA)
This REGULAR, FileMan type cross-reference is used for sorting by the person who entered the
original document.
CROSS-REFERENCE: 8925^ATC^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU
(8925,"ATC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,1
3)),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU
(8925,"ATC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,1
3)),U)),DA)
This MUMPS-type, multi-field cross-reference is used for searching by entry person, document type,
status, and date range.
CROSS-REFERENCE: 8925^ACLAU103^MUMPS
1)= D SACLAU1^TIUDD0(1302,X)
2)= D KACLAU1^TIUDD01(1302,X)
This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED BY), PATIENT, INVERSE
REFERENCE DATE/TIME, and RECORD # is designed to facilitate rapid access to the current users
unsigned notes about a patient.
RECORD INDEXES: AADT (#1571)
8925,1303 CAPTURE METHOD 13;3 SET
'D' FOR direct;
'U' FOR upload;
'C' FOR converted;
'R' FOR remote procedure;
'O' FOR copy;
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This is the method used to capture the document on-line.
8925,1304 RELEASE DATE/TIME 13;4 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This is date/time at which the document was released for public view.
CROSS-REFERENCE: 8925^E
1)= S ^TIU(8925,"E",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"E",$E(X,1,30),DA)
This Regular, FileMan Cross-reference on Release Date/Time is used for sorting, and for the
Released/unverified Report for the Verifying MRT.
8925,1305 VERIFICATION DATE/TIME 13;5 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This is the date/time at which the document was verified (if required).
8925,1306 VERIFIED BY 13;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This is the person who verified the document.
8925,1307 DICTATION DATE 13;7 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter the date on which the document was dictated.
DESCRIPTION: This is the date (and time) on which the document was dictated by its author. In the event that a
document originates by dictation, we recommend that the REFERENCE DATE for the document be
defaulted to dictation date, as the author will be able to identify the document by the date on
which s/he dictated it.
8925,1308 SUSPENSE DATE/TIME 13;8 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter the date (time optional) on which the document will be recinded.
DESCRIPTION: This is the date (and time) on which the document will be removed from public view. It is
currently used only for Patient Postings, although it may be generalized for use with other
document types, if appropriate.
8925,1401 PATIENT MOVEMENT RECORD 14;1 POINTER TO PATIENT MOVEMENT FILE (#405)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This is the inpatient movement with which the document is associated.
8925,1402 TREATING SPECIALTY 14;2 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This is the treating specialty associated with the document.
CROSS-REFERENCE: 8925^TS
1)= S ^TIU(8925,"TS",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"TS",$E(X,1,30),DA)
This REGULAR, FileMan type cross-reference is used to support both look-ups and sorts by Treating
Specialty.
CROSS-REFERENCE: 8925^ATS^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU
(8925,"ATS",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+
DA,13)),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU
(8925,"ATS",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+
DA,13)),U)),DA)
This MUMPS-type, multi-field cross-reference is optimized for searching by treating specialty,
document type, status, and date range.
8925,1403 IRT RECORD 14;3 POINTER TO INCOMPLETE RECORDS FILE (#393)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This is the Incomplete Records Tracking Entry for the document.
8925,1404 SERVICE 14;4 POINTER TO SERVICE/SECTION FILE (#49)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This is the service associated with the document.
NOTES: TRIGGERED by the AUTHOR/DICTATOR field of the TIU DOCUMENT File
CROSS-REFERENCE: 8925^ASVC^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU
(8925,"ASVC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,
+DA,13)),U)),DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU
(8925,"ASVC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,
+DA,13)),U)),DA)
This MUMPS-type, multi-field cross-reference is optimized for searching treating specialty,
document type, status, and date
CROSS-REFERENCE: 8925^SVC
1)= S ^TIU(8925,"SVC",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"SVC",$E(X,1,30),DA)
This REGULAR FileMan Cross-reference by Service will facilitate look-ups, sorts, and reports.
8925,1405 REQUESTING PACKAGE REFERENCE 14;5 VARIABLE POINTER
CONSULT NUMBER
FILE ORDER PREFIX LAYGO MESSAGE
123 1 C n Select CONSULTATION REQUEST
130 2 S n Select SURGICAL CASE
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Indicate the corresponding record in the requesting package.
DESCRIPTION: This field allows a linkage to be maintained between the TIU Document and the DHCP Package for
which it was generated.
CROSS-REFERENCE: 8925^G
1)= S ^TIU(8925,"G",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"G",$E(X,1,30),DA)
This REGULAR FM cross-reference by REQUESTING PACKAGE REFERENCE is used to avoid multiple documents
per request, and for look-ups.
RECORD INDEXES: AEVT (#1329)
8925,1406 RETRACTED ORIGINAL 14;6 POINTER TO TIU DOCUMENT FILE (#8925) (audited)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Select the document that was retracted in error
DESCRIPTION: This self-refering pointer identifies the original document which was retracted in error to produce
this record.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
8925,1407 PRF FLAG ACTION ; COMPUTED
LINKED PATIENT RECORD FLAG ACTION
MUMPS CODE: S X=$S($L($T(CFLDACT^TIUPRFL)):$$CFLDACT^TIUPRFL(D0),1:"?")
ALGORITHM: S X=$S($L($T(CFLDACT^TIUPRFL)):$$CFLDACT^TIUPRFL(D0),1:"?")
LAST EDITED: APR 19, 2005
DESCRIPTION: PRF FLAG ACTION applies only to Patient Record Flag (PRF) notes. When a new flag is assigned to a
given patient, or, after review, another action such as CONTINUE is taken on an existing flag
assignment, a note must be written to document the clinical reasons for the action. Upon entry,
the note is linked to the action it documents. Field PRF FLAG ACTION refers to this linked action.
The field contains the Date of the Action followed by the Name of the Action. Example: 3/3/05
CONTINUE
If the PRF note is not linked to a flag action or the linked action date or name cannot be found,
the field has value "?". If the note is not a PRF note (a note with a title under Document Class
PATIENT RECORD FLAG CAT I or PATIENT RECORD FLAG CAT II), the field has value NA for
non-applicable.
Technical Note: Flag Actions and their linked note entry numbers are stored in the PRF ASSIGNMENT
HISTORY FILE (#26.14). The Date and Action are attributes of the Assignment History entry the note
is linked to.
8925,1501 SIGNATURE DATE/TIME 15;1 DATE (audited)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This is the date/time at which the document was signed by the author.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
CROSS-REFERENCE: 8925^ALOCP1^MUMPS
1)= I +$$ALOCP^TIULX(+DA),+$P($G(^TIU(8925,+DA,12)),U,5) S ^TIU(8925,"ALOCP",+$P($G(^TIU(8925,+DA,1
2)),U,5),+X,+DA)=""
2)= I +$P($G(^TIU(8925,+DA,12)),U,5) K ^TIU(8925,"ALOCP",+$P($G(^TIU(8925,+DA,12)),U,5),+X,+DA)
This MUMPS-type, multi-field cross-reference by Hospital Location and REGULAR Signature Date/Time
is used to maintain the daily print queue for batch printing of documents (currently, just Progress
Notes) on signature.
CROSS-REFERENCE: 8925^APTP1^MUMPS
1)= I +$$APTP^TIULX(+DA),+$P($G(^TIU(8925,+DA,0)),U,2) S ^TIU(8925,"APTP",+$P($G(^TIU(8925,+DA,0)),
U,2),+X,+DA)=""
2)= I +$P($G(^TIU(8925,+DA,0)),U,2) K ^TIU(8925,"APTP",+$P($G(^TIU(8925,+DA,0)),U,2),+X,+DA)
This MUMPS-type, multi-field cross-reference by Patient and REGULAR Signature Date/Time is used to
maintain the daily print queue for batch printing of documents (currently, just Progress Notes) on
signature.
CROSS-REFERENCE: 8925^AAUP1^MUMPS
1)= I +$$AAUP^TIULX(+DA),+$P($G(^TIU(8925,+DA,12)),U,2) S ^TIU(8925,"AAUP",+$P($G(^TIU(8925,+DA,12)
),U,2),+X,+DA)=""
2)= I +$P($G(^TIU(8925,+DA,12)),U,2) K ^TIU(8925,"AAUP",+$P($G(^TIU(8925,+DA,12)),U,2),+X,+DA)
This MUMPS-type, multi-field cross-reference by Author and REGULAR Signature Date/Time is used to
maintain the daily print queue for batch printing of documents (currently, just Progress Notes) on
signature.
CROSS-REFERENCE: 8925^ACLPT02^MUMPS
1)= D SACLPT^TIUDD0(1501,X)
2)= D KACLPT^TIUDD01(1501,X)
This multi-field, MUMPS-type cross-reference on CLASS, PATIENT, INVERSE REFERENCE DATE/TIME, and
RECORD # is designed to support rapid queries by patient.
CROSS-REFERENCE: 8925^ACLEC04^MUMPS
1)= D SACLEC^TIUDD0(1501,X)
2)= D KACLEC^TIUDD01(1501,X)
This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER, PATIENT, INVERSE
REFERENCE DATE/TIME, and RECORD # is useful for finding the uncosigned notes by the current user
for a given patient.
CROSS-REFERENCE: 8925^ACLAU04^MUMPS
1)= D KACLAU^TIUDD01(1501,X),KACLAU1^TIUDD01(1501,X)
2)= D SACLAU^TIUDD0(1501,X),SACLAU1^TIUDD0(1501,X)
This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED BY), PATIENT, INVERSE
REFERENCE DATE/TIME, and RECORD # is designed to facilitate rapid access to the current users
unsigned notes about a patient.
8925,1502 SIGNED BY 15;2 POINTER TO NEW PERSON FILE (#200) (audited)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This is the person who signed the document.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
CROSS-REFERENCE: 8925^ACLSB3^MUMPS
1)= D SACLSB^TIUDD0(1502,X)
2)= D KACLSB^TIUDD01(1502,X)
This cross-reference by CLASS, SIGNED BY, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # will
facilitate finding records signed by a given user about the current patient.
8925,1503 SIGNATURE BLOCK NAME 15;3 FREE TEXT (audited)
INPUT TRANSFORM: S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC("^TIU(8925,"_+DA_",""TEXT"")")) K:$L(X)>60!($L(X)<3) X
OUTPUT TRANSFORM: S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")")
)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Answer must be 3-30 characters in length.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8925,1504 SIGNATURE BLOCK TITLE 15;4 FREE TEXT (audited)
INPUT TRANSFORM: S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC("^TIU(8925,"_+DA_",""TEXT"")")) K:$L(X)>60!($L(X)<2) X
OUTPUT TRANSFORM: S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")")
)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Answer must be 2-60 characters in length.
DESCRIPTION:
This is the encrypted signature block title of the person who signed the document.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8925,1505 SIGNATURE MODE 15;5 SET
'E' FOR electronic;
'C' FOR chart;
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Please indicate the mode by which the signature was obtained.
DESCRIPTION:
This is the mode by which the signature was obtained (i.e., either electronic or chart).
8925,1506 COSIGNATURE NEEDED 15;6 SET (audited)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Please indicate whether a cosignature is needed.
DESCRIPTION:
This boolean flag indicates to the system whether or not a cosignature is needed.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
8925,1507 COSIGNATURE DATE/TIME 15;7 DATE (audited)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: The date/time at which cosignature was obtained will be automatically saved by the system.
DESCRIPTION:
This is the date/time at which cosignature was obtained.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
CROSS-REFERENCE: 8925^ACLEC05^MUMPS
1)= D KACLEC^TIUDD01(1507,X)
2)= D SACLEC^TIUDD0(1507,X)
This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER, PATIENT, INVERSE
REFERENCE DATE/TIME, and RECORD # is useful for finding the uncosigned notes by the current user
for a given patient.
CROSS-REFERENCE: 8925^ACLPT1507^MUMPS
1)= D SACLPT^TIUDD0(1507,X)
2)= D KACLPT^TIUDD01(1507,X)
This MUMPS-Type, Multi-field cross-reference on Cosignature Date/time will assure that the cosigned
notes are included in the ACLPT x-ref (completed, by patient) upon cosignature.
8925,1508 COSIGNED BY 15;8 POINTER TO NEW PERSON FILE (#200) (audited)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: The identity of the person who cosigned the document will be automatically saved by the system.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
8925,1509 COSIGNATURE BLOCK NAME 15;9 FREE TEXT (audited)
INPUT TRANSFORM: S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC("^TIU(8925,"_+DA_",""TEXT"")")) K:$L(X)>60!($L(X)<2) X
OUTPUT TRANSFORM: S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")")
)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This encrypted cosignature block will be automatically saved by the system.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8925,1510 COSIGNATURE BLOCK TITLE 15;10 FREE TEXT (audited)
INPUT TRANSFORM: S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC("^TIU(8925,"_+DA_",""TEXT"")")) K:$L(X)>60!($L(X)<2) X
OUTPUT TRANSFORM: S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")")
)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Answer must be 2-60 characters in length.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8925,1511 COSIGNATURE MODE 15;11 SET
'E' FOR electronic;
'C' FOR chart;
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Please indicate the mode by which cosignature was obtained.
8925,1512 MARKED SIGNED ON CHART BY 15;12 POINTER TO NEW PERSON FILE (#200) (audited)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Select the person who marked the document 'signed on chart.'
DESCRIPTION: This is the identity of the person who marked a given document 'signed on chart,' indicating that a
'wet' signature of the chart copy had been obtained.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
8925,1513 MARKED COSIGNED ON CHART BY 15;13 POINTER TO NEW PERSON FILE (#200) (audited)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Select user who marked document 'cosigned on chart.'
DESCRIPTION:
This is the user who marked a given document as 'cosigned on chart.'
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
8925,1601 AMENDMENT DATE/TIME 16;1 DATE (audited)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This is the date/time at which the document was amended.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
8925,1602 AMENDED BY 16;2 POINTER TO NEW PERSON FILE (#200) (audited)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This is the person who entered an amendment for the document.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
8925,1603 AMENDMENT SIGNED 16;3 DATE (audited)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: This is the date/time at which the amendment was signed.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
8925,1604 AMENDMENT SIGN BLOCK NAME 16;4 FREE TEXT (audited)
INPUT TRANSFORM: S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC("^TIU(8925,"_+DA_",""TEXT"")")) K:$L(X)>40!($L(X)<2) X
OUTPUT TRANSFORM: S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")")
)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Answer must be 2-40 characters in length.
DESCRIPTION:
This is the signature block name of the person who amended the document.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8925,1605 AMENDMENT SIGN BLOCK TITLE 16;5 FREE TEXT (audited)
INPUT TRANSFORM: S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC("^TIU(8925,"_+DA_",""TEXT"")")) K:$L(X)>50!($L(X)<2) X
OUTPUT TRANSFORM: S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")")
)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Answer must be 2-50 characters in length.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8925,1606 ADMINISTRATIVE CLOSURE DATE 16;6 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter the date (and time) at which the document was closed.
8925,1607 ADMIN CLOSURE SIG BLOCK NAME 16;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<2) X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Answer must be 2-40 characters in length.
8925,1608 ADMIN CLOSURE SIG BLOCK TITLE 16;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<2) X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Answer must be 2-50 characters in length.
8925,1609 ARCHIVE/PURGE DATE/TIME 16;9 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter the date/time at which the record was archived/purged.
8925,1610 DELETED BY 16;10 POINTER TO NEW PERSON FILE (#200) (audited)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter the name of the person who deleted the document.
DESCRIPTION:
This is the person who deleted the document per the Privacy Act.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
8925,1611 DELETION DATE 16;11 DATE (audited)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter the Date/(time) on which the document was deleted.
DESCRIPTION:
This is the date/(time optional) at which the document was deleted per the Privacy Act.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I +$$AUDIT^TIUAUD0(DA)
8925,1612 REASON FOR DELETION 16;12 SET
'P' FOR privacy act;
'A' FOR administrative;
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Please indicate the reason for deleting the document.
DESCRIPTION: This is the reason for which the document was deleted, either: Privacy Act, as invoked by the
patient; or Administrative Action, where the note needed to be removed, following signature, for
administrative reasons.
8925,1613 ADMINISTRATIVE CLOSURE MODE 16;13 SET
'M' FOR manual;
'S' FOR scanned document;
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Indicate whether document was closed manually or by scanning.
DESCRIPTION: This indicates whether the document was closed manually by an administrative person (in order to
satisfy authentication requirements), or automatically by scanning a paper document bearing the
signature of the patient (e.g., Consents, Advanced Directives, etc.) and not requiring the
signature of an author.
8925,1701 SUBJECT (OPTIONAL description) 17;1 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<3) X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter a brief description (3-80 characters) of the contents of the document.
DESCRIPTION: This freetext field is used to help you find documents by subject (i.e., consider the subject a
"key word" of sorts.
CROSS-REFERENCE: 8925^ASUB^MUMPS
1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$P($G(^TIU(8925,+DA,13)),U) D ASUB
S^TIUDD($G(X),+$G(^TIU(8925,+DA,0)),+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)
2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$P($G(^TIU(8925,+DA,13)),U) D ASUB
K^TIUDD($G(X),+$G(^TIU(8925,+DA,0)),+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)
This MUMPS-type, multi-field cross-reference is used for queries by subject.
RECORD INDEXES: AEVT (#1329)
8925,1801 VBC LINE COUNT 18;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100000)!(X<0)!(X?.E1"."3.N) X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Type a number between 0 and 100000, 2 Decimal Digits
DESCRIPTION: A VBC Line is defined as the total number of characters you can see with the naked eye, divided by
65. It includes any character contained within a header or footer. Spaces, carriage returns, and
hidden format instructions, such as bold, underline, text boxes, printer configurations, spell
check, etc., are not counted in the total character count. A VBC Line is calculated by counting all
visual characters and simply dividing the total number of characters by 65 to arrive at the number
of defined lines.
RECORD INDEXES: VBC (#557)
8925,2101 ID PARENT 21;1 POINTER TO TIU DOCUMENT FILE (#8925)
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Enter the document this note is being attached to.
DESCRIPTION: Applies to ID (interdisciplinary) notes only. The ID PARENT is the note this note is attached to,
making this note an entry in an ID note.
A note with an ID PARENT is referred to as an ID child note. ID parent notes and ID child notes are
both file entries in file 8925.
The entries of an interdisciplinary note consist of the first entry, which is also the ID PARENT of
the ID note, followed by the ID children.
CROSS-REFERENCE: 8925^GDAD
1)= S ^TIU(8925,"GDAD",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"GDAD",$E(X,1,30),DA)
3)= Please don't delete!
This cross-reference is used to find the children of an interdisciplinary note, given the ID parent
note. It has the form:
^TIU(8925,"GDAD",ID PARENT note IEN,ID child note IEN)
Note that "TIUG" is an informal namespace for ID notes, and that this cross-reference is similar to
the DAD cross-reference on the PARENT field. "GDAD" gets its "G" from "TIUG".
RECORD INDEXES: AEVT (#1329)
8925,15001 VISIT ID 150;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<8)!'(X?4.10NU1"-"3.4U) X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Unique Visit Identifier returned by Visit Tracking
DESCRIPTION: Unique Visit Identifier for use by CIRN. The value of this field should ONLY be modified by virtue
of a change to the Visit (.03) field.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the VISIT field of the TIU DOCUMENT File
CROSS-REFERENCE: 8925^VID
1)= S ^TIU(8925,"VID",$E(X,1,30),DA)=""
2)= K ^TIU(8925,"VID",$E(X,1,30),DA)
3)= DO NOT DELETE
REGULAR FM Cross-reference by Visit ID facilitates look-up by CIRN.
8925,70201 PROCEDURE SUMMARY CODE 702;1 SET
'1' FOR Normal;
'2' FOR Abnormal;
'3' FOR Borderline;
'4' FOR Incomplete;
'5' FOR Machine Resulted;
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Indicate the summary code for this procedure once it is complete.
DESCRIPTION: This field contains the summary code for this procedure once it is complete. 'Machine Resulted' is
the initial, default code.
8925,70202 DATE/TIME PERFORMED 702;2 DATE
INPUT TRANSFORM: S %DT="ETXR",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2021
HELP-PROMPT: Time is required. Future date/time is not allowed.
DESCRIPTION:
This field contains the Date/Time when the procedure was performed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8925,89261 VHA ENTERPRISE STANDARD TITLE ; COMPUTED
MUMPS CODE: X ^DD(8925,89261,9.2) S Y(8925,89261,101)=$S($D(^TIU(8925.1,D0,15)):^(15),1:"") S X=$P($G(^TIU(8926
.1,+$P(Y(8925,89261,101),U,1),0)),U) S D0=Y(8925,89261,80)
9.2 = S Y(8925,89261,80)=$G(D0),Y(8925,89261,1)=$S($D(^TIU(8925,D0,0)):^(0),1:""),D0=$P(Y(8925,8926
1,1),U,1) S:'D0!'$D(^TIU(8925.1,+D0,0)) D0=-1
ALGORITHM: DOCUMENT TYPE:VHA ENTERPRISE STANDARD TITLE
LAST EDITED: APR 18, 2006
DESCRIPTION: This computed field allows calls to FileMan Utilities (e.g. DIQ) to resolve the VHA ENTERPRISE
STANDARD TITLE to which the local title is mapped.
FILES POINTED TO FIELDS
CLINIC STOP (#40.7) CLINIC (#1203)
SERVICE CREDIT STOP (#1206)
FACILITY TREATING SPECIALTY
(#45.7) TREATING SPECIALTY (#1402)
HOSPITAL LOCATION (#44) HOSPITAL LOCATION (#1205)
VISIT LOCATION (#1211)
INCOMPLETE RECORDS (#393) IRT RECORD (#1403)
INSTITUTION (#4) DIVISION (#1212)
NEW PERSON (#200) AUTHOR/DICTATOR (#1202)
EXPECTED SIGNER (#1204)
EXPECTED COSIGNER (#1208)
ATTENDING PHYSICIAN (#1209)
ENTERED BY (#1302)
VERIFIED BY (#1306)
SIGNED BY (#1502)
COSIGNED BY (#1508)
MARKED SIGNED ON CHART BY (#1512)
MARKED COSIGNED ON CHART BY (#1513)
AMENDED BY (#1602)
DELETED BY (#1610)
ORDER (#100) ORDER NUMBER (#1210)
PATIENT MOVEMENT (#405) PATIENT MOVEMENT RECORD (#1401)
PATIENT/IHS (#9000001) PATIENT (#.02)
REQUEST/CONSULTATION (#123) REQUESTING PACKAGE REFERENCE (#1405)
SERVICE/SECTION (#49) SERVICE (#1404)
SURGERY (#130) REQUESTING PACKAGE REFERENCE (#1405)
TIU DOCUMENT (#8925) PARENT (#.06)
RETRACTED ORIGINAL (#1406)
ID PARENT (#2101)
TIU DOCUMENT DEFINITION (#8925.1) DOCUMENT TYPE (#.01)
PARENT DOCUMENT TYPE (#.04)
TIU STATUS (#8925.6) STATUS (#.05)
VISIT (#9000010) VISIT (#.03)
SECONDARY VISIT (#1207)
File #8925
Record Indexes:
AADT (#1571) RECORD MUMPS IR SORTING ONLY
Short Descr: Cross-reference by Author/Entered By and Reference Date/Time.
Description: This multi-field, REGULAR-type cross-reference on AUTHOR/DICTATOR (or ENTERED BY), REFERENCE DATE/TIME, and
RECORD # is designed to facilitate rapid access to the notes written by a provider during a specified time
period.
Set Logic: D SAADT^TIUDD0(.X)
Kill Logic: D KAADT^TIUDD01(.X)
Whole Kill: K ^TIU(8925,"AADT")
X(1): AUTHOR/DICTATOR (8925,1202) (forwards)
X(2): ENTERED BY (8925,1302) (forwards)
X(3): REFERENCE DATE (8925,1301) (forwards)
ADIV (#247) RECORD REGULAR IR SORTING ONLY
Short Descr: Index on DIVISION, DOCUMENT TYPE, STATUS, and REFERENCE DATE
Description: This Regular New style-type, multi- field cross-reference is optimized for searching division, document type,
status, and reference date range.
Set Logic: S ^TIU(8925,"ADIV",X(1),X(2),X(3),X(4),DA)=""
Kill Logic: K ^TIU(8925,"ADIV",X(1),X(2),X(3),X(4),DA)
Whole Kill: K ^TIU(8925,"ADIV")
X(1): DIVISION (8925,1212) (Subscr 1) (forwards)
X(2): DOCUMENT TYPE (8925,.01) (Subscr 2) (forwards)
X(3): STATUS (8925,.05) (Subscr 3) (forwards)
X(4): REFERENCE DATE (8925,1301) (Subscr 4) (forwards)
Transform (Storage): S X=9999999-X
Transform (Display): S X=9999999-X
AEVT (#1329) RECORD MUMPS R ACTION
Short Descr: Data Update Event
Description: This is an action index that broadcasts when any of the fields in this index are changed. No actual
cross-reference nodes are set or killed.
Set Logic: D DOC^TIUDDX
Set Cond: S X=(X2(12)'="")
Kill Logic: D DOC^TIUDDX
Kill Cond: S X=(X2(1)="")
X(1): DOCUMENT TYPE (8925,.01)
X(2): STATUS (8925,.05)
X(3): PARENT (8925,.06)
X(4): EPISODE BEGIN DATE/TIME (8925,.07)
X(5): EPISODE END DATE/TIME (8925,.08)
X(6): AUTHOR/DICTATOR (8925,1202)
X(7): HOSPITAL LOCATION (8925,1205)
X(8): REFERENCE DATE (8925,1301)
X(9): REQUESTING PACKAGE REFERENCE (8925,1405)
X(10): SUBJECT (OPTIONAL description) (8925,1701)
X(11): ID PARENT (8925,2101)
X(12): PATIENT (8925,.02)
NO RE-INDEXING ALLOWED!
VBC (#557) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Optimize reporting of VBC Line count by date range.
Description: This multi-field cross-reference by Entry Date/Time and VBC Line Count is included to optimize verification of
billing for transcription.
Set Logic: S ^TIU(8925,"VBC",$E(X(1),1,14),$E(X(2),1,6),DA)=""
Kill Logic: K ^TIU(8925,"VBC",$E(X(1),1,14),$E(X(2),1,6),DA)
Whole Kill: K ^TIU(8925,"VBC")
X(1): ENTRY DATE/TIME (8925,1201) (Subscr 1) (Len 14) (forwards)
Lookup Prompt: Entry Date/Time
X(2): VBC LINE COUNT (8925,1801) (Subscr 2) (Len 6) (forwards)
Lookup Prompt: Visible Black Character Lines
INPUT TEMPLATE(S):
TIU ENTER/EDIT CLINPROC RESULTAPR 18, 2003@10:53 USER #0
TIU ENTER/EDIT CONSULT RESULT APR 18, 2003@10:50 USER #0
TIU ENTER/EDIT DS SEP 02, 2005@10:39 USER #0 ^TIUEDS
TIU ENTER/EDIT PRF MAR 09, 2005@15:33 USER #0
TIU ENTER/EDIT PROGRESS NOTE APR 05, 2004@11:19 USER #0 ^TIUEPN
TIU ENTER/EDIT SURGICAL REPORTMAR 05, 2010@12:06 USER #0
TIUZ ENTER/EDIT PN MAY 16, 2001@15:52 USER #0
PRINT TEMPLATE(S):
TIU PRINT AUTHOR STATS APR 18, 2003@11:31 USER #0 ^TIUSTA [TIU PRINT AUTHOR STATS HEADER]
TIU PRINT AUTHOR STATS HEADER JUL 11, 2001@11:60 USER #0 @
TIU PRINT REL/UNV APR 18, 2003@11:35 USER #0 ^TIUPREL [TIU PRINT REL/UNV HEADER]
TIU PRINT REL/UNV HEADER JUL 11, 2001@12:00 USER #0 @
TIU PRINT SERVICE STATS APR 18, 2003@11:32 USER #0 ^TIUSTS [TIU PRINT SERVICE STATS HEADER]
TIU PRINT SERVICE STATS HEADERJUL 11, 2001@12:01 USER #0 @
TIU PRINT TRANS STATS APR 18, 2003@11:33 USER #0 ^TIUSTT [TIU PRINT TRANS STATS HEADER]
TIU PRINT TRANS STATS HEADER JUL 11, 2001@12:01 USER #0 @
TIU RELEASED/UNVERIFIED PRINT MAY 11, 2000@17:05 USER #0 ^TIUPREL TEST
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):