DBIA104-B    ICR (564)

#45 PTF file

^DGPT("ADS",   cross-reference: When using the ^DGPT(PTF,0) node, the software
checks the 11th piece for the type of record (i.e., PTF or CENSUS).  For
example:  Q:$P(^DGPT(QI P1IFN,0),U,11)'=1 ".

^DGPT("AAD", cross-reference The following nodes and multiples from File 45:
0 node
70 node
401 multiple
501 multiple
601 multiple

Other referenced nodes:
^DGPT(,"S"
^DGPT(,"M","AM" x-ref

The internal entry number (D1) of the sub-file entry is obtained
(^DGPT(D0,"M",D1)) and used to find the zero node.  The zero node of the "M"
multiple (^DGPT(D0,"M",D1,0)) contains the movement records (1-1000) for this
episode of care.  Two pieces of information are obtained from the movement
record.  First, is the losing specialty (field #2).  This field contains the
losing bedsection for this movement and is a pointer to the SPECIALTY file
(#42.4).  If the description of the losing specialty does not contain "NHCU"
or "DOMICILIARY", routine execution continues.  The second field obtained is
the ICD 1 field (#5) which contains the diagnosis responsible for the greatest
length of stay in this bedsection.  It is a pointer to the ICD DIAGNOSIS file
(#80).  If the diagnosis is a substance abuse diagnosis, the entry is stored
to a temporary file (^TMP) and the patient is listed on the report.  All
movement records for a patient will be checked until a match is found at which
time routine execution will proceed to the next patient.  If no matches are
found, the patient is not reported and  execution proceeds to the next
patient.