ICPTIDX ;DLS/DEK - MUMPS Cross Reference Routine for History ; 04/28/2003
Source file <ICPTIDX.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SAHC | ; Set new value when CPT Code is Edited
; ^DD(81,.01,1,D0,1) = D SAHC^ICPTIDX |
|
| KAHC | ; Kill old value when CPT Code is Edited
; ^DD(81,.01,1,D0,2) = D KAHC^ICPTIDX |
|
| SAHD | ; Set new value when Effective Date is Edited
; ^DD(81.02,.01,1,D0,1) = D SAHD^ICPTIDX |
|
| KAHD | ; Kill old value when Effective Date is Edited
; ^DD(81.02,.01,1,D0,2) = D KAHD^ICPTIDX |
|
| SAHS | ; Set new value when Status is Edited
; ^DD(81.02,.02,1,D0,1) = D SAHS^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)
|
|
| SHIS | ; Set Index ^ICPT("ACT",<code>,<status>,<date>,<ien>,<history>)
|
|
| KHIS | ; Kill Index ^ICPT("ACT",<code>,<status>,<date>,<ien>,<history>)
|
