Print Page as PDF
DGPTFUT ICR (6130)

DGPTFUT    ICR (6130)

Name Value
NUMBER 6130
IA # 6130
DATE CREATED 2014/11/20
CUSTODIAL PACKAGE REGISTRATION
USAGE Controlled Subscription
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE DGPTFUT
NAME DGPTFUT
GENERAL DESCRIPTION
This ICR supports access to PTF (#45) data fields for
the following PTF record types.

Patient Treatment File record types:
------------------------------------
401 - Surgery                                                           501 -
Movement                                                          601 -
Procedure                                                          701 -
Diagnosis                                                         801 - CPT

Data fields may be accessed using the following APIs.

PTFIEN
------
This subroutine provides information about the subscripts of the multiples of
the different PTF record types. These subscripts are needed for the other API
calls.

PTFICD
------
This subroutine returns an array of the ICD's (IENs, codes, & descriptions),
along with present on admission (POA) indicators (codes & values), where
appropriate.

STR401
------
Given a patient (PTF IEN) and operation record type multiple, return a
twenty-five piece string containing the operation code ICD IENs.

STR501
------
Given a patient (PTF IEN) and movement record type multiple, return a
twenty-five piece string containing the movement code ICD IENs.

STR501P
-------
Given a patient (PTF IEN) and movement record type multiple, return a
twenty-five piece string containing the present on admission (POA) codes.

STR601
------
Given a patient (PTF IEN) and procedure record type multiple, return a
twenty-five piece string containing the procedure code ICD IENs.

STR701
------
Given a patient (PTF IEN), return a twenty-five piece string containing the
diagnosis code ICD IENs.

STR701P
-------
Given a patient (PTF IEN), return a twenty-five piece string containing the
present on admission (POA) codes.
STATUS Active
KEYWORDS
  • PTF
  • DGPT
DURATION Till Otherwise Agreed
ID DGPTFUT
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
PTFIEN(DGA,DGB,DGC)
Given a PTF patient (PTF IEN) and record type, this
returns an array of the subscripts of the multiples for the different PTF
record types.  These subscripts are needed for the other API calls.
VARIABLES TYPE VARIABLES DESCRIPTION
DGA Input
The PTF record type (401, 501, 601, 701, or 801).
DGB Input
IEN of the patient in the PTF (#45) file.
DGC Output
An array of return values defined as follows:
- For PTF file record 401, DGC(IEN) is set
to the surgery/procedure date;
- For PTF file record 501, DGC(IEN) is set
to the movement date;
- For PTF file record 601, DGC(IEN) is set
to the procedure date;
- For PTF record type 701, DGC(0) is set
to the discharge date and is null for
active inpatients;
- For PTF file record 801, DGC(IEN) is set
to the CPT record date/time.
PTFICD(DGA,DGB,DGC,DGD,DGE)
Given a patient (PTF IEN), record type, and multiple
subscript, this subroutine returns a list of the ICD's (IENs, codes, and
descriptions), along with Present on Admission (POA) indicators (codes &
values), where appropriate.
VARIABLES TYPE VARIABLES DESCRIPTION
DGA Input
The PTF record type (401, 501, 601, 701, or 801).
DGB Input
IEN of the patient in the PTF (#45) file.
DGC Input
IEN of the field multiple of the 401, 501, 601, or
801 record types.  It is ignored for record type 701.
DGE Input
Controls whether or not short or long ICD
descriptions are returned in the DGD array.
DGE=nil or 0 - no short or long descriptions
returned
DGE=1 - short description returned in
DGD(i,1)
DGE=2 - long description returned in DGD(i,2)
DGE=3 - both descriptions returned in
DGD(i,1)/DGD(i,2)
DGD Output
The variable DGD is passed by reference.

DGD = piece-1 Patient Name
piece-2 Patient DFN (IEN in PATIENT #2
file)
piece-3 Admission date
piece-4 Admitting Facility (IEN in
INSTITUTION file(#4))
piece-5 Fee basis flag (1 = yes)
piece-6 PTF Status (0=open, 1=closed,
2=released, 3=transmitted)
piece-7 Type of Record (1=PTF, 2=Census)
piece-8 Corresponding PTF Record (PTF
IEN)
piece-9 PTF Census date pointer (file
#45.86 IEN)
piece-10 Discharge date
piece-11 Effective date
piece-12 ICD-10 Code (ICD-10-CM or
ICD-10-PCS)
piece-13 (reserved for future use)
piece-14 (reserved for future use)
piece-15 (reserved for future use)
piece-16 Surgery/Procedure date

For PTF record types 401 and 601:
DGD(i) i is the number of the ICD code in
the record
DGD(i) piece-1 ICD OPERATION/PROCEDURE file
(#80.1) IEN
piece-2 (reserved for future use)
piece-3 ICD code number

For PTF record types 501 and 701:
DGD(i) i is the number of the ICD code in
the record
DGD(i) piece-1 ICD DIAGNOSIS file (#80) IEN
piece-2 POA code for ICD (Y, N, U,
or W)
piece-3 ICD code number
piece-4 POA value for ICD

For PTF record type 801:
DGD(i) i is the number of ICD code in
the record
DGD(i) piece-1 ICD DIAGNOSIS file (#80) IEN
piece-2 (reserved for future use)
piece-3 ICD code number

If DGE=1 or 3, DGD(i,1) is the short ICD description.

If DGE=2 or 3, DGD(i,2) is the long ICD description.
$$STR401(DGA,DGB)
This function returns a twenty-five piece string
containing ICD OPERATION/PROCEDURE file (#80.1) IENs.
VARIABLES TYPE VARIABLES DESCRIPTION
DGA Input
IEN of the patient in the PTF (#45) file.
DGB Input
IEN of the field multiple of the 401 record type.
$$STR401 Output
The return value is a twenty-five piece string
containing ICD OPERATION/PROCEDURE file (#80.1) IENs.  Example:
ien1^ien2^...^ien24^ien25
$$STR501(DGA,DGB)
This function returns a twenty-five piece string
containing ICD DIAGNOSIS file (#80) IENs.
VARIABLES TYPE VARIABLES DESCRIPTION
DGA Input
IEN of the patient in the PTF (#45) file.
DGB Input
IEN of the field multiple of the 501 record type.
$$STR501 Output
The return value is a twenty-five piece string
containing ICD DIAGNOSIS file (#80) IENs.  Example: ien1^ien2^...^ien24^ien25
$$STR601(DGA,DGB)
This function returns a twenty-five piece string
containing ICD OPERATION/PROCEDURE file (#80.1) IENs.
VARIABLES TYPE VARIABLES DESCRIPTION
DGA Input
IEN of the patient in the PTF (#45) file.
DGB Input
IEN of the field multiple of the 601 record type.
$$STR601 Output
The return value is a twenty-five piece string
containing ICD OPERATION/PROCEDURE file (#80.1) IENs.  Example:
ien1^ien2^...^ien24^ien25
$$STR701(DGA)
This function returns a twenty-five piece string
containing ICD DIAGNOSIS file (#80) IENs.
VARIABLES TYPE VARIABLES DESCRIPTION
DGA Input
IEN of the patient in the PTF (#45) file.
$$STR701 Output
The return value is a twenty-five piece string
containing ICD DIAGNOSIS file (#80) IENs.  Example: ien1^ien2^...^ien24^ien25

Note: ien1 is for the primary diagnosis, ien2-ien25 are for the twenty-four
secondary diagnoses.
$$STR501P(DGA,DGB)
This function returns a twenty-five piece string
containing the Present On Admission (POA) codes for the ICDs.
VARIABLES TYPE VARIABLES DESCRIPTION
DGA Input
IEN of the patient in the PTF (#45) file.
DGB Input
IEN of the field multiple of the 501 record type.
$$STR501P Output
The return value is a twenty-five piece string
containing the Present On Admission (POA) codes for the ICDs.  Example:
poa1^poa2^...^poa24^poa25
$$STR701P(DGA)
This function returns a twenty-five piece string
containing the Present On Admission (POA) codes for the ICDs.
VARIABLES TYPE VARIABLES DESCRIPTION
DGA Input
IEN of the patient in the PTF (#45) file.
$$STR701P Output
The return value is a twenty-five piece string
containing the Present On Admission (POA) codes for the ICDs.  Example:
poa1^poa2^...^poa24^poa25

Note: poa1 is for the primary diagnosis, poa2-poa25 are for the twenty-four
secondary diagnoses.
SUBSCRIBING PACKAGE
CREATOR TRAXLER,FRANK
DBA Comments
05/06/2015 DT: Added Pei Tsai as editor (was previously
entered by Frank Traxler), per request from Kevin Louck. The ICD-10 PTF
Modifications project (DG*5.3*884) will be exporting this new API.

05/12/2015 DT: Added Kevin Louck as editor. 8/3/15-MC: Activated ICR. Kevin
Louck completed his edits. Registration patch DG*5.3*884 will be exporting the
newly developed APIs supported by this ICR. The following dependent patches
are utilizing the new APIs and will be released (in a multi-package build)
with DG*5.3*884 as part of the ICD-10 PTF Modifications project:
GMTS*2.7*111(Health Summary), IB*2.0*522(Integrated Billing), LR*5.2*422(Lab
Service), ROR*1.5*25(Clinical Case Registries), OR*3.0*406(OE/RR).
DATE ACTIVATED 2015/08/03
DATE/TIME EDITED
DATE/TIME EDITED ACTION AT THE REQUEST OF WITH CONCURRENCE OF
2015/05/12 10:41 APPROVED LOUCK,KEVIN LOUCK,KEVIN
Generated from SEP 10, 2019@ IA Listing Descriptions