©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
Select the objects that you wish to see in the downloaded PDF
InfoAMEREDDX ; IHS/OIT/SCR - Sub-routine for ER VISIT EDIT of DX information
Source file <AMEREDDX.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 7 | NOW^%DTC EN^DDIOL ^DIC FILE^DICN ^DIE (,EN)^DIK ^DIR |
| Emergency Room | 5 | CKSC^AMER1 ($$EDAUDIT,$$EDDISPL,MULTAUDT)^AMEREDAU (ADDVPOV,DELVPOV,UPVPOV)^AMEREDDY (DIE,MULTDIE)^AMEREDIT $$STRIPNAR^AMERPCC2 |
| DRG Grouper | 1 | $$ICDDX^ICDCODE |
| IHS VA Utilities | 1 | ^XBCLS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DELDIAG(AMERIEN,AMERSUB) | ;
; Delete diagnosis record |
|
| SELECTDX(AMERPDX,AMERPNAR) | ;IHS/OIT/GIS 9/9/11 patch 3
|
|
| PROCESDX(AMERDXNO,AMERDIAG,AMERPDX,AMERPNAR) | ;
|
|
| PRIMDIAG(AMERDA,AMERDX,AMERNNAR,AMERAIEN,AMERPRIS,AMEROLDS) | ;
; UPDATES PRIMARY DIAGNOSIS FIELDS IF THE ORIGINAL INFORMATION MATCHES PRIMARY DX INFORMATION ; AND ALLOWS USER TO REPLACE PRIMARY DX FIELDS WITH NEW ONE'S IF ORIGINAL INFORMATION IS DIFFERENT |
|
| EDDIAGS(AMERDA,AMEREDNO,AMERAIEN) | ; EP from AMEREDIT
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | PRIMDIAG+37, PRIMDIAG+46 |
| CKSC^AMER1 | PROCESDX+77, PROCESDX+84 |
| $$EDAUDIT^AMEREDAU | PROCESDX+31, PROCESDX+53, PROCESDX+104, PROCESDX+141 |
| $$EDDISPL^AMEREDAU | PRIMDIAG+38, PROCESDX+31, PROCESDX+53, PROCESDX+141 |
| MULTAUDT^AMEREDAU | PRIMDIAG+54, PROCESDX+112 |
| ADDVPOV^AMEREDDY | PROCESDX+140 |
| DELVPOV^AMEREDDY | DELDIAG+10 |
| UPVPOV^AMEREDDY | PROCESDX+110 |
| DIE^AMEREDIT | PRIMDIAG+53 |
| MULTDIE^AMEREDIT | PROCESDX+58, PROCESDX+98, PROCESDX+146 |
| $$STRIPNAR^AMERPCC2 | PROCESDX+96, PROCESDX+127 |
| EN^DDIOL | EDDIAGS+2, EDDIAGS+10, EDDIAGS+26, EDDIAGS+43, PROCESDX+24, PROCESDX+27, PROCESDX+28, SELECTDX+6, SELECTDX+7 |
| ^DIC | EDDIAGS+36, PROCESDX+48, PROCESDX+136 |
| FILE^DICN | PROCESDX+131 |
| ^DIE | PROCESDX+61, PROCESDX+101 |
| ^DIK | DELDIAG+13 |
| EN^DIK | DELDIAG+13 |
| ^DIR | PRIMDIAG+28, DELDIAG+5, PROCESDX+41, PROCESDX+68, PROCESDX+73, PROCESDX+83, PROCESDX+123, SELECTDX+28 |
| $$ICDDX^ICDCODE | EDDIAGS+15, EDDIAGS+23, PRIMDIAG+20, PRIMDIAG+34, PRIMDIAG+35, PROCESDX+128, PROCESDX+133, SELECTDX+18, SELECTDX+19 |
| ^XBCLS | EDDIAGS+18 |
| FileNo | Call Tags |
|---|---|
| ^ICD9 - [#80] | Classic Fileman Calls |
| ^AMERVSIT - [#9009080] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AMERVSIT - [#9009080] | EDDIAGS+11, EDDIAGS+12, EDDIAGS+15, EDDIAGS+16, EDDIAGS+23, PRIMDIAG+16, PRIMDIAG+17, PROCESDX+24, PROCESDX+25, PROCESDX+61 , PROCESDX+101, SELECTDX+12, SELECTDX+14, SELECTDX+20, SELECTDX+21, SELECTDX+23 |
| ^XUSEC("AMERZ9999" | EDDIAGS+2 |
| Name | Line Occurrences |
|---|---|
| $$DELDIAG | PROCESDX+30 |
| $$PROCESDX | EDDIAGS+41 |
| $$SELECTDX | EDDIAGS+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AMERAIEN | EDDIAGS~, PRIMDIAG~, PRIMDIAG+54, PROCESDX+112 |
| AMERBAD | PROCESDX+11~, PROCESDX+22*, PROCESDX+50*, PROCESDX+65 |
| AMERCKSC | PROCESDX+78, PROCESDX+85, PROCESDX+86! |
| AMERCODE | EDDIAGS+7~, EDDIAGS+23*, EDDIAGS+28, EDDIAGS+30 |
| AMERDA | EDDIAGS~, EDDIAGS+11, EDDIAGS+12, EDDIAGS+15, EDDIAGS+16, EDDIAGS+23, PRIMDIAG~, PRIMDIAG+16, PRIMDIAG+17, PRIMDIAG+53 , PROCESDX+24, PROCESDX+25, PROCESDX+30, PROCESDX+56, PROCESDX+60, PROCESDX+95, PROCESDX+100, PROCESDX+110, PROCESDX+129, PROCESDX+134 , PROCESDX+140, PROCESDX+144, SELECTDX+12, SELECTDX+14, SELECTDX+20, SELECTDX+21, SELECTDX+23 |
| AMERDIAG | PROCESDX~, PROCESDX+17 |
| AMERDONE | EDDIAGS+7~, EDDIAGS+9*, EDDIAGS+17, EDDIAGS+22*, EDDIAGS+37*, EDDIAGS+45*, EDDIAGS+46!, PROCESDX+49* |
| AMERDX | EDDIAGS+7~, EDDIAGS+9*, EDDIAGS+38*, EDDIAGS+39, EDDIAGS+41, EDDIAGS+45, EDDIAGS+46!, PRIMDIAG~, PRIMDIAG+31, PRIMDIAG+35 , PRIMDIAG+41, PROCESDX+17*, PROCESDX+51*, PROCESDX+57, PROCESDX+117, PROCESDX+128, PROCESDX+130, PROCESDX+133, PROCESDX+135 |
| AMERDXNO | EDDIAGS+7~, EDDIAGS+8*, EDDIAGS+46!, PROCESDX~, PROCESDX+21, PROCESDX+24, PROCESDX+25, PROCESDX+30, PROCESDX+56, PROCESDX+95 , PROCESDX+116*, SELECTDX+1~, SELECTDX+9*, SELECTDX+12*, SELECTDX+14, SELECTDX+20, SELECTDX+21, SELECTDX+23 |
| AMEREDNO | EDDIAGS~, PRIMDIAG+38, PRIMDIAG+47, PROCESDX+31, PROCESDX+53, PROCESDX+104, PROCESDX+141 |
| AMEREDTS | PRIMDIAG+12~, PRIMDIAG+15*, PRIMDIAG+40*, PRIMDIAG+49*, PRIMDIAG+54, PRIMDIAG+55!, DELDIAG+3*, PROCESDX+11~, PROCESDX+15*, PROCESDX+33* , PROCESDX+55*, PROCESDX+106*, PROCESDX+112, PROCESDX+113*, PROCESDX+143* |
| AMERFLAG | DELDIAG+2~, DELDIAG+6*, DELDIAG+14*, DELDIAG+17 |
| AMERGONE | PROCESDX+12~, PROCESDX+22*, PROCESDX+34*, PROCESDX+39 |
| AMERGOOD | PROCESDX+13~, PROCESDX+79*, PROCESDX+80, PROCESDX+85* |
| AMERICD9 | PROCESDX+12~, PROCESDX+17*, PROCESDX+23, PROCESDX+27, PROCESDX+29, PROCESDX+118, PROCESDX+119, SELECTDX+1~ |
| AMERIEN | DELDIAG~, DELDIAG+8, DELDIAG+10 |
| AMERNAR | EDDIAGS+7~, EDDIAGS+9*, EDDIAGS+46! |
| AMERNDX | PROCESDX+12~, PROCESDX+15*, PROCESDX+43*, PROCESDX+51*, PROCESDX+52, PROCESDX+53, PROCESDX+109, PROCESDX+110, PROCESDX+118*, PROCESDX+119* , PROCESDX+140, PROCESDX+141 |
| AMERNEW | PRIMDIAG+12~, PRIMDIAG+35*, PRIMDIAG+36, PRIMDIAG+38 |
| AMERNNAR | PRIMDIAG~, PRIMDIAG+44, PRIMDIAG+45, PRIMDIAG+50, PROCESDX+12~, PROCESDX+15*, PROCESDX+70*, PROCESDX+93*, PROCESDX+94, PROCESDX+96* , PROCESDX+97, PROCESDX+104, PROCESDX+109, PROCESDX+110, PROCESDX+125*, PROCESDX+126, PROCESDX+127*, PROCESDX+140, PROCESDX+144 |
| AMERODX | PRIMDIAG+12~, PRIMDIAG+17*, PRIMDIAG+18, PRIMDIAG+19, PRIMDIAG+20, PRIMDIAG+31, PRIMDIAG+34, PRIMDIAG+55!, PROCESDX+12~, PROCESDX+15* , PROCESDX+23*, PROCESDX+26, PROCESDX+31, PROCESDX+43, PROCESDX+52, PROCESDX+53, PROCESDX+109, PROCESDX+110, PROCESDX+118* |
| AMEROLD | PRIMDIAG+12~, PRIMDIAG+15*, PRIMDIAG+34*, PRIMDIAG+38 |
| AMEROLDS | PRIMDIAG~, PRIMDIAG+21, PROCESDX+11~, PROCESDX+26*, PROCESDX+118* |
| AMERONAR | PRIMDIAG+12~, PRIMDIAG+16*, PRIMDIAG+44, PRIMDIAG+47, PRIMDIAG+55!, PROCESDX+12~, PROCESDX+15*, PROCESDX+25*, PROCESDX+26, PROCESDX+27 , PROCESDX+29, PROCESDX+70, PROCESDX+72, PROCESDX+82, PROCESDX+94, PROCESDX+104, PROCESDX+109, PROCESDX+110 |
| AMERPDX | EDDIAGS+7~, EDDIAGS+9*, EDDIAGS+11*, EDDIAGS+15*, EDDIAGS+21, EDDIAGS+41, EDDIAGS+42*, PRIMDIAG+12~, PRIMDIAG+14*, PRIMDIAG+21 , PRIMDIAG+36*, PRIMDIAG+56, PROCESDX~, PROCESDX+19, PROCESDX+27, PROCESDX+29, SELECTDX~, SELECTDX+20 |
| AMERPNAR | EDDIAGS+7~, EDDIAGS+12*, EDDIAGS+16*, EDDIAGS+21, EDDIAGS+41, EDDIAGS+42*, PRIMDIAG+12~, PRIMDIAG+14*, PRIMDIAG+21, PRIMDIAG+45* , PRIMDIAG+47, PRIMDIAG+56, PROCESDX~, PROCESDX+19, PROCESDX+27, PROCESDX+29, SELECTDX~, SELECTDX+20 |
| AMERPRIM | EDDIAGS+7~, EDDIAGS+41*, EDDIAGS+42 |
| AMERPRIS | PRIMDIAG~, PRIMDIAG+14, PROCESDX+11~, PROCESDX+19*, PROCESDX+115, PROCESDX+148 |
| AMERQUIT | EDDIAGS+7~, EDDIAGS+8*, EDDIAGS+49, PROCESDX+12~, PROCESDX+18*, PROCESDX+36*, PROCESDX+38, PROCESDX+42*, PROCESDX+49*, PROCESDX+65 , PROCESDX+69*, PROCESDX+74*, PROCESDX+88*, PROCESDX+91 |
| AMERSEL | EDDIAGS+7~, EDDIAGS+21*, EDDIAGS+22, EDDIAGS+23, EDDIAGS+27, EDDIAGS+41, SELECTDX+1~, SELECTDX+2* |
| AMERSKIP | PROCESDX+12~, PROCESDX+17*, PROCESDX+22*, PROCESDX+117 |
| AMERSTRG | PRIMDIAG+12~, PRIMDIAG+15*, PRIMDIAG+38*, PRIMDIAG+39, PRIMDIAG+40, PRIMDIAG+43, PRIMDIAG+47*, PRIMDIAG+48, PRIMDIAG+49, PRIMDIAG+55! , DELDIAG+3*, PROCESDX+11~, PROCESDX+15*, PROCESDX+31*, PROCESDX+32, PROCESDX+33, PROCESDX+53*, PROCESDX+54, PROCESDX+55, PROCESDX+104* , PROCESDX+105, PROCESDX+106, PROCESDX+141*, PROCESDX+142, PROCESDX+143 |
| AMERSUB | DELDIAG~, DELDIAG+8, DELDIAG+10 |
| AMERTEMP | PRIMDIAG+12~, PRIMDIAG+20*, PRIMDIAG+21 |
| >> DA | DELDIAG+8*, PROCESDX+56*, PROCESDX+58, PROCESDX+59, PROCESDX+60*, PROCESDX+61, PROCESDX+95*, PROCESDX+98, PROCESDX+99, PROCESDX+100* , PROCESDX+101, PROCESDX+144*, PROCESDX+146 |
| >> DA(1 | DELDIAG+8*, DELDIAG+12, PROCESDX+56*, PROCESDX+58, PROCESDX+95*, PROCESDX+98, PROCESDX+129*, PROCESDX+134*, PROCESDX+144*, PROCESDX+146 |
| DIC | EDDIAGS+7~, EDDIAGS+32*, EDDIAGS+46!, PROCESDX+46*, PROCESDX+48!, PROCESDX+129*, PROCESDX+134*, PROCESDX+144, PROCESDX+145! |
| DIC("A" | EDDIAGS+24*, EDDIAGS+29*, EDDIAGS+31*, PROCESDX+47* |
| DIC("B" | EDDIAGS+25*, EDDIAGS+28* |
| DIC("S" | EDDIAGS+35*, PROCESDX+46* |
| DIC(0 | EDDIAGS+30*, EDDIAGS+31*, PROCESDX+46*, PROCESDX+129*, PROCESDX+134* |
| DIE | PROCESDX+56*, PROCESDX+58, PROCESDX+60*, PROCESDX+95*, PROCESDX+98!, PROCESDX+100*, PROCESDX+144*, PROCESDX+146 |
| DIK | DELDIAG+2~, DELDIAG+12*, DELDIAG+16! |
| DIR | PRIMDIAG+12~, PRIMDIAG+55!, DELDIAG+2~, DELDIAG+5!, DELDIAG+16!, PROCESDX+41!, PROCESDX+68!, PROCESDX+90!, SELECTDX+1~ |
| DIR("?" | PROCESDX+122*, SELECTDX+27* |
| DIR("A" | PRIMDIAG+27*, DELDIAG+4*, PROCESDX+40*, PROCESDX+67*, PROCESDX+72*, PROCESDX+82*, PROCESDX+120*, SELECTDX+27* |
| DIR("B" | PRIMDIAG+26*, DELDIAG+4*, PROCESDX+40*, PROCESDX+67*, PROCESDX+72*, PROCESDX+81, PROCESDX+82* |
| DIR(0 | PRIMDIAG+27*, DELDIAG+4*, PROCESDX+40*, PROCESDX+67*, PROCESDX+72*, PROCESDX+82*, PROCESDX+121*, SELECTDX+11*, SELECTDX+21*, SELECTDX+23* , SELECTDX+25* |
| DR | PRIMDIAG+12~, PRIMDIAG+15*, PRIMDIAG+41*, PRIMDIAG+50*, PRIMDIAG+53, PRIMDIAG+55!, PROCESDX+11~, PROCESDX+15*, PROCESDX+56*, PROCESDX+57* , PROCESDX+58, PROCESDX+60*, PROCESDX+63*, PROCESDX+95*, PROCESDX+97*, PROCESDX+98, PROCESDX+100*, PROCESDX+103*, PROCESDX+144*, PROCESDX+146 |
| DTOUT | EDDIAGS+37, EDDIAGS+48!, PROCESDX+36, PROCESDX+42, PROCESDX+49, PROCESDX+69, PROCESDX+74, PROCESDX+115!, PROCESDX+124!, SELECTDX+29! |
| DUOUT | EDDIAGS+37, EDDIAGS+48!, PROCESDX+36, PROCESDX+42, PROCESDX+49, PROCESDX+69, PROCESDX+74, PROCESDX+115!, PROCESDX+124!, SELECTDX+29! |
| DUZ | EDDIAGS+2 |
| U | EDDIAGS+11, EDDIAGS+12, EDDIAGS+15, EDDIAGS+16, EDDIAGS+23, EDDIAGS+42, PRIMDIAG+14, PRIMDIAG+16, PRIMDIAG+17, PRIMDIAG+20 , PRIMDIAG+21, PRIMDIAG+34, PRIMDIAG+35, PROCESDX+17, PROCESDX+51, PROCESDX+128, PROCESDX+133, SELECTDX+18, SELECTDX+19 |
| >> X | EDDIAGS+30*, PRIMDIAG+38, PRIMDIAG+47, PROCESDX+130*, PROCESDX+135* |
| Y | EDDIAGS+7~, EDDIAGS+9*, EDDIAGS+32*, EDDIAGS+38, EDDIAGS+46!, PRIMDIAG+12~, PRIMDIAG+13*, PRIMDIAG+18*, PRIMDIAG+21*, PRIMDIAG+25 , PRIMDIAG+30, DELDIAG+7, PROCESDX+43, PROCESDX+44, PROCESDX+46*, PROCESDX+50, PROCESDX+51, PROCESDX+70, PROCESDX+71, PROCESDX+75 , PROCESDX+81*, PROCESDX+88, PROCESDX+93, PROCESDX+116*, PROCESDX+125, PROCESDX+138, PROCESDX+144, SELECTDX+13~, SELECTDX+14*, SELECTDX+18 , SELECTDX+19, SELECTDX+30 |
| Y1 | SELECTDX+13~, SELECTDX+18*, SELECTDX+20, SELECTDX+21, SELECTDX+23 |
| Y2 | SELECTDX+13~, SELECTDX+19*, SELECTDX+21, SELECTDX+23 |