ICDIDX2 ;DLS/DEK - MUMPS Cross Reference Routine for History ;04/21/2014
Source file <ICDIDX2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SAHC(ICD) | ; Code .01 ACT1 Set
|
|
| KAHC(ICD) | ; Code .01 ACT1 Kill
|
|
| SAHD(ICD) | ; Effective Date 66,.01 ACT2 Set
|
|
| KAHD(ICD) | ; Effective Date 66,.01 ACT2 Kill
|
|
| SAHS(ICD) | ; Status 66,.02 ACT3 Set
|
|
| KAHS(ICD) | ; Status 66,.02 ACT3 Kill
|
|
| SAHCS(ICD) | ; Coding System 1.1 ACT4 Set
|
|
| KAHCS(ICD) | ; Coding System 1.1 ACT4 Kill
|
|
| SNUM(ICD) | ; Code .01 AN1 Set
|
|
| KNUM(ICD) | ; Code .01 AN1 Kill
|
|
| SNUM2(ICD) | ; Coding System 1.1 AN2 Set
|
|
| KNUM2(ICD) | ; Coding System 1.1 AN2 Kill
|
|
| SSYS(ICD) | ; Coding System - Static
|
|
| KSYS(ICD) | ; Coding System - Static
|
|
| HDC | ; Set Common Variables (Code, Status and Effective Date)
|
|
| SHIS | ; Set ^ROOT("ACT",<code>,<status>,<date>,<ien>,<history>)
; Set ^ROOT("ACTS",<sys>,<code>,<status>,<date>,<ien>,<history>) |
|
| KHIS | ; Kill ^ROOT("ACT",<code>,<status>,<date>,<ien>,<history>)
; Kill ^ROOT("ACTS",<sys>,<code>,<status>,<date>,<ien>,<history>) |
|
| EXC(X,Y) | ; Exclude from lookup
|
|
| RT(X) | ; Root from File #
|
