Routine: ICDCOD

Customize PDF page

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

Information

ICDCOD ;ALB/ABR/ADL/KUM - INQUIRE TO ICD CODES ;10/23/00 11:36am

Source Information

Source file <ICDCOD.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
DRG Grouper	5	^ICDCODLK EFFDATE^ICDDRGM ^ICDDSLK ($$ICDDX,$$ICDOP)^ICDEX $$SEARCH^ICDSAPI
VA FileMan	2	DD^%DT ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
DRG Grouper	1	ICD INQUIRY

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
DATE
1	;ICD-9 DIAGNOSIS CODE
2	;ICD-9 OPERATION/PROCEDURE
3	;ICD-10 DIAGNOSIS CODE
4	;ICD-10 OPERATION/PROCEDURE
EXIT

External References

Name	Field # of Occurrence
DD^%DT	1+6, 2+5
^DIR	DATE+1
^ICDCODLK	4+1
EFFDATE^ICDDRGM	DATE
^ICDDSLK	3+1
$$ICDDX^ICDEX	1+4
$$ICDOP^ICDEX	2+3
$$SEARCH^ICDSAPI	1+3, 2+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: 1+3
Function Call: WRITE	Prompt: !!,$P(ICDTMP,U,2),?15,$P(ICDTMP,U,4),!,$P(ICDTMP,U,11)," ",$P(ICDTMP,U,18),! Line Location: 1+5
Function Call: WRITE	Prompt: " AS OF ",Y," **",! Line Location: 1+6
Function Call: WRITE	Prompt: !! Line Location: 2+2
Function Call: WRITE	Prompt: !!,$P(ICDTMP,U,2),?15,$P(ICDTMP,U,5),!,$P(ICDTMP,U,11)," ",$P(ICDTMP,U,14),! Line Location: 2+4
Function Call: WRITE	Prompt: " AS OF ",Y," **",! Line Location: 2+5
Routine Call	DIR Line Location: DATE+1

Label References

Name	Line Occurrences
@(	DATE+1
DATE	DATE+2
EXIT	DATE

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	EN+1~
DIC("A"	1+3, 2+2
DIQ	EN+1~
DIR	EN+1~
DIR(0	DATE+1*
DIRUT	EN+1~, DATE+1
DR	EN+1~
DTOUT	EN+1~, DATE, DATE+1
DUOUT	EN+1~, DATE
>> ICDDATE	1+3, 1+4, 2+2, 2+3
ICDSYS	EN+1~, 1+1*
ICDTMP	EN+1~, 1+4, 1+5, 1+6, 2+3, 2+4, 2+5
>> IENT	1+2, 1+4, 2+1, 2+3
U	1+5, 1+6, 2+4, 2+5
X	EN+1~
Y	EN+1~, DATE+1, 1+3, 1+4, 1+6, 2+2, 2+3, 2+5