Routine: LEXQID3

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

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

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!

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

Customize PDF page

Package: Lexicon Utility

Routine: LEXQID3

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: