LEXNDX8 ;ISL/KER - Set/kill indexes 757.02 ;05/23/2017
Source file <LEXNDX8.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SAHC | ; Set new value when Code is Edited
; ^DD(757.02,1,1,D0,1) = D SAHC^LEXNDX8 |
|
| KAHC | ; Kill old value when Code is Edited
; ^DD(757.02,1,1,D0,2) = D KAHC^LEXNDX8 |
|
| SAHD | ; Set new value when Effective Date is Edited
; ^DD(757.28,.01,1,D0,1) = D SAHD^LEXNDX8 |
|
| KAHD | ; Kill old value when Effective Date is Edited
; ^DD(757.28,.01,1,D0,2) = D KAHD^LEXIDX8 |
|
| SAHS | ; Set new value when Status is Edited
; ^DD(757.28,1,1,D0,1) = D SAHS^LEXNDX8 |
|
| KAHS | ; Kill old value when Status is Edited
; ^DD(757.28,1,1,D0,2) = D KAHS^LEXIDX8 |
|
| HDC | ; Set Common Variables (Code, Status and Effective Date)
|
|
| DHDC | ; Set Default Common Variables (Code, Status and Effective Date)
; 0 node |
|
| SHIS | ; Set Index
; ^LEX(757.02,"ACT",<code>,<status>,<date>,<ien>,<history>) |
|
| SDHIS | ; Set Default Index
; ^LEX(757.02,"ACT",<code>,<status>,<date>,<ien>,<history>) |
|
| KHIS | ; Kill Index
; ^LEX(757.02,"ACT",<code>,<status>,<date>,<ien>,<history>) |
|
| KDHIS | ; Kill Default Index
; ^LEX(757.02,"ACT",<code>,<status>,<date>,<ien>,<history>) |
|
| S10 | ; Set ICD-10 Index
; ^LEX(757.02,"ADX",<dx code>,<date>,<status>,<ien>,<history>) ; ^LEX(757.02,"APR",<pr code>,<date>,<status>,<ien>,<history>) |
|
| K10 | ; Kill ICD-10 Index
; ^LEX(757.02,"ADX",<dx code>,<date>,<status>,<ien>,<history>) ; ^LEX(757.02,"APR",<pr code>,<date>,<status>,<ien>,<history>) |
|
| DF(X,CODE) | ; Default Status
|
|
| SAUPD | ; Set Update Date
|
|
| KAUPD | ; Kill Update Date
|
|
| DDTBR(SYS,STA) | ; Default Date Business Rules
; Input: ; SYS - System ; STA - Status ; Output: ; If Status = 1 (Active) ; If SYS = ICD/ICP use October 1, 1978 2781001 ; If SYS = CPT/CPC use January 1, 1989 2890101 ; If SYS is not listed above, use 2960923 ; If Status = 0 (Inactive) ; If SYS = ICD/ICP use October 2, 1978 2791001 ; If SYS = CPT/CPC use January 2, 1989 2900101 ; If SYS is not listed above, use 2960924 |
