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