Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LEXQID3

Package: Lexicon Utility

Routine: LEXQID3


Information

LEXQID3 ;ISL/KER - Query - ICD Diagnosis - Extract (cont) ;05/23/2017

Source Information

Source file <LEXQID3.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
DRG Grouper 2 ($$CODEABA,$$CODEC,$$CODECS,$$CSI,$$GETDRG,$$ICDDX,$$NCC,$$NOT,$$REQ,$$VCC)^ICDEX  DRGD^ICDGTDRG  
Kernel 2 ($$DT,$$FMTE)^XLFDT  $$UP^XLFSTR  
Lexicon Utility 2 ($$SD,$$TM)^LEXQM  PR^LEXU  

Entry Points

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

External References

Name Field # of Occurrence
$$CODEABA^ICDEX NCC+21
$$CODEC^ICDEX NOT+14, REQ+14, NCC+14
$$CODECS^ICDEX NCC+20
$$CSI^ICDEX NOT+18, REQ+18
$$GETDRG^ICDEX DRG+13
$$ICDDX^ICDEX NOT+19, REQ+19, NCC+22
$$NCC^ICDEX NCC+15
$$NOT^ICDEX NOT+15
$$REQ^ICDEX REQ+15
$$VCC^ICDEX CC+3
DRGD^ICDGTDRG DRG+20
$$SD^LEXQM DRG+17, DRG+35, CC+5
$$TM^LEXQM NOT+32, REQ+34, NCC+35, DRG+23, DRG+28
PR^LEXU NOT+31, REQ+33, NCC+34, DRG+26
$$DT^XLFDT NOT+13, REQ+13, NCC+13, DRG+12, CC+2, IA+1, DBR+1
$$FMTE^XLFDT SD+1
$$UP^XLFSTR NOT+20, REQ+20, NCC+23

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD - [#80.2] DRG+19
^TMP("LEXQID" NOT+10!, NOT+24*, NOT+26, NOT+27*, NOT+28, NOT+32*, NOT+33*, REQ+10!, REQ+24*, REQ+26
, REQ+27*, REQ+28, REQ+34*, REQ+35*, NCC+10!, NCC+27*, NCC+29, NCC+30*, NCC+31, NCC+35*
, NCC+36*, DRG+8!, DRG+15*, DRG+16*, DRG+17*, DRG+32, DRG+33*, DRG+34*, DRG+35*, DRG+36*
^TMP("LEXQIDC" NCC+10!, NCC+16, NCC+18, NCC+19, NCC+28!
^TMP("LEXQIDN" NOT+10!, NOT+16, NOT+17, NOT+25!
^TMP("LEXQIDR" REQ+10!, REQ+16, REQ+17, REQ+25!

Label References

Name Line Occurrences
$$DBR IA+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
EXD NOT+12~, REQ+12~, NCC+12~
LEX NOT+12~, NOT+29~, NOT+31, REQ+12~, REQ+29~, REQ+33, NCC+12~, NCC+32~, NCC+34, CC~
, CC+2!*, CC+5*
LEX( NOT+31, NOT+32, REQ+33, REQ+34, NCC+34, NCC+35
LEX(0 CC+5*
LEX(1 NOT+31*, REQ+33*, NCC+34*, CC+5*
LEXBRD IA+1~*
LEXC NOT+12~, NOT+25*, NOT+26*, NOT+27, NOT+29~, NOT+31*, NOT+32*, REQ+12~, REQ+25*, REQ+26*
, REQ+27, REQ+29~, REQ+33*, REQ+34*, NCC+12~, NCC+17~, NCC+19*, NCC+20, NCC+21, NCC+28*
, NCC+29*, NCC+30, NCC+32~, NCC+34*, NCC+35*, DRG+10~, DRG+27*, DRG+29*, DRG+30, DRG+31
LEXCCD CC+2~, CC+3*, CC+4, CC+5
LEXCCE CC+2~, CC+4*, CC+5
LEXCCI CC+2~, CC+3*, CC+4
LEXD NOT+17~, NOT+19*, NOT+20, REQ+17~, REQ+19*, REQ+20, NCC+17~, NCC+22*, NCC+23
LEXDDD DRG+10~
LEXDDE DRG+10~
LEXDDI DRG+10~
LEXDDT DRG+10~
LEXDEF DRG+10~
LEXDRG DRG+10~, DRG+19*, DRG+20, DRG+21*, DRG+26
LEXDRG1 DRG+10~, DRG+26*, DRG+30
LEXDRG2 DRG+10~, DRG+26*, DRG+31
LEXDRGC DRG+10~, DRG+30*, DRG+34, DRG+36
LEXDRGD DRG+10~, DRG+20!, DRG+26
LEXDRGD( DRG+22, DRG+23, DRG+24!, DRG+25*, DRG+27, DRG+28
LEXDRP DRG+10~, DRG+18*, DRG+19
LEXEFF DRG+11~, DRG+13*, DRG+35
LEXI NOT+12~, NOT+25*, NOT+26*, NOT+28*, NOT+29, REQ+12~, REQ+25*, REQ+26*, REQ+28*, REQ+29
, REQ+30, NCC+12~, NCC+17~, NCC+18*, NCC+19, NCC+28*, NCC+29*, NCC+31*, NCC+33, DRG+10~
, DRG+22*, DRG+23, DRG+24, DRG+25, DRG+27*, DRG+28
LEXICD NOT+12~, NOT+17*, NOT+18, NOT+19, REQ+12~, REQ+17*, REQ+18, REQ+19, NCC+12~, NCC+21*
, NCC+22
LEXIEN NOT+12~, NOT+13*, NOT+14, NOT+15, REQ+12~, REQ+13*, REQ+14, REQ+15, NCC+12~, NCC+13*
, NCC+14, NCC+15, DRG+10~, DRG+11*, DRG+13, CC+2*, CC+3
>> LEXIIEN NOT+23, REQ+23, NCC+26
LEXISO NOT+12~, NOT+14*, NOT+30, REQ+12~, REQ+14*, REQ+31, REQ+32, NCC+12~, NCC+14*, NCC+32
LEXL DRG+10~, DRG+28~, DRG+30*, DRG+31*, DRG+33
LEXLEN NOT~, NOT+15*, NOT+31, REQ~, REQ+15*, REQ+33, NCC~, NCC+15*, NCC+34, DRG~
, DRG+12*, DRG+26
LEXN DRG+10~, DRG+28~, DRG+32*, DRG+33
LEXN0 DRG+10~
LEXO NOT+12~, NOT+16*, NOT+17, REQ+12~, REQ+16*, REQ+17, NCC+12~, NCC+16*, NCC+18
LEXPIE DRG+11~, DRG+18*
LEXSD NOT+12~, NOT+17~, NOT+20*, NOT+21, NOT+22, REQ+12~, REQ+17~, REQ+20*, REQ+21, REQ+22
, NCC+12~, NCC+17~, NCC+23*, NCC+24, NCC+25
LEXSI NOT+17~, NOT+20*, NOT+21, NOT+23, REQ+17~, REQ+20*, REQ+21, REQ+23, NCC+17~, NCC+23*
, NCC+24, NCC+26
LEXSO NOT+12~, NOT+17~, NOT+20*, NOT+21, NOT+22, NOT+24, REQ+12~, REQ+17~, REQ+20*, REQ+21
, REQ+22, REQ+24, NCC+12~, NCC+17~, NCC+23*, NCC+24, NCC+25, NCC+27
LEXSTA DRG+11~, DRG+13*
LEXSTR NOT+12~, NOT+29~*, NOT+30*, NOT+31, NOT+32*, REQ+12~, REQ+29~*, REQ+30*, REQ+31*, REQ+32*
, REQ+33, REQ+34*, NCC+12~, NCC+32~*, NCC+33*, NCC+34, NCC+35*, DRG+13*, DRG+14, DRG+18
LEXSYS NOT+18*, NOT+19, REQ+18*, REQ+19, NCC+20*, NCC+21, NCC+22, IA+1~*
LEXT NOT+12~, NOT+22*, NOT+23*, NOT+24, NOT+29~, NOT+31*, NOT+32, REQ+12~, REQ+22*, REQ+23*
, REQ+24, REQ+29~, REQ+33*, REQ+34, NCC+12~, NCC+25*, NCC+26*, NCC+27, NCC+32~, NCC+34*
, NCC+35, DRG+10~, DRG+23~*, DRG+24, DRG+25, DRG+28~*, DRG+29, DRG+30, DRG+31
LEXVDT NOT~, NOT+13*, NOT+19, REQ~, REQ+13*, REQ+19, NCC~, NCC+13*, NCC+22, DRG~
, DRG+12*, DRG+13, DRG+17, DRG+20, CC~, CC+2*, CC+3, IA+1~*, DBR+1~*, DBR+2*
X NOT~, NOT+13, NOT+15*, REQ~, REQ+13, REQ+15*, NCC~, NCC+13, NCC+15*, DRG~
, DRG+11, CC~, CC+2, SD~, SD+1, IA~, IA+1*, IA+2, DBR~, DBR+1
, DBR+2*, DBR+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All