Global: ^DGS(41.41

FileMan FileNo	FileMan Filename	Package
41.41	PRE-REGISTRATION AUDIT	Registration

Package	Total	Routines
Registration	2	DGPREBJ1 DGRPD
IHS Electronic Health Record	1	BEHOPTC1

Package	Total	Routines
Registration	1	DGPREP1

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[2]
Registration	1	VA PATIENT(#2)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA PATIENT(#2) 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
1	DATE CHANGED	0;2	DATE	**********************REQUIRED FIELD********************** 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
2	USER	0;3	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) 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.

.01

PATIENT

0;1

POINTER TO VA PATIENT FILE (#2)

************************REQUIRED FIELD************************

VA PATIENT(#2)

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

DATE CHANGED

0;2

DATE

************************REQUIRED FIELD************************

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

USER

0;3

POINTER TO NEW PERSON FILE (#200)

************************REQUIRED FIELD************************

NEW PERSON(#200)

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.

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #4425	INTEGRATED BILLING VA Point of Service		Cross-reference by patient and dateDGS(41.41,"ADC",PATIENT,DATE CHANGED,DA)
ICR #5345	Fee Basis		Checking the validity of a pre-registration date using:S DGPDT="",DGPDT=$O(^DGS(41.41,"ADC",DFN,DGPDT),-1)

Customize PDF page

Package: Registration

Global: ^DGS(41.41

Information

Description

Directly Accessed By Routines, Total: 3

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 2

Fields, Total: 3

ICR, Total: 2