Global: ^TIU(8925

FileMan FileNo	FileMan Filename	Package
8925	TIU DOCUMENT	Text Integration Utility

Package	Total	Routines
Text Integration Utility	245	TIU RELEASED/UNVERIFIED REPORT TIU144 TIU157PS TIU189 TIU199 TIU214 TIU215F TIU215R TIUADCL TIUADCL1 TIUADD TIUAL1 TIUALFUN TIUALRT TIUALRT1 TIUALSET TIUASRPT TIUBR TIUBR1 TIUCNSLT TIUCPFIX TIUDD TIUDD0 TIUDD01 TIUDIRT TIUDSCN1 TIUDSCNV TIUEDI1 TIUEDI2 TIUEDI3 TIUEDI4 TIUEDIM TIUEDIT TIUEDITR TIUEDIU TIUEDS TIUEDS1 TIUEDS10 TIUEDS11 TIUEDS12 TIUEDS14 TIUEDS2 TIUEDS3 TIUEDS4 TIUEDS5 TIUEDS6 TIUEDS7 TIUEDS8 TIUEDS9 TIUEN96 TIUEPN TIUEPN1 TIUEPN10 TIUEPN11 TIUEPN12 TIUEPN13 TIUEPN14 TIUEPN15 TIUEPN16 TIUEPN17 TIUEPN2 TIUEPN3 TIUEPN4 TIUEPN5 TIUEPN6 TIUEPN7 TIUEPN8 TIUEPN9 TIUEPRNT TIUESFIX TIUFHA7 TIUFHA8 TIUFHA9 TIUFIX1 TIUFLF TIUFLP1 TIUFZZ8 TIUGBR TIUGEDI1 TIUGEDIT TIUGR TIUGR1 TIUGR2 TIUHL7P3 TIUHL7U1 TIUHL7U2 TIULA TIULA2 TIULA3 TIULAPI TIULAPIC TIULAPIS TIULC TIULC1 TIULD TIULF TIULG TIULP TIULP1 TIULP3 TIULQ TIULQ2 TIULRR TIULS1 TIULV TIULX TIUP113 TIUP113P TIUP134 TIUP134P TIUP146 TIUP146P TIUP149 TIUP149P TIUP188 TIUP188P TIUPD TIUPEFIX TIUPEVN1 TIUPNAPI TIUPNCV TIUPNCV3 TIUPNCV7 TIUPNCV8 TIUPNCVX TIUPP3 TIUPRCN TIUPRD TIUPRDS TIUPRDS2 TIUPREL TIUPRF TIUPRF1 TIUPRF2 TIUPRF3 TIUPRFL TIUPRPN1 TIUPRPN3 TIUPRPN4 TIUPRPN5 TIUPRPN6 TIUPRPN7 TIUPS104 TIUPS120 TIUPS139 TIUPS153 TIUPS155 TIUPS163 TIUPS174 TIUPS177 TIUPS209 TIUPS79 TIUPS96 TIUPS98 TIUPUTC TIUPUTCN TIUPUTCP TIUPUTPF TIUPUTPN TIUPUTS TIUPUTU TIUPXAP1 TIUPXAP2 TIUPXAP3 TIUPXPM TIUQRY TIUQRYL TIUR TIUR1 TIUR2 TIUR4 TIURA TIURA1 TIURA2 TIURA3 TIURB TIURB1 TIURB2 TIURB3 TIURC TIURC1 TIURD TIURD1 TIURD2 TIURD3 TIURD4 TIURDIV TIURE TIURECL1 TIURECL2 TIURENDX TIURL TIURL1 TIURM TIURM1 TIUROR TIURORL TIURPN TIURPTT1 TIURPTTL TIURS TIURS1 TIURT TIURTIT1 TIURTITL TIURVBC TIUSROI TIUSROI1 TIUSRV TIUSRV1 TIUSRVA TIUSRVG TIUSRVL TIUSRVL1 TIUSRVLC TIUSRVLI TIUSRVLL TIUSRVLO TIUSRVLP TIUSRVLR TIUSRVLV TIUSRVP TIUSRVP1 TIUSRVP2 TIUSRVPL TIUSRVPT TIUSRVR TIUSRVR1 TIUSRVR2 TIUSRVR3 TIUSTA TIUSTS TIUSTT TIUSUPN TIUSUPN1 TIUSUPN2 TIUT TIUTSK TIUVSIT TIUXRC1 TIUXRC2 TIUXRC3 TIUXRC4 TIUXRC5 TIUXRC6
IHS Mods To Text Integration Utilities	18	BTIUDOC BTIUDSC BTIUEDIT BTIUICL BTIULINK BTIULO BTIUPOS BTIUPRT1 BTIURB BTIURPT BTIURPT1 BTIURPT2 BTIURPT3 BTIURPT4 BTIURS BTIUU1 BTIUVFIX BTIUXREF
IHS Electronic Health Record	8	BEHODC7 BEHODCP BEHODCS BEHOENPS BEHOENPV BEHOTIU BEHOXQ BEHOXQPC
Mental Health Social Services	8	AMHEHR AMHEHR1 AMHGDVF2 AMHLEFP3 AMHUTIL AMHVD AMHVDSG AMHVDSG1
Order Entry Results Reporting	8	ORCNOTE ORDV03 ORRHCQ ORWGAPIA ORWPCE ORWPCE2 ORWPCE3 ORWU2
Tracking Procedure Workflow	4	BTPWEVNT BTPWPCHT BTPWTIUP BTPWTIUT
iCare	4	BQIDCINP BQIMTCR1 BQITIULS BQITIUTX
Care Management	2	ORRCQLPT ORRCTIU
Clinical Reminders	2	PXRMGECK PXRMTIU
Consult Request Tracking	2	GMRCSTSU GMRCTIUE
Patient Care Component Table Maintiance	2	APCM24E6 APCM25E6
GUI Objects	1	BGOVPOV
Health Summary	1	GMTS2712

Package	Total	Routines
Text Integration Utility	46	TIU189 TIU214 TIUADCL TIUADCL1 TIUADD TIUAL1 TIUALRT TIUALSET TIUASRPT TIUCNSLT TIUCPFIX TIUEDI1 TIUEDS TIUEDS10 TIUEDS5 TIUEPN TIUEPN12 TIUEPN17 TIUEPN7 TIUFHA9 TIULD TIULF TIUP113 TIUPNCV TIUPNCV3 TIUPNCV7 TIUPNCV8 TIUPRDS2 TIUPRF2 TIUPS139 TIUPS174 TIUPUTCP TIURA TIURB2 TIURD1 TIURD2 TIURD4 TIURDIV TIURS TIURVBC TIUSROI TIUSRVA TIUSRVPT TIUSUPN TIUSUPN1 TIUZZ65
IHS Mods To Text Integration Utilities	13	BTIUBR BTIUDOC BTIUDSC BTIUICL BTIULINK BTIUPCC BTIUPOS BTIURPT BTIURPT2 BTIURPT4 BTIURS BTIUU1 BTIUVFIX
iCare	3	BQIDCINP BQIMTCR1 BQITIULS
IHS Electronic Health Record	2	BEHODCH BEHOENPV
Order Entry Results Reporting	2	ORWU ORWU16
Patient Care Component Table Maintiance	2	APCM24E6 APCM25E6
Consult Request Tracking	1	GMRCCP
Lab Service	1	LRAPMOD
Tracking Procedure Workflow	1	BTPWTIUP

Package	Total	FileMan Files
Mental Health Social Services	5	MHSS GROUP(#9002011.67)[.17] MHSS INTAKE(#9002011.07)[.09] MHSS PATIENT TREATMENT PLANS(#9002011.56)[.21] MHSS RECORD(#9002011)[1108, #9002011.054(.01)] MHSS RECORD INTAKE(#9002011.13)[.08]
Text Integration Utility	5	TIU DOCUMENT(#8925)[.06, 1406, 2101] TIU AUDIT TRAIL(#8925.5)[.01, 3.05] TIU MULTIPLE SIGNATURE(#8925.7)[.01] TIU PROBLEM LINK(#8925.9)[.01] TIU EXTERNAL DATA LINK(#8925.91)[.01]
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[16, #123.02(9), #123.03(.01)]
IHS Patient	1	V NOTE(#9000010.28)[.01]
Lab Service	1	LAB DATA(#63)[#63.19(1), #63.47(1), #63.49(1)]
Registration	1	PRF ASSIGNMENT HISTORY(#26.14)[.06]
Surgery	1	SURGERY(#130)[1000, 1001, 1002, 1003]
Tracking Procedure Workflow	1	CM EVENT TRACKING(#90620)[#90620.011(.05), #90620.011(.1)]
iCare	1	ICARE REMINDER NOTIFICATIONS(#90509.4)[.06]

Package	Total	FileMan Files
Kernel	3	INSTITUTION(#4)[1212] SERVICE/SECTION(#49)[1404] NEW PERSON(#200)[1202, 1204, 1208, 1209, 1302, 1306, 1502, 1508, 1512, 1513, 1602, 1610]
Text Integration Utility	3	TIU DOCUMENT(#8925)[.06, 1406, 2101] TIU DOCUMENT DEFINITION(#8925.1)[.01, .04] TIU STATUS(#8925.6)[.05]
IHS Patient	2	PATIENT(#9000001)[.02] VISIT(#9000010)[.03, 1207]
Registration	2	PATIENT MOVEMENT(#405)[1401] FACILITY TREATING SPECIALTY(#45.7)[1402]
Scheduling	2	CLINIC STOP(#40.7)[1203, 1206] HOSPITAL LOCATION(#44)[1205, 1211]
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[1405]
Incomplete Records Tracking	1	INCOMPLETE RECORDS(#393)[1403]
Order Entry Results Reporting	1	ORDER(#100)[1210]
Surgery	1	SURGERY(#130)[1405]

Fields, Total: 75

Field #	Name	Loc	Type	Details
.01	DOCUMENT TYPE	0;1	POINTER TO TIU DOCUMENT DEFINITION FILE (#8925.1)	**********************REQUIRED FIELD********************** TIU DOCUMENT DEFINITION(#8925.1) 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: `APR 18, 2003` 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. 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(8925,"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(8925,"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(8925,+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(8925,+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(^TIU(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(^TIU(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(8925,"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 APRBS^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 APRBK^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(8925,"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(8925,"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. CROSS-REFERENCE: `8925^AIHS12^MUMPS` 1)= D AIHS12A^BTIUXREF 2)= D AIHS12K^BTIUXREF 3)= IHS XREF TO DISPLAY DOCS BY VISIT DATE IHS/ITSC/LJF 6/12/2003 - cross-reference added for IPD report by patient and visit date. See routine BTIURPT2. RECORD INDEXES: `ADIV (#307)`
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) LAST EDITED: `JUN 11, 2003` DESCRIPTION: This field contains a pointer to the patient file. 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(^TIU(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,"AV",+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 ^TIU(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 ^TIU(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(^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,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^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. CROSS-REFERENCE: `8925^AIHS1^MUMPS` 1)= D AIHS1A^BTIUXREF 2)= D AIHS1K^BTIUXREF 3)= IHS XREF TO DISPLAY DOCS BY VISIT DATE IHS/ITSC/LJF 6/12/2003 - cross-reference added for IPD report by patient and visit date.
.03	VISIT	0;3	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) LAST EDITED: `MAR 11, 2004` 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),(9999999-$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),(9999999-$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,"AV",+$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 3)= MODIFIED BY IHS This MUMPS-type cross-reference is used to maintain the dependent entry count in the VISIT file. IHS/ITSC/LJF 5/16/2003 - IHS does not add to dependent entry count for non-V files. An entry in V Notes is created which points to this file. IHS/ITSC/LJF 3/11/2004 - Replaced Quit with semi-colon so compiled cross reference routines do not stop processing when they get to this cross reference. 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. CROSS-REFERENCE: `8925^AIHS11^MUMPS` 1)= D AIHS11A^BTIUXREF 2)= D AIHS11K^BTIUXREF 3)= IHS XREF TO DISPLAY DOCS BY VISIT DATE IHS/ITSC/LJF 6/12/2003 - cross-reference added for IPD report by patient and visit date. See routine BTIURPT2.
.04	PARENT DOCUMENT TYPE	0;4	POINTER TO TIU DOCUMENT DEFINITION FILE (#8925.1)	TIU DOCUMENT DEFINITION(#8925.1) LAST EDITED: `SEP 25, 1995` 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 ^TIU(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 ^TIU(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).
.05	STATUS	0;5	POINTER TO TIU STATUS FILE (#8925.6)	TIU STATUS(#8925.6) LAST EDITED: `APR 18, 2003` HELP-PROMPT: `Enter the status of the document.` DESCRIPTION: This field is intended to accommodate the status of a given report. 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 ^TIU(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 ^TIU(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 ^TIU(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 ^TIU(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 ^TIU(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 ^TIU(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 ^TIU(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 ^TIU(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(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,13)),U) K ^TIU(8925,"ALL","ANY",+$P(^TIU(8925,+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 ASUBS^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 ASUBK^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 ^TIU(8925,"ASVC",+$P($G(^TIU(8925,+DA,14)),U,4),+$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,4),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"ASVC",+$P($G(^TIU(8925,+DA,14)),U,4),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA,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 ^TIU(8925,"ALOC",+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U),+X,(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) K ^TIU(8925,"ALOC",+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U),+X,(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^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 ^TIU(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 ^TIU(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",,, date/ time>,)="" 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. CROSS-REFERENCE: `8925^AIHS13^MUMPS` 1)= D AIHS13A^BTIUXREF 2)= D AIHS13K^BTIUXREF 3)= IHS XREF TO DISPLAY DOCS BY VISIT DATE IHS/ITSC/LJF 6/12/2003 - cross-reference added for IPD report by patient and visit date. See routine BTIURPT2. RECORD INDEXES: `ADIV (#307)`
.06	PARENT	0;6	POINTER TO TIU DOCUMENT FILE (#8925)	TIU DOCUMENT(#8925) LAST EDITED: `MAR 16, 1997` 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.
.07	EPISODE BEGIN DATE/TIME	0;7	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 17, 1997` 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.
.08	EPISODE END DATE/TIME	0;8	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 08, 1993` 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`
.09	URGENCY	0;9	SET	'P' FOR priority; 'R' FOR routine; LAST EDITED: `MAY 03, 2001` 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.`
.1	LINE COUNT	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1)!'(X?1.8N) X` LAST EDITED: `MAY 20, 1992` 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.
.11	CREDIT STOP CODE ON COMPLETION	0;11	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `APR 15, 1996` 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.
.12	MARK DISCH DT FOR CORRECTION	0;12	SET	'1' FOR YES; LAST EDITED: `MAY 31, 1996` 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...
.13	VISIT TYPE	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<1)!'(X?1U.E) X` LAST EDITED: `JUN 17, 1997` 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.
2	REPORT TEXT	TEXT;0	WORD-PROCESSING #8925.02	DESCRIPTION: This is a word processing field that contains the report text.
3	EDIT TEXT BUFFER	TEMP;0	WORD-PROCESSING #8925.03	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.
1201	ENTRY DATE/TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 28, 1996` HELP-PROMPT: `Date/time of entry into database.` DESCRIPTION: This is the date/time at which the document was originally entered into the database. 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 (#578)`
1202	AUTHOR/DICTATOR	12;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I '+$$ISTERM^USRLM(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 09, 1998` 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.` 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
1203	CLINIC	12;3	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `JAN 25, 1995` 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.).
1204	EXPECTED SIGNER	12;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) OUTPUT TRANSFORM: `S:+Y>0&$D(TIUSIG) Y=$S($L($P(^VA(200,+Y,20),U,2)):$P(^(20),U,2),1:$P(^VA(200,+Y,0),U)) S:+Y>0&'$D(TIUSIG) Y=$P(^VA(200,+Y,0),U)` LAST EDITED: `APR 20, 1994` 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.
1205	HOSPITAL LOCATION	12;5	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `MAR 28, 1997` 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.
1206	SERVICE CREDIT STOP	12;6	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `JAN 25, 1995` 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.
1207	SECONDARY VISIT	12;7	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) LAST EDITED: `MAR 11, 2004` CROSS-REFERENCE: `8925^AV1207^MUMPS` 1)= ;D:$D(^AUPNVSIT(+X)) ADD^AUPNVSIT 2)= ;D:$D(^AUPNVSIT(+X)) SUB^AUPNVSIT 3)= MODIFIED BY IHS This MUMPS-type cross-reference is used to maintain the dependent entry count in the VISIT file for the SECONDARY VISIT. IHS/ITSC/LJF 11/14/2003 - IHS does not add to dependent entry count for non-V files. So far, IHS does not use this field but cross-reference was changed just in case. IHS/ITSC/LJF 3/11/2004 - Replaced Quit with semi-colon so compiled cross reference routines do not stop processing when they get to this cross reference. FIELD INDEX: `VS (#245) 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)
1208	EXPECTED COSIGNER	12;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) 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: `SEP 25, 1998` 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.` 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.
1209	ATTENDING PHYSICIAN	12;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) 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: `SEP 07, 2007` 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 require cosignature. Other Attendings must be active providers.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1210	ORDER NUMBER	12;10	POINTER TO ORDER FILE (#100)	ORDER(#100) LAST EDITED: `FEB 15, 1995` 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.
1211	VISIT LOCATION	12;11	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `JUN 17, 1997` 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.
1212	DIVISION	12;12	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `APR 18, 2003` 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 (#307)`
1301	REFERENCE DATE	13;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 08, 2007` 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. 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 ^TIU(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 ^TIU(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 ^TIU(8925,"ASUP",+$P(^TIU(8925,+DA,12),U,8),+$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,8),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ASUP",+$P(^TIU(8925,+DA,12),U,8),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-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 ^TIU(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 ^TIU(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 ^TIU(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 ^TIU(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 ^TIU(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 ^TIU(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(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,5) K ^TIU(8925,"ALL","ANY",+$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 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 ASUBS^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 ASUBK^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 ^TIU(8925,"ASVC",+$P(^TIU(8925,+DA,14),U,4),+$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,4),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ASVC",+$P(^TIU(8925,+DA,14),U,4),+$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 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 ^TIU(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 ^TIU(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),(9999999-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),(9999999-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 ^TIU(8925,"ALOC",+$P(^TIU(8925,+DA,12),U,5),+$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,5),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ALOC",+$P(^TIU(8925,+DA,12),U,5),+$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 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. RECORD INDEXES: `ADIV (#307)`
1302	ENTERED BY	13;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) 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: `JUN 17, 1997` HELP-PROMPT: `This is the person who entered the document into the computer.` 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,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,"ATC",+X,+$P($G(^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 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.
1303	CAPTURE METHOD	13;3	SET	'D' FOR direct; 'U' FOR upload; 'C' FOR converted; 'R' FOR remote procedure; 'O' FOR copy; LAST EDITED: `DEC 05, 1996` HELP-PROMPT: `This is the method used to capture the document on-line.`
1304	RELEASE DATE/TIME	13;4	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 02, 1996` 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.
1305	VERIFICATION DATE/TIME	13;5	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 19, 1994` HELP-PROMPT: `This is the date/time at which the document was verified (if required).`
1306	VERIFIED BY	13;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 19, 1994` HELP-PROMPT: `This is the person who verified the document.`
1307	DICTATION DATE	13;7	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 25, 1995` 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.
1308	SUSPENSE DATE/TIME	13;8	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 07, 1995` 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.
1401	PATIENT MOVEMENT RECORD	14;1	POINTER TO PATIENT MOVEMENT FILE (#405)	PATIENT MOVEMENT(#405) LAST EDITED: `JAN 19, 1994` HELP-PROMPT: `This is the inpatient movement with which the document is associated.`
1402	TREATING SPECIALTY	14;2	POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)	FACILITY TREATING SPECIALTY(#45.7) LAST EDITED: `MAR 25, 1994` 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.
1403	IRT RECORD	14;3	POINTER TO INCOMPLETE RECORDS FILE (#393)	INCOMPLETE RECORDS(#393) LAST EDITED: `JAN 19, 1994` HELP-PROMPT: `This is the Incomplete Records Tracking Entry for the document.`
1404	SERVICE	14;4	POINTER TO SERVICE/SECTION FILE (#49)	SERVICE/SECTION(#49) LAST EDITED: `MAY 08, 1996` 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.
1405	REQUESTING PACKAGE REFERENCE	14;5	VARIABLE POINTER	REQUEST/CONSULTATION(#123) SURGERY(#130) LAST EDITED: `FEB 16, 2001` 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.
1406	RETRACTED ORIGINAL	14;6	POINTER TO TIU DOCUMENT FILE (#8925)	TIU DOCUMENT(#8925) LAST EDITED: `JAN 17, 2001` 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.
1407	PRF FLAG ACTION		COMPUTED	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.
1501	SIGNATURE DATE/TIME	15;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 17, 1997` HELP-PROMPT: `This is the date/time at which the document was signed by the author.` 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,12)),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.
1502	SIGNED BY	15;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 17, 1997` HELP-PROMPT: `This is the person who signed the document.` 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.
1503	SIGNATURE BLOCK NAME	15;3	FREE TEXT	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: `AUG 28, 1998` HELP-PROMPT: `Answer must be 3-30 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1504	SIGNATURE BLOCK TITLE	15;4	FREE TEXT	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: `AUG 28, 1998` 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. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1505	SIGNATURE MODE	15;5	SET	'E' FOR electronic; 'C' FOR chart; LAST EDITED: `APR 13, 1994` 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).
1506	COSIGNATURE NEEDED	15;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `APR 13, 1994` HELP-PROMPT: `Please indicate whether a cosignature is needed.` DESCRIPTION: This boolean flag indicates to the system whether or not a cosignature is needed.
1507	COSIGNATURE DATE/TIME	15;7	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 17, 1997` 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. 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.
1508	COSIGNED BY	15;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 13, 1994` HELP-PROMPT: `The identity of the person who cosigned the document will be automatically saved by the system.`
1509	COSIGNATURE BLOCK NAME	15;9	FREE TEXT	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: `AUG 28, 1998` HELP-PROMPT: `This encrypted cosignature block will be automatically saved by the system.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1510	COSIGNATURE BLOCK TITLE	15;10	FREE TEXT	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: `AUG 28, 1998` HELP-PROMPT: `Answer must be 2-60 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1511	COSIGNATURE MODE	15;11	SET	'E' FOR electronic; 'C' FOR chart; LAST EDITED: `APR 13, 1994` HELP-PROMPT: `Please indicate the mode by which cosignature was obtained.`
1512	MARKED SIGNED ON CHART BY	15;12	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 01, 1995` 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.
1513	MARKED COSIGNED ON CHART BY	15;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 01, 1995` HELP-PROMPT: `Select user who marked document 'cosigned on chart.'` DESCRIPTION: This is the user who marked a given document as 'cosigned on chart.'
1601	AMENDMENT DATE/TIME	16;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 19, 1994` HELP-PROMPT: `This is the date/time at which the document was amended.`
1602	AMENDED BY	16;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 19, 1994` HELP-PROMPT: `This is the person who entered an amendment for the document.`
1603	AMENDMENT SIGNED	16;3	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 19, 1994` HELP-PROMPT: `This is the date/time at which the amendment was signed.`
1604	AMENDMENT SIGN BLOCK NAME	16;4	FREE TEXT	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: `JAN 20, 1999` HELP-PROMPT: `Answer must be 2-40 characters in length.` DESCRIPTION: This is the signature block name of the person who amended the document. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1605	AMENDMENT SIGN BLOCK TITLE	16;5	FREE TEXT	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: `JAN 20, 1999` HELP-PROMPT: `Answer must be 2-50 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1606	ADMINISTRATIVE CLOSURE DATE	16;6	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 25, 1995` HELP-PROMPT: `Enter the date (and time) at which the document was closed.`
1607	ADMIN CLOSURE SIG BLOCK NAME	16;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<2) X` LAST EDITED: `JAN 20, 1999` HELP-PROMPT: `Answer must be 2-40 characters in length.`
1608	ADMIN CLOSURE SIG BLOCK TITLE	16;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<2) X` LAST EDITED: `JAN 20, 1999` HELP-PROMPT: `Answer must be 2-50 characters in length.`
1609	ARCHIVE/PURGE DATE/TIME	16;9	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 25, 1995` HELP-PROMPT: `Enter the date/time at which the record was archived/purged.`
1610	DELETED BY	16;10	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 17, 1995` 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.
1611	DELETION DATE	16;11	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 17, 1995` 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.
1612	REASON FOR DELETION	16;12	SET	'P' FOR privacy act; 'A' FOR administrative; LAST EDITED: `APR 29, 1997` 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.
1613	ADMINISTRATIVE CLOSURE MODE	16;13	SET	'M' FOR manual; 'S' FOR scanned document; LAST EDITED: `NOV 07, 2001` 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.
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 21, 1995` 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 ASUBS^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 ASUBK^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.
1801	VBC LINE COUNT	18;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100000)!(X<0)!(X?.E1"."3.N) X` LAST EDITED: `AUG 04, 2009` 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 (#578)`
2101	ID PARENT	21;1	POINTER TO TIU DOCUMENT FILE (#8925)	TIU DOCUMENT(#8925) LAST EDITED: `JUN 29, 2000` 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".
15001	VISIT ID	150;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<8)!'(X?4.10NU1"-"3.4U) X` LAST EDITED: `NOV 27, 1996` 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.
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: `JUL 22, 2004` 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.
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: `MAR 21, 2002` 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`
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,89261,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.

Customize PDF page

Package: Text Integration Utility

Global: ^TIU(8925

Information

Description

Directly Accessed By Routines, Total: 334

Accessed By FileMan Db Calls, Total: 71

Pointed To By FileMan Files, Total: 17

Pointer To FileMan Files, Total: 16

Fields, Total: 75