Print Page as PDF
OE/RR calls to GMPLX1 ICR (2743)

OE/RR calls to GMPLX1    ICR (2743)

Name Value
NUMBER 2743
IA # 2743
DATE CREATED 1999/01/28
CUSTODIAL PACKAGE PROBLEM LIST
CUSTODIAL ISC Salt Lake City
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE GMPLX1
NAME OE/RR calls to GMPLX1
GENERAL DESCRIPTION
This DBIA will document calls made from OE/RR (CPRS GUI
only) to routine GMPLX1.
STATUS Active
DURATION Till Otherwise Agreed
ID GMPLX1
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
$$VIEW(DUZ)
Returns value for PROBLEM LIST PRIMARY VIEW field
(#125) from NEW PERSON file (#200).
VARIABLES TYPE VARIABLES DESCRIPTION
DUZ Input
IEN of NEW PERSON file for user utilizing CPRS GUI.
$$SERVICE(DUZ)
Returns users service/section in internal^external
format
VARIABLES TYPE VARIABLES DESCRIPTION
DUZ Input
IEN of NEW PERSON file for user utilizing CPRS GUI.
VADPT(DFN)
Returns information on SC, Agent Orange, Ionizing
Radiation, Camp LeJeune, Gulf War, Head and/or Neck Cancer, Military Sexual
Trauma, Combat Veteran, and Shipboard Hazard and Defense.
VARIABLES TYPE VARIABLES DESCRIPTION
DFN Input
IEN of PATIENT file
GMPSC Output
Service Connected Indicator:  1 if yes, 0 if no, ""
if unknown
GMPAGTOR Output
Agent Orange Exposure Indicator:  1 if yes, 0 if no,
"" if unknown
GMPION Output
Ionizing Radiation Indicator:  1 if yes, 0 if no, ""
if unknown
GMPGULF Output
Persian Gulf indicator:  1 if yes, 0 if no, "" if
unknown
GMPHNC Output
Head and/or Neck Cancer Indicator:  1 if yes, 0 if
no, "" if unknown
GMPMST Output
Military Sexual Trauma Indicator:  1 if yes, 0 if no,
"" if unknown
GMPCV Output
Combat Veteran Indicator: 1 if yes, 0 if no, "" if
unknown
GMPSHD Output
Shipboard Hazard and Defense Indicator: 1 if yes, 0
if no, "" if unknown
GMPCLV Output
Camp LeJeune Indicator:  1 if yes, 0 if no, "" if
unknown
SCCOND(DFN,.SC)
Returns information on SC, Agent Orange, Ionizing
Radiation, Camp LeJeune, Gulf War, Head and/or Neck Cancer, Military Sexual
Trauma, Combat Veteran, and Shipboard Hazard and Defense in an array passed by
reference.
VARIABLES TYPE VARIABLES DESCRIPTION
DFN Input
IEN of PATIENT file
SC Output
Local array passed by reference containing a
patient's exposure/condition indicators.

SC("AO")  = Agent Orange Exposure Indicator
SC("CLV") = Camp LeJeune Indicator
SC("CV")  = Combat Veteran Indicator
SC("DFN") = IEN of Patient File
SC("HNC") = Head and/or Neck Cancer Indicator
SC("IR")  = Ionizing Radiation Indicator
SC("MST") = Military Sexual Trauma Indicator
SC("PG")  = Persian Gulf Indicator
SC("SC")  = Service Connected Indicator
SC("SHD") = Shipboard Hazard and Defense Indicator

1 if yes, 0 if no, "" if unknown
SCS(PROB,.SC)
Returns a combined string of exposure/conditions in 3
formats, delimited abbreviation, delimited initials and initials.
VARIABLES TYPE VARIABLES DESCRIPTION
PROB Input
IEN of PROBLEM file 9000011
SC Output
Array containing combined strings of exposures and/or
conditions that relate to the problem identified by input variable PROB.

OUTPUT:
SC(1) = AO/IR/EC/HNC/MST/CL/CV/SHD   Delimited abbreviation
SC(2) = A/I/E/H/M/L/C/S               Delimited Initials
SC(3) = AIEHMLCS                      Initials
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
ORDER ENTRY/RESULTS REPORTING Salt Lake City
DATE ACTIVATED 2015/08/17