©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
ICD0IDX ;DLS/DEK - MUMPS Cross Reference Routine for History ;28-Mar-2011 09:11;DU
Source file <ICD0IDX.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SAHD | ; Set new value when Effective Date is Edited
; ^DD(80.166,.01,1,D0,1) = D SAHD^ICD0IDX |
|
| KHIS | ; Kill Index ^ICD0("ACT",<code>,<status>,<date>,<ien>,<history>)
|
|
| SAHC | ; Set new value when ICD Code is Edited
; ^DD(80.1,.01,1,D0,1) = D SAHC^ICD0IDX |
|
| KAHS | ; Kill old value when Status is Edited
; ^DD(80.1.066,.02,1,D0,2) = D KAHS^ICD0IDX |
|
| HDC | ; Set Common Variables (Code, Status and Effective Date)
|
|
| SAHS | ; Set new value when Status is Edited
; ^DD(80.166,.02,1,D0,1) = D SAHS^ICD0IDX |
|
| KAHD | ; Kill old value when Effective Date is Edited
; ^DD(80.166,.01,1,D0,2) = D KAHD^ICD0IDX |
|
| SHIS | ; Set Index ^ICD0("ACT",<code>,<status>,<date>,<ien>,<history>)
|
|
| KAHC | ; Kill old value when ICD Code is Edited
; ^DD(80.1,.01,1,D0,2) = D KAHC^ICD0IDX |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ICD0 - [#80.1] | SAHC+3, SAHC+4, KAHC+3, KAHC+4, HDC+2, HDC+3, SHIS+1, SHIS+4*, SHIS+6*, KHIS+1 , KHIS+4, KHIS+5, KHIS+7, KHIS+10*, KHIS+11* |
| ^ICD0("ACT" | SHIS+2*, KHIS+12! |
| Name | Line Occurrences |
|---|---|
| HDC | SAHC+5, KAHC+5, SAHD+3, KAHD+3, SAHS+3, KAHS+3 |
| KHIS | KAHC+7, KAHD+4, KAHS+4 |
| SHIS | SAHC+7, SAHD+3, SAHS+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BOOL | KHIS+2~, KHIS+3*, KHIS+4, KHIS+8*, KHIS+9 |
| DA | SAHC+3, SAHC+5~*, KAHC+3, KAHC+5~*, HDC+2, HDC+3, SHIS+1, SHIS+2, KHIS+1, KHIS+12 |
| DA(1 | SAHC+5*, KAHC+5*, HDC+2, HDC+3, SHIS+1, SHIS+2, SHIS+4, SHIS+6, KHIS+1, KHIS+4 , KHIS+5, KHIS+7, KHIS+10, KHIS+11, KHIS+12 |
| ICDCOD | SAHC+2~, SAHC+6*, KAHC+2~, KAHC+6*, SAHD+2~, SAHD+3, KAHD+2~, KAHD+3, SAHS+2~, SAHS+3 , KAHS+2~, KAHS+3, HDC+1*, HDC+3*, SHIS+2, KHIS+12 |
| ICDCODX | SAHC+2~, SAHC+3*, SAHC+6, KAHC+2~, KAHC+3*, KAHC+6 |
| ICDEFF | SAHC+2~, SAHC+7, KAHC+2~, KAHC+7, SAHD+2~, SAHD+3*, KAHD+2~, KAHD+4*, SAHS+2~, SAHS+3 , KAHS+2~, KAHS+3, HDC+1*, HDC+4*, SHIS+2, SHIS+4, KHIS+3, KHIS+12 |
| ICDHIS | SAHC+2~, SAHC+4*, SAHC+5, KAHC+2~, KAHC+4*, KAHC+5 |
| ICDIEN | SAHC+2~, SAHC+3*, SAHC+4, SAHC+5, KAHC+2~, KAHC+3*, KAHC+4, KAHC+5 |
| ICDNOD | SAHC+2~, KAHC+2~, SAHD+2~, KAHD+2~, SAHS+2~, KAHS+2~, HDC+3*, HDC+4 |
| ICDSTA | SAHC+2~, SAHC+7, KAHC+2~, KAHC+7, SAHD+2~, SAHD+3, KAHD+2~, KAHD+3, SAHS+2~, SAHS+4* , KAHS+2~, KAHS+4*, HDC+1*, HDC+4*, SHIS+2, SHIS+3, KHIS+3, KHIS+8, KHIS+12 |
| IEN | KHIS+2~, KHIS+5*, KHIS+6, KHIS+7 |
| INACT | SHIS+3~*, SHIS+4, SHIS+6, KHIS+2~, KHIS+3*, KHIS+10 |
| OPP | KHIS+2~, KHIS+7*, KHIS+8 |
| OPPEFF | KHIS+2~, KHIS+3*, KHIS+4*, KHIS+5, KHIS+6*, KHIS+7*, KHIS+10 |
| OPPSTA | KHIS+2~, KHIS+8* |
| PIECE | SHIS+3~*, SHIS+4, KHIS+2~, KHIS+3*, KHIS+10 |
| X | SAHC+3, SAHC+5~, KAHC+3, KAHC+5~, SAHD+3, KAHD+4, SAHS+4, KAHS+4 |