;MILITARY SERVICE EPISODES
; DGDATA - Data element array from LST, ^TMP("DGROFDA",$J)
; LSTDFN - Pointer to the patient data from the LST, in DGDATA
AO(DGDATA,DFN,LSTDFN)
;AGENT ORANGE EXPOSURE INDICATED?
; DGDATA - Data element array from LST, ^TMP("DGROFDA",$J)
; DFN - Pointer to the PATIENT (#2) file
; LSTDFN - Pointer to the patient data from the LST, in DGDATA
RE
;RACE AND ETHNICITY
IR(DGDATA,DFN,LSTDFN)
;RADIATION EXPOSURE INDICATED?
; DGDATA - Data element array from LST, ^TMP("DGROFDA",$J)
; DFN - Pointer to the PATIENT (#2) file
; LSTDFN - Pointer to the patient data from the LST, in DGDATA
RDOC(DGDATA,DFN,LSTDFN)
;RECENT DATE(S) OF CARE
; DGDATA - Data element array from LST, ^TMP("DGROFDA",$J)
; DFN - Pointer to the PATIENT (#2) file
; LSTDFN - Pointer to the patient data from the LST, in DGDATA
TA(DGDATA,LSTDFN)
;TEMPORARY ADDRESS
; DGDATA - Data element array from LST, ^TMP("DGROFDA",$J)
; LSTDFN - Pointer to the patient data from the LST, in DGDATA
INE(DGDATA,DFN,LSTDFN)
;INELIGIBLE DATA
; DGDATA - Data element array from LST, ^TMP("DGROFDA",$J)
; DFN - Pointer to the PATIENT (#2) file
; LSTDFN - Pointer to the patient data from the LST, in DGDATA
INC(DGDATA,DFN,LSTDFN)
;RATED INCOMPETENT (Y/N)
; DGDATA - Data element array from LST, ^TMP("DGROFDA",$J)
; DFN - Pointer to the PATIENT (#2) file
; LSTDFN - Pointer to the patient data from the LST, in DGDATA
CA(DGDATA,LSTDFN)
;CONFIDENTIAL ADDRESS
; DGDATA - Data element array from LST, ^TMP("DGROFDA",$J)
; LSTDFN - Pointer to the patient data from the LST, in DGDATA
SWA(DGDATA,DFN,LSTDFN)
;SOUTHWEST ASIA CONDITIONS
; DGDATA - Data element array from LST, ^TMP("DGROFDA",$J)
; DFN - Pointer to the PATIENT (#2) file
; LSTDFN - Pointer to the patient data from the LST, in DGDATA
SP(DGDATA,DFN,LSTDFN)
;SENSITIVE PATIENT
; DGDATA - Data element array from LST, ^TMP("DGROFDA",$J)
; DFN - Pointer to the PATIENT (#2) file
; LSTDFN - Pointer to the patient data from the LST, in DGDATA
PA(DGDATA,LSTDFN)
;PERMANENT ADDRESS
; DGDATA - Data element array from LST, ^TMP("DGROFDA",$J)
; LSTDFN - Pointer to the patient data from the LST, in DGDATA
DOD(DGDATA,DFN,LSTDFN)
;DATE OF DEATH
POW(DGDATA,DFN,LSTDFN)
;POW STATUS INDICATED?
; DGDATA - Data element array from LST, ^TMP("DGROFDA",$J)
; DFN - Pointer to the PATIENT (#2) file
; LSTDFN - Pointer to the patient data from the LST, in DGDATA