DBIA312-A    ICR (312)

The Discharge Summary has permission to access the Patient Information
Management System package in the following ways:

1.  Upon record creation, Discharge Summary will perform a screened look-up on
the PTF File to associate the new discharge summary with a valid admission.
The screening logic will exclude Census PTF records.  Discharge Summary also
offers a site parameter to allow selection of Open PTF records only.  To that
end, the DIC("S") screen will make direct reference to the ^DGPT( global as
follows:

S DIC=45,DIC(0)=$S($D(GMRDBG):"MXZ",1:"IEZ")
; Exclude "Census" PTF records
S DIC("S")="I +$P(^DGPT(+Y,0),U,11)=1"
; If an admission date has been specified, find the corresponding
; PTF record
S:$D(GMRDADT) DIC("S")=DIC("S")_",($P($P(^DGPT(+Y,0),U,2),""."")=G
MRDADT)"
; If site allows OPEN PTF selection only, then exclude closed or
; transmitted records
S:+$P(GMRDPRM0,U,8) DIC("S")=DIC("S")_",'$P(^DGPT(+Y,0),U,6)"

where GMRDBG     is a boolean flag, indicating that the look-up is being
called non-interactively, with a patient SSN
and admission date,
GMRDADT    is the patient's admission date, as dictated by
the physician, to be passed in by the non-interactive
call, and
GMRPRM0    is the zero-node of the GMRD PARAMETERS FILE (#128.99),
the eighth piece of which specifies whether the site will
allow selection of open PTF records only.

Note that this screen will always refer to the 11th piece of the zero node of
the PTF record to exclude non-PTF types, and will conditionally refer to the
2nd and 6th pieces, to match the admission date and exclude non-open records,
as the site specifies.

2.  The Discharge Summary database contains a field that is a pointer to the
PTF file (#45), which is stored upon creation of the discharge summary record.

3.  Discharge Summary calls the documented IN5^VADPT entry-point to get
information on the patient. Using the PTF record number retained in our
database, the input variable VAIP("E") is set to the value of field #2.1
(INTERNAL Admission #), which is obtained by a call to EN^DIQ1 after setting
DIC=45, DR=2.1, and DA = PTF record number.