DBIA928 ICR (928)

Name

Value

NUMBER

928

IA #

928

DATE CREATED

1994/08/02

CUSTODIAL PACKAGE

PROBLEM LIST

CUSTODIAL ISC

Salt Lake City

USAGE

Controlled Subscription

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

GMPLUTL

NAME

DBIA928

ORIGINAL NUMBER

928

GENERAL DESCRIPTION

This agreement is to post the routine GMPLUTL as a
supported reference by controlled subscription.  There are 3 entry points to
return currently active problems, add a new problem, or update an existing
problem.

STATUS

Active

KEYWORDS

GMPLUTL
ACTIVE
CREATE
UPDATE
MAGDHLS

DURATION

Till Otherwise Agreed

GMPLUTL

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

ACTIVE(DFN,.PROBLEM)

This entry point will return the specified patient's
currently active problems.  Two parameters are required to be passed in, the
first being the IEN of the patient in file #2, and the second is the array
(passed by reference) in which the problems will be returned.

VARIABLES

TYPE

VARIABLES DESCRIPTION

DFN

Input

IEN of patient in file #2

PROBLEM

Output

Array which must be passed in by reference; returned
with the following set:

PROBLEM(0)   = Total number of problems returned PROBLEM(#,0) = Problem file
IEN                 PROBLEM(#,1) = internal^external values of problem
description in the Lexicon Utility;
note that external value may be a
provider modification of the
Lexicon Utility's text            PROBLEM(#,2) =
internal^external values of
assigned ICD Diagnosis code       PROBLEM(#,3) =
internal^external values of Date of
Onset                             PROBLEM(#,4) =
abbreviated^full text of SC
indicator, i.e. SC^SERVICE-
CONNECTED, NSC^NOT SERVICE-
CONNECTED, or null                PROBLEM(#,5) =
abbreviated^full text of Exposure
indicator, i.e. AO^AGENT ORANGE,
IR^RADIATION, EC^ENV CONTAMINANTS,
HNC^HEAD AND/OR NECK CANCER,
MST^MILITARY SEXUAL TRAUMA
CV^COMBAT VET, SHD^SHAD,
CLV^CAMP LEJEUNE or null

where each # is a sequence number per problem to group the data elements.

CREATE(.PROBLEM,.RESULT)

This entry point will create a new problem entry
based upon the values passed in the PROBLEM array.  The RESULT array will be
used to return the results of the call; if successful, RESULT will contain the
new IEN, otherwise it will be set to -1 and RESULT(0) will contain an error
message.

VARIABLES	TYPE	VARIABLES DESCRIPTION
PROBLEM	Input	This array must be passed in by reference containing the following data elements to create a new problem entry:

UPDATE(.PROBLEM,.RESULT)

This entry point will update an existing problem
based upon the values passed in the PROBLEM array.  The RESULT array will be
used to return the results of the call; if successful, RESULT will equal the
IEN of the problem, otherwise it will be set to -1 and RESULT(0) will contain
an error message.

VARIABLES

TYPE

VARIABLES DESCRIPTION

PROBLEM

Input

This array must be passed in by reference containing
the following data elements to update an existing problem; only the items to
be changed need to be set, as a null value will be assumed to mean "no change"
and "@" to delete the current value:

REQUIRED:

PROBLEM("PROBLEM") = IEN of problem in file
#9000011             PROBLEM("PROVIDER") = IEN of
provider in file #200

OPTIONAL:

PROBLEM("NARRATIVE") = Text of the problem, as
described by provider PROBLEM("DIAGNOSIS") = IEN of ICD
Diagnosis code
in file #80 PROBLEM("LEXICON")   = IEN of problem
description
in the Lexicon Utility PROBLEM("STATUS")    = Status of
problem, either
A (active) or I (inactive) PROBLEM("ONSET")     = Date
of onset, in
internal FileMan format PROBLEM("RECORDED")  = Date
problem was recorded,
in internal FileMan format PROBLEM("RESOLVED")  = Date
problem was resolved,
in internal FileMan format PROBLEM("COMMENT")   = Up to
60 characters of
additional text PROBLEM("LOCATION")  = IEN of Hospital
Location
(clinic) in file #44 PROBLEM("SC")        = 1 or 0, if
problem is
related to SC condition PROBLEM("AO")        = 1 or 0,
if problem is
related to Agent Orange
exp.                  PROBLEM("IR")        = 1 or 0, if
problem is
related to Radiation exp.  PROBLEM("EC")        = 1 or
0, if problem is
related to Environmental
Contaminants (i.e. Persian
Gulf)                    PROBLEM("HNC")       = 1 or 0,
if problem is
related to Head and/or Neck
Cancer                    PROBLEM("MST")       = 1 or
0, if problem is
related to Military Sexual
Trauma                   PROBLEM("CV")        = 1 or 0,
if problem is
related to Combat Veteran
status                  PROBLEM("SHD")       = 1 or 0,
if problem is
related to Shipboard Hazard
and Defense (SHAD)        PROBLEM("CLV")       = 1 or
0, if problem is
related to Camp Lejeune PROBLEM("DX_DATE_OF_INTEREST")
= Date of the
patient's
encounter or
current date if
historical
encounter or if
none defined.     PROBLEM("SCTC") = SNOMED CT
Concept Code PROBLEM("SCTD") = SNOMED CT Designation Code PROBLEM("CODEDT") =
Date of interest for the
primary ICD Diagnosis PROBLEM("CODESYS") = Coding system
of the
primary ICD Diagnosis

DUZ

Used

The values in the DUZ array are referenced in this
routine; if tasked, the variables DUZ, DUZ(2), and DUZ("AG") must be set into
the ZTSAVE array.

SUBSCRIBING PACKAGE

SUBSCRIBING PACKAGE	ISC
PCE PATIENT CARE ENCOUNTER	Salt Lake City
ORDER ENTRY/RESULTS REPORTING	Salt Lake City
TEXT INTEGRATION UTILITIES	Salt Lake City
CLINICAL CASE REGISTRIES
VA CERTIFIED COMPONENTS - DSSI
ONCOLOGY
IMAGING

DATE ACTIVATED

2015/08/18