Routine: APCDFHD

Package	Total	Call Graph
Lexicon Utility	3	LOOK^LEXA CONFIG^LEXSET ($$ICDONE,$$ONE)^LEXU
DRG Grouper	1	$$ICDDX^ICDEX
IHS Patient	1	($$CHKFH,$$IMP)^AUPNSICD
IHS VA Utilities	1	EN^XBNEW
Kernel	1	$$DT^XLFDT
Patient Care Component	1	GETANS^APCDAPOV
VA Fileman	1	^DIR

Package

Total

Call Graph

Lexicon Utility

LOOK^LEXA CONFIG^LEXSET ($$ICDONE,$$ONE)^LEXU

DRG Grouper

$$ICDDX^ICDEX

IHS Patient

($$CHKFH,$$IMP)^AUPNSICD

IHS VA Utilities

EN^XBNEW

Kernel

$$DT^XLFDT

Patient Care Component

GETANS^APCDAPOV

VA Fileman

^DIR

Package	Total	Caller Graph
Patient Care Component	1	APCDFH

Package

Total

Caller Graph

Patient Care Component

APCDFH

Entry Points

Name	Comments	DBIA/ICR reference
ICDONE9(ALEX,ALEXVDT)	;EP - Return one ICD code for an expression ; LEX IEN of file 757.01 ; LEXVDT Date to use for screening by codes
START1	;EP
XITL
START	;
LEX	;EP - called from input template
ICDONE1(ALEX,ALEXVDT)	;EP - Return one ICD code for an expression ; LEX IEN of file 757.01 ; LEXVDT Date to use for screening by codes

External References

Name	Field # of Occurrence
GETANS^APCDAPOV	LEX+24
$$CHKFH^AUPNSICD	ICDONE9+8, ICDONE1+8
$$IMP^AUPNSICD	START1+4
^DIR	LEX+8
$$ICDDX^ICDEX	LEX+32, ICDONE9+6, ICDONE1+6
LOOK^LEXA	LEX+18, LEX+19
CONFIG^LEXSET	LEX+3, LEX+4, LEX+13, LEX+14
$$ICDONE^LEXU	LEX+28, ICDONE9+5
$$ONE^LEXU	LEX+29, ICDONE1+5
EN^XBNEW	START+1
$$DT^XLFDT	ICDONE9+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LEX("HLP",X) Line Location: LEX+21
Function Call: WRITE	Prompt: ! Line Location: LEX+25
Function Call: WRITE	Prompt: ! Line Location: LEX+26
Function Call: WRITE	Prompt: ! Line Location: LEX+27
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: LEX+31
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: LEX+33
Routine Call	DIR Line Location: LEX+8

Name	Line Occurrences (* Changed, ! Killed)
^TMP("LEXFND"	LEX+12!
^TMP("LEXHIT"	LEX+12!, LEX+28, LEX+29
^TMP("LEXSCH"	LEX+2!, LEX+12!, LEX+30!

Name	Line Occurrences
LEX	LEX+20, LEX+25, LEX+26, LEX+27
XITL	LEX+9, LEX+10, LEX+31, LEX+33

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LEX+32*, LEX+33, LEX+34
ALEX	ICDONE9~, ICDONE9+5, ICDONE9+6, ICDONE1~, ICDONE1+5, ICDONE1+6
ALEXICD	ICDONE9+3~, ICDONE9+6, ICDONE9+7, ICDONE9+8, ICDONE1+3~, ICDONE1+6, ICDONE1+7, ICDONE1+8
ALEXVDT	ICDONE9~, ICDONE9+4*, ICDONE9+5, ICDONE9+6, ICDONE1~, ICDONE1+5, ICDONE1+6
>> APCDANS	LEX+23*
APCDCSI	START1+3~, START1+4*
>> APCDDATE	START1+4, LEX+3, LEX+4, LEX+13, LEX+14, LEX+18, LEX+19, LEX+28, LEX+29, LEX+32
>> APCDICD	LEX+34*
>> APCDIMP	START1+4*, LEX+3, LEX+4, LEX+13, LEX+14, LEX+16, LEX+17, LEX+18, LEX+19, LEX+28 , LEX+29, LEX+32
>> APCDINPE	START1+1*
>> APCDLOOK	LEX+9, LEX+10
>> APCDTCLK	LEX+31, LEX+33
>> APCDTERR	LEX+31, LEX+33
APCDTPCC	START1+1*, XITL!
>> APCDTSKI	LEX+9, LEX+10
>> APCDUINP	LEX+11*, LEX+15
>> APCDY	LEX+25, LEX+26, LEX+27, LEX+28, LEX+29
D	XITL!
DA	LEX+8!
DD	XITL!
>> DIC("S"	LEX+16, LEX+17
DIPGM	XITL!
DIR	LEX+1!, LEX+8!
DIR("?"	LEX+6*
DIR("??"	LEX+7*
DIR("A"	LEX+5*
DIR(0	LEX+5*
>> DIRUT	LEX+9
DO	LEX+30!, XITL!
DT	START1+4
LEX	LEX+12!, LEX+20
LEX("HLP"	LEX+21
U	LEX+28, LEX+29, LEX+33, LEX+34, ICDONE9+8, ICDONE1+8
X	LEX+15, LEX+18, LEX+19, LEX+21, XITL!
Y	LEX+10, LEX+11, LEX+28, LEX+29, LEX+31, LEX+32, XITL!

Customize PDF page

Package: Patient Care Component

Routine: APCDFHD

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: