LEXQID3 ;ISL/KER - Query - ICD Diagnosis - Extract (cont) ;05/23/2017
Source file <LEXQID3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NOT(X,LEXVDT,LEXLEN) | ; Include ICD Codes not to use with ***.**
; ; ^TMP("LEXQIDN",$J,IEN)=CODE ; ^TMP("LEXQIDN",$J,"B",(CODE_" "),IEN)="" ; ; ^TMP("LEXQID",$J,"NOT",0)=<total> ; ^TMP("LEXQID",$J,"NOT",1,1)=<header> ; ^TMP("LEXQID",$J,"NOT",2,#)=<header text> ; ^TMP("LEXQID",$J,"NOT",3,<code >)=<code>_" "_<diagnosis> ; |
|
| REQ(X,LEXVDT,LEXLEN) | ; Include ICD Codes required with ***.**
; ; ^TMP("LEXQIDR",$J,IEN)=CODE ; ^TMP("LEXQIDR",$J,"B",(CODE_" "),IEN)="" ; ; ^TMP("LEXQID",$J,"REQ",0)=<total> ; ^TMP("LEXQID",$J,"REQ",1,1)=<header> ; ^TMP("LEXQID",$J,"REQ",2,#)=<header text> ; ^TMP("LEXQID",$J,"REQ",3,<code >)=<code>_" "_<diagnosis> ; |
|
| NCC(X,LEXVDT,LEXLEN) | ; Include the codes that ***.** is not CC with
; ; ^TMP("LEXQIDC",$J,IEN)=CODE ; ^TMP("LEXQIDC",$J,"B",(CODE_" "),IEN)="" ; ; ^TMP("LEXQID",$J,"NCC",0)=<total> ; ^TMP("LEXQID",$J,"NCC",1,1)=<header> ; ^TMP("LEXQID",$J,"NCC",2,#)=<header text> ; ^TMP("LEXQID",$J,"NCC",3,<code >)=<code>_" "_<diagnosis> ; |
|
| DRG(X,LEXVDT,LEXLEN) | ; Diagnosis Related Group
; ; ^TMP("LEXQID",$J,"DRG",0)=<total> ; ^TMP("LEXQID",$J,"DRG",1,1)=<header> ; ^TMP("LEXQID",$J,"DRG",1,2)=<effective date> ; ^TMP("LEXQID",$J,"DRG",2,1)=<header text> ; ^TMP("LEXQID",$J,"DRG",3,#)=<DRG list> ; |
|
| CC(X,LEXVDT,LEX) | ; Complication/Comorbidity
|
|
| SD(X) | ; Short Date
|
|
| IA(X) | ; Inaccurate
|
|
| DBR(X) | ; Date Business Rules
|
