Routine: DGPTRNU

Information

DGPTRNU ;ISF/GJW,HIOFO/FT - PTF TRANSMISSION ;2/18/15 2:28pm

Source file <DGPTRNU.m>

Name	Comments	DBIA/ICR reference
FDATE(DGDT,DGDF)	;format date as MMDDYY
TIME(DTM)	;extract time in HHMM format from date/time
FMTICD(DGC)	;format ICD code for transmission
GETNODE(DGPTF,DGHOW,DGNODE)	;
GET0(DGPTF,DGHOW)	;
GET32(DGPTF,DGHOW)	;
GET321(DGPTF,DGHOW)	;
GET52(DGPTF,DGHOW)	;
POW(DGPTF)	;POW status
PDIS(DGPTF)	;place of disposition
POS(DGPTF)	;period of service
MSTATUS(DGPTF)	;marital status
ION(DGPTF)	;ionizing radiation (used by 101)
ION2(DGPTF)	;ionizing radiation (used by 701)
MST(DGPTF)	;military sexual trauma
HNC(DGPTF)	;treatment related to head/neck cancer (HNC)
SWASIA(DGPTF)	;treatment related to service in SW Asia
CVS(DGPTF)	;combat vet status
CVDT(DGPTF)	;combat vet date
SHAD(DGPTF)	;SHAD/Project 112
KATRINA(DGPTF)	;Katrina indicator
MTI(DGPTF)	;means test indicator
AO(DGPTF)	;treated for agent orange exposure (used by 701)
AO2(DGPTF)	;agent orange exposure (used by 101)
INCOME(DGPTF)	;income
DISP(PTF)	;date of disposition
GETMPCR(DGTS)	;MPCR from specialty
SPCODE(DGTS)	;
RACE(DGPTF,DGARR)	;