Print Page as PDF
MILITARY SERVICE INFORMATION ICR (5354)

MILITARY SERVICE INFORMATION    ICR (5354)

Name Value
NUMBER 5354
IA # 5354
DATE CREATED 2009/01/29
CUSTODIAL PACKAGE REGISTRATION
USAGE Private
TYPE Routine
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 Under Revision
KEYWORDS
  • PATIENT FILE
  • CLINICAL REMINDERS
  • MILITARY SERVICE
DURATION Till Otherwise Agreed
ID DGMSE
COMPONENT/ENTRY POINT
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
REMINDER 2012/02/07