AUM131 ;IHS/OIT/NKD - ICD 9 UPDATE 08/30/2012 ;
Source file <AUM131.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 3 | LIST^DIC UPDATE^DIE ($$GET1,GETS)^DIQ |
Table Maintenance | 1 | RSLT^AUM13EN |
Name | Comments | DBIA/ICR reference |
---|---|---|
DXUPD(AUMDATA,TYPE) | ; ICD9 DIAGNOSIS FILE UPDATE
|
|
GETRNG(AGE) | ; RETURN DELIMITED AGE RANGE
|
|
REMVER(FILE,IEN,YEAR) | ; REMOVE VERSIONED DATA MORE RECENT THAN UPDATE DATE
|
|
AGES | ;;
|
|
UPDATE | ; EP - MAIN DRIVER
|
|
PXUPD(AUMDATA,TYPE) | ;ICD9 OPERATION/PROCEDURE FILE UPDATE
|
|
UPDPX(YEAR) | ;ICD9 OPERATION/PROCEDURE FILE DRIVER
|
|
UPDDX(YEAR) | ; ICD9 DIAGNOSIS FILE DRIVER
|
Name | Field # of Occurrence |
---|---|
RSLT^AUM13EN | UPDDX+3, UPDDX+4, UPDDX+5, DXUPD+22, DXUPD+33, DXUPD+121, UPDPX+3, UPDPX+4, UPDPX+5, PXUPD+18 , PXUPD+106 |
LIST^DIC | REMVER+2 |
UPDATE^DIE | DXUPD+21, DXUPD+69, DXUPD+74, DXUPD+80, DXUPD+86, DXUPD+91, DXUPD+98, DXUPD+101, DXUPD+107, DXUPD+113 , DXUPD+118, PXUPD+17, PXUPD+44, PXUPD+53, PXUPD+61, PXUPD+66, PXUPD+72, PXUPD+78, PXUPD+83, PXUPD+90 , PXUPD+98, PXUPD+103, REMVER+8 |
$$GET1^DIQ | DXUPD+35, DXUPD+39, DXUPD+40, DXUPD+41, DXUPD+42, DXUPD+43, DXUPD+116, PXUPD+24, PXUPD+28, PXUPD+29 , PXUPD+30, PXUPD+101 |
GETS^DIQ | DXUPD+95, PXUPD+50, PXUPD+87 |
FileNo | Call Tags |
---|---|
^ICD9 - [#80] | GET1^DIQ |
80.071 | GETS^DIQ |
^ICD0 - [#80.1] | GET1^DIQ, GETS^DIQ |
80.171 | GETS^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUMDATA - [#9003103] | UPDDX+6, UPDDX+7, UPDDX+8, UPDDX+9, UPDPX+6, UPDPX+7, UPDPX+8, UPDPX+9 |
Name | Line Occurrences |
---|---|
$$GETRNG | DXUPD+32 |
DXUPD | UPDDX+9 |
PXUPD | UPDPX+9 |
UPDDX | UPDATE+4 |
UPDPX | UPDATE+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AGE | GETRNG~, GETRNG+2 |
AUMDATA | DXUPD~, DXUPD+4, DXUPD+5, DXUPD+6, DXUPD+7, DXUPD+8, DXUPD+9, DXUPD+10, DXUPD+11, PXUPD~ , PXUPD+4, PXUPD+5, PXUPD+6, PXUPD+7, PXUPD+8, PXUPD+9 |
CNT | DXUPD+1~, DXUPD+28*, DXUPD+29*, DXUPD+96*, DXUPD+97, DXUPD+100*, PXUPD+1~, PXUPD+51*, PXUPD+52, PXUPD+55* , PXUPD+58, PXUPD+59, PXUPD+60, PXUPD+88*, PXUPD+89, PXUPD+92*, REMVER+1~, REMVER+3*, REMVER+4, GETRNG+1~ , GETRNG+2* |
CNT2 | PXUPD+1~, PXUPD+60*, PXUPD+97* |
ERR | DXUPD+1~, DXUPD+18!, DXUPD+22, PXUPD+1~, PXUPD+14!, PXUPD+18 |
FDA | DXUPD+1~, DXUPD+18!, DXUPD+37!, DXUPD+71!, DXUPD+76!, DXUPD+82!, DXUPD+88!, DXUPD+103!, DXUPD+109!, DXUPD+115! , PXUPD+1~, PXUPD+14!, PXUPD+26!, PXUPD+46!, PXUPD+54!, PXUPD+63!, PXUPD+68!, PXUPD+74!, PXUPD+80!, PXUPD+93! , PXUPD+100!, REMVER+1~, REMVER+6! |
FDA( | DXUPD+72*, DXUPD+73*, DXUPD+78*, DXUPD+79*, DXUPD+84*, DXUPD+85*, DXUPD+90*, DXUPD+100*, DXUPD+105*, DXUPD+106* , DXUPD+111*, DXUPD+112*, PXUPD+15*, PXUPD+16*, PXUPD+31*, PXUPD+32*, PXUPD+33*, PXUPD+34*, PXUPD+35*, PXUPD+36* , PXUPD+37*, PXUPD+38*, PXUPD+39*, PXUPD+41*, PXUPD+42*, PXUPD+43*, PXUPD+58*, PXUPD+60*, PXUPD+64*, PXUPD+65* , PXUPD+70*, PXUPD+71*, PXUPD+76*, PXUPD+77*, PXUPD+82*, PXUPD+96*, PXUPD+97*, PXUPD+102*, REMVER+7* |
FDA(80 | DXUPD+19*, DXUPD+20*, DXUPD+44*, DXUPD+45*, DXUPD+46*, DXUPD+47*, DXUPD+48*, DXUPD+49*, DXUPD+50*, DXUPD+51* , DXUPD+52*, DXUPD+53*, DXUPD+54*, DXUPD+55*, DXUPD+56*, DXUPD+57*, DXUPD+58*, DXUPD+59*, DXUPD+60*, DXUPD+61* , DXUPD+62*, DXUPD+63*, DXUPD+64*, DXUPD+66*, DXUPD+67*, DXUPD+68*, DXUPD+117* |
FDAIEN | PXUPD+1~, PXUPD+46!, PXUPD+54! |
FDAIEN( | PXUPD+59* |
FILE | REMVER~, REMVER+2, REMVER+7 |
ICDAGE | DXUPD+2~, DXUPD+9*, DXUPD+31, DXUPD+32 |
ICDCC | DXUPD+2~, DXUPD+10*, DXUPD+43, DXUPD+60, DXUPD+110, DXUPD+112 |
ICDCNT | UPDDX+1~, UPDDX+6*, UPDDX+7, UPDDX+8, UPDDX+9, UPDPX+1~, UPDPX+6*, UPDPX+7, UPDPX+8, UPDPX+9 |
ICDCOD | DXUPD+2~, DXUPD+5*, DXUPD+13, DXUPD+14*, DXUPD+15, DXUPD+19, DXUPD+22, DXUPD+44, DXUPD+121, PXUPD+2~ , PXUPD+5*, PXUPD+11, PXUPD+15, PXUPD+18, PXUPD+31, PXUPD+106 |
ICDDES | DXUPD+2~, DXUPD+7*, DXUPD+40, DXUPD+48, DXUPD+85, PXUPD+2~, PXUPD+7*, PXUPD+29, PXUPD+34, PXUPD+77 |
ICDDRG | DXUPD+2~, DXUPD+3*, DXUPD+29*, DXUPD+50, DXUPD+51, DXUPD+52, DXUPD+53, DXUPD+54, DXUPD+55, DXUPD+89 , DXUPD+100, PXUPD+2~, PXUPD+57*, PXUPD+60, PXUPD+95*, PXUPD+97 |
ICDDX | DXUPD+2~, DXUPD+6*, DXUPD+20, DXUPD+39, DXUPD+45, DXUPD+79, DXUPD+121 |
ICDIEN | DXUPD+1~, DXUPD+13*, DXUPD+14, DXUPD+15*, DXUPD+17, DXUPD+24*, DXUPD+25, DXUPD+35, DXUPD+39, DXUPD+40 , DXUPD+41, DXUPD+42, DXUPD+43, DXUPD+44, DXUPD+45, DXUPD+46, DXUPD+47, DXUPD+48, DXUPD+49, DXUPD+50 , DXUPD+51, DXUPD+52, DXUPD+53, DXUPD+54, DXUPD+55, DXUPD+56, DXUPD+57, DXUPD+58, DXUPD+59, DXUPD+60 , DXUPD+61, DXUPD+62, DXUPD+63, DXUPD+64, DXUPD+66, DXUPD+67, DXUPD+68, DXUPD+72, DXUPD+73, DXUPD+78 , DXUPD+79, DXUPD+84, DXUPD+85, DXUPD+90, DXUPD+95, DXUPD+100, DXUPD+105, DXUPD+106, DXUPD+111, DXUPD+112 , DXUPD+116, DXUPD+117, PXUPD+1~, PXUPD+11*, PXUPD+13, PXUPD+20*, PXUPD+21, PXUPD+24, PXUPD+28, PXUPD+29 , PXUPD+30, PXUPD+31, PXUPD+32, PXUPD+33, PXUPD+34, PXUPD+35, PXUPD+36, PXUPD+37, PXUPD+38, PXUPD+39 , PXUPD+41, PXUPD+42, PXUPD+43, PXUPD+50, PXUPD+58, PXUPD+60, PXUPD+64, PXUPD+65, PXUPD+70, PXUPD+71 , PXUPD+76, PXUPD+77, PXUPD+82, PXUPD+87, PXUPD+96, PXUPD+97, PXUPD+101, PXUPD+102 |
ICDMDC | DXUPD+2~, DXUPD+3*, DXUPD+28*, DXUPD+46, DXUPD+104, DXUPD+106, PXUPD+2~, PXUPD+56*, PXUPD+58, PXUPD+59 , PXUPD+94*, PXUPD+96 |
ICDMDRG | DXUPD+2~, DXUPD+11*, DXUPD+28, DXUPD+29, PXUPD+2~, PXUPD+9*, PXUPD+47, PXUPD+55, PXUPD+81, PXUPD+92 |
ICDMOD | DXUPD+1~, DXUPD+3*, DXUPD+23*, DXUPD+26*, DXUPD+39*, DXUPD+40*, DXUPD+41*, DXUPD+42*, DXUPD+43*, DXUPD+64 , DXUPD+120*, DXUPD+121, PXUPD+1~, PXUPD+3*, PXUPD+19*, PXUPD+22*, PXUPD+28*, PXUPD+29*, PXUPD+30*, PXUPD+39 , PXUPD+105*, PXUPD+106 |
ICDPX | PXUPD+2~, PXUPD+6*, PXUPD+16, PXUPD+28, PXUPD+32, PXUPD+71, PXUPD+106 |
ICDPYR | DXUPD+2~, DXUPD+35*, DXUPD+49, DXUPD+116, DXUPD+117, PXUPD+2~, PXUPD+24*, PXUPD+35, PXUPD+101, PXUPD+102 |
ICDRES | DXUPD+1~, DXUPD+94!, PXUPD+1~, PXUPD+46!, PXUPD+49!, PXUPD+86! |
ICDRES( | DXUPD+96, DXUPD+97*, PXUPD+51, PXUPD+52*, PXUPD+88, PXUPD+89* |
ICDRNG | DXUPD+2~, DXUPD+3*, DXUPD+32*, DXUPD+33, DXUPD+42, DXUPD+56, DXUPD+57, DXUPD+58, DXUPD+59 |
ICDSEX | DXUPD+2~, DXUPD+8*, DXUPD+41, DXUPD+47, PXUPD+2~, PXUPD+8*, PXUPD+30, PXUPD+33 |
ICDTMP | PXUPD+1~, PXUPD+55*, PXUPD+56, PXUPD+57, PXUPD+92*, PXUPD+94, PXUPD+95 |
ICDYR | DXUPD+2~, DXUPD+4*, DXUPD+49, DXUPD+63, DXUPD+64, DXUPD+67, DXUPD+68, DXUPD+72, DXUPD+78, DXUPD+84 , DXUPD+90, DXUPD+105, DXUPD+111, PXUPD+2~, PXUPD+4*, PXUPD+35, PXUPD+38, PXUPD+39, PXUPD+42, PXUPD+43 , PXUPD+64, PXUPD+70, PXUPD+76, PXUPD+82 |
IEN | REMVER~, REMVER+2, REMVER+7 |
NEWIEN | DXUPD+1~, DXUPD+18!, DXUPD+88!, DXUPD+92, PXUPD+1~, PXUPD+14!, PXUPD+80!, PXUPD+84 |
NEWIEN(1 | DXUPD+24, DXUPD+95, DXUPD+100, PXUPD+20, PXUPD+87, PXUPD+96, PXUPD+97 |
RES | REMVER+1~, GETRNG+1~, GETRNG+2*, GETRNG+3 |
RES("DILIST" | REMVER+3, REMVER+4 |
ROOT | UPDATE+1~, UPDATE+3*, UPDATE+5*, DXUPD+13, DXUPD+15, PXUPD+11 |
TEXT | GETRNG+1~, GETRNG+2* |
TMP | REMVER+1~, REMVER+4*, REMVER+5, REMVER+7 |
TYPE | UPDDX+1~, UPDDX+2*, UPDDX+3, UPDDX+7, UPDDX+9, DXUPD~, DXUPD+17, DXUPD+38, DXUPD+73, DXUPD+77 , DXUPD+83, DXUPD+89, DXUPD+104, DXUPD+110, DXUPD+116, UPDPX+1~, UPDPX+2*, UPDPX+3, UPDPX+7, UPDPX+9 , PXUPD~, PXUPD+13, PXUPD+27, PXUPD+47, PXUPD+65, PXUPD+69, PXUPD+75, PXUPD+81, PXUPD+101 |
U | UPDDX+7, UPDDX+8, UPDDX+9, DXUPD+4, DXUPD+5, DXUPD+6, DXUPD+7, DXUPD+8, DXUPD+9, DXUPD+10 , DXUPD+11, UPDPX+7, UPDPX+8, UPDPX+9, PXUPD+4, PXUPD+5, PXUPD+6, PXUPD+7, PXUPD+8, PXUPD+9 |
YEAR | UPDATE+1~, UPDATE+2*, UPDATE+4, UPDATE+6, UPDDX~, UPDDX+3, UPDDX+8, UPDPX~, UPDPX+3, UPDPX+8 , REMVER~, REMVER+5 |
Name | Field # of Occurrence |
---|---|
$T(AGES+CNT | GETRNG+2 |