ICPTMIDX ;DLS/DEK - MUMPS Cross Reference Routine for History ; 04/28/2003
Source file <ICPTMIDX.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SAHC | ; Set new value when CPT Code Modifier is Edited
; ^DD(81.3,.01,1,D0,1) = D SAHC^ICPTMIDX |
|
| KAHC | ; Kill old value when CPT Code is Edited
; ^DD(81.3,.01,1,D0,2) = D KAHC^ICPTMIDX |
|
| SAHD | ; Set new value when Effective Date is Edited
; ^DD(81.33,.01,1,D0,1) = D SAHD^ICPTMIDX |
|
| KAHD | ; Kill old value when Effective Date is Edited
; ^DD(81.33,.01,1,D0,2) = D KAHD^ICPTMIDX |
|
| SAHS | ; Set new value when Status is Edited
; ^DD(81.33,.02,1,D0,1) = D SAHS^ICPTMIDX |
|
| KAHS | ; Kill old value when Status is Edited
; ^DD(81.33,.02,1,D0,2) = D KAHS^ICPTMIDX |
|
| HDC | ; Set Common Variables (Code, Status and Effective Date)
|
|
| SHIS | ; Set Index ^DIC(81.3,"ACT",<code>,<status>,<date>,<ien>,<history>)
|
|
| KHIS | ; Kill Index ^DIC(81.3,"ACT",<code>,<status>,<date>,<ien>,<history>)
|
