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

DGPTFUT

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

SUBSCRIBING PACKAGE	SUBSCRIBING DETAILS
CLINICAL CASE REGISTRIES
HEALTH SUMMARY
INTEGRATED BILLING
LAB SERVICE
VIRTUAL PATIENT RECORD	Added 10/7/22, effective with patch VPR130. VPR is a data extract utility, and has been asked to pull ICD procedure codes from the PTF (#45) file. VPR needs to use the PTFIEN and $$STR601 components of routine DGPTFUT.

DATE ACTIVATED

2015/08/03