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>)
|