©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
ICPTIDX ;DLS/DEK - MUMPS Cross Reference Routine for History ; 04/28/2003
Source file <ICPTIDX.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SAHD | ; Set new value when Effective Date is Edited
; ^DD(81.02,.01,1,D0,1) = D SAHD^ICPTIDX |
|
| KHIS | ; Kill Index ^ICPT("ACT",<code>,<status>,<date>,<ien>,<history>)
|
|
| SAHC | ; Set new value when CPT Code is Edited
; ^DD(81,.01,1,D0,1) = D SAHC^ICPTIDX |
|
| KAHS | ; Kill old value when Status is Edited
; ^DD(81.02,.02,1,D0,2) = D KAHS^ICPTIDX |
|
| HDC | ; Set Common Variables (Code, Status and Effective Date)
|
|
| SAHS | ; Set new value when Status is Edited
; ^DD(81.02,.02,1,D0,1) = D SAHS^ICPTIDX |
|
| KAHD | ; Kill old value when Effective Date is Edited
; ^DD(81.02,.01,1,D0,2) = D KAHD^ICPTIDX |
|
| SHIS | ; Set Index ^ICPT("ACT",<code>,<status>,<date>,<ien>,<history>)
|
|
| KAHC | ; Kill old value when CPT Code is Edited
; ^DD(81,.01,1,D0,2) = D KAHC^ICPTIDX |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ICPT - [#81] | SAHC+4, KAHC+4, HDC+2, HDC+3, SHIS+1, SHIS+4*, KHIS+1, KHIS+4, KHIS+5, KHIS+7 , KHIS+10*, KHIS+11* |
| ^ICPT("ACT" | SHIS+2*, KHIS+12! |
| Name | Line Occurrences |
|---|---|
| HDC | SAHC+5, KAHC+5, SAHD+3, KAHD+2, SAHS+3, KAHS+3 |
| KHIS | KAHC+7, KAHD+3, 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, KHIS+1, KHIS+4, KHIS+5 , KHIS+7, KHIS+10, KHIS+11, KHIS+12 |
| ICPTCOD | SAHC+2~, SAHC+6*, KAHC+2~, KAHC+6*, SAHD+2~, SAHD+3, KAHD+2~, SAHS+2~, SAHS+3, KAHS+2~ , KAHS+3, HDC+1*, HDC+3*, SHIS+2, KHIS+12 |
| ICPTCODX | SAHC+2~, SAHC+3*, SAHC+6, KAHC+2~, KAHC+3*, KAHC+6 |
| ICPTEFF | SAHC+2~, SAHC+7, KAHC+2~, KAHC+7, SAHD+2~, SAHD+3*, KAHD+2~, KAHD+3*, SAHS+2~, SAHS+3 , KAHS+2~, KAHS+3, HDC+1*, HDC+4*, SHIS+2, SHIS+4, KHIS+3, KHIS+12 |
| ICPTHIS | SAHC+2~, SAHC+4*, SAHC+5, KAHC+2~, KAHC+4*, KAHC+5 |
| ICPTIEN | SAHC+2~, SAHC+3*, SAHC+4, SAHC+5, KAHC+2~, KAHC+3*, KAHC+4, KAHC+5 |
| ICPTNOD | SAHC+2~, KAHC+2~, SAHD+2~, KAHD+2~, SAHS+2~, KAHS+2~, HDC+3*, HDC+4 |
| ICPTSTA | SAHC+2~, SAHC+7, KAHC+2~, KAHC+7, SAHD+2~, SAHD+3, KAHD+2~, 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, 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+3, SAHS+4, KAHS+4 |