Print Page as PDF
DBIA928 ICR (928)

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
ID GMPLUTL
COMPONENT/ENTRY POINT
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