Print Page as PDF
DBIA3325 ICR (3325)

DBIA3325    ICR (3325)

Name Value
NUMBER 3325
IA # 3325
DATE CREATED 2001/03/01
CUSTODIAL PACKAGE REGISTRATION
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE DGRPTU
NAME DBIA3325
GENERAL DESCRIPTION 
The Enrollment Application System requests use of entry
point GETPAT^DGRPTU for use by the 1010EZ module.  The VistA-resident portion
of the 1010EZ  module accepts data transmitted to the site electronically from
a web-based application where a veteran has entered enrollment data.

Before the electronically submitted data can be stored by the 1010EZ module
within the site's Patient database, user acceptance of the data is required.
The first step in that process is for the user to match, if possible,  the
veteran's identifying data with an existing Patient record.

This entry point, which was previously implemented by the 1010T module, will
provide the user interface with standard patient lookup and duplicate checking
functions within Registration.
STATUS Active
DURATION Till Otherwise Agreed
ID DGRPTU
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT VARIABLES
GETPAT(DGHOWPT,DGADDF,DFN,DGNEWPF)
VARIABLES TYPE VARIABLES DESCRIPTION
DFN Output 
DFN = PATIENT file (#2) IEN; if DFN = -1, then no
patient selected.
DGNEWPF Output 
DGNEWPF = New patient added flag; if DGNEWPF = 1,
then new patient added; if DGNEWPF = null, then existing patient.
DGHOWPT Input 
How was patient entered:
1  =10-10T registration
"" otherwise
DGADDF Input 
Add new entry flag   (optional):
1  =Allow new patient
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE SUBSCRIBING DETAILS
ENROLLMENT APPLICATION SYSTEM 
This call provides a user interface with the PATIENT
file (#2) including standard patient lookup and duplicate checking functions.
With user entry of basic patient identifying data (e.g., name, social security
number, and date of birth), a matching entry within the Patient database is
found or a new Patient record is created.

The call is made from routine EASEZI as follows:

D GETPAT^DGRPTU("",1,.DFN,.DGNEWPF)

where:
"" --> DGHOWPT in the formal parameter list.
1 --> DGHADDF in the formal parameter list; allow new patient.