Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All
Print Page as PDF
Global: ^TIU(8925

Package: Text Integration Utility

Global: ^TIU(8925


Information

FileMan FileNo FileMan Filename Package
8925 TIU DOCUMENT Text Integration Utility

Description

Directly Accessed By Routines, Total: 359

Package Total Routines
Text Integration Utility 264 GMRPNCW    GMRPNOR1    TIU BROWSE ACTION EDIT    TIU BROWSE ACTION SEND BACK    TIU COMPLETE NOTES MENU    TIU ENTER/EDIT CONSULT RESULT    TIU ENTER/EDIT DS    TIU ENTER/EDIT PRF
TIU ENTER/EDIT PROGRESS NOTE    TIU ENTER/EDIT SEARCH CATEGORY    TIU ENTER/EDIT SURGICAL REPORT    TIU RELEASED/UNVERIFIED REPORT    TIU UPLOAD FIELD EDIT    TIU144    TIU157PS    TIU189
TIU199    TIU214    TIU215F    TIU215R    TIU285PS    TIUADCL    TIUADCL1    TIUAL1
TIUALFUN    TIUALRT    TIUALSET    TIUASCU    TIUASRPT    TIUAUD0    TIUAUD00    TIUBR
TIUBR1    TIUCCRHL    TIUCCRHL7P2    TIUCNSLT    TIUCOP    TIUCOPP    TIUCOPR1    TIUCPFIX
TIUCWD    TIUDCT    TIUDD01    TIUDIRT    TIUDSCNV    TIUEDI1    TIUEDI4    TIUEDIM
TIUEDIT    TIUEDS    TIUEDS1    TIUEDS2    TIUEPN    TIUEPN12    TIUEPN13    TIUEPN2
TIUEPN3    TIUEPN4    TIUEPN5    TIUEPN6    TIUEPN7    TIUEPN8    TIUEPN9    TIUEPRNT
TIUFHA7    TIUGEDI1    TIUGEDIT    TIUGR    TIUGR1    TIUHL7U1    TIUHL7U2    TIULA
TIULA2    TIULA3    TIULAPIS    TIULD    TIULP    TIULP3    TIULQ    TIULRR
TIULS1    TIULV    TIULX    TIUP113    TIUP134    TIUP134P    TIUP146    TIUP146P
TIUP149P    TIUPD    TIUPEFIX    TIUPNAPI    TIUPNCV3    TIUPNCVX    TIUPP3    TIUPRD
TIUPRDS2    TIUPRF3    TIUPRFL    TIUPRPN1    TIUPRPN4    TIUPRPN5    TIUPRPN7    TIUPS120
TIUPS139    TIUPS153    TIUPS163    TIUPS174    TIUPS177    TIUPS209    TIUPS98    TIUPUTC
TIUPUTCN    TIUPUTCP    TIUPUTPF    TIUPUTPN    TIUPUTS    TIUPXAP3    TIUQRYL    TIUR
TIUR1    TIUR4    TIURA1    TIURA2    TIURA3    TIURB    TIURB2    TIURC
TIURC1    TIURD    TIURD1    TIURD3    TIURD4    TIURDIV    TIURECL2    TIURENDX
TIURL1    TIUROR    TIURORL    TIURPTTL    TIURS1    TIURT    TIURTITL    TIUSROI
TIUSROI1    TIUSRV    TIUSRVA    TIUSRVL1    TIUSRVLC    TIUSRVLI    TIUSRVLL    TIUSRVLV
TIUSRVP    TIUSRVP2    TIUSRVPL    TIUSRVR3    TIUSTT    TIUSUPN    TIUSUPN1    TIUSUPN2
TIUTSK    TIUUTL    TIUVCO    TIUVPR    TIUVSIT    TIUXRC3    TIUXRC4    ^TIU(8925.7
^TIU(8925.9    TIUADD    TIUALRT1    TIUDD0    TIUEDIU    TIUEDS5    TIUFHA9    TIUFLF
TIUFLP1    TIUGBR    TIULF    TIUPNCV    TIUPNCV8    TIUPRCN    TIUPRF2    TIUPRPN3
TIUPRPN6    TIUPS96    TIUPUTU    TIUPXAP1    TIUPXAP2    TIUR2    TIURECL1    TIURL
TIURM    TIURM1    TIUSRVG    TIUSRVP1    TIUSTS    TIUTIUS    TIUXRC2    TIUZ ENTER/EDIT PN
^TIU(8925.8    TIUCCHL7UT    TIUCCRHL7P3    TIUCOP1    TIUDD    TIUDSCN1    TIUEDI2    TIUEDI3
TIUEDITR    TIUEDS3    TIUEDS4    TIUEDS6    TIUEN96    TIUEPN1    TIUEPN10    TIUEPN11
TIUFHA8    TIUFIX1    TIUFZZ8    TIUGR2    TIUHL7P3    TIULAPI    TIULAPIC    TIULC
TIULC1    TIULG    TIULP1    TIULQ2    TIUP113P    TIUP271    TIUP289    TIUP290A
TIUPEVN1    TIUPNCV7    TIUPRDS    TIUPREL    TIUPRF    TIUPRF1    TIUPS104    TIUPS79
TIUPXPM    TIUQRY    TIURA    TIURB1    TIURB3    TIURD2    TIURE    TIURPN
TIURPTT1    TIURS    TIURTIT1    TIURVBC    TIUSRV1    TIUSRVL    TIUSRVLO    TIUSRVLP
TIUSRVLR    TIUSRVPT    TIUSRVR    TIUSRVR1    TIUSRVR2    TIUSTA    TIUT    TIUXRC1
Order Entry Results Reporting 14 ORALEAPI    ORB3UTL    ORCNOTE    ORRHCQ    ORWGAPIA    ORWORB    ORWPCE    ORWPCE1
ORWPCE2    ORWPCE3    ORWPCE5    ORWTIU    ORWU2    ORY354    
Imaging 13 MAGDIR9E    MAGDIR9F    MAGDQR03    MAGDQR05    MAGDQR06    MAGGNTI    MAGGNTI2    MAGGSIA1
MAGGSIU4    MAGGSQI    MAGGTIA2    MAGQE3    MAGSIXG3    
Consult Request Tracking 8 GMRCAFRD    GMRCCB    GMRCCCRA    GMRCGUIA    GMRCHL7H    GMRCHL7I    GMRCSTSU    GMRCTIUE
Enterprise Health Management Platform 4 HMPDJ02    HMPDJ03    HMPWB5    HMPWBIM1    
Kernel 4 ARRAY SUBSCRIPTS    ^DIC(19    COMPUTABLE FILE REFERENCES    ^ORD(101    
Clinical Reminders 2 PXRMGECK    PXRMTIU    
Scheduling 2 SD53103A    SDESGETTIUDOC    
Care Management 1 ORRCQLPT    
Health Summary 1 GMTS2712    
PCE Patient Care Encounter 1 PX91P    
Patient Assessment Documentation 1 NUPAOBJ    
Registration 1 VAFCAPI    
Virtual Patient Record 1 VPRENC    
VistA Integration Adapter 1 VIABRPC    
Womens Health 1 WVRPCPT2    

Accessed By FileMan Db Calls, Total: 117

Package Total Routines
Text Integration Utility 51 TIU189    TIU214    TIU343P    TIUADCL    TIUADCL1    TIUADD    TIUAL1    TIUALRT
TIUALSET    TIUASRPT    TIUAUD00    TIUCCRHL    TIUCNSLT    TIUCPFIX    TIUDCT    TIUEDI1
TIUEDS    TIUEDS5    TIUEPN    TIUEPN10    TIUFHA9    TIULD    TIULF    TIUP113
TIUP271    TIUP289    TIUP290A    TIUPEVNT    TIUPNCV    TIUPNCV3    TIUPNCV7    TIUPNCV8
TIUPRF2    TIUPS106    TIUPS139    TIUPS174    TIUPSCA    TIUPUTC1    TIUPUTCP    TIURB2
TIURD1    TIURD2    TIURD4    TIURDIV    TIURS    TIURVBC    TIUSROI    TIUSRVA
TIUSRVPT    TIUSUPN    TIUSUPN1    
Imaging 17 MAGD350J    MAGDGMRC    MAGDQR08    MAGDRPC9    MAGGNTI    MAGGNTI1    MAGGSTI    MAGGTSYS
MAGGTU31    MAGNU003    MAGNVQ02    MAGQE3    MAGSIMBR    MAGVD003    MAGVGUID    MAGVRS43
MAGVRS82    
Virtual Patient Record 12 VPRDJ04A    VPRDJ06    VPRDJ07    VPRDJ08    VPRDTIU    VPRDVSIT    VPREVNT    VPREVSND
VPRHSX2    VPRP20    VPRSDAB    VPRSR    
Enterprise Health Management Platform 9 HMPDJ04A    HMPDJ06    HMPDJ08    HMPDLRA    HMPDSR    HMPDTIU    HMPDVSIT    HMPEQLM
HMPEVNT    
Consult Request Tracking 6 GMRCCB    GMRCCC    GMRCCCRA    GMRCCP    GMRCHL7H    GMRCHL7I    
Order Entry Results Reporting 5 ORALEAPI    ORB3UTL    ORVCO    ORWU    ORWU16    
National Health Information Network 4 NHINVLRA    NHINVSIT    NHINVSR    NHINVTIU    
Mental Health 2 YTQCONS    YTQTIU    
Patient Assessment Documentation 2 NUPABCL2    NUPAOBJ    
Scheduling 2 SD53103A    SDESGETTIUDOC    
VA Point of Service 2 VPSMRAR1    VPSMRARU    
Automated Medical Information Exchange 1 DVBCREPT    
Health Summary 1 GMTSPN2    
Lab Service 1 LRAPMOD    
Registration 1 DG531086P    
Womens Health 1 WVMGRP1    

Pointed To By FileMan Files, Total: 23

Package Total FileMan Files
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]    
Womens Health 3 WV PATIENT(#790)[#790.05(5), #790.16(5)]    WV PROCEDURE(#790.1)[#790.23(3)]    WV DATA NEEDING REVIEW(#790.8)[3]    
Automated Medical Information Exchange 2 CAPRI TEMPLATES(#396.17)[23]    2507 EXAM(#396.4)[75]    
Clinical Procedures 2 CP TRANSACTION(#702)[.06]    CP_TRANSACTION_TIU_HISTORY(#702.001)[.02]    
Registration 2 PRF ASSIGNMENT HISTORY(#26.14)[.06]    PATIENT(#2)[#2.025(.05)]    
Clinical Reminders 1 REMINDERS EPISODE OF CARE(#809)[#809.04(3)]    
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[16, #123.02(9), #123.03(.01)]
Functional Independence 1 FUNCTIONAL INDEPENDENCE MEASUREMENT RECORD(#783)[.16]    
Imaging 1 IMAGE SERIES(#2005.63)[27]    
Lab Service 1 LAB DATA(#63)[#63.101(1), #63.19(1), #63.47(1), #63.49(1)]    
Order Entry Results Reporting 1 PDMP QUERY LOG(#101.62)[#101.621(.09)]    
Patient Assessment Documentation 1 NUPA CARE PLANS(#1927.4)[18]    
Surgery 1 SURGERY(#130)[1000, 1001, 1002, 1003]    
VA Point of Service 1 VPS MRAR PDO(#853.5)[#853.51(105)]    

Pointer To FileMan Files, Total: 16

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]    
PCE Patient Care Encounter 2 PATIENT/IHS(#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:  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(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.
  • RECORD INDEXES:  ADIV (#247), AEVT (#1329)
.02 PATIENT 0;2 POINTER TO PATIENT/IHS FILE (#9000001) PATIENT/IHS(#9000001)

  • 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(^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.
  • RECORD INDEXES:  AEVT (#1329)
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010) VISIT(#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),(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
    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.
.04 PARENT DOCUMENT TYPE 0;4 POINTER TO TIU DOCUMENT DEFINITION FILE (#8925.1) TIU DOCUMENT DEFINITION(#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 ^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:  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 ^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.
  • RECORD INDEXES:  ADIV (#247), AEVT (#1329)
.06 PARENT 0;6 POINTER TO TIU DOCUMENT FILE (#8925) TIU DOCUMENT(#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)
.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)
.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)
.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.
.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.
.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.
.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...
.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.
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)
3 EDIT TEXT BUFFER TEMP;0 WORD-PROCESSING #8925.03 (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
1201 ENTRY DATE/TIME 12;1 DATE

  • 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)
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:  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)
1203 CLINIC 12;3 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#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.).
1204 EXPECTED SIGNER 12;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • 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)
1205 HOSPITAL LOCATION 12;5 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • 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)
1206 SERVICE CREDIT STOP 12;6 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#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.
1207 SECONDARY VISIT 12;7 POINTER TO VISIT FILE (#9000010) VISIT(#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 (#1696) 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:  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.
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:  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 require 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
1210 ORDER NUMBER 12;10 POINTER TO ORDER FILE (#100) ORDER(#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.
1211 VISIT LOCATION 12;11 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#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.
1212 DIVISION 12;12 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#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)
1301 REFERENCE DATE 13;1 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 (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 ^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.
  • 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)
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:  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,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.
  • RECORD INDEXES:  AADT (#1571)
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.
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.
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).
1306 VERIFIED BY 13;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 05, 2021
  • 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:  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.
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.
1401 PATIENT MOVEMENT RECORD 14;1 POINTER TO PATIENT MOVEMENT FILE (#405) PATIENT MOVEMENT(#405)

  • LAST EDITED:  OCT 05, 2021
  • 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:  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.
1403 IRT RECORD 14;3 POINTER TO INCOMPLETE RECORDS FILE (#393) INCOMPLETE RECORDS(#393)

  • LAST EDITED:  OCT 05, 2021
  • 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:  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.
1405 REQUESTING PACKAGE REFERENCE 14;5 VARIABLE POINTER REQUEST/CONSULTATION(#123)  SURGERY(#130)  

  • 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)
1406 RETRACTED ORIGINAL 14;6 POINTER TO TIU DOCUMENT FILE (#8925) TIU DOCUMENT(#8925)

  • 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)
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:  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,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:  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.
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:  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
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:  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
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).
1506 COSIGNATURE NEEDED 15;6 SET
  • '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)
1507 COSIGNATURE DATE/TIME 15;7 DATE

  • 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.
1508 COSIGNED BY 15;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • 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)
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:  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
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:  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
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.
1512 MARKED SIGNED ON CHART BY 15;12 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • 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)
1513 MARKED COSIGNED ON CHART BY 15;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • 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)
1601 AMENDMENT DATE/TIME 16;1 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 amended.
  • AUDIT:  YES, ALWAYS
  • AUDIT CONDITION:  I +$$AUDIT^TIUAUD0(DA)
1602 AMENDED BY 16;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • 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)
1603 AMENDMENT SIGNED 16;3 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 amendment was signed.
  • AUDIT:  YES, ALWAYS
  • AUDIT CONDITION:  I +$$AUDIT^TIUAUD0(DA)
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:  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
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:  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
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.
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.
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.
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.
1610 DELETED BY 16;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • 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)
1611 DELETION DATE 16;11 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) 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)
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.
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.
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 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.
  • RECORD INDEXES:  AEVT (#1329)
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)
2101 ID PARENT 21;1 POINTER TO TIU DOCUMENT FILE (#8925) TIU DOCUMENT(#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)
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.
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.
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
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.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All