Routine: LEXQID3

Information

LEXQID3 ;ISL/KER - Query - ICD Diagnosis - Extract (cont) ;04/21/2014

Call Graph

Call Graph Total: 5

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	1	($$SD,$$TM,PR)^LEXQM

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lexicon Utility	1	LEXQID

Entry Points

Name	Comments	DBIA/ICR reference
SD(X)	; Short Date
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> ;
DBR(X)	; Date Business Rules
IA(X)	; Inaccurate
CC(X,LEXVDT,LEX)	; Complication/Comorbidity
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> ;
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> ;
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> ;

External References

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

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
$$DBR	IA+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
EXD	NOT+11~, REQ+11~, NCC+11~
LEX	NOT+11~, NOT+26~, NOT+28, REQ+11~, REQ+26~, REQ+30, NCC+11~, NCC+31~, NCC+33, CC~ , CC+1!, CC+4
LEX(	NOT+28, NOT+29, REQ+30, REQ+31, NCC+33, NCC+34
LEX(0	CC+4*
LEX(1	NOT+28, REQ+30, NCC+33, CC+4
LEXBRD	IA+1~*
LEXC	NOT+11~, NOT+22, NOT+23, NOT+24, NOT+26~, NOT+28, NOT+29, REQ+11~, REQ+22, REQ+23 , REQ+24, REQ+26~, REQ+30, REQ+31, NCC+11~, NCC+16~, NCC+18, NCC+19, NCC+20, NCC+27 , NCC+28, NCC+29, NCC+31~, NCC+33, NCC+34, DRG+8~, DRG+25, DRG+27*, DRG+28, DRG+29
LEXCCD	CC+1~, CC+2*, CC+3, CC+4
LEXCCE	CC+1~, CC+3*, CC+4
LEXCCI	CC+1~, CC+2*, CC+3
LEXD	NOT+16~, NOT+18, NOT+19, REQ+16~, REQ+18, REQ+19, NCC+16~, NCC+23*, NCC+24
LEXDDD	DRG+8~
LEXDDE	DRG+8~
LEXDDI	DRG+8~
LEXDDT	DRG+8~
LEXDEF	DRG+8~
LEXDRG	DRG+8~, DRG+17, DRG+18, DRG+19, DRG+24
LEXDRG1	DRG+8~, DRG+24*, DRG+28
LEXDRG2	DRG+8~, DRG+24*, DRG+29
LEXDRGC	DRG+8~, DRG+28*, DRG+32, DRG+34
LEXDRGD	DRG+8~, DRG+18!, DRG+24
LEXDRGD(	DRG+20, DRG+21, DRG+22!, DRG+23*, DRG+25, DRG+26
LEXDRP	DRG+8~, DRG+16*, DRG+17
LEXEFF	DRG+9~, DRG+11*, DRG+33
LEXI	NOT+11~, NOT+22, NOT+23, NOT+25, NOT+26, REQ+11~, REQ+22, REQ+23, REQ+25, REQ+26 , REQ+27, NCC+11~, NCC+16~, NCC+17, NCC+18, NCC+27, NCC+28, NCC+30, NCC+32, DRG+8~ , DRG+20, DRG+21, DRG+22, DRG+23, DRG+25, DRG+26
LEXICD	NOT+11~, NOT+16, NOT+17, NOT+18, REQ+11~, REQ+16, REQ+17, REQ+18, NCC+11~, NCC+20* , NCC+23
LEXIEN	NOT+11~, NOT+12, NOT+13, NOT+14, REQ+11~, REQ+12, REQ+13, REQ+14, NCC+11~, NCC+12* , NCC+13, NCC+14, DRG+8~, DRG+9, DRG+11, CC+1, CC+2
LEXISO	NOT+11~, NOT+13, NOT+27, REQ+11~, REQ+13, REQ+28, REQ+29, NCC+11~, NCC+13*, NCC+31
LEXL	DRG+8~, DRG+26~, DRG+28, DRG+29, DRG+31
LEXLEN	NOT~, NOT+14, NOT+28, REQ~, REQ+14, REQ+30, NCC~, NCC+14, NCC+33, DRG~ , DRG+10, DRG+24
LEXN	DRG+8~, DRG+26~, DRG+30*, DRG+31
LEXN0	DRG+8~
LEXO	NOT+11~, NOT+15, NOT+16, REQ+11~, REQ+15, REQ+16, NCC+11~, NCC+15*, NCC+17
LEXPIE	DRG+9~, DRG+16*
LEXSD	NOT+11~, NOT+19, NOT+20, REQ+11~, REQ+19, REQ+20, NCC+11~, NCC+24*, NCC+25
LEXSO	NOT+11~, NOT+19, NOT+20, NOT+21, REQ+11~, REQ+19, REQ+20, REQ+21, NCC+11~, NCC+24* , NCC+25, NCC+26
LEXSTA	DRG+9~, DRG+11*
LEXSTR	NOT+11~, NOT+26~, NOT+27, NOT+28, NOT+29, REQ+11~, REQ+26~, REQ+27, REQ+28, REQ+29* , REQ+30, REQ+31, NCC+11~, NCC+31~, NCC+32, NCC+33, NCC+34, DRG+11*, DRG+12, DRG+16
LEXSYS	NOT+17, NOT+18, REQ+17, REQ+18, NCC+19, NCC+20, NCC+23, IA+1~
LEXT	NOT+11~, NOT+20, NOT+21, NOT+26~, NOT+28, NOT+29, REQ+11~, REQ+20, REQ+21, REQ+26~ , REQ+30, REQ+31, NCC+11~, NCC+25, NCC+26, NCC+31~, NCC+33, NCC+34, DRG+8~, DRG+21~* , DRG+22, DRG+23, DRG+26~*, DRG+27, DRG+28, DRG+29
LEXVDT	NOT~, NOT+12, NOT+18, REQ~, REQ+12, REQ+18, NCC~, NCC+12, NCC+23, DRG~ , DRG+10, DRG+11, DRG+15, DRG+18, CC~, CC+1, CC+2, IA+1~, DBR+1~, DBR+2
X	NOT~, NOT+12, NOT+14, REQ~, REQ+12, REQ+14, NCC~, NCC+12, NCC+14, DRG~ , DRG+9, CC~, CC+1, SD~, SD+1, IA~, IA+1, IA+2, DBR~, DBR+1 , DBR+2*, DBR+3

Customize PDF page

Package: Lexicon Utility

Routine: LEXQID3

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: