AUM15U ;IHS/OIT/NKD - ICD 9 UPDATE FY2015 09/09/14 ;
Source file <AUM15U.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 3 | LIST^DIC UPDATE^DIE ($$GET1,GETS)^DIQ |
Table Maintenance | 1 | RSLT^AUM15 |
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 | ;;
|
|
PXUPD(AUMDATA,TYPE) | ;ICD9 OPERATION/PROCEDURE FILE UPDATE
|
|
UPDPX(YEAR) | ;ICD9 OPERATION/PROCEDURE FILE DRIVER
|
|
MAIN | ; EP - MAIN DRIVER
|
|
UPDDX(YEAR) | ; ICD9 DIAGNOSIS FILE DRIVER
|
Name | Field # of Occurrence |
---|---|
RSLT^AUM15 | UPDDX+3, UPDDX+4, UPDDX+5, DXUPD+21, DXUPD+32, DXUPD+121, UPDPX+3, UPDPX+4, UPDPX+5, PXUPD+18 , PXUPD+106 |
LIST^DIC | REMVER+2 |
UPDATE^DIE | DXUPD+20, DXUPD+68, DXUPD+73, DXUPD+79, DXUPD+85, DXUPD+90, DXUPD+97, DXUPD+100, DXUPD+106, DXUPD+112 , DXUPD+117, 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+34, DXUPD+38, DXUPD+39, DXUPD+40, DXUPD+41, DXUPD+42, DXUPD+115, PXUPD+24, PXUPD+28, PXUPD+29 , PXUPD+30, PXUPD+101 |
GETS^DIQ | DXUPD+94, 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 |
^TMP("AUM" | DXUPD+119 |
Name | Line Occurrences |
---|---|
$$GETRNG | DXUPD+31 |
DXUPD | UPDDX+9 |
PXUPD | UPDPX+9 |
UPDDX | MAIN+4 |
UPDPX | MAIN+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+27*, DXUPD+28*, DXUPD+95*, DXUPD+96, DXUPD+99*, 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+17!, DXUPD+21, PXUPD+1~, PXUPD+14!, PXUPD+18 |
FDA | DXUPD+1~, DXUPD+17!, DXUPD+36!, DXUPD+70!, DXUPD+75!, DXUPD+81!, DXUPD+87!, DXUPD+102!, DXUPD+108!, DXUPD+114! , 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+71*, DXUPD+72*, DXUPD+77*, DXUPD+78*, DXUPD+83*, DXUPD+84*, DXUPD+89*, DXUPD+99*, DXUPD+104*, DXUPD+105* , DXUPD+110*, DXUPD+111*, 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+18*, DXUPD+19*, 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+65*, DXUPD+66*, DXUPD+67*, DXUPD+116* |
FDAIEN | PXUPD+1~, PXUPD+46!, PXUPD+54! |
FDAIEN( | PXUPD+59* |
FILE | REMVER~, REMVER+2, REMVER+7 |
ICDAGE | DXUPD+2~, DXUPD+9*, DXUPD+30, DXUPD+31 |
ICDCC | DXUPD+2~, DXUPD+10*, DXUPD+42, DXUPD+59, DXUPD+109, DXUPD+111 |
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+18, DXUPD+21, DXUPD+43, DXUPD+119, DXUPD+121, PXUPD+2~ , PXUPD+5*, PXUPD+11, PXUPD+15, PXUPD+18, PXUPD+31, PXUPD+106 |
ICDDES | DXUPD+2~, DXUPD+7*, DXUPD+39, DXUPD+47, DXUPD+84, PXUPD+2~, PXUPD+7*, PXUPD+29, PXUPD+34, PXUPD+77 |
ICDDRG | DXUPD+2~, DXUPD+3*, DXUPD+28*, DXUPD+49, DXUPD+50, DXUPD+51, DXUPD+52, DXUPD+53, DXUPD+54, DXUPD+88 , DXUPD+99, PXUPD+2~, PXUPD+57*, PXUPD+60, PXUPD+95*, PXUPD+97 |
ICDDX | DXUPD+2~, DXUPD+6*, DXUPD+19, DXUPD+38, DXUPD+44, DXUPD+78, DXUPD+121 |
ICDIEN | DXUPD+1~, DXUPD+13*, DXUPD+14*, DXUPD+16, DXUPD+23*, DXUPD+24, DXUPD+34, DXUPD+38, 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+65, DXUPD+66, DXUPD+67, DXUPD+71, DXUPD+72, DXUPD+77, DXUPD+78 , DXUPD+83, DXUPD+84, DXUPD+89, DXUPD+94, DXUPD+99, DXUPD+104, DXUPD+105, DXUPD+110, DXUPD+111, DXUPD+115 , DXUPD+116, 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+27*, DXUPD+45, DXUPD+103, DXUPD+105, PXUPD+2~, PXUPD+56*, PXUPD+58, PXUPD+59 , PXUPD+94*, PXUPD+96 |
ICDMDRG | DXUPD+2~, DXUPD+11*, DXUPD+27, DXUPD+28, PXUPD+2~, PXUPD+9*, PXUPD+47, PXUPD+55, PXUPD+81, PXUPD+92 |
ICDMOD | DXUPD+1~, DXUPD+3*, DXUPD+22*, DXUPD+25*, DXUPD+38*, DXUPD+39*, DXUPD+40*, DXUPD+41*, DXUPD+42*, DXUPD+63 , DXUPD+119*, 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+34*, DXUPD+48, DXUPD+115, DXUPD+116, PXUPD+2~, PXUPD+24*, PXUPD+35, PXUPD+101, PXUPD+102 |
ICDRES | DXUPD+1~, DXUPD+93!, PXUPD+1~, PXUPD+46!, PXUPD+49!, PXUPD+86! |
ICDRES( | DXUPD+95, DXUPD+96*, PXUPD+51, PXUPD+52*, PXUPD+88, PXUPD+89* |
ICDRNG | DXUPD+2~, DXUPD+3*, DXUPD+31*, DXUPD+32, DXUPD+41, DXUPD+55, DXUPD+56, DXUPD+57, DXUPD+58 |
ICDSEX | DXUPD+2~, DXUPD+8*, DXUPD+40, DXUPD+46, 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+48, DXUPD+62, DXUPD+63, DXUPD+66, DXUPD+67, DXUPD+71, DXUPD+77, DXUPD+83 , DXUPD+89, DXUPD+104, DXUPD+110, 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+17!, DXUPD+87!, DXUPD+91, PXUPD+1~, PXUPD+14!, PXUPD+80!, PXUPD+84 |
NEWIEN(1 | DXUPD+23, DXUPD+94, DXUPD+99, PXUPD+20, PXUPD+87, PXUPD+96, PXUPD+97 |
RES | REMVER+1~, GETRNG+1~, GETRNG+2*, GETRNG+3 |
RES("DILIST" | REMVER+3, REMVER+4 |
ROOT | MAIN+1~, MAIN+3*, MAIN+5*, DXUPD+13, DXUPD+14, PXUPD+11 |
TEXT | GETRNG+1~, GETRNG+2* |
TMP | REMVER+1~, REMVER+4*, REMVER+5, REMVER+7 |
TYPE | UPDDX+1~, UPDDX+2*, UPDDX+7, UPDDX+9, DXUPD~, DXUPD+16, DXUPD+37, DXUPD+72, DXUPD+76, DXUPD+82 , DXUPD+88, DXUPD+103, DXUPD+109, DXUPD+115, UPDPX+1~, UPDPX+2*, 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 | MAIN+1~, MAIN+2*, MAIN+4, MAIN+6, UPDDX~, UPDDX+3, UPDDX+8, UPDPX~, UPDPX+3, UPDPX+8 , REMVER~, REMVER+5 |
Name | Field # of Occurrence |
---|---|
$T(AGES+CNT | GETRNG+2 |