Routine: APCDBPOV

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

Package

Total

Call Graph

Lexicon Utility

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

IHS VA Utilities

$$VAL^XBDIQ1 EN^XBNEW

DRG Grouper

$$ICDDX^ICDEX

IHS Patient

($$CHKRFB,$$IMP)^AUPNSICD

Kernel

$$DT^XLFDT

Patient Care Component

GETANS^APCDAPOV

Patient Care Component Reports

$$DSCHDATE^APCLV

VA Fileman

^DIR

Package	Total	Caller Graph
Patient Care Component	1	APCDEPOV

Package

Total

Caller Graph

Patient Care Component

APCDEPOV

Entry Points

Name	Comments	DBIA/ICR reference
XITR
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
LEXR	;
XITL
RLEX	;EP - called from input template
START	;
EDITRFB1	;
LEX	;EP - called from input template
LEXN	;
RI	;
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+27, RLEX+32
$$DSCHDATE^APCLV	EDITRFB1+7
$$CHKRFB^AUPNSICD	ICDONE9+8, ICDONE1+8
$$IMP^AUPNSICD	RI+1
^DIR	LEX+10, RLEX+9
$$ICDDX^ICDEX	LEX+35, ICDONE9+6, ICDONE1+6, RLEX+17, RLEX+18, RLEX+19, RLEX+20, RLEX+21, RLEX+40
LOOK^LEXA	LEX+21, LEX+22, RLEX+27
CONFIG^LEXSET	LEX+5, LEX+6, LEX+15, LEX+16, RLEX+4, RLEX+23
$$ICDONE^LEXU	LEX+31, ICDONE9+5, RLEX+36
$$ONE^LEXU	LEX+32, ICDONE1+5, RLEX+37
$$VAL^XBDIQ1	RLEX+8, RLEX+15
EN^XBNEW	START+1
$$DT^XLFDT	ICDONE9+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LEX("HLP",X) Line Location: LEX+24
Function Call: WRITE	Prompt: ! Line Location: LEX+28
Function Call: WRITE	Prompt: ! Line Location: LEX+29
Function Call: WRITE	Prompt: ! Line Location: LEX+30
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: LEX+34
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: LEX+36
Function Call: WRITE	Prompt: ! Line Location: LEXN+2
Function Call: WRITE	Prompt: !,LEX("HLP",X) Line Location: RLEX+29
Function Call: WRITE	Prompt: ! Line Location: RLEX+33
Function Call: WRITE	Prompt: ! Line Location: RLEX+34
Function Call: WRITE	Prompt: ! Line Location: RLEX+35
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: RLEX+39
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: RLEX+41
Function Call: WRITE	Prompt: ! Line Location: LEXR+2
Routine Call	DIR Line Location: LEX+10 RLEX+9

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	EDITRFB1+6, EDITRFB1+7, EDITRFB1+8
^TMP("LEXFND"	LEX+14!, RLEX+22!
^TMP("LEXHIT"	LEX+14!, LEX+31, LEX+32, RLEX+22!, RLEX+36, RLEX+37
^TMP("LEXSCH"	LEX+4!, LEX+14!, LEX+33!, RLEX+3!, RLEX+22!, RLEX+38!

Name	Line Occurrences
LEX	LEX+23, LEX+28, LEX+29, LEX+30
LEXR	RLEX+17, RLEX+18, RLEX+19, RLEX+20, RLEX+21
RLEX	RLEX+28, RLEX+33, RLEX+34, RLEX+35
XITL	LEX+1, LEX+11, LEX+12, LEX+34, LEX+36
XITR	RLEX+10, RLEX+11, RLEX+12, RLEX+13, RLEX+15, RLEX+39, RLEX+41

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LEX+35, LEX+36, LEXN+1, RLEX+16, RLEX+17, RLEX+18, RLEX+19, RLEX+20, RLEX+21, RLEX+40 , RLEX+41, LEXR+1
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+26, EDITRFB1+11~, RLEX+31
>> APCDD	EDITRFB1+5, EDITRFB1+7, EDITRFB1+8, EDITRFB1+9, EDITRFB1+10*, RI+1, RLEX+4, RLEX+23, RLEX+27, RLEX+36 , RLEX+37, RLEX+40
>> APCDDATE	LEX+5, LEX+6, LEX+15, LEX+16, LEX+21, LEX+22, LEX+31, LEX+32, LEX+35, EDITRFB1+9
>> APCDIAIE	RLEX+10
APCDIMP	LEX+2, LEX+5, LEX+6, LEX+15, LEX+16, LEX+19, LEX+21, LEX+22, LEX+31, LEX+32 , LEX+35, EDITRFB1+11~, RI+1, RI+2, RLEX+17, RLEX+18, RLEX+19, RLEX+20, RLEX+21, RLEX+23 , RLEX+25, RLEX+27, RLEX+36, RLEX+37
>> APCDINPE	EDITRFB1+2, EDITRFB1+4
>> APCDT90	LEX+1, LEX+2
>> APCDTCLK	LEX+11, LEX+12, LEX+34, LEX+36, LEXN+1*
>> APCDTDA	RLEX+8, RLEX+15
APCDTDEL	RLEX+2!, RLEX+10*
>> APCDTDIA	EDITRFB1+1*, RLEX+5, RLEX+26
>> APCDTERR	LEX+34, LEX+36, RLEX+39, RLEX+41
>> APCDTFIE	RLEX+8, RLEX+15
>> APCDTNOG	EDITRFB1+4*
>> APCDTNPV	EDITRFB1+4, RLEX+39, RLEX+41, LEXR+1
>> APCDTNQP	LEXN+1*
APCDTPCC	XITL!, EDITRFB1+2, EDITRFB1+4, XITR!
>> APCDTSKI	LEX+11, LEX+12, RLEX+12*
APCDTUPH	RLEX+2!, RLEX+11*
>> APCDUINP	LEX+13, LEX+17, LEXN+1, RLEX+14, RLEX+15, RLEX+17, RLEX+18, RLEX+19, RLEX+20, RLEX+21 , RLEX+24
>> APCDVSIT	EDITRFB1+6, EDITRFB1+7, EDITRFB1+8
>> APCDY	LEX+28, LEX+29, LEX+30, LEX+31, LEX+32, RLEX+33, RLEX+34, RLEX+35, RLEX+36, RLEX+37
D	XITL!, XITR!
DA	LEX+10!, RLEX+9!
DD	XITL!, XITR!
>> DIC("A"	RLEX+26*
>> DIC("S"	LEX+19, RLEX+25
DIPGM	XITL!, XITR!
DIR	LEX+3!, LEX+10!, EDITRFB1+3!, RLEX+2!, RLEX+9!
DIR("?"	LEX+8, RLEX+6
DIR("??"	LEX+9, RLEX+7
DIR("A"	LEX+7, RLEX+5
DIR("B"	RLEX+8*
DIR(0	LEX+7, RLEX+5
>> DIRUT	LEX+11, RLEX+12
DO	LEX+33!, XITL!, RLEX+38!, XITR!
DT	EDITRFB1+10
LEX	LEX+14!, LEX+23, RLEX+22!, RLEX+28
LEX("HLP"	LEX+24, RLEX+29
U	LEX+31, LEX+32, LEX+36, ICDONE9+8, ICDONE1+8, EDITRFB1+7, EDITRFB1+8, RLEX+11, RLEX+36, RLEX+37 , RLEX+41
X	LEX+17, LEX+21, LEX+22, LEX+24, XITL!, RLEX+10, RLEX+11, RLEX+24, RLEX+27, RLEX+29 , XITR!
Y	LEX+12, LEX+13, LEX+31, LEX+32, LEX+34, LEX+35, XITL!, RLEX+13, RLEX+14, RLEX+36* , RLEX+37*, RLEX+39, RLEX+40, XITR!

Customize PDF page

Package: Patient Care Component

Routine: APCDBPOV

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: