ONCACDU2 ;HINES OIFO/GWB - Utility routine ;05/03/12
Source file <ONCACDU2.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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
|
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | EDIPI+3, EDIPI+7, SNCNT+2, SNCNT+3, SNCNT+4, SNCNT+5, COCO+2, STAGE+5, STAGE+6, STAGE+12 , CCOUNTY+3, CCOUNTY+5, SUB+10, SUB+12, SUB+19, SUB164+3, SUB164+4, RXPRI+12, RXPRI+14, RXPRI+15 , RXPRI+17, FNODE+13, FCNODE+13, FCNODE+14, CS+10, CS+12, CCTST+5, CCTST+6, CSTST+5, CSTST+8 , CSTST+9, CSTST+10, ADDCTRY+14, ADDCTRY+17, ADDCTRY+18, ADDCTRY+19, ADDCTRY+20, ICD+3, ICDR+3, PPAY+2 , PPAY+3, DS+2, DS+3, DS+4, STNUM+4, STNUM+8 |
$$GETICN^MPIF001 | ICN+7 |
$$DATE^ONCACDU1 | DS+6 |
CHKADDS^ONCACDU1 | CSTST+4, ADDCTRY+12 |
$$FCNODE^ONCACDU2 | ADDCTRY+20 |
$$SUB164^ONCACDU2 | SUB+21, RXPRI+16, RXPRI+18 |
$$HEMATO^ONCFUNC | SUB164+7 |
^ONCODIS | VENDOR+5 |
$$DPTLRT^ONCOES | CCOUNTY+1, CCTST+5, CCTST+6 |
$$STRIP^XLFSTR | CCTST+7, STRIP1+1 |
$$TRIM^XLFSTR | STRIP+2 |
FileNo | Call Tags |
---|---|
^ONCO(160 - [#160] | GET1^DIQ |
160.03 | GET1^DIQ |
160.04 | GET1^DIQ |
^ONCO(160.3 - [#160.3] | GET1^DIQ |
^ONCO(160.4 - [#160.4] | GET1^DIQ |
^ONCO(160.6 - [#160.6] | GET1^DIQ |
^ONCO(164 - [#164] | GET1^DIQ |
^ONCO(164.42 - [#164.42] | GET1^DIQ |
^ONCO(165 - [#165] | GET1^DIQ |
^ONCO(165.5 - [#165.5] | GET1^DIQ |
165.51 | GET1^DIQ |
165.573 | GET1^DIQ |
^DPT - [#2] | GET1^DIQ |
^VA(200 - [#200] | GET1^DIQ |
^DIC(5 - [#5] | GET1^DIQ |
^LRT(67 - [#67] | GET1^DIQ |
^HL(779.004 - [#779.004] | GET1^DIQ |
^ICD9 - [#80] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ONCO(160 - [#160] | ICN+5, EDIPI+5, LAST+3, LAST+4, FCNODE+9, CCTST+4, CSTST+7, ADDCTRY+16, DPTLRT+3, DPTLRT+4 |
^ONCO(160.1 - [#160.1] | VASIT+2, VASIT+3, COCACC+2, COCACC+3, STNUM+5, STNUM+6, STNUM+7 |
^ONCO(160.16 - [#160.16] | VENDOR+2, VENDOR+4 |
^ONCO(164 - [#164] | SUB164+11 |
^ONCO(165.5 - [#165.5] | WORD+3, WORD+7, WORD+8, WORD+9, WORD+11, SUB+5, SUB+7, CS+4, CS+7 |
^ONCO(167 - [#167] | SUB+13 |
^VIC(5.11 - [#5.11] | ADDCTRY+20 |
Name | Field # of Occurrence |
---|---|
^(1 | STNUM+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACD160 | ICN~, ICN+4, ICN+5, EDIPI+3*, EDIPI+4, EDIPI+5, CCOUNTY~, CCOUNTY+1, CCOUNTY+3, FNODE~ , FNODE+9, FNODE+12, LAST~, LAST+3, LAST+4, FCNODE~, FCNODE+9, FCNODE+12, CCTST~, CCTST+3 , CSTST~, CSTST+5, CSTST+7, CSTST+8, CSTST+9, ADDCTRY+16, ADDCTRY+17, ADDCTRY+18, ADDCTRY+20, DPTLRT~ , DPTLRT+3, DPTLRT+4, ICDR+3 |
ACDANS | VAFLD~, VAFLD+1*, VAFLD+2*, VAFLD+3*, VAFLD+4, ADDCTRY+13*, ADDCTRY+18*, ADDCTRY+21*, ADDCTRY+22*, ADDCTRY+23* , ADDCTRY+24*, ADDCTRY+25*, ADDCTRY+26*, ADDCTRY+27*, ADDCTRY+28*, ADDCTRY+29*, ADDCTRY+30*, ADDCTRY+31*, ADDCTRY+32*, ADDCTRY+33* , ADDCTRY+34*, ADDCTRY+35*, ADDCTRY+36*, ADDCTRY+37*, ADDCTRY+38*, ADDCTRY+39, STRIP+1*, STRIP+2*, STRIP1+1*, STNUM+5 , STNUM+7, STNUM+8*, STNUM+9* |
BEHAV | SNCNT+1~, SNCNT+5*, SNCNT+7 |
CD | STAGE+3~, STAGE+5*, STAGE+7 |
CNT | WORD+4~, WORD+5*, WORD+7*, WORD+8, WORD+9, WORD+11, SUB~, SUB+3*, SUB+7 |
CONTACT | FCNODE+7~, FCNODE+13*, FCNODE+14 |
D0 | CCTST+2~, CCTST+3*, CCTST+4, CCTST+5, CCTST+6 |
DATEDX | SNCNT+1~, SNCNT+2*, SNCNT+7, COCO+2*, COCO+3 |
DLC | LAST+1~, LAST+2*, LAST+3*, LAST+4 |
DPT | CCOUNTY+2~, CCOUNTY+3*, CCOUNTY+4 |
DPTLRT | DPTLRT+1~, DPTLRT+2*, DPTLRT+3*, DPTLRT+4*, DPTLRT+5 |
DPTPNT | CCOUNTY+2~, CCOUNTY+4*, CCOUNTY+5 |
ENTRY | SUB+6~, SUB+10*, SUB+15, SUB+16, SUB+17, SUB+18, SUB+19, SUB+21, SUB164~, SUB164+11 , RXPRI+11~, RXPRI+15*, RXPRI+16, RXPRI+17, RXPRI+18 |
EXTR | VENDOR+1~, VENDOR+2*, VENDOR+3 |
EXTRACT | VENDOR+2, VENDOR+4, CLEANUP+1! |
FCNODE | FCNODE+7~, FCNODE+9*, FCNODE+10, FCNODE+12 |
FIELD | SUB~, SUB+10, SUB+14, SUB+15, SUB+16, SUB+17, SUB+20, SUB+22, SUB164+5, SUB164+6 , SUB164+8, RXPRI~, RXPRI+13, RXPRI+15, RXPRI+16, RXPRI+17, RXPRI+19, FNODE~, FNODE+13, FCNODE~ , FCNODE+14 |
FNODE | FNODE+8~, FNODE+9*, FNODE+10, FNODE+12, CS+1~, CS+2*, CS+4*, CS+5, CS+7*, CS+8 , CS+9 |
HEMA | SUB+2~, SUB+11*, SUB+13*, SUB+16, SUB+17 |
HEMAPT | SUB+2~, SUB+12*, SUB+13 |
HIST | SNCNT+1~, SNCNT+4*, SNCNT+7 |
I | SUB+2~, SUB+7* |
ICD | ICD~, ICD+3*, ICD+4*, ICD+5*, ICD+6*, ICD+7*, ICD+8*, ICD+9, ICDR~, ICDR+2* , ICDR+3 |
ICDR | ICDR+1~, ICDR+3*, ICDR+4*, ICDR+5 |
IE | FCNODE~, FCNODE+14 |
IEN | EDIPI~, EDIPI+3, SNCNT~, SNCNT+2, SNCNT+3, SNCNT+4, SNCNT+5, COCO~, COCO+2, WORD~ , WORD+3, WORD+7, WORD+8, WORD+9, WORD+11, STAGE~, STAGE+5, STAGE+6, STAGE+12, SUB~ , SUB+5, SUB+7, SUB+9, SUB+19, SUB+21, SUB164~, SUB164+3, SUB164+7, RXPRI~, RXPRI+12 , RXPRI+14, RXPRI+15, RXPRI+16, RXPRI+17, RXPRI+18, CS~, CS+4, CS+7, CS+9, ADDCTRY~ , ADDCTRY+14, PPAY~, PPAY+2, DS~, DS+2, DS+3, DS+4, STNUM+4 |
IENS | SUB+6~, SUB+9*, SUB+10, SUB+12, FNODE+11~, FNODE+12*, FNODE+13, FCNODE+11~, FCNODE+12*, FCNODE+13 , CS+6~, CS+9*, CS+10 |
ITEM | CSTST+4*, ADDCTRY~, ADDCTRY+14, ADDCTRY+15, ADDCTRY+20 |
LEN | WORD~, WORD+7, WORD+10 |
LINE | WORD+4~, WORD+6*, WORD+9, WORD+10*, WORD+11*, WORD+12 |
LOC | STAGE+3~, STAGE+9*, STAGE+12 |
NODE | WORD~, WORD+3, WORD+7, WORD+8, WORD+9, WORD+11 |
ONC1601 | STNUM+2~, STNUM+4*, STNUM+5*, STNUM+6, STNUM+7 |
ONC16019 | STNUM+2~, STNUM+4*, STNUM+6 |
ONC201 | ICN+2~, ICN+5*, ICN+6, EDIPI+1~, EDIPI+5*, EDIPI+6 |
ONC3DIG | STNUM+2~, STNUM+3*, STNUM+7*, STNUM+8, STNUM+9 |
ONC3IEN | STNUM+2~, STNUM+7* |
>> ONCADDF | CSTST+4, ADDCTRY+12 |
ONCDDT | RXPRI+11~, RXPRI+12*, RXPRI+13 |
ONCLINE | WORD+4~, WORD+6*, WORD+7, WORD+9*, WORD+10 |
ONCPT01 | ICN+2~, ICN+6*, ICN+7, EDIPI+1~, EDIPI+6*, EDIPI+7 |
ONCPT02 | EDIPI+1~ |
ONCX | CSTST+2~, CSTST+5*, CSTST+7, CSTST+11*, CSTST+12*, CSTST+13*, CSTST+14*, CSTST+15*, CSTST+16 |
OSPIEN | VASIT+2*, VASIT+3, VASIT+4!, COCACC+2*, COCACC+3, COCACC+4! |
PD | STAGE+3~, STAGE+6*, STAGE+8 |
PRIMST | SNCNT+1~, SNCNT+3*, SNCNT+7 |
PT | CS+6~, CS+10*, CS+11, CS+12, CCTST+2~, CCTST+4*, CCTST+5, CCTST+6, CSTST+2~, CSTST+7* , CSTST+8, CSTST+9, CSTST+10, ADDCTRY+16*, ADDCTRY+17, ADDCTRY+18, ADDCTRY+19 |
STATE | ADDCTRY+20*! |
STRING | STAGE+11~, STAGE+12*, STAGE+13, STAGE+14, STAGE+15 |
SUB | SUB+6~ |
SUBFLD | SUB+6~, SUB+20*, SUB+21, SUB164~, SUB164+9, SUB164+11, RXPRI~, RXPRI+16, RXPRI+18 |
SUBIEN | SUB+6~, SUB+7*, SUB+8, SUB+9 |
SUFFIX | VENDOR+1~, VENDOR+3*, VENDOR+5 |
SURGDT | DS+5*, DS+6, DS+7! |
SURGDT( | DS+2*, DS+3*, DS+4* |
SURGDT(0 | DS+5 |
TOP1 | SUB164+1~, SUB164+3*, SUB164+4, SUB164+5, SUB164+6, SUB164+7, SUB164+8, SUB164+9, RXPRI+14*, RXPRI+16 |
TOP2 | SUB164+1~, SUB164+4*, SUB164+5*, SUB164+6*, SUB164+7*, SUB164+8*, SUB164+9*, SUB164+10, SUB164+11 |
TYPE | STAGE~, STAGE+7, STAGE+8, STAGE+9, STAGE+10, STAGE+15 |
U | ICN+5, ICN+8, EDIPI+5, EDIPI+8, VASIT+3, COCACC+3, SUB+13, SUB164+11, ADDCTRY+20, DPTLRT+3 , DPTLRT+4, STNUM+6, STNUM+7 |
VERSION | VENDOR+1~, VENDOR+4*, VENDOR+5 |
VICPNT | ADDCTRY+20*! |
X | ICN+2~, ICN+3*, ICN+4, ICN+7*, ICN+8*, ICN+9, EDIPI+1~, EDIPI+2*, EDIPI+4, EDIPI+6 , EDIPI+7*, EDIPI+8*, EDIPI+9, VASIT+1~, VASIT+3*, VASIT+5, COCACC+1~, COCACC+3*, COCACC+5, SNCNT+1~ , SNCNT+6*, SNCNT+7*, SNCNT+8, COCO+1~, COCO+3*, COCO+4, VENDOR+1~, VENDOR+5*, VENDOR+6, WORD+1~ , WORD+2*, WORD+12*, WORD+13*, WORD+14, STAGE+3~, STAGE+4*, STAGE+7*, STAGE+8*, STAGE+13*, STAGE+14* , STAGE+15*, STAGEEX, CCOUNTY+1*, CCOUNTY+2~, CCOUNTY+5*, CCEX, SUB+2~, SUB+4*, SUB+8*, SUB+10* , SUB+15*, SUB+16*, SUB+17*, SUB+18*, SUB+19*, SUB+20*, SUB+21*, SUB+22*, SUB+23, SUB164+1~ , SUB164+2*, SUB164+11*, SUB164+12, RXPRI+11~, RXPRI+12*, RXPRI+13, RXPRI+16*, RXPRI+17*, RXPRI+18*, RXPRI+19* , RXPRI+20, FNODE+8~, FNODE+9*, FNODE+13*, FNODE+14, LAST+2*, LAST+4*, LAST+5*, LAST+6, FCNODE+7~ , FCNODE+8*, FCNODE+14*, FCNODE+15, CS+1~, CS+3*, CS+12*, CS+13, CCTST+2~, CCTST+4*, CCTST+5* , CCTST+6*, CCTST+7*, CCTST+8, ADDCTRY+16*, ADDCTRY+17*, ADDCTRY+18*, ADDCTRY+19*, ICD+2~, PPAY+1~, PPAY+2* , PPAY+3*, PPAY+4*, PPAY+5, DS+1~, DS+2*, DS+3*, DS+4*, DS+6*, DS+8 |
XPT | CSTST+2~, CSTST+3*, CSTST+8*, CSTST+9*, CSTST+10* |
XX | CSTST+2~, CSTST+3*, CSTST+8*, CSTST+9*, CSTST+10*, CSTST+11, CSTST+12, CSTST+13, CSTST+14, ADDCTRY+11~ , ADDCTRY+14*, ADDCTRY+16*, ADDCTRY+17*, ADDCTRY+18*, ADDCTRY+19*, ADDCTRY+20*, ADDCTRY+21, ADDCTRY+22, ADDCTRY+23, ADDCTRY+24 , ADDCTRY+25, ADDCTRY+26, ADDCTRY+27, ADDCTRY+28, ADDCTRY+29, ADDCTRY+30, ADDCTRY+31, ADDCTRY+32, ADDCTRY+33, ADDCTRY+34 , ADDCTRY+35, ADDCTRY+36, ADDCTRY+37, ADDCTRY+38 |
Z | CS+1~ |
Name | Field # of Occurrence |
---|---|
$T(LOGO+3^ONCODIS | VENDOR+5 |