STANDARD DATA DICTIONARY #41.41 -- PRE-REGISTRATION AUDIT FILE 3/24/25 PAGE 1 STORED IN ^DGS(41.41, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- This file contains the history of changes to patient information through the pre-registration process. Currently only the date and time of the change, and the user making the change are maintained. This file maintains a record of changes to patient demographic information through the pre-registration process and should not be purged. DD ACCESS: @ RD ACCESS: d WR ACCESS: D DEL ACCESS: D LAYGO ACCESS: D AUDIT ACCESS: @ IDENTIFIED BY: DATE CHANGED (#1)[R] CROSS REFERENCED BY: PATIENT(ADC), DATE CHANGED(ADC1), PATIENT(B) 41.41,.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2) (Required) LAST EDITED: DEC 16, 1996 HELP-PROMPT: Enter patient name in 'Last,First Middle' format [3-30 characters]. DESCRIPTION: Pointer to the patient entry in the PATIENT FILE, #2. CROSS-REFERENCE: 41.41^B 1)= S ^DGS(41.41,"B",$E(X,1,30),DA)="" 2)= K ^DGS(41.41,"B",$E(X,1,30),DA) CROSS-REFERENCE: 41.41^ADC^MUMPS 1)= N DG1 S DG1=$P($G(^DGS(41.41,DA,0)),"^",2) I DG1 S ^DGS(41.41,"ADC",X,DG1,DA)="" 2)= N DG1 S DG1=$P($G(^DGS(41.41,DA,0)),"^",2) I DG1 K ^DGS(41.41,"ADC",X,DG1,DA) Cross-reference by patient and date 41.41,1 DATE CHANGED 0;2 DATE (Required) INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X LAST EDITED: FEB 12, 1997 HELP-PROMPT: Enter date and time registration data was changed. DESCRIPTION: This is the date and time the patient file registration information was changed as a result of the pre-registration process. After editing a patients demographic data, the user will be asked if they want to Date/Stamp the pre-registration. If they answer 'Yes', this field will be completed. If they answer 'No', no entry will be made in this file. CROSS-REFERENCE: 41.41^ADC1^MUMPS 1)= N DG2 S DG2=$P($G(^DGS(41.41,DA,0)),"^") I DG2 S ^DGS(41.41,"ADC",DG2,X,DA)="" 2)= N DG2 S DG2=$P($G(^DGS(41.41,DA,0)),"^") I DG2 K ^DGS(41.41,"ADC",DG2,X,DA) Cross-reference by patient and date 41.41,2 USER 0;3 POINTER TO NEW PERSON FILE (#200) (Required) LAST EDITED: DEC 09, 1996 HELP-PROMPT: Enter the user making the pre-registration change. DESCRIPTION: User making the change to the patients registration information through the pre-registration option. This is a pointer to the NEW PERSON File, #200. FILES POINTED TO FIELDS NEW PERSON (#200) USER (#2) PATIENT (#2) PATIENT (#.01) INPUT TEMPLATE(S): PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S):