STANDARD DATA DICTIONARY #839.7 -- PCE DATA SOURCE FILE 9/29/25 PAGE 1
STORED IN ^PX(839.7, (19 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Entries in this file represent the originating sources of data that is stored in PCE.
PRIMARY KEY: A (#49)
Uniqueness Index: B (#839)
File, Field: 1) SOURCE NAME (839.7,.01)
POINTED TO BY: DATA SOURCE field (#.06) of the PCE DEVICE INTERFACE MODULE ERRORS File (#839.01)
DATA SOURCE field (#81203) of the VISIT File (#9000010)
DATA SOURCE field (#81203) of the V PROVIDER File (#9000010.06)
DATA SOURCE field (#81203) of the V POV File (#9000010.07)
DATA SOURCE field (#81203) of the V IMMUNIZATION File (#9000010.11)
DATA SOURCE field (#81203) of the V SKIN TEST File (#9000010.12)
DATA SOURCE field (#81203) of the V EXAM File (#9000010.13)
DATA SOURCE field (#81203) of the V TREATMENT File (#9000010.15)
DATA SOURCE field (#81203) of the V PATIENT ED File (#9000010.16)
DATA SOURCE field (#81203) of the V CPT File (#9000010.18)
DATA SOURCE field (#81203) of the V HEALTH FACTORS File (#9000010.23)
DATA SOURCE field (#81203) of the V IMM CONTRA/REFUSAL EVENTS File (#9000010.707)
DATA SOURCE field (#81203) of the V STANDARD CODES File (#9000010.71)
DATA SOURCE field (#81203) of the V IMMUNIZATION DELETED File (#9000080.11)
INDEXED BY: SOURCE NAME (B)
LAST MODIFIED: MAY 4,2021@15:57:23
839.7,.01 SOURCE NAME 0;1 FREE TEXT (Required) (Key field)
INPUT TRANSFORM: K:$L(X)>64!($L(X)<3)!'(X'?1P.E) X
MAXIMUM LENGTH: 64
LAST EDITED: SEP 10, 2018
HELP-PROMPT: Answer must be 3-64 characters in length.
DESCRIPTION: A unique data source identifier. The working rule is that there will be one entry in this file for
each unique
-tuple.
FIELD INDEX: B (#839) REGULAR IR LOOKUP & SORTING
Unique for: Key A (#49), File #839.7
Short Descr: New-style 'B' cross-reference
Description: This new-style cross-reference replaces the traditional 'B' cross-reference so the 'B' index is
full-length and can be used to create a key.
Set Logic: S ^PX(839.7,"B",$E(X,1,64),DA)=""
Kill Logic: K ^PX(839.7,"B",$E(X,1,64),DA)
Whole Kill: K ^PX(839.7,"B")
X(1): SOURCE NAME (839.7,.01) (Subscr 1) (Len 64) (forwards)
839.7,.02 INTERFACE DEVICE 0;2 POINTER TO DEVICE FILE (#3.5)
LAST EDITED: OCT 12, 1994
839.7,.03 LOCATION 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: OCT 12, 1994
HELP-PROMPT: Answer must be 1-30 characters in length.
839.7,.04 INSTITUTION 0;4 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: OCT 12, 1994
839.7,.09 SEND SCHEDULING BULLETINS 0;9 SET
'1' FOR SEND;
'0' FOR DON'T SEND;
LAST EDITED: MAR 08, 1995
839.7,101 DESCRIPTION 1;0 WORD-PROCESSING #839.7101
LAST EDITED: OCT 12, 1994
FILES POINTED TO FIELDS
DEVICE (#3.5) INTERFACE DEVICE (#.02)
INSTITUTION (#4) INSTITUTION (#.04)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):