Routine: ICDEXD4

Package	Total	Call Graph
DRG Grouper	1	($$CS,$$CSI,$$EFD,$$FILE,$$IA,$$ICDDX,$$ICDOP,$$IMP,$$LD,$$MSG,$$ROOT,$$SINFO,PAR)^ICDEX
Kernel	1	($$DT,$$FMTE)^XLFDT
VA FileMan	1	^DIC

Package	Total	Caller Graph
DRG Grouper	1	ICDEX

Entry Points

Name	Comments	DBIA/ICR reference
ICDID(FILE,ID,CODE)	; Check if ICD identifier exist ; ; Input:
IDIEN(FILE,ID)	; Get IEN for identifier
IDSTR(FILE,IEN)	; Return ICD identifier string (legacy) ; ; Input:
ICDIDS(FILE,IEN,ARY)	; Return array of ICD identifiers ; ; Input:
ISOWNCC(IEN,CDT,FMT)	; Return CC if DX is Own CC ; ; Input:
ICDRGCC(DRG,CDT)	; Get CC/MCC flag from DRG ; ; Input:
INQ	; Inquire to ICD codes (interactive) ; ; User will be prompted for: ; ; Effective Date ; File ; Code ; ; Displays Code ; Short Text ; Description ; Description Warnings (if any) ; Text may be inaccurate, Effective Date ; Predates Code Set Versioning ; Predates Coding System Implementation ; Predates Initial Activation Date ; Activation Warnings (if any) ; Code is Inactive ; Code is pending (activated in the future) ;
INQ2	; Inquire to ICD codes (recursive)

External References

Name	Field # of Occurrence
^DIC	INQ2+5
$$CS^ICDEX	INQ2+2
$$CSI^ICDEX	INQ2+6
$$EFD^ICDEX	INQ2+1
$$FILE^ICDEX	ICDID+18, IDIEN+1, ICDIDS+21
$$IA^ICDEX	INQ2+18
$$ICDDX^ICDEX	INQ2+7
$$ICDOP^ICDEX	INQ2+8
$$IMP^ICDEX	INQ2+18
$$LD^ICDEX	INQ2+10, INQ2+13
$$MSG^ICDEX	INQ2+16
$$ROOT^ICDEX	ICDID+22, ICDID+27, ICDIDS+23, ISOWNCC+22, INQ2+3
$$SINFO^ICDEX	INQ2+3, INQ2+7
PAR^ICDEX	INQ2+30
$$DT^XLFDT	ISOWNCC+26, ICDRGCC+19
$$FMTE^XLFDT	ICDRGCC+20, INQ2+12, INQ2+23, INQ2+29, INQ2+36, INQ2+38

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," Effective Date not specified" Line Location: INQ2+1
Function Call: WRITE	Prompt: !!," File not specified" Line Location: INQ2+2
Function Call: WRITE	Prompt: ! Line Location: INQ2+5
Function Call: WRITE	Prompt: !!," Try again later" Condition for execution: $D(DTOUT) Line Location: INQ2+5
Function Call: WRITE	Prompt: ! Line Location: INQ2+33
Function Call: WRITE	Prompt: !," Description" Condition for execution: ICDC=1 Line Location: INQ2+33
Function Call: WRITE	Prompt: ?15,$G(ICDA(ICDI)) Line Location: INQ2+33
Function Call: WRITE	Prompt: !!,?15," CODE INACTIVE AS OF: ",$$FMTE^XLFDT(ICDINA,"5Z")," ",! Line Location: INQ2+36
Function Call: WRITE	Prompt: !!,?15," PENDING ACTIVATION ON: ",$$FMTE^XLFDT(ICDACT,"5Z")," ",! Line Location: INQ2+38
Routine Call	DIC Line Location: INQ2+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICD - [#80.2]	ICDRGCC+23, ICDRGCC+24, ICDRGCC+25
^ICD("B"	ICDRGCC+21
^ICD9 - [#80]	ISOWNCC+23, ISOWNCC+25, ISOWNCC+28, ISOWNCC+29, ISOWNCC+30, ISOWNCC+32
^ICD9("BA"	ISOWNCC+23, ISOWNCC+24
^ICDID("B"	IDIEN+4
^ICDIP("B"	IDIEN+5

Label References

Name	Line Occurrences
$$ICDIDS	IDSTR+15
$$IDIEN	ICDID+28
INQ2	INQ2+39

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARY	ICDIDS~, ICDIDS+20!
ARY(	ICDIDS+32, ICDIDS+44, ICDIDS+46*
CDT	ISOWNCC~, ISOWNCC+26, ISOWNCC+28, ICDRGCC~, ICDRGCC+19
CODE	ICDID~, ICDID+20
DIC	INQ+20~, INQ2+3*
DIC("A"	INQ2+4*
DIC(0	INQ2+3*
DIROUT	INQ+20~, INQ2+5
DIRUT	INQ+20~, INQ2+5
DRG	ICDRGCC~, ICDRGCC+19
DTOUT	INQ+20~, INQ2+5
DUOUT	INQ+20~, INQ2+5
FILE	ICDID~, ICDID+18, IDIEN~, IDIEN+1, IDIEN+2, IDSTR~, IDSTR+15, ICDIDS~, ICDIDS+21
FMT	ISOWNCC~, ISOWNCC+27
ICDA	IDSTR+15~, INQ+20~, INQ2+10!, INQ2+13!
ICDA(	IDSTR+16, INQ2+31, INQ2+32, INQ2+33
ICDACT	INQ+20~, INQ2+15*, INQ2+37, INQ2+38
ICDAI	ICDRGCC+18~, ICDRGCC+24*, ICDRGCC+25
ICDC	ICDID+18~, ICDID+20, ICDID+24, ICDID+25, ICDIDS+20~, ICDIDS+21, ICDIDS+25, ICDIDS+26, ICDIDS+29, ICDIDS+32 , ICDIDS+33, ICDIDS+44, ICDIDS+46, ICDIDS+47, ISOWNCC+21~, ISOWNCC+22, ISOWNCC+23, ISOWNCC+24, INQ+20~, INQ2+10 , INQ2+13, INQ2+31, INQ2+32*, INQ2+33
ICDCC	ISOWNCC+21~, ISOWNCC+31, ISOWNCC+32, ISOWNCC+33, ICDRGCC+18~, ICDRGCC+20, ICDRGCC+22, ICDRGCC+25*, ICDRGCC+26
ICDCCI	ISOWNCC+21~, ISOWNCC+29*, ISOWNCC+30, ISOWNCC+32
ICDCOM	INQ+20~, INQ2+11~, INQ2+12
ICDCS	ICDIDS+20~, ICDIDS+28, ICDIDS+33, INQ+20~, INQ2+2, INQ2+3, INQ2+6*, INQ2+7, INQ2+16, INQ2+18
ICDCSI	INQ+21~, INQ2+3, INQ2+4, INQ2+7, INQ2+20, INQ2+25
ICDD	ISOWNCC+21~, ISOWNCC+26, ISOWNCC+28, ISOWNCC+29, ICDRGCC+18~, ICDRGCC+19*, ICDRGCC+20, ICDRGCC+23
ICDDA	ICDRGCC+18~, ICDRGCC+23*, ICDRGCC+24
ICDDAT	INQ+21~, INQ2+7, INQ2+8, INQ2+9, INQ2+14, INQ2+15
ICDDE	ICDRGCC+18~, ICDRGCC+20*, ICDRGCC+22
ICDDT	INQ+21~, INQ2+1*
ICDEFF	INQ+21~, INQ2+1*, INQ2+2, INQ2+7, INQ2+8, INQ2+10, INQ2+12, INQ2+16, INQ2+19, INQ2+24 , INQ2+37
ICDF	ICDID+18~, ICDID+19, ICDID+22, ICDID+27, ICDID+28, IDIEN+1~, IDIEN+4, IDIEN+5, ICDIDS+20~, ICDIDS+21* , ICDIDS+22, ICDIDS+23, ICDIDS+34, ICDIDS+37, INQ+21~, INQ2+3*, INQ2+6, INQ2+7, INQ2+8, INQ2+9 , INQ2+10, INQ2+13, INQ2+15, INQ2+18
ICDFMT	ISOWNCC+21~, ISOWNCC+27, ISOWNCC+32, INQ+21~, INQ2+4
ICDI	ICDID+18~, ICDID+20, ICDID+24, ICDID+25, ICDID+26, ICDID+29, IDSTR+15~, IDSTR+16, ICDIDS+20~, ICDIDS+21 , ICDIDS+25, ICDIDS+26, ICDIDS+27, ICDIDS+28, ICDIDS+29, ICDIDS+30, ICDIDS+40, ISOWNCC+21~, ISOWNCC+22, ISOWNCC+23 , ISOWNCC+24, ISOWNCC+25, ISOWNCC+28, ISOWNCC+29, ISOWNCC+30, ISOWNCC+32, ICDRGCC+18~, ICDRGCC+21, ICDRGCC+23, ICDRGCC+24 , ICDRGCC+25, INQ+21~, INQ2+31, INQ2+32, INQ2+33, INQ2+34
ICDIA	INQ+21~, INQ2+18*, INQ2+24, INQ2+29
ICDID	ICDID+18~, ICDID+20, ICDID+21, IDIEN+1~, IDIEN+3, IDIEN+4, IDIEN+5, ICDIDS+20~, ICDIDS+30, ICDIDS+31 , ICDIDS+32
ICDIDI	ICDID+18~, ICDID+28, ICDID+29, ICDIDS+20~, ICDIDS+29, ICDIDS+30
ICDIEN	INQ+21~, INQ2+6*, INQ2+7, INQ2+8, INQ2+10, INQ2+13, INQ2+18
ICDIMP	INQ+22~, INQ2+18*, INQ2+19, INQ2+23
ICDINA	INQ+22~, INQ2+14*, INQ2+35, INQ2+36
ICDLT	INQ+22~, INQ2+10*, INQ2+11
ICDMSG	INQ+22~, INQ2+30
ICDMSG(	INQ2+34
ICDMSG(1	INQ2+16, INQ2+17, INQ2+21, INQ2+22, INQ2+23, INQ2+26, INQ2+27, INQ2+28, INQ2+29*, INQ2+30 , INQ2+34
ICDN	ISOWNCC+21~, ISOWNCC+30*, ISOWNCC+31
ICDOWN	ISOWNCC+21~, ISOWNCC+30*, ISOWNCC+31
ICDP	ICDIDS+20~, ICDIDS+41~*
ICDR	INQ+22~, INQ2+3*
ICDRG	ICDRGCC+18~, ICDRGCC+19*, ICDRGCC+21
ICDRT	ICDID+18~, ICDID+22, ICDID+23, ICDID+24, ICDID+25, ICDID+26, ICDID+27, ICDID+29, ICDIDS+20~, ICDIDS+23* , ICDIDS+24, ICDIDS+25, ICDIDS+26, ICDIDS+27, ICDIDS+28, ICDIDS+29, ICDIDS+30, ICDIDS+40, ISOWNCC+21~, ISOWNCC+22*
ICDRTI	ICDIDS+20~, ICDIDS+23*, ICDIDS+31, ICDIDS+42, ICDIDS+43
ICDS	IDSTR+15~, IDSTR+16, IDSTR+17*, IDSTR+18
ICDSO	INQ+22~, INQ2+8*, INQ2+31
ICDST	INQ+22~, INQ2+9*, INQ2+31
ICDSTA	INQ+22~, INQ2+14*, INQ2+35, INQ2+37
ICDSTR	ICDIDS+20~, ICDIDS+40*, ICDIDS+41
ICDT	IDSTR+15~, INQ+22~, INQ2+11~, INQ2+20~, INQ2+22, INQ2+23, INQ2+25~*, INQ2+27, INQ2+28, INQ2+29
ICDV	ICDIDS+34~, ICDIDS+35, ICDIDS+36, ICDIDS+38, ICDIDS+39, ICDIDS+45
ICDX	ICDIDS+20~, ICDIDS+41~*, ICDIDS+42, ICDIDS+43, ICDIDS+44, ICDIDS+45, ICDIDS+46
ID	ICDID~, ICDID+20, ICDID+28, IDIEN~, IDIEN+3
IEN	IDSTR~, IDSTR+15, ICDIDS~, ICDIDS+21, ISOWNCC~, ISOWNCC+22
U	ISOWNCC+30, ISOWNCC+31, ISOWNCC+32, ICDRGCC+25
Y	INQ+22~, INQ2+6
Y(0	INQ2+8, INQ2+10

Customize PDF page

Package: DRG Grouper

Routine: ICDEXD4

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: