| 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.
|
|