Routine: ICDEXD2

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Local Variables

Information

ICDEXD2 ;SLC/KER - ICD Extractor - DRG APIs (cont) ;04/21/2014

Source Information

Source file <ICDEXD2.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
DRG Grouper	3	($$DTBR,$$EXC,$$FILE,$$GETDRG,$$ROOT,$$SAI)^ICDEX $$DRGMDC^ICDEXD ($$DRG,DRGD)^ICDGTDRG
VA Fileman	2	^%DT ^DIR
Kernel	1	($$DT,$$FMADD,$$FMTE)^XLFDT

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
DRG Grouper	2	ICDEX ICDEXD

Entry Points

Name	Comments	DBIA/ICR reference
MDCG(IEN,CDT,ARY)	; Set up ICDMDC() array
MDCD(IEN,MDC,CDT)	; Check for default MDC
MD(FILE,IEN,CDT,ARY,FLAG)	; MDC DRGs
FY(X)	;Return FY
MOR(IEN)	; Major O.R. Procedure
MDCT(IEN,CDT,ARY,FMT)	; For Multiple MDC DX Codes
VMDCDX(IEN,CDT)	; Get versioned MDC for Diagnosis Code
EFM(X)	; Convert External Date to FM
REF(IEN,CDT)	; Return Reference Table
ISVALID(FILE,IEN,CDT)	; Is an ICD code Valid
MDCN(IEN)	; Major Diagnostic Category Name
VMDCOP(IEN,MDC,CDT)	; Get versioned MDC for Op/Pro ICD code from previous years
EFD(X)	; Get Effective date in range (interactive)
EFFH	; Effective Date Help
UPDX(IEN)	; Unacceptable as Principle DX

External References

Name	Field # of Occurrence
^%DT	EFM+12
^DIR	EFD+37
$$DTBR^ICDEX	VMDCDX+12, VMDCOP+21, MDCG+16
$$EXC^ICDEX	UPDX+13, ISVALID+21
$$FILE^ICDEX	ISVALID+18
$$GETDRG^ICDEX	MDCG+17
$$ROOT^ICDEX	MD+44, ISVALID+19
$$SAI^ICDEX	ISVALID+24
$$DRGMDC^ICDEXD	MD+73
$$DRG^ICDGTDRG	MDCG+19
DRGD^ICDGTDRG	MD+61, MD+81
$$DT^XLFDT	MD+44, MDCT+28, EFD+27, ISVALID+17, REF+15
$$FMADD^XLFDT	EFD+31
$$FMTE^XLFDT	MD+57, MD+77, EFD+34, EFD+35, EFD+38, EFFH+2, EFFH+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,"Enter an effective date from ",$$FMTE^XLFDT(2781001,"5Z") Line Location: EFFH+2
Function Call: WRITE	Prompt: " to ",$$FMTE^XLFDT($G(ICDH),"5Z") Line Location: EFFH+3
Function Call: WRITE	Prompt: !,?5,"to be used to select or calculated time sensitive data.",! Line Location: EFFH+4
Function Call: WRITE	Prompt: !,?5,"Examples of Valid Dates:" Line Location: EFFH+5
Function Call: WRITE	Prompt: !,?5," JAN 20 1980 or 20 JAN 80 or 1/20/57 or 012080" Line Location: EFFH+6
Function Call: WRITE	Prompt: !,?5," T (for TODAY), T+1 (for TOMORROW), T+2, T+7, etc." Line Location: EFFH+7
Function Call: WRITE	Prompt: !,?5," T-1 (for YESTERDAY), T-3W (for 3 WEEKS AGO), etc." Line Location: EFFH+8
Function Call: WRITE	Prompt: !,?5,"If the year is omitted, the computer uses CURRENT YEAR. " Line Location: EFFH+9
Function Call: WRITE	Prompt: !,?5,"Two digit year assumes no more than 20 years in the future," Line Location: EFFH+10
Function Call: WRITE	Prompt: !,?5," or 80 years in the past." Line Location: EFFH+11
Routine Call	DIR Line Location: EFD+37

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICD - [#80.2]	REF+13, REF+16, REF+17, REF+18
^ICD0 - [#80.1]	MD+47, MD+48, MD+49, MD+50, MD+51, MD+53, VMDCOP+19, VMDCOP+20, VMDCOP+22, VMDCOP+23 , VMDCOP+24, MDCT+26, MDCT+27, MDCT+30, MDCT+31, MDCT+32, MDCD+16, MDCD+17, MDCD+18, MDCD+19 , MOR+10
^ICD9 - [#80]	MD+64, MD+65, MD+66, MD+67, MD+68, MD+69, MD+70, MD+72, VMDCDX+11, VMDCDX+12 , VMDCDX+13, VMDCDX+14, VMDCDX+15, MDCG+15, UPDX+14
^ICDS - [#80.4]	EFD+28, EFD+29
^ICM - [#80.3]	MD+57, MD+77, MDCN+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EFM+12~!
ARY	MD~, MD+46!, MDCG~, MDCG+16!*, MDCT~
ARY(	MD+54, MD+58, MD+62, MD+74, MD+78, MD+82, MDCG+19*, MDCT+29
CDT	MD~, MD+43, MD+44, MD+47, MD+61, MD+64, MD+81, VMDCDX~, VMDCDX+12, VMDCOP~ , VMDCOP+21, MDCG~, MDCG+16, MDCT~, MDCT+28*, MDCT+30, MDCD~, MDCD+17, ISVALID~, ISVALID+17 , REF~, REF+14
DIR	EFD+26~
DIR("?"	EFD+36*
DIR("??"	EFD+36*
DIR("A"	EFD+33, EFD+34, EFD+35*
DIR("B"	EFD+33*
DIR("PRE"	EFD+36*
DIR(0	EFD+32*
DIROUT	EFD+26~, EFD+37
DIRUT	EFD+26~, EFD+37
DRG	MD+40~, MD+52, MD+53, MD+71, MD+72, MDCG+19~*
DRGI	MD+56~, MD+59, MD+60, MD+62, MD+76~, MD+79, MD+80, MD+82
DRGOUT	MD+56~, MD+60~, MD+61!, MD+76~, MD+80~, MD+81!
DRGOUT(1	MD+62, MD+82
DRGS	MDCG+15~, MDCG+17*, MDCG+18, MDCG+19
DTOUT	EFD+26~, EFD+37
DUOUT	EFD+26~
ED	MD+56~, MD+57, MD+58, MD+76~, MD+77, MD+78
EMDC	MD+56~, MD+57, MD+58, MD+76~, MD+77, MD+78
FILE	MD~, MD+41, MD+42, MD+44, MD+46, MD+63, ISVALID~, ISVALID+16, ISVALID+18, ISVALID+19
FLAG	MD~, MD+40*, MD+55, MD+75
FMT	MDCT~, MDCT+29*, MDCT+36
FY	MD+40~, MD+47, MD+48, MD+49, MD+54, MD+57, MD+58, MD+62, MD+64, MD+65 , MD+66, MD+70, MD+74, MD+77, MD+78, MD+82, MDCT+25~, MDCT+30~*, MDCT+31
FYI	MDCT+25~, MDCT+30~, MDCT+31*, MDCT+32
FYIEN	MD+40~, MD+49, MD+50, MD+51, MD+53, MD+70, MD+72
I	MDCG+15~, MDCG+18, MDCG+19, MDCT+25~, MDCT+29
ICDC	VMDCOP+19~, VMDCOP+20*, VMDCOP+24, VMDCOP+26, MDCG+15~
ICDD	VMDCDX+11~, VMDCDX+12, VMDCDX+13, VMDCOP+19~, VMDCOP+21, VMDCOP+22, VMDCOP+23, MDCG+15~, MDCG+16, MDCG+17 , MDCG+19, MDCD+16~, MDCD+17, ISVALID+15~, ISVALID+17, ISVALID+24, REF+12~, REF+14, REF+15, REF+16
ICDEXC	UPDX+13~*
ICDF	MDCD+16~, MDCD+17, MDCD+18, MDCD+19, ISVALID+15~, ISVALID+18*, ISVALID+21, ISVALID+24
ICDFY	REF+12~, REF+14, REF+16, REF+17
ICDH	EFD+26~, EFD+27, EFD+30, EFD+31*, EFD+32, EFD+33, EFD+35, EFFH+1, EFFH+3
ICDI	VMDCDX+11~, VMDCDX+12, VMDCDX+13, VMDCDX+14, VMDCDX+15, VMDCOP+19~, VMDCOP+20, VMDCOP+22, VMDCOP+23, VMDCOP+24 , EFD+26~, EFD+27, EFD+28, EFD+29, ISVALID+15~, ISVALID+19, ISVALID+20, ISVALID+21, ISVALID+24, REF+12~ , REF+13, REF+16, REF+17, REF+18
ICDIMP	EFD+26~, EFD+29~*, EFD+30
ICDM	VMDCDX+11~, VMDCDX+13, VMDCDX+14, VMDCDX+15, VMDCOP+19~, VMDCOP+21, VMDCOP+22, VMDCOP+24, VMDCOP+26, MDCD+16~* , MDCD+18, MDCD+19
ICDO	VMDCOP+19~, VMDCOP+23, VMDCOP+25, VMDCOP+26, MDCG+15~, MDCG+16, ISVALID+15~, ISVALID+18, ISVALID+20, ISVALID+21 , ISVALID+24, ISVALID+25
ICDR	ISVALID+15~, ISVALID+19, ISVALID+20, REF+12~, REF+14, REF+17, REF+18, REF+19
ICDS	VMDCDX+11~, VMDCDX+12, VMDCOP+19~, VMDCOP+20, VMDCOP+21, MDCG+15~*, MDCG+16
ICDT	EFD+26~, EFD+27*, EFD+31, ISVALID+15~
ICDTMP	MDCG+15~, MDCG+17*
ICDX	ISVALID+15~, ISVALID+21*
ICDY	VMDCDX+11~, VMDCDX+13, VMDCDX+14, VMDCOP+19~, VMDCOP+21, VMDCOP+23, VMDCOP+24, VMDCOP+26, MDCD+16~, MDCD+17 , MDCD+18, MDCD+19
IDRG	MD+56~, MD+60~, MD+61, MD+62, MD+76~, MD+80~, MD+81, MD+82
IEN	MD~, MD+43, MD+47, MD+48, MD+49, MD+50, MD+51, MD+53, MD+64, MD+65 , MD+66, MD+67, MD+68, MD+69, MD+70, MD+72, VMDCDX~, VMDCDX+11, VMDCOP~, VMDCOP+19 , MDCG~, MDCG+15, MDCG+16, MDCG+17, MDCT~, MDCT+26*, MDCT+27, MDCT+30, MDCT+31, MDCT+32 , MDCD~, MDCD+16, MDCN~, MDCN+12, MOR~, MOR+10, UPDX~, UPDX+13, UPDX+14, ISVALID~ , ISVALID+19, REF~, REF+13
MD	MDCT+25~, MDCT+29*, MDCT+32, MDCT+33
MDC	MD+40~, MD+50, MD+51, MD+54, MD+57, MD+58, MD+62, MD+69, MD+73, MD+74 , MD+77, MD+78, MD+82, VMDCOP~, VMDCOP+20, MDCG+19~, MDCT+25~, MDCT+30~, MDCT+32*, MDCT+33 , MDCT+34, MDCD~, MDCD+16
MDCIEN	MD+40~, MD+51*, MD+53
MY	MD+40~, MD+66, MD+67, MD+68
MYIEN	MD+40~, MD+68*, MD+69
OK	MDCT+25~, MDCT+29, MDCT+34, MDCT+36*, MDCT+37
ROOT	MD+40~, MD+44*, MD+45
STA	MD+40~, MD+47, MD+48, MD+54, MD+64, MD+65, MD+74
STR	MD+40~, MD+52, MD+53, MD+54, MD+59, MD+60, MD+71, MD+72, MD+73, MD+74 , MD+79, MD+80, MDCT+25~, MDCT+29, MDCT+33, MDCT+35*, MDCT+36
U	VMDCDX+15, REF+18
X	EFM~, FY~, FY+12, FY+13, FY+14, EFD~, EFD+38*, EFD+39
Y	EFM+12~, EFM+13, EFD+26~, EFD+38

Customize PDF page

Package: DRG Grouper

Routine: ICDEXD2

Call Graph Total: 6

Caller Graph Total: 2