MILITARY SERVICE INFORMATION ICR (5354)

Name

Value

NUMBER

5354

IA #

5354

DATE CREATED

2009/01/29

CUSTODIAL PACKAGE

REGISTRATION

USAGE

Private

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

DGMSE

NAME

MILITARY SERVICE INFORMATION

GENERAL DESCRIPTION

Patch DG*5.3*797 modifies the PATIENT file (#2) to
support the entry of an unlimited number of military service episodes for the
patient. The storage of the service episodes is in the new MILITARY SERVICE
EPISODE sub-file (#2.3216). The following APIs will return service episode
data from the appropriate location in the PATIENT file.

STATUS

Active

KEYWORDS

PATIENT FILE
CLINICAL REMINDERS
MILITARY SERVICE

DURATION

Till Otherwise Agreed

DGMSE

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

OEIF

This returns a list of patients with OEF/OIF/UNK
service in the specified date range. The data is returned in:
^TMP($J,LSUB,DFN,FDATE,TDATE,SLOC,DA)=""

where
LSUB  - list subscript; see variable description below
DFN   - standard patient identifier
FDATE - from date of the service
TDATE - to date of the service
SLOC  - service location; it can be OEF, OIF, or UNK. UNK is used when the
location is unknown/cannot be disclosed
DA    - entry in OEF/OIF subfile

A patient will be included on the list if there is any overlap between the
date range defined by BDT-EDT and the date range defined by FDATE- TDATE.

VARIABLES

TYPE

VARIABLES DESCRIPTION

BDT

Input

This is the beginning date/time of the time period in
which to search for OEF/OIF service.

EDT

Input

This is the ending date/time of the time period in
which to search for OEF/OIF service.

LSUB

Input

The patient list data is returned in ^TMP($J,LSUB).

MSDATA

This entry point returns data for all episodes of
service. The argument list is: MSDATA(DFN,NEPS,ENTRYDTA,MSDATA).

VARIABLES	TYPE	VARIABLES DESCRIPTION
DFN	Input	Standard patient identifier.
NEPS	Output	The number of episodes of service that were found.
ENTRYDTA	Output	This array has the following format: ENTRYDTA(ENTRYDT)=N Where ENTRYDT is the entry date for the Nth episode of service.
MSDATA	Output	This array contains data for each episode of service. For the Nth episode of service the format is: MSDATA(N,"ENTRY DATE") - This is the date the patient entered this episode of service. MSDATA(N,"SEPARATION DATE") - This is the date the patient separated from this episode of service. If the patient has not yet separated this will be null. MSDATA(N,"DATE") - This is the separation date; if there is no separation date then this is the entry date. MSDATA(N,"BRANCH") - This is the branch of service in which the patient served for this episode of service. MSDATA(N,"SERVICE COMPONENT") - This is the service component for this episode of service. The possible values are: REGULAR, ACTIVATED RESERVE, and ACTIVATED NG. MSDATA(N,"DISCHARGE TYPE") - This is the discharge type for this episode of service. The possible values are in the Type of Discharge file #25. If the patient has not been discharged this will be null.

SUBSCRIBING PACKAGE

CLINICAL REMINDERS

DATE ACTIVATED

2011/07/18