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: 336

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

Accessed By FileMan Db Calls, Total: 99

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

Pointed To By FileMan Files, Total: 17

Package Total FileMan Files
Text Integration Utility 5 TIU DOCUMENT(#8925)[.0614062101]
TIU AUDIT TRAIL(#8925.5)[.013.05]    TIU MULTIPLE SIGNATURE(#8925.7)[.01]    TIU PROBLEM LINK(#8925.9)[.01]    TIU EXTERNAL DATA LINK(#8925.91)[.01]    
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]    
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)]    
Patient Assessment Documentation 1 NUPA CARE PLANS(#1927.4)[18]    
Registration 1 PRF ASSIGNMENT HISTORY(#26.14)[.06]    
Surgery 1 SURGERY(#130)[1000100110021003]    
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)[120212041208120913021306150215081512151316021610]    
Text Integration Utility 3 TIU DOCUMENT(#8925)[.0614062101]
TIU DOCUMENT DEFINITION(#8925.1)[.01.04]    TIU STATUS(#8925.6)[.05]    
PCE Patient Care Encounter 2 PATIENT/IHS(#9000001)[.02]    VISIT(#9000010)[.031207]    
Registration 2 PATIENT MOVEMENT(#405)[1401]    FACILITY TREATING SPECIALTY(#45.7)[1402]    
Scheduling 2 CLINIC STOP(#40.7)[12031206]    HOSPITAL LOCATION(#44)[12051211]    
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[1405]    
Incomplete Records Tracking 1 INCOMPLETE RECORDS(#393)[1403]    
Order Entry Results Reporting 1 ORDER(#100)[1210]    
Surgery 1 SURGERY(#130)[1405]    

Fields, Total: 75

Field # Name Loc Type Details
.01 DOCUMENT TYPE 0;1 POINTER TO TIU DOCUMENT DEFINITION FILE (#8925.1)
************************REQUIRED FIELD************************
TIU DOCUMENT DEFINITION(#8925.1)

  • OUTPUT TRANSFORM:  S Y=$S($$PNAME^TIULC1(+Y)]"":$$PNAME^TIULC1(+Y),$P(^TIU(8925.1,+Y,0),U,3)]"":$P(^TIU(8925.1,+Y,0),U,3),1:Y)
  • LAST EDITED:  APR 18, 2003
  • HELP-PROMPT:  Select the type of document.
  • DESCRIPTION:  
    This field points to the Tiu Document Definition file, whose entry defines the components of the document and various parameters for the document's behavior.
  • CROSS-REFERENCE:  8925^B
    1)= S ^TIU(8925,"B",$E(X,1,30),DA)=""
    2)= K ^TIU(8925,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  8925^APT2^MUMPS
    1)= I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"APT",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
    2)= I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"APT",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)
    This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE facilitates look-ups by patient.
  • CROSS-REFERENCE:  8925^AAU2^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"AAU",+$P($G(^TIU(8925,+DA,12)),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"AAU",+$P($G(^TIU(8925,+DA,12)),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
    This MUMPS-type, multi-field cross-reference by AUTHOR, DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE facilitates look-ups by author.
  • CROSS-REFERENCE:  8925^ASUP2^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ASUP",+$P($G(^TIU(8925,+DA,12)),U,8),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ASUP",+$P($G(^TIU(8925,+DA,12)),U,8),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
    This multi-field, MUMPS-type cross-reference by (EXPECTED COSIGNER), DOCUMENT TYPE, STATUS, INVERSE ENTRY/DICTATION DATE/TIME is used for look-ups and queries.
  • CROSS-REFERENCE:  8925^AV2^MUMPS
    1)= I $P($$DOCTYPE^TIULF(+DA),U)="DOC",+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^(0)),U,3) S ^TIU(8925,"AV",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,3),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^(0)),U,3) K ^TIU(8925,"AV",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,3),+DA)
    This MUMPS-type, multi-field cross-reference by patient, document type, and visit number will allow for a candidate key to determine whether a given document exists for a particular patient visit.
  • CROSS-REFERENCE:  8925^ATS2^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ATS",+$P($G(^TIU(8925,+DA,14)),U,2),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ATS",+$P($G(^TIU(8925,+DA,14)),U,2),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
    This MUMPS-type, multi-field cross-reference by TREATING SPECIALTY, DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE facilitates look-ups by treating specialty.
  • CROSS-REFERENCE:  8925^ATC2^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ATC",+$P($G(^TIU(8925,+DA,13)),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ATC",+$P($G(^TIU(8925,+DA,13)),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
    This MUMPS-type, multi-field cross-reference by TRANSCRIPTIONIST ID, DOCUMENT TYPE, STATUS, and INVERSE DICTATION DATE will facilitate look-ups by transcriptionist.
  • CROSS-REFERENCE:  8925^ALL2^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ALL","ANY",+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ALL","ANY",+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
    This multi-field cross-reference is used for building the review screen across all categories (Author, Attending Physician, Patient, Transcriptionist, or treating specialty).
  • CROSS-REFERENCE:  8925^AA2^MUMPS
    1)= I $P($$DOCTYPE^TIULF(+DA),U)="DOC",$L($P(^TIU(8925,+DA,0),U,2)),(+$P(^(0),U,3)>0) S ^TIU(8925,"AA",+$P(^(0),U,2),+X,(9999999-$P(+^AUPNVSIT(+$P(^TIU(8925,+DA,0),U,3),0),".")),DA)=""
    2)= I $L($P(^TIU(8925,+DA,0),U,2)),(+$P(^(0),U,3)>0) K ^TIU(8925,"AA",+$P(^(0),U,2),+X,(9999999-$P(+^AUPNVSIT(+$P(^TIU(8925,+DA,0),U,3),0),".")),DA)
    This multi-field, MUMPS-type cross-reference by patient, document type and inverse visit date is optimized for searches by entity, attribute, and time.
  • CROSS-REFERENCE:  8925^ASUB2^MUMPS
    1)= I $L($P($G(^TIU(8925,+DA,17)),U)),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) D ASUBS^TIUDD($P($G(^TIU(8925,+DA,17)),U),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)
    2)= I $L($P($G(^TIU(8925,+DA,17)),U)),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) D ASUBK^TIUDD($P($G(^TIU(8925,+DA,17)),U),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)
    This MUMPS-type, multi-field cross-reference is used for queries by subject.
  • CROSS-REFERENCE:  8925^ASVC2^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ASVC",+$P($G(^TIU(8925,+DA,14)),U,4),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="
    "
    2)= I +$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ASVC",+$P($G(^TIU(8925,+DA,14)),U,4),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
    This MUMPS-type, multi-field cross-reference by SERVICE, DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE facilitates by SERVICE.
  • CROSS-REFERENCE:  8925^AE2^MUMPS
    1)= I $P($$DOCTYPE^TIULF(+DA),U)="DOC",+$P($G(^TIU(8925,+DA,0)),U,2),(+$P($G(^(0)),U,3)>0) S ^TIU(8925,"AE",+$P($G(^TIU(8925,+DA,0)),U,2),(9999999-$P(+^AUPNVSIT(+$P(^TIU(8925,+DA,0),U,3),0),".")),+X,+DA)=""
    2)= I $L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) K ^TIU(8925,"AE",+$P($G(^TIU(8925,+DA,0)),U,2),(9999999-$P(+^AUPNVSIT(+$P(^TIU(8925,+DA,0),U,3),0),".")),+X,+DA)
    This multi-field, MUMPS-type Cross-reference by Patient, Inverse Date, and Report Type is to optimize searching by entity, time, and attribute
  • CROSS-REFERENCE:  8925^ALOC2^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ALOC",+$P($G(^TIU(8925,+DA,12)),U,5),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="
    "
    2)= I +$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ALOC",+$P($G(^TIU(8925,+DA,12)),U,5),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
    This MUMPS-type, multi-field cross-reference is optimized for searching hospital location, document type, status, and date range.
  • CROSS-REFERENCE:  8925^APRB2^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$O(^TIU(8925.9,"B",+DA,0)) D APRBS^TIUDD(+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)
    2)= I +$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$O(^TIU(8925.9,"B",+DA,0)) D APRBK^TIUDD(+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)
    This MUMPS-type, multi-field cross-reference by Problem, Document Type, Status, and Inverse Reference Date facilitates query for documents by problem.
  • CROSS-REFERENCE:  8925^AVSIT2^MUMPS
    1)= I +$P(^TIU(8925,+DA,0),U,3),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"AVSIT",+$P(^TIU(8925,+DA,0),U,3),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
    2)= I +$P(^TIU(8925,+DA,0),U,3),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"AVSIT",+$P(^TIU(8925,+DA,0),U,3),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)
    This MUMPS-type, multi-field cross-reference by VISIT, DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE facilitates look-ups by visit.
  • CROSS-REFERENCE:  8925^APTCL2^MUMPS
    1)= I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,0),U,2),+$$CLINDOC^TIULC1(+X,+DA),(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
    2)= I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,0),U,2),+$$CLINDOC^TIULC1(+X,+DA),(9999999-$P(^TIU(8925,+DA,13),U)),DA)
    This MUMPS-type, multi-field cross-reference by PATIENT, CLINICAL DOCUMENT CLASS, and INVERSE REFERENCE DATE facilitates look-ups by patient.
  • CROSS-REFERENCE:  8925^APTCL382^MUMPS
    1)= I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,0),U,2),38,(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
    2)= I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,0),U,2),38,(9999999-$P(^TIU(8925,+DA,13),U)),DA)
    This MUMPS-type, multi-field cross-reference by PATIENT, ROOT CLASS, and INVERSE REFERENCE DATE facilitates look-ups by patient.
  • CROSS-REFERENCE:  8925^ACLPT01^MUMPS
    1)= D SACLPT^TIUDD0(.01,X)
    2)= D KACLPT^TIUDD01(.01,X)
    This multi-field, MUMPS-type cross-reference on CLASS, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to support rapid queries by patient.
  • CROSS-REFERENCE:  8925^ACLAU02^MUMPS
    1)= D SACLAU^TIUDD0(.01,X),SACLAU1^TIUDD0(.01,X)
    2)= D KACLAU^TIUDD01(.01,X),KACLAU1^TIUDD01(.01,X)
    This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED BY), PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to facilitate rapid access to the current users unsigned notes about a patient.
  • CROSS-REFERENCE:  8925^ACLEC01^MUMPS
    1)= D SACLEC^TIUDD0(.01,X)
    2)= D KACLEC^TIUDD01(.01,X)
    This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is useful for finding the uncosigned notes by the current user for a given patient.
  • CROSS-REFERENCE:  8925^ACLSB01^MUMPS
    1)= D SACLSB^TIUDD0(.01,X)
    2)= D KACLSB^TIUDD01(.01,X)
    This cross-reference by CLASS, SIGNED BY, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # will facilitate finding records signed by a given user about the current patient.
  • CROSS-REFERENCE:  8925^APTLD01^MUMPS
    1)= D SAPTLD^TIUDD0(.01,X)
    2)= D KAPTLD^TIUDD01(.01,X)
    This MUMPS type Multi-field index by PT,TITLE,"LOC;VDT;VTYP",DA is used for optimizing checks for documents for a particular visit.
  • RECORD INDEXES:  ADIV (#247), AEVT (#1329)
.02 PATIENT 0;2 POINTER TO PATIENT/IHS FILE (#9000001) PATIENT/IHS(#9000001)

  • LAST EDITED:  JUN 17, 1997
  • DESCRIPTION:  
    This field contains a pointer to the patient file.
  • CROSS-REFERENCE:  8925^AA^MUMPS
    1)= I $P($$DOCTYPE^TIULF(+DA),U)="DOC",$L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) S ^TIU(8925,"AA",+X,+^TIU(8925,+DA,0),(9999999-$P(+^AUPNVSIT($P(^TIU(8925,+DA,0),U,3),0),".")),+DA)=""
    2)= I $L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) K ^TIU(8925,"AA",+X,+^TIU(8925,+DA,0),(9999999-$P(+^AUPNVSIT($P(^TIU(8925,+DA,0),U,3),0),".")),+DA)
    This multi-field, MUMPS-type cross-reference by Patient, Document Type, and Inverse Visit Date will help to identify documents by patient and time.
  • CROSS-REFERENCE:  8925^APT^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"APT",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"APT",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)
    This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE will facilitate look-ups by patient.
  • CROSS-REFERENCE:  8925^AE^MUMPS
    1)= I $P($$DOCTYPE^TIULF(+DA),U)="DOC",$L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) S ^TIU(8925,"AE",+X,(9999999-$P(+^AUPNVSIT($P(^TIU(8925,+DA,0),U,3),0),".")),+^TIU(8925,+DA,0),+DA)=""
    2)= I $L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) K ^TIU(8925,"AE",+X,(9999999-$P(+^AUPNVSIT($P(^TIU(8925,+DA,0),U,3),0),".")),+^TIU(8925,+DA,0),+DA)
    This multi-field, MUMPS-type Cross-reference by Patient, Inverse Visit Date, and Report Type is to optimize searching by entity, time, and attribute.
  • CROSS-REFERENCE:  8925^C
    1)= S ^TIU(8925,"C",$E(X,1,30),DA)=""
    2)= K ^TIU(8925,"C",$E(X,1,30),DA)
    This REGULAR FileMan type cross-reference is used for look-up by patient.
  • CROSS-REFERENCE:  8925^AV^MUMPS
    1)= I $P($$DOCTYPE^TIULF(+DA),U)="DOC",+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^(0)),U,3) S ^TIU(8925,"AV",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,3),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^(0)),U,3) K ^TIU(8925,"AV",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,3),+DA)
    This MUMPS-type, multi-field cross-reference by patient, document type and visit record number will serve as a candidate key to determine whether a given document exists for a particular patient visit.
  • CROSS-REFERENCE:  8925^APTP^MUMPS
    1)= I +$$APTP^TIULX(+DA),+$P($G(^TIU(8925,+DA,15)),U) S ^TIU(8925,"APTP",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,15)),U) K ^TIU(8925,"APTP",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)
    This MUMPS-type, multi-field cross-reference by Patient and REGULAR Signature Date/Time is used to maintain the daily print queue for batch printing of documents (currently, just Progress Notes) on signature.
  • CROSS-REFERENCE:  8925^ADCPT^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U,4),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ADCPT",+X,+$P(^TIU(8925,+DA,0),U,4),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U,4),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ADCPT",+X,+$P(^TIU(8925,+DA,0),U,4),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)
    This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT CLASS, STATUS, and INVERSE REFERENCE DATE facilitates look-ups by PATIENT AND DOCUMENT CLASS (e.g., all SIGNED Violence Postings for patient John Doe).
  • CROSS-REFERENCE:  8925^APTCL^MUMPS
    1)= I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"APTCL",+X,+$$CLINDOC^TIULC1(+$P(^TIU(8925,+DA,0),U),+DA),(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
    2)= I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"APTCL",+X,+$$CLINDOC^TIULC1(+$P(^TIU(8925,+DA,0),U),+DA),(9999999-$P(^TIU(8925,+DA,13),U)),DA)
    This MUMPS-type, multi-field cross-reference by PATIENT, CLINICAL DOCUMENT CLASS, and INVERSE REFERENCE DATE facilitates look-ups by patient.
  • CROSS-REFERENCE:  8925^APTCL38^MUMPS
    1)= I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"APTCL",+X,38,(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
    2)= I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"APTCL",+X,38,(9999999-$P(^TIU(8925,+DA,13),U)),DA)
    This MUMPS-type, multi-field cross-reference by PATIENT, ROOT CLASS, and INVERSE REFERENCE DATE facilitates look-ups by patient.
  • CROSS-REFERENCE:  8925^2270^MUMPS
    1)= D SACLPT^TIUDD0(.02,X)
    2)= D KACLPT^TIUDD01(.02,X)
    3)= This x-ref is used to extract lists based on context
    This cross-reference permits the rapid extraction of documents which are of the specified document class, for a the patient(s) selected, and within the specified date range.
  • CROSS-REFERENCE:  8925^ACLAU^MUMPS
    1)= D SACLAU^TIUDD0(.02,X),SACLAU1^TIUDD0(.02,X)
    2)= D KACLAU^TIUDD01(.02,X),KACLAU1^TIUDD01(.02,X)
    3)= This x-ref is used to extract lists based on context
    This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED BY), PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to facilitate rapid access to the current users unsigned notes about a patient.
  • CROSS-REFERENCE:  8925^ACLEC^MUMPS
    1)= D SACLEC^TIUDD0(.02,X)
    2)= D KACLEC^TIUDD01(.02,X)
    3)= This x-ref is used to extract lists based on context
    This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is useful for finding the uncosigned notes by the current user for a given patient.
  • CROSS-REFERENCE:  8925^ACLSB^MUMPS
    1)= D SACLSB^TIUDD0(.02,X)
    2)= D KACLSB^TIUDD01(.02,X)
    3)= This x-ref is used to extract lists based on context
    This cross-reference by CLASS, SIGNED BY, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # will facilitate finding records signed by a given user about the current patient.
  • CROSS-REFERENCE:  8925^APTLD02^MUMPS
    1)= D SAPTLD^TIUDD0(.02,X)
    2)= D KAPTLD^TIUDD01(.02,X)
    This MUMPS type Multi-field index by PT,TITLE,"LOC;VDT;VTYP",DA is used for optimizing checks for documents for a particular visit.
  • RECORD INDEXES:  AEVT (#1329)
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  JUN 17, 1997
  • 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:  SEP 25, 1995
  • HELP-PROMPT:  Indicate the PARENT DOCUMENT TYPE to which the current document belongs.
  • DESCRIPTION:  This field points to the immediate parent class or document type to which the current record belongs. For example, when the current document has the type SOAP - GENERAL NOTE, this field will point to PROGRESS NOTE, as the
    parent class to which SOAP Notes belong, whereas, if the current record is a SUBJECTIVE component, then this field will point to SOAP - GENERAL NOTE as the parent document type to which the component belongs.
  • CROSS-REFERENCE:  8925^ADCPT2^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ADCPT",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ADCPT",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)
    This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT CLASS, STATUS, and INVERSE REFERENCE DATE facilitates look-ups by PATIENT AND DOCUMENT CLASS (e.g., all SIGNED Violence Postings for patient John Doe).
.05 STATUS 0;5 POINTER TO TIU STATUS FILE (#8925.6) TIU STATUS(#8925.6)

  • LAST EDITED:  APR 18, 2003
  • HELP-PROMPT:  Enter the status of the document.
  • DESCRIPTION:  
    This field is intended to accommodate the status of a given report.
  • CROSS-REFERENCE:  8925^ASUP3^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ASUP",+$P(^TIU(8925,+DA,12),U,8),+$P(^TIU(8925,+DA,0),U),+X,(9999999-+$P(^TIU(8925,+DA,13),U)),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ASUP",+$P(^TIU(8925,+DA,12),U,8),+$P(^TIU(8925,+DA,0),U),+X,(9999999-+$P(^TIU(8925,+DA,13),U)),+DA)
    This MUMPS-type, multi-field cross-reference by (EXPECTED COSIGNER), DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE/TIME, will be used for look-ups and queries.
  • CROSS-REFERENCE:  8925^AAU3^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)
    This MUMPS-type, multi-field cross-reference by AUTHOR/DICTATOR, DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE/TIME is used for look-ups and queries.
  • CROSS-REFERENCE:  8925^APT3^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"APT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"APT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)
    This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE/TIME is used for look-ups and queries.
  • CROSS-REFERENCE:  8925^ATC3^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"ATC",+$P($G(^TIU(8925,+DA,13)),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"ATC",+$P($G(^TIU(8925,+DA,13)),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
    This MUMPS-type, multi-field cross-reference by ENTERED BY, DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE/TIME is used for look-ups and queries.
  • CROSS-REFERENCE:  8925^ATS3^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"ATS",+$P($G(^TIU(8925,+DA,14)),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"ATS",+$P($G(^TIU(8925,+DA,14)),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
    This MUMPS-type, multi-field cross-reference by TREATING SPECIALTY, DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE/TIME is used for look-ups and queries.
  • CROSS-REFERENCE:  8925^ALL3^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"ALL","ANY",+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"ALL","ANY",+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)
    This MUMPS-type, multi-field cross-reference by DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE/TIME is used for queries and look-ups.
  • CROSS-REFERENCE:  8925^ASUB3^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),$L($P($G(^TIU(8925,+DA,17)),U)),+$P($G(^TIU(8925,+DA,13)),U) D ASUBS^TIUDD($P($G(^TIU(8925,+DA,17)),U),+$G(^TIU(8925,+DA,0)),+X,(9999999-+$G(^TIU(8925,+DA,13))),DA)
    2)= I +$P($G(^TIU(8925,+DA,0)),U),$L($P($G(^TIU(8925,+DA,17)),U)),+$P($G(^TIU(8925,+DA,13)),U) D ASUBK^TIUDD($P($G(^TIU(8925,+DA,17)),U),+$G(^TIU(8925,+DA,0)),+X,(9999999-+$G(^TIU(8925,+DA,13))),DA)
    This MUMPS-type, multi-field cross-reference is used in queries by subject.
  • CROSS-REFERENCE:  8925^ASVC3^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"ASVC",+$P($G(^TIU(8925,+DA,14)),U,4),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"ASVC",+$P($G(^TIU(8925,+DA,14)),U,4),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
    This MUMPS-type, multi-field cross-reference by SERVICE, TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE/TIME is used look-ups and
  • CROSS-REFERENCE:  8925^ALOC3^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U) S ^TIU(8925,"ALOC",+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U),+X,(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U) K ^TIU(8925,"ALOC",+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U),+X,(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
    This MUMPS-type, multi-field cross-reference is optimized for searching hospital location, document type, status, and date range.
  • CROSS-REFERENCE:  8925^APRB3^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$O(^TIU(8925.9,"B",+DA,0)) D APRBS^TIUDD(+$G(^TIU(8925,+DA,0)),+X,(9999999-+$G(^TIU(8925,+DA,13))),DA)
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$O(^TIU(8925.9,"B",+DA,0)) D APRBK^TIUDD(+$G(^TIU(8925,+DA,0)),+X,(9999999-+$G(^TIU(8925,+DA,13))),DA)
    This MUMPS-type, Multi-field index by PROBLEM, DOCUMENT TYPE, STATUS, and INVERSE DICTATION DATE/TIME facilitates queries by problem.
  • CROSS-REFERENCE:  8925^AVSIT3^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,3),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"AVSIT",+$P(^TIU(8925,+DA,0),U,3),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,3),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,"AVSIT",+$P(^TIU(8925,+DA,0),U,3),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)
    This MUMPS-type, multi-field cross-reference by VISIT, DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE facilitates look-ups by visit.
  • CROSS-REFERENCE:  8925^ADCPT3^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,4) S ^TIU(8925,"ADCPT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U,4),+X,(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,4) K ^TIU(8925,"ADCPT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U,4),+X,(9999999-$P(^TIU(8925,+DA,13),U)),DA)
    This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT CLASS, STATUS, and INVERSE REFERENCE DATE facilitates look-ups by PATIENT AND DOCUMENT CLASS (e.g., all SIGNED Violence Postings for patient John Doe).
  • CROSS-REFERENCE:  8925^ACLPT05^MUMPS
    1)= D SACLPT^TIUDD0(.05,X)
    2)= D KACLPT^TIUDD01(.05,X)
    This multi-field M-type cross-reference on CLASS, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # supports rapid queries by patient. The global set looks like ^TIU(8925,"ACLPT",,,
    date/ time>,)=""
    The STATUS field is cross-referenced to catch cases where the status is not updated until after the SIGNATURE DATE/TIME is edited. Generally, documents are added to the ACLPT cross-reference when they are first signed, via
    the SIGNATURE DATE/TIME field. However, they are added only if their status is already signed or higher. Since Sign on Chart code does not update status until AFTER editing SIGNATURE DATE/TIME, SOC documents are omitted
    from the cross-reference. Adding this cross- reference to the status field corrects this problem.
  • CROSS-REFERENCE:  8925^ACLEC06^MUMPS
    1)= D SACLEC^TIUDD0(.05,X)
    2)= D KACLEC^TIUDD01(.05,X)
    This multi-field, MUMPS-type cross reference on CLASS, EXPECTED COSIGNER, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is useful for finding the uncosigned notes by the current user for a given patient.
  • CROSS-REFERENCE:  8925^ACLAU05^MUMPS
    1)= D SACLAU^TIUDD0(.05,X),SACLAU1^TIUDD0(.05,X)
    2)= D KACLAU^TIUDD01(.05,X),KACLAU1^TIUDD01(.05,X)
    This multi-field, MUMPS-type cross reference on CLASS, AUTHOR (or ENTERED BY), PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to faciliate rapid access to the current users unsigned notes about a patient.
  • RECORD INDEXES:  ADIV (#247), AEVT (#1329)
.06 PARENT 0;6 POINTER TO TIU DOCUMENT FILE (#8925) TIU DOCUMENT(#8925)

  • LAST EDITED:  MAR 16, 1997
  • HELP-PROMPT:  Select the original report
  • DESCRIPTION:  
    In the event that the current report is an addendum or replacement, or is a component of a report, this field points to the original report.
  • CROSS-REFERENCE:  8925^DAD
    1)= S ^TIU(8925,"DAD",$E(X,1,30),DA)=""
    2)= K ^TIU(8925,"DAD",$E(X,1,30),DA)
    Cross-reference on parent to help find addenda.
  • 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:  JUN 17, 1997
  • HELP-PROMPT:  Enter the admission date (time is optional).
  • DESCRIPTION:  This is the date/time at which the treatment episode associated with this document was initiated (e.g., Amission date/time for a discharge summary, Visit date/time for a clinic note, Transfer date/time for an interim
    summary). Time is optional.
  • CROSS-REFERENCE:  8925^APTLD07^MUMPS
    1)= D SAPTLD^TIUDD0(.07,X)
    2)= D KAPTLD^TIUDD01(.07,X)
    This MUMPS type Multi-field index by PT,TITLE,"LOC;VDT;VTYP",DA is used for optimizing checks for documents for a particular visit.
  • 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:  MAR 08, 1993
  • HELP-PROMPT:  Enter discharge date (time is optional).
  • DESCRIPTION:  
    This is the ending date/time for the treatment episode associated with this document (e.g., . Time is optional.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  AEVT (#1329)
.09 URGENCY 0;9 SET
  • 'P' FOR priority;
  • 'R' FOR routine;

  • LAST EDITED:  MAY 03, 2001
  • HELP-PROMPT:  Enter urgency.
  • DESCRIPTION:  
    This is the urgency with which the report should be completed.
  • SCREEN:  S X=$$URGENCY^TIULS($G(X)),DIC("S")="I 1"
  • EXPLANATION:  STAT is equivalent to priority.
.1 LINE COUNT 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1)!'(X?1.8N) X
  • LAST EDITED:  MAY 20, 1992
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • DESCRIPTION:  
    This is the number of characters in the document (blank lines excluded), divided by the CHARACTERS PER LINE parameter defined by your site.
.11 CREDIT STOP CODE ON COMPLETION 0;11 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  APR 15, 1996
  • HELP-PROMPT:  Indicate whether the stop-code for a new visit should be credited.
  • DESCRIPTION:  
    This boolean field indicates whether the stop code associated with a new visit should be credited when the note is completed.
.12 MARK DISCH DT FOR CORRECTION 0;12 SET
  • '1' FOR YES;

  • LAST EDITED:  MAY 31, 1996
  • HELP-PROMPT:  Indicate whether discharge date must be corrected by the daemon
  • DESCRIPTION:  
    This boolean field identfies those discharge summaries which were filed prior to actual discharge of the patient for the nightly background process to back-fill with corrected discharge dates.
  • CROSS-REFERENCE:  8925^FIX
    1)= S ^TIU(8925,"FIX",$E(X,1,30),DA)=""
    2)= K ^TIU(8925,"FIX",$E(X,1,30),DA)
    This regular FileMan Cross-reference is used by the nightly daemon to identify those records which require evaluation/correction of their discharge dates...
.13 VISIT TYPE 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1U.E) X
  • LAST EDITED:  JUN 17, 1997
  • HELP-PROMPT:  This field contains the visit type identification and is entered by the program during processing.
  • DESCRIPTION:  This field is used to identify the type of visit information related to the current document. The value is determined during processing and is entered by the program. It is used in the generation of a cross-reference to
    identify available documents for specified visits.
  • CROSS-REFERENCE:  8925^APTLD13^MUMPS
    1)= D SAPTLD^TIUDD0(.13,X)
    2)= D KAPTLD^TIUDD01(.13,X)
    This MUMPS type Multi-field index by PT,TITLE,"LOC;VDT;VTYP",DA is used for optimizing checks for documents for a particular visit.
2 REPORT TEXT TEXT;0 WORD-PROCESSING #8925.02

  • DESCRIPTION:  
    This is a word processing field that contains the report text.
3 EDIT TEXT BUFFER TEMP;0 WORD-PROCESSING #8925.03

  • DESCRIPTION:  
    This field provides a temporary holding place for the body of a report to prevent inadvertant record deletion or corruption in a manner independent of the user's preferred editor.
1201 ENTRY DATE/TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 28, 1996
  • HELP-PROMPT:  Date/time of entry into database.
  • DESCRIPTION:  
    This is the date/time at which the document was originally entered into the database.
  • CROSS-REFERENCE:  8925^F
    1)= S ^TIU(8925,"F",$E(X,1,30),DA)=""
    2)= K ^TIU(8925,"F",$E(X,1,30),DA)
    This regular FileMan Cross-reference on Entry Date/time supports the Nightly background task, by helping to identify the subset of records which is overdue for either signature or purging.
  • RECORD INDEXES:  VBC (#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:  DEC 09, 1998
  • HELP-PROMPT:  Enter the author or dictating provider.
  • DESCRIPTION:  
    This is the person who composed or dictated the document.
  • SCREEN:  S DIC("S")="I '+$$ISTERM^USRLM(+Y)"
  • EXPLANATION:  Terminated users may NOT be selected.
  • CROSS-REFERENCE:  8925^CA
    1)= S ^TIU(8925,"CA",$E(X,1,30),DA)=""
    2)= K ^TIU(8925,"CA",$E(X,1,30),DA)
    This REGULAR, whole-file cross-reference by Author/Dictator will facilitate both look-ups and sorting by author.
  • CROSS-REFERENCE:  8925^AAU^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"AAU",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"AAU",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),+DA)
    This MUMPS-type, multi-field cross-reference by author, document type, status, and inverse dictation date/time is intended to facilitate look-up by author for the review process.
  • CROSS-REFERENCE:  8925^AAUP^MUMPS
    1)= I +$$AAUP^TIULX(+DA),+$P($G(^TIU(8925,+DA,15)),U) S ^TIU(8925,"AAUP",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,15)),U) K ^TIU(8925,"AAUP",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)
    This MUMPS-type, multi-field cross-reference by Author and REGULAR Signature Date/Time is used to maintain the daily print queue for batch printing of documents (currently, just Progress Notes) on signature.
  • CROSS-REFERENCE:  8925^ACLAU03^MUMPS
    1)= D SACLAU^TIUDD0(1202,X)
    2)= D KACLAU^TIUDD01(1202,X)
    This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED BY), PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to facilitate rapid access to the current users unsigned notes about a patient.
  • CROSS-REFERENCE:  ^^TRIGGER^8925^1404
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '+$$ISDS^TIULX(+$G(^TIU(8925,+DA,0))) I X S X=DIV S Y(1)=$S($D(^TIU(8925,D0,14)):^(14),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(8925,1202,1,5,1.1) X ^DD(8925,1202,1,5,1.4)
    1.1)= S X=DIV S X=+$$PROVSVC^TIULV(+$P($G(^TIU(8925,DA,12)),U,2))
    1.4)= S DIH=$S($D(^TIU(8925,DIV(0),14)):^(14),1:""),DIV=X S $P(^(14),U,4)=DIV,DIH=8925,DIG=1404 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= I '+$$ISDS^TIULX(+$G(^TIU(8925,+DA,0)))
    CREATE VALUE)= S X=+$$PROVSVC^TIULV(+$P($G(^TIU(8925,DA,12)),U,2))
    DELETE VALUE)= NO EFFECT
    FIELD)= SERVICE
  • RECORD INDEXES:  AEVT (#1329)
1203 CLINIC 12;3 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

  • LAST EDITED:  JAN 25, 1995
  • HELP-PROMPT:  Enter the stop code for the clinic.
  • DESCRIPTION:  This is the stop code to which the document is to be credited (e.g., if the document is a progress note documenting an encounter which took place in the Admitting/Screening Clinic, then select the corresponding stop code,
    etc.).
1204 EXPECTED SIGNER 12;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • OUTPUT TRANSFORM:  S:+Y>0&$D(TIUSIG) Y=$S($L($P(^VA(200,+Y,20),U,2)):$P(^(20),U,2),1:$P(^VA(200,+Y,0),U)) S:+Y>0&'$D(TIUSIG) Y=$P(^VA(200,+Y,0),U)
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Enter the person responsible for signing the document.
  • DESCRIPTION:  This is the person who is expected to enter the first-line signature for the document. Ordinarily, this would be the author. One case in which this would differ would be in the case of a Discharge Summary, when the
    author's signature is NOT required. Then, the attending physician would be the expected signer.
1205 HOSPITAL LOCATION 12;5 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  MAR 28, 1997
  • HELP-PROMPT:  Enter the location associated with the document.
  • DESCRIPTION:  
    This is the location (WARD or CLINIC) associated with the document.
  • CROSS-REFERENCE:  8925^ALOC^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ALOC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ALOC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
    This MUMPS-type, multi-field cross-reference is optimized for searching hospital location, document type, status, and date range.
  • CROSS-REFERENCE:  8925^ALOCP^MUMPS
    1)= I +$$ALOCP^TIULX(+DA),+$P($G(^TIU(8925,+DA,15)),U) S ^TIU(8925,"ALOCP",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,15)),U) K ^TIU(8925,"ALOCP",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)
    This MUMPS-type, multi-field cross-reference by Hospital Location and REGULAR Signature Date/Time is used to maintain the daily print queue for batch printing of documents (currently, just Progress Notes) on signature.
  • RECORD INDEXES:  AEVT (#1329)
1206 SERVICE CREDIT STOP 12;6 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

  • LAST EDITED:  JAN 25, 1995
  • HELP-PROMPT:  Enter the name of the STOP CODE for the Secondary Visit.
  • DESCRIPTION:  
    This is the attending physician of record, who is ultimately responsible for the care of the patient, and the accurate documentation of the care episode.
1207 SECONDARY VISIT 12;7 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  MAR 29, 2000
  • 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.
  • FIELD INDEX:  VS (#308) REGULAR IR LOOKUP & SORTING
    Short Descr: REGULAR XREF ON FIELD 1207
    Description: THIS XREF CONTAINS AS A SUBSCRIPT THE VALUE OF FIELD 1207 OF FILE #8925
    Set Logic: S ^TIU(8925,"VS",X,DA)=""
    Kill Logic: K ^TIU(8925,"VS",X,DA)
    Whole Kill: K ^TIU(8925,"VS")
    X(1): SECONDARY VISIT (8925,1207) (Subscr 1) (forwards)
1208 EXPECTED COSIGNER 12;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I +$G(DA),+$$SCRCSNR^TIULA3(+DA,+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 25, 1998
  • HELP-PROMPT:  Enter the person who is expected to cosign the document.
  • SCREEN:  S DIC("S")="I +$G(DA),+$$SCRCSNR^TIULA3(+DA,+Y)"
  • EXPLANATION:  You may not select self, author, or others who require cosignature.
  • CROSS-REFERENCE:  8925^CS
    1)= S ^TIU(8925,"CS",$E(X,1,30),DA)=""
    2)= K ^TIU(8925,"CS",$E(X,1,30),DA)
    This REGULAR, FileMan type cross-reference by supervisor (expected cosigner) will be used to optimize FM Sorts and searches.
  • CROSS-REFERENCE:  8925^ASUP^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ASUP",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ASUP",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
    This MUMPS-type, multi-field cross-reference by (EXPECTED COSIGNER), DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE/TIME will be used for look-ups and queries.
  • CROSS-REFERENCE:  8925^ACLEC03^MUMPS
    1)= D SACLEC^TIUDD0(1208,X)
    2)= D KACLEC^TIUDD01(1208,X)
    This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is useful for finding the uncosigned notes by the current user for a given patient.
1209 ATTENDING PHYSICIAN 12;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I +$G(DA),+$$SCRATT^TIULA3(+DA,+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 07, 2007
  • HELP-PROMPT:  Enter the name of the Attending Physician.
  • SCREEN:  S DIC("S")="I +$G(DA),+$$SCRATT^TIULA3(+DA,+Y)"
  • EXPLANATION:  Discharge Summary Attendings may not be terminated, must be in USR Class PROVIDER, and may not require cosignature. Other Attendings must be active providers.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1210 ORDER NUMBER 12;10 POINTER TO ORDER FILE (#100) ORDER(#100)

  • LAST EDITED:  FEB 15, 1995
  • HELP-PROMPT:  Indicate the Order with which this document is associated.
  • DESCRIPTION:  
    This is the Order which was acted on to produce the result reported in the current document.
1211 VISIT LOCATION 12;11 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  JUN 17, 1997
  • HELP-PROMPT:  Enter the Hospital Location at which the visit occurred.
  • DESCRIPTION:  This is the location at which the visit/admission occurred. As distinct from the HOSPITAL LOCATION field, which represents the location at the time the document was written, this is the location for the visit/admission
    with which the note is associated.
  • CROSS-REFERENCE:  8925^APTLD1211^MUMPS
    1)= D SAPTLD^TIUDD0(1211,X)
    2)= D KAPTLD^TIUDD01(1211,X)
    This MUMPS-type, Multi-field index by PT,TITLE,"VLOC;VDT;VTYP",DA is used to optimize the check for documents of a given title for a particular visit.
1212 DIVISION 12;12 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  APR 18, 2003
  • HELP-PROMPT:  Enter the institution associated with the document.
  • DESCRIPTION:  
    This field contains the institution associated with the document. It is extracted from the document's hospital location if known; otherwise it is extracted from the user's log-on division.
  • RECORD INDEXES:  ADIV (#247)
1301 REFERENCE DATE 13;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 08, 2007
  • HELP-PROMPT:  This is the date (and time) by which the document will be referenced.
  • DESCRIPTION:  This is the Date (and time) by which the clinician will reference the document. For Progress Notes, this will likely be the date of the provider's encounter with the patient. For Discharge Summaries, it will correspond
    to the Discharge Date of the Admission referenced in the document. (If there is no Discharge Date when dictated, it will correspond to the dictation date of the record instead.) In all cases, this is the date by which the
    document will be referenced and sorted.
  • CROSS-REFERENCE:  8925^AAU1^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
    This MUMPS-type, multi-field cross-reference is used for look-ups by author, document type, status, and date range.
  • CROSS-REFERENCE:  8925^ASUP1^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ASUP",+$P(^TIU(8925,+DA,12),U,8),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ASUP",+$P(^TIU(8925,+DA,12),U,8),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
    This MUMPS-type, multi-field cross-reference by EXPECTED COSIGNER), DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE/TIME will be used for look-ups and queries.
  • CROSS-REFERENCE:  8925^APT1^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"APT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"APT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
    This MUMPS-type, multi-field cross-reference is used for look-ups by patient, document type, status, and date range.
  • CROSS-REFERENCE:  8925^ATS1^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ATS",+$P(^TIU(8925,+DA,14),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ATS",+$P(^TIU(8925,+DA,14),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
    This MUMPS-type, multi-field cross-reference is used for look-ups by Treating Specialty, document type, status, and date range.
  • CROSS-REFERENCE:  8925^ATC1^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ATC",+$P(^TIU(8925,+DA,13),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ATC",+$P(^TIU(8925,+DA,13),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
    This MUMPS-type, multi-field cross-reference is used for look-ups by Entry person, document type, status, and date range.
  • CROSS-REFERENCE:  8925^ALL1^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ALL","ANY",+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ALL","ANY",+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
    This MUMPS-type, multi-field cross-reference is used for look-ups by document type and date range.
  • CROSS-REFERENCE:  8925^ASUB1^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),$L($P($G(^TIU(8925,+DA,17)),U)) D ASUBS^TIUDD($P($G(^TIU(8925,+DA,17)),U),+$G(^TIU(8925,+DA,0)),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-+X),DA)
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),$L($P($G(^TIU(8925,+DA,17)),U)) D ASUBK^TIUDD($P($G(^TIU(8925,+DA,17)),U),+$G(^TIU(8925,+DA,0)),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-+X),DA)
    This MULTI-fields, MUMPS-type cross-reference is used for queries by subject.
  • CROSS-REFERENCE:  8925^ASVC1^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ASVC",+$P(^TIU(8925,+DA,14),U,4),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ASVC",+$P(^TIU(8925,+DA,14),U,4),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
    This MUMPS-type, multi-field cross-reference is used for look-ups SERVICE, document type, status, and date
  • CROSS-REFERENCE:  8925^APRB1^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$O(^TIU(8925.9,"B",+DA,0)) D APRBS^TIUDD(+$G(^TIU(8925,+DA,0)),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-+X),DA)
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$O(^TIU(8925.9,"B",+DA,0)) D APRBK^TIUDD(+$G(^TIU(8925,+DA,0)),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-+X),DA)
    This MUMPS-type, multi-field cross-reference by Problem, Document type, Status, and Inverse Reference Date/time is used to facilitate query by problem.
  • CROSS-REFERENCE:  8925^AVSIT1^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,3),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"AVSIT",+$P(^TIU(8925,+DA,0),U,3),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,3),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"AVSIT",+$P(^TIU(8925,+DA,0),U,3),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),DA)
    This MUMPS-type, multi-field cross-reference by VISIT, DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE facilitates look-ups by visit.
  • CROSS-REFERENCE:  8925^ADCPT1^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U,4),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ADCPT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U,4),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U,4),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ADCPT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U,4),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),DA)
    This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT CLASS, STATUS, and INVERSE REFERENCE DATE facilitates look-ups by PATIENT AND DOCUMENT CLASS (e.g., all SIGNED Violence Postings for patient John Doe).
  • CROSS-REFERENCE:  8925^D
    1)= S ^TIU(8925,"D",$E(X,1,30),DA)=""
    2)= K ^TIU(8925,"D",$E(X,1,30),DA)
    This REGULAR FileMan Cross-reference by Reference Date/time is used for both look-ups and sorts.
  • CROSS-REFERENCE:  8925^APTCL1^MUMPS
    1)= I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,0)),U,2) S ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,0),U,2),+$$CLINDOC^TIULC1(+$P(^TIU(8925,+DA,0),U),+DA),(9999999-X),DA)=""
    2)= I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,0)),U,2) K ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,0),U,2),+$$CLINDOC^TIULC1(+$P(^TIU(8925,+DA,0),U),+DA),(9999999-X),DA)
    This MUMPS-type, multi-field cross-reference by PATIENT, CLINICAL DOCUMENT CLASS, and INVERSE REFERENCE DATE facilitates look-ups by patient.
  • CROSS-REFERENCE:  8925^APTCL381^MUMPS
    1)= I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,0)),U,2) S ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,0),U,2),38,(9999999-X),DA)=""
    2)= I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,0)),U,2) K ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,0),U,2),38,(9999999-X),DA)
    This MUMPS-type, multi-field cross-reference by PATIENT, ROOT CLASS, and INVERSE REFERENCE DATE facilitates look-ups by patient.
  • CROSS-REFERENCE:  8925^ALOC1^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ALOC",+$P(^TIU(8925,+DA,12),U,5),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ALOC",+$P(^TIU(8925,+DA,12),U,5),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
    This MUMPS-type, multi-field cross-reference is used for look-ups LOCATION, document type, status, and date
  • CROSS-REFERENCE:  8925^ACLPT03^MUMPS
    1)= D SACLPT^TIUDD0(1301,X)
    2)= D KACLPT^TIUDD01(1301,X)
    This multi-field, MUMPS-type cross-reference on CLASS, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to support rapid queries by patient.
  • CROSS-REFERENCE:  8925^ACLAU01^MUMPS
    1)= D SACLAU^TIUDD0(1301,X),SACLAU1^TIUDD0(1301,X)
    2)= D KACLAU^TIUDD01(1301,X),KACLAU1^TIUDD01(1301,X)
    This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED BY), PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to facilitate rapid access to the current users unsigned notes about a patient.
  • CROSS-REFERENCE:  8925^ACLEC02^MUMPS
    1)= D SACLEC^TIUDD0(1301,X)
    2)= D KACLEC^TIUDD01(1301,X)
    This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is useful for finding the uncosigned notes by the current user for a given patient.
  • CROSS-REFERENCE:  8925^ACLSB02^MUMPS
    1)= D SACLSB^TIUDD0(1301,X)
    2)= D KACLSB^TIUDD01(1301,X)
    This cross-reference by CLASS, SIGNED BY, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # will facilitate finding records signed by a given user about the current patient.
  • RECORD INDEXES:  ADIV (#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:  JUN 17, 1997
  • HELP-PROMPT:  This is the person who entered the document into the computer.
  • CROSS-REFERENCE:  8925^TC
    1)= S ^TIU(8925,"TC",$E(X,1,30),DA)=""
    2)= K ^TIU(8925,"TC",$E(X,1,30),DA)
    This REGULAR, FileMan type cross-reference is used for sorting by the person who entered the original document.
  • CROSS-REFERENCE:  8925^ATC^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ATC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ATC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
    This MUMPS-type, multi-field cross-reference is used for searching by entry person, document type, status, and date range.
  • CROSS-REFERENCE:  8925^ACLAU103^MUMPS
    1)= D SACLAU1^TIUDD0(1302,X)
    2)= D KACLAU1^TIUDD01(1302,X)
    This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED BY), PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to facilitate rapid access to the current users unsigned notes about a patient.
1303 CAPTURE METHOD 13;3 SET
  • 'D' FOR direct;
  • 'U' FOR upload;
  • 'C' FOR converted;
  • 'R' FOR remote procedure;
  • 'O' FOR copy;

  • LAST EDITED:  DEC 05, 1996
  • HELP-PROMPT:  This is the method used to capture the document on-line.
1304 RELEASE DATE/TIME 13;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 02, 1996
  • HELP-PROMPT:  This is date/time at which the document was released for public view.
  • CROSS-REFERENCE:  8925^E
    1)= S ^TIU(8925,"E",$E(X,1,30),DA)=""
    2)= K ^TIU(8925,"E",$E(X,1,30),DA)
    This Regular, FileMan Cross-reference on Release Date/Time is used for sorting, and for the Released/unverified Report for the Verifying MRT.
1305 VERIFICATION DATE/TIME 13;5 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 19, 1994
  • HELP-PROMPT:  This is the date/time at which the document was verified (if required).
1306 VERIFIED BY 13;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 19, 1994
  • HELP-PROMPT:  This is the person who verified the document.
1307 DICTATION DATE 13;7 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 25, 1995
  • HELP-PROMPT:  Enter the date on which the document was dictated.
  • DESCRIPTION:  This is the date (and time) on which the document was dictated by its author. In the event that a document originates by dictation, we recommend that the REFERENCE DATE for the document be defaulted to dictation date, as
    the author will be able to identify the document by the date on which s/he dictated it.
1308 SUSPENSE DATE/TIME 13;8 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 07, 1995
  • HELP-PROMPT:  Enter the date (time optional) on which the document will be recinded.
  • DESCRIPTION:  
    This is the date (and time) on which the document will be removed from public view. It is currently used only for Patient Postings, although it may be generalized for use with other document types, if appropriate.
1401 PATIENT MOVEMENT RECORD 14;1 POINTER TO PATIENT MOVEMENT FILE (#405) PATIENT MOVEMENT(#405)

  • LAST EDITED:  JAN 19, 1994
  • HELP-PROMPT:  This is the inpatient movement with which the document is associated.
1402 TREATING SPECIALTY 14;2 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7) FACILITY TREATING SPECIALTY(#45.7)

  • LAST EDITED:  MAR 25, 1994
  • HELP-PROMPT:  This is the treating specialty associated with the document.
  • CROSS-REFERENCE:  8925^TS
    1)= S ^TIU(8925,"TS",$E(X,1,30),DA)=""
    2)= K ^TIU(8925,"TS",$E(X,1,30),DA)
    This REGULAR, FileMan type cross-reference is used to support both look-ups and sorts by Treating Specialty.
  • CROSS-REFERENCE:  8925^ATS^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ATS",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ATS",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
    This MUMPS-type, multi-field cross-reference is optimized for searching by treating specialty, document type, status, and date range.
1403 IRT RECORD 14;3 POINTER TO INCOMPLETE RECORDS FILE (#393) INCOMPLETE RECORDS(#393)

  • LAST EDITED:  JAN 19, 1994
  • HELP-PROMPT:  This is the Incomplete Records Tracking Entry for the document.
1404 SERVICE 14;4 POINTER TO SERVICE/SECTION FILE (#49) SERVICE/SECTION(#49)

  • LAST EDITED:  MAY 08, 1996
  • HELP-PROMPT:  This is the service associated with the document.
  • NOTES:  TRIGGERED by the AUTHOR/DICTATOR field of the TIU DOCUMENT File
  • CROSS-REFERENCE:  8925^ASVC^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ASVC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ASVC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
    This MUMPS-type, multi-field cross-reference is optimized for searching treating specialty, document type, status, and date
  • CROSS-REFERENCE:  8925^SVC
    1)= S ^TIU(8925,"SVC",$E(X,1,30),DA)=""
    2)= K ^TIU(8925,"SVC",$E(X,1,30),DA)
    This REGULAR FileMan Cross-reference by Service will facilitate look-ups, sorts, and reports.
1405 REQUESTING PACKAGE REFERENCE 14;5 VARIABLE POINTER REQUEST/CONSULTATION(#123)  SURGERY(#130)  

  • LAST EDITED:  FEB 16, 2001
  • HELP-PROMPT:  Indicate the corresponding record in the requesting package.
  • DESCRIPTION:  
    This field allows a linkage to be maintained between the TIU Document and the DHCP Package for which it was generated.
  • CROSS-REFERENCE:  8925^G
    1)= S ^TIU(8925,"G",$E(X,1,30),DA)=""
    2)= K ^TIU(8925,"G",$E(X,1,30),DA)
    This REGULAR FM cross-reference by REQUESTING PACKAGE REFERENCE is used to avoid multiple documents per request, and for look-ups.
  • RECORD INDEXES:  AEVT (#1329)
1406 RETRACTED ORIGINAL 14;6 POINTER TO TIU DOCUMENT FILE (#8925) TIU DOCUMENT(#8925)

  • LAST EDITED:  JAN 17, 2001
  • HELP-PROMPT:  Select the document that was retracted in error
  • DESCRIPTION:  
    This self-refering pointer identifies the original document which was retracted in error to produce this record.
1407 PRF FLAG ACTION COMPUTED

  • MUMPS CODE:  S X=$S($L($T(CFLDACT^TIUPRFL)):$$CFLDACT^TIUPRFL(D0),1:"?")
  • ALGORITHM:  S X=$S($L($T(CFLDACT^TIUPRFL)):$$CFLDACT^TIUPRFL(D0),1:"?")
  • LAST EDITED:  APR 19, 2005
  • DESCRIPTION:  PRF FLAG ACTION applies only to Patient Record Flag (PRF) notes. When a new flag is assigned to a given patient, or, after review, another action such as CONTINUE is taken on an existing flag assignment, a note must be
    written to document the clinical reasons for the action. Upon entry, the note is linked to the action it documents. Field PRF FLAG ACTION refers to this linked action.
    The field contains the Date of the Action followed by the Name of the Action. Example: 3/3/05 CONTINUE
    If the PRF note is not linked to a flag action or the linked action date or name cannot be found, the field has value "?". If the note is not a PRF note (a note with a title under Document Class PATIENT RECORD FLAG CAT I
    or PATIENT RECORD FLAG CAT II), the field has value NA for non-applicable.
    Technical Note: Flag Actions and their linked note entry numbers are stored in the PRF ASSIGNMENT HISTORY FILE (#26.14). The Date and Action are attributes of the Assignment History entry the note is linked to.
1501 SIGNATURE DATE/TIME 15;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 17, 1997
  • HELP-PROMPT:  This is the date/time at which the document was signed by the author.
  • CROSS-REFERENCE:  8925^ALOCP1^MUMPS
    1)= I +$$ALOCP^TIULX(+DA),+$P($G(^TIU(8925,+DA,12)),U,5) S ^TIU(8925,"ALOCP",+$P($G(^TIU(8925,+DA,12)),U,5),+X,+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,12)),U,5) K ^TIU(8925,"ALOCP",+$P($G(^TIU(8925,+DA,12)),U,5),+X,+DA)
    This MUMPS-type, multi-field cross-reference by Hospital Location and REGULAR Signature Date/Time is used to maintain the daily print queue for batch printing of documents (currently, just Progress Notes) on signature.
  • CROSS-REFERENCE:  8925^APTP1^MUMPS
    1)= I +$$APTP^TIULX(+DA),+$P($G(^TIU(8925,+DA,0)),U,2) S ^TIU(8925,"APTP",+$P($G(^TIU(8925,+DA,0)),U,2),+X,+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,0)),U,2) K ^TIU(8925,"APTP",+$P($G(^TIU(8925,+DA,0)),U,2),+X,+DA)
    This MUMPS-type, multi-field cross-reference by Patient and REGULAR Signature Date/Time is used to maintain the daily print queue for batch printing of documents (currently, just Progress Notes) on signature.
  • CROSS-REFERENCE:  8925^AAUP1^MUMPS
    1)= I +$$AAUP^TIULX(+DA),+$P($G(^TIU(8925,+DA,12)),U,2) S ^TIU(8925,"AAUP",+$P($G(^TIU(8925,+DA,12)),U,2),+X,+DA)=""
    2)= I +$P($G(^TIU(8925,+DA,12)),U,2) K ^TIU(8925,"AAUP",+$P($G(^TIU(8925,+DA,12)),U,2),+X,+DA)
    This MUMPS-type, multi-field cross-reference by Author and REGULAR Signature Date/Time is used to maintain the daily print queue for batch printing of documents (currently, just Progress Notes) on signature.
  • CROSS-REFERENCE:  8925^ACLPT02^MUMPS
    1)= D SACLPT^TIUDD0(1501,X)
    2)= D KACLPT^TIUDD01(1501,X)
    This multi-field, MUMPS-type cross-reference on CLASS, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to support rapid queries by patient.
  • CROSS-REFERENCE:  8925^ACLEC04^MUMPS
    1)= D SACLEC^TIUDD0(1501,X)
    2)= D KACLEC^TIUDD01(1501,X)
    This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is useful for finding the uncosigned notes by the current user for a given patient.
  • CROSS-REFERENCE:  8925^ACLAU04^MUMPS
    1)= D KACLAU^TIUDD01(1501,X),KACLAU1^TIUDD01(1501,X)
    2)= D SACLAU^TIUDD0(1501,X),SACLAU1^TIUDD0(1501,X)
    This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED BY), PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to facilitate rapid access to the current users unsigned notes about a patient.
1502 SIGNED BY 15;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 17, 1997
  • HELP-PROMPT:  This is the person who signed the document.
  • CROSS-REFERENCE:  8925^ACLSB3^MUMPS
    1)= D SACLSB^TIUDD0(1502,X)
    2)= D KACLSB^TIUDD01(1502,X)
    This cross-reference by CLASS, SIGNED BY, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # will facilitate finding records signed by a given user about the current patient.
1503 SIGNATURE BLOCK NAME 15;3 FREE TEXT

  • INPUT TRANSFORM:  S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC("^TIU(8925,"_+DA_",""TEXT"")")) K:$L(X)>60!($L(X)<3) X
  • OUTPUT TRANSFORM:  S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")"))
  • LAST EDITED:  AUG 28, 1998
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1504 SIGNATURE BLOCK TITLE 15;4 FREE TEXT

  • INPUT TRANSFORM:  S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC("^TIU(8925,"_+DA_",""TEXT"")")) K:$L(X)>60!($L(X)<2) X
  • OUTPUT TRANSFORM:  S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")"))
  • LAST EDITED:  AUG 28, 1998
  • HELP-PROMPT:  Answer must be 2-60 characters in length.
  • DESCRIPTION:  
    This is the encrypted signature block title of the person who signed the document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1505 SIGNATURE MODE 15;5 SET
  • 'E' FOR electronic;
  • 'C' FOR chart;

  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Please indicate the mode by which the signature was obtained.
  • DESCRIPTION:  
    This is the mode by which the signature was obtained (i.e., either electronic or chart).
1506 COSIGNATURE NEEDED 15;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Please indicate whether a cosignature is needed.
  • DESCRIPTION:  
    This boolean flag indicates to the system whether or not a cosignature is needed.
1507 COSIGNATURE DATE/TIME 15;7 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 17, 1997
  • HELP-PROMPT:  The date/time at which cosignature was obtained will be automatically saved by the system.
  • DESCRIPTION:  
    This is the date/time at which cosignature was obtained.
  • CROSS-REFERENCE:  8925^ACLEC05^MUMPS
    1)= D KACLEC^TIUDD01(1507,X)
    2)= D SACLEC^TIUDD0(1507,X)
    This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER, PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is useful for finding the uncosigned notes by the current user for a given patient.
  • CROSS-REFERENCE:  8925^ACLPT1507^MUMPS
    1)= D SACLPT^TIUDD0(1507,X)
    2)= D KACLPT^TIUDD01(1507,X)
    This MUMPS-Type, Multi-field cross-reference on Cosignature Date/time will assure that the cosigned notes are included in the ACLPT x-ref (completed, by patient) upon cosignature.
1508 COSIGNED BY 15;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  The identity of the person who cosigned the document will be automatically saved by the system.
1509 COSIGNATURE BLOCK NAME 15;9 FREE TEXT

  • INPUT TRANSFORM:  S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC("^TIU(8925,"_+DA_",""TEXT"")")) K:$L(X)>60!($L(X)<2) X
  • OUTPUT TRANSFORM:  S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")"))
  • LAST EDITED:  AUG 28, 1998
  • HELP-PROMPT:  This encrypted cosignature block will be automatically saved by the system.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1510 COSIGNATURE BLOCK TITLE 15;10 FREE TEXT

  • INPUT TRANSFORM:  S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC("^TIU(8925,"_+DA_",""TEXT"")")) K:$L(X)>60!($L(X)<2) X
  • OUTPUT TRANSFORM:  S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")"))
  • LAST EDITED:  AUG 28, 1998
  • HELP-PROMPT:  Answer must be 2-60 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1511 COSIGNATURE MODE 15;11 SET
  • 'E' FOR electronic;
  • 'C' FOR chart;

  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Please indicate the mode by which cosignature was obtained.
1512 MARKED SIGNED ON CHART BY 15;12 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAY 01, 1995
  • HELP-PROMPT:  Select the person who marked the document 'signed on chart.'
  • DESCRIPTION:  
    This is the identity of the person who marked a given document 'signed on chart,' indicating that a 'wet' signature of the chart copy had been obtained.
1513 MARKED COSIGNED ON CHART BY 15;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAY 01, 1995
  • HELP-PROMPT:  Select user who marked document 'cosigned on chart.'
  • DESCRIPTION:  
    This is the user who marked a given document as 'cosigned on chart.'
1601 AMENDMENT DATE/TIME 16;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 19, 1994
  • HELP-PROMPT:  This is the date/time at which the document was amended.
1602 AMENDED BY 16;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 19, 1994
  • HELP-PROMPT:  This is the person who entered an amendment for the document.
1603 AMENDMENT SIGNED 16;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 19, 1994
  • HELP-PROMPT:  This is the date/time at which the amendment was signed.
1604 AMENDMENT SIGN BLOCK NAME 16;4 FREE TEXT

  • INPUT TRANSFORM:  S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC("^TIU(8925,"_+DA_",""TEXT"")")) K:$L(X)>40!($L(X)<2) X
  • OUTPUT TRANSFORM:  S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")"))
  • LAST EDITED:  JAN 20, 1999
  • HELP-PROMPT:  Answer must be 2-40 characters in length.
  • DESCRIPTION:  
    This is the signature block name of the person who amended the document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1605 AMENDMENT SIGN BLOCK TITLE 16;5 FREE TEXT

  • INPUT TRANSFORM:  S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC("^TIU(8925,"_+DA_",""TEXT"")")) K:$L(X)>50!($L(X)<2) X
  • OUTPUT TRANSFORM:  S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")"))
  • LAST EDITED:  JAN 20, 1999
  • HELP-PROMPT:  Answer must be 2-50 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1606 ADMINISTRATIVE CLOSURE DATE 16;6 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 25, 1995
  • HELP-PROMPT:  Enter the date (and time) at which the document was closed.
1607 ADMIN CLOSURE SIG BLOCK NAME 16;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
  • LAST EDITED:  JAN 20, 1999
  • HELP-PROMPT:  Answer must be 2-40 characters in length.
1608 ADMIN CLOSURE SIG BLOCK TITLE 16;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  JAN 20, 1999
  • HELP-PROMPT:  Answer must be 2-50 characters in length.
1609 ARCHIVE/PURGE DATE/TIME 16;9 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 25, 1995
  • HELP-PROMPT:  Enter the date/time at which the record was archived/purged.
1610 DELETED BY 16;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 17, 1995
  • HELP-PROMPT:  Enter the name of the person who deleted the document.
  • DESCRIPTION:  
    This is the person who deleted the document per the Privacy Act.
1611 DELETION DATE 16;11 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 17, 1995
  • HELP-PROMPT:  Enter the Date/(time) on which the document was deleted.
  • DESCRIPTION:  
    This is the date/(time optional) at which the document was deleted per the Privacy Act.
1612 REASON FOR DELETION 16;12 SET
  • 'P' FOR privacy act;
  • 'A' FOR administrative;

  • LAST EDITED:  APR 29, 1997
  • HELP-PROMPT:  Please indicate the reason for deleting the document.
  • DESCRIPTION:  
    This is the reason for which the document was deleted, either: Privacy Act, as invoked by the patient; or Administrative Action, where the note needed to be removed, following signature, for administrative reasons.
1613 ADMINISTRATIVE CLOSURE MODE 16;13 SET
  • 'M' FOR manual;
  • 'S' FOR scanned document;

  • LAST EDITED:  NOV 07, 2001
  • HELP-PROMPT:  Indicate whether document was closed manually or by scanning.
  • DESCRIPTION:  This indicates whether the document was closed manually by an administrative person (in order to satisfy authentication requirements), or automatically by scanning a paper document bearing the signature of the patient
    (e.g., Consents, Advanced Directives, etc.) and not requiring the signature of an author.
1701 SUBJECT (OPTIONAL description) 17;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  OCT 21, 1995
  • HELP-PROMPT:  Enter a brief description (3-80 characters) of the contents of the document.
  • DESCRIPTION:  
    This freetext field is used to help you find documents by subject (i.e., consider the subject a "key word" of sorts.
  • CROSS-REFERENCE:  8925^ASUB^MUMPS
    1)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$P($G(^TIU(8925,+DA,13)),U) D ASUBS^TIUDD($G(X),+$G(^TIU(8925,+DA,0)),+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)
    2)= I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$P($G(^TIU(8925,+DA,13)),U) D ASUBK^TIUDD($G(X),+$G(^TIU(8925,+DA,0)),+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)
    This MUMPS-type, multi-field cross-reference is used for queries by subject.
  • 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:  AUG 04, 2009
  • HELP-PROMPT:  Type a number between 0 and 100000, 2 Decimal Digits
  • DESCRIPTION:  A VBC Line is defined as the total number of characters you can see with the naked eye, divided by 65. It includes any character contained within a header or footer. Spaces, carriage returns, and hidden format
    instructions, such as bold, underline, text boxes, printer configurations, spell check, etc., are not counted in the total character count. A VBC Line is calculated by counting all visual characters and simply dividing the
    total number of characters by 65 to arrive at the number of defined lines.
  • RECORD INDEXES:  VBC (#557)
2101 ID PARENT 21;1 POINTER TO TIU DOCUMENT FILE (#8925) TIU DOCUMENT(#8925)

  • LAST EDITED:  JUN 29, 2000
  • HELP-PROMPT:  Enter the document this note is being attached to.
  • DESCRIPTION:  Applies to ID (interdisciplinary) notes only. The ID PARENT is the note this note is attached to, making this note an entry in an ID note.
    A note with an ID PARENT is referred to as an ID child note. ID parent notes and ID child notes are both file entries in file 8925.
    The entries of an interdisciplinary note consist of the first entry, which is also the ID PARENT of the ID note, followed by the ID children.
  • CROSS-REFERENCE:  8925^GDAD
    1)= S ^TIU(8925,"GDAD",$E(X,1,30),DA)=""
    2)= K ^TIU(8925,"GDAD",$E(X,1,30),DA)
    3)= Please don't delete!
    This cross-reference is used to find the children of an interdisciplinary note, given the ID parent note. It has the form:
    ^TIU(8925,"GDAD",ID PARENT note IEN,ID child note IEN)
    Note that "TIUG" is an informal namespace for ID notes, and that this cross-reference is similar to the DAD cross-reference on the PARENT field. "GDAD" gets its "G" from "TIUG".
  • 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:  NOV 27, 1996
  • HELP-PROMPT:  Unique Visit Identifier returned by Visit Tracking
  • DESCRIPTION:  
    Unique Visit Identifier for use by CIRN. The value of this field should ONLY be modified by virtue of a change to the Visit (.03) field.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the VISIT field of the TIU DOCUMENT File
  • CROSS-REFERENCE:  8925^VID
    1)= S ^TIU(8925,"VID",$E(X,1,30),DA)=""
    2)= K ^TIU(8925,"VID",$E(X,1,30),DA)
    3)= DO NOT DELETE
    REGULAR FM Cross-reference by Visit ID facilitates look-up by CIRN.
70201 PROCEDURE SUMMARY CODE 702;1 SET
  • '1' FOR Normal;
  • '2' FOR Abnormal;
  • '3' FOR Borderline;
  • '4' FOR Incomplete;
  • '5' FOR Machine Resulted;

  • LAST EDITED:  JUL 22, 2004
  • HELP-PROMPT:  Indicate the summary code for this procedure once it is complete.
  • DESCRIPTION:  
    This field contains the summary code for this procedure once it is complete. 'Machine Resulted' is the initial, default code.
70202 DATE/TIME PERFORMED 702;2 DATE

  • INPUT TRANSFORM:  S %DT="ETXR",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 21, 2002
  • HELP-PROMPT:  Time is required. Future date/time is not allowed.
  • DESCRIPTION:  
    This field contains the Date/Time when the procedure was performed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
89261 VHA ENTERPRISE STANDARD TITLE COMPUTED

  • MUMPS CODE:  X ^DD(8925,89261,9.2) S Y(8925,89261,101)=$S($D(^TIU(8925.1,D0,15)):^(15),1:"") S X=$P($G(^TIU(8926.1,+$P(Y(8925,89261,101),U,1),0)),U) S D0=Y(8925,89261,80)
    9.2 = S Y(8925,89261,80)=$G(D0),Y(8925,89261,1)=$S($D(^TIU(8925,D0,0)):^(0),1:""),D0=$P(Y(8925,89261,1),U,1) S:'D0!'$D(^TIU(8925.1,+D0,0)) D0=-1
  • ALGORITHM:  DOCUMENT TYPE:VHA ENTERPRISE STANDARD TITLE
  • LAST EDITED:  APR 18, 2006
  • DESCRIPTION:  
    This computed field allows calls to FileMan Utilities (e.g. DIQ) to resolve the VHA ENTERPRISE STANDARD TITLE to which the local title is mapped.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All