Routine: ONCACDU2

Information

ONCACDU2 ;HINES OIFO/GWB - Utility routine ;05/03/12

Name	Comments	DBIA/ICR reference
VAFLD(ACDANS)	;Convert data to NAACCR format
ICN(ACD160)	;Patient ICN (2,991.01 & 991.02) [72-94] ; ICN OR X =999999999999V999999 format
EDIPI(IEN)	;Patient ICN (2,991.01)
VASIT()	;VISN (160.1,7) [2340-2341]
COCACC()	;COC ACCREDITATION (160.1,68) [2547-2548]
SNCNT(IEN)	;Sequence Number--Central [380] 281-282
COCO(IEN)	;COC Coding Sys--Original [21S 50] 1202-1203
VENDOR()	;Vendor Name [2170] 1204-1213
WORD(IEN,NODE,LEN)	;Get word processing data
STAGE(IEN,TYPE)	;TNM Descriptors
STAGEEX
CCOUNTY(ACD160)	;County--Current [1840] 2192-2194
CCEX
SUB(IEN,CNT,FIELD)	;
SUB164(IEN,SUBFLD,ENTRY)	;ICDO TOPOGRAPHY (164)
RXPRI(IEN,FIELD,SUBFLD)	;
FNODE(ACD160,FIELD)	;FOLLOW-UP (160,400)
LAST(ACD160)	;Get last FOLLOW-UP(160,400)
FCNODE(ACD160,FIELD,IE)	;FOLLOW-UP CONTACT (160,420)
CS(IEN)	;Cancer Status [1770] 1303-1303
CCTST(ACD160)	;
CSTST(ACD160)	;
ADDCTRY(IEN,ITEM)	;
DPTLRT(ACD160)	;check if pt from Patient or Referral file
ICD(ICD)	;ICD Code
ICDR(ICD)	;ICD Revision Number [1920] 1392-1392
PPAY(IEN)	;PRIMARY PAYER AT DX (165.5,18)
DS(IEN)	;RX Date--Surgery [1200] 755-762
STRIP	;Replace punctuation marks with spaces
STRIP1	;Strip out punctuation marks
STNUM	;get 3-digit state number for state extract. reporting facility must be the same w/ 160.1 entry.
CLEANUP	;Cleanup