Routine: APCDCPOV

Call Graph

Call Graph Total: 14

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

Package	Total	Caller Graph
Patient Care Component	1	APCDEPOV

Package

Total

Caller Graph

Patient Care Component

APCDEPOV

Entry Points

Name	Comments	DBIA/ICR reference
EDITCAU1	;
ICDONE99(ALEX,ALEXVDT)	;EP - Return one ICD code for an expression ; LEX IEN of file 757.01 ; LEXVDT Date to use for screening by codes
LEX1	;reader call to get TEXT for code
XITC
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
I	;
CI	;
XITL
START	;
CLEX	;EP
LEXC	;
LEX	;EP - called from input template
INJ(C,S)	;EP
LEXN	;
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	LEX1+29, CLEX+40
$$DSCHDATE^APCLV	LEX+10, EDITCAU1+11
$$CHKE91^AUPNSIC9	ICDONE99+8
$$CHKE1^AUPNSICD	ICDONE9+8, ICDONE1+8
$$IMP^AUPNSICD	I+1, CI+1
$$IMP^AUPNVUTL	EDITCAU1+7
^DIC	LEX1+25, CLEX+36
^DIR	LEX1+8, CLEX+10
$$ICDDX^ICDEX	LEX1+49, ICDONE9+6, ICDONE99+6, ICDONE1+6, CLEX+18, CLEX+19, CLEX+20, CLEX+21, CLEX+22, CLEX+60
$$IMP^ICDEX	LEX+6
LOOK^LEXA	LEX1+19, LEX1+20, CLEX+30, CLEX+31
CONFIG^LEXSET	LEX1+3, LEX1+4, LEX1+13, LEX1+14, CLEX+4, CLEX+5, CLEX+24, CLEX+25
$$ICDONE^LEXU	LEX1+45, ICDONE9+5, ICDONE99+5, CLEX+56
$$ONE^LEXU	LEX1+46, ICDONE1+5, CLEX+57
$$VAL^XBDIQ1	CLEX+9, CLEX+16
EN^XBNEW	START+1
$$DT^XLFDT	ICDONE9+4, ICDONE99+4
$$FMADD^XLFDT	LEX+6, EDITCAU1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LEX("HLP",X) Line Location: LEX1+22
Function Call: WRITE	Prompt: ! Line Location: LEX1+30
Function Call: WRITE	Prompt: ! Line Location: LEX1+35
Function Call: WRITE	Prompt: ! Line Location: LEX1+40
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: LEX1+48
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: LEX1+50
Function Call: WRITE	Prompt: ! Line Location: LEXN+2
Function Call: WRITE	Prompt: !,LEX("HLP",X) Line Location: CLEX+33
Function Call: WRITE	Prompt: ! Line Location: CLEX+41
Function Call: WRITE	Prompt: ! Line Location: CLEX+46
Function Call: WRITE	Prompt: ! Line Location: CLEX+51
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: CLEX+59
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: CLEX+61
Function Call: WRITE	Prompt: ! Line Location: LEXC+2
Routine Call	DIC Line Location: LEX1+25 CLEX+36
Routine Call	DIR Line Location: LEX1+8 CLEX+10

FileNo	Call Tags
^ICD9 - [#80]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	LEX+9, LEX+10, LEX+11, EDITCAU1+10, EDITCAU1+11, EDITCAU1+12
^TMP("LEXFND"	LEX1+12!, CLEX+23!
^TMP("LEXHIT"	LEX1+12!, LEX1+45, LEX1+46, CLEX+23!, CLEX+56, CLEX+57
^TMP("LEXSCH"	LEX1+2!, LEX1+12!, LEX1+47!, CLEX+3!, CLEX+23!, CLEX+58!

Label References

Name	Line Occurrences
CI	EDITCAU1+9
CLEX	EDITCAU1+7, CLEX+32, CLEX+41, CLEX+46, CLEX+51
I	LEX+8
LEX	LEX1+21, LEX1+30, LEX1+35, LEX1+40
LEX1	LEX+6
LEXC	CLEX+18, CLEX+19, CLEX+20, CLEX+21, CLEX+22, CLEX+32, CLEX+41, CLEX+46, CLEX+51
LEXN	LEX1+21, LEX1+30, LEX1+35, LEX1+40
XITC	CLEX+11, CLEX+12, CLEX+13, CLEX+14, CLEX+16, CLEX+59, CLEX+61
XITL	LEX1+9, LEX1+10, LEX1+48, LEX1+50

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LEX1+21, LEX1+25, LEX1+26, LEX1+30, LEX1+33, LEX1+35, LEX1+38, LEX1+40, LEX1+43, LEX1+49 , LEX1+50, LEXN+1, INJ+1~, INJ+2, INJ+3, INJ+4, INJ+5, INJ+6, INJ+7, CLEX+17 , CLEX+18, CLEX+19, CLEX+20, CLEX+21, CLEX+22, CLEX+32, CLEX+36, CLEX+37, CLEX+41, CLEX+44 , CLEX+46, CLEX+49, CLEX+51, CLEX+54, CLEX+60*, CLEX+61, LEXC+1
ALEX	ICDONE9~, ICDONE9+5, ICDONE9+6, ICDONE99~, ICDONE99+5, ICDONE99+6, ICDONE1~, ICDONE1+5*, ICDONE1+6
ALEXICD	ICDONE9+3~, ICDONE9+6, ICDONE9+7, ICDONE9+8, ICDONE99+3~, ICDONE99+6, ICDONE99+7, ICDONE99+8, ICDONE1+3~, ICDONE1+6* , ICDONE1+7, ICDONE1+8
ALEXVDT	ICDONE9~, ICDONE9+4, ICDONE9+5, ICDONE9+6, ICDONE99~, ICDONE99+4, ICDONE99+5, ICDONE99+6, ICDONE1~, ICDONE1+5 , ICDONE1+6
APCDANS	LEX+14~, LEX1+28, EDITCAU1+15~, CLEX+39
>> APCDD	LEX+6, LEX+7, LEX+8, LEX+10, LEX+11, LEX+12, LEX+13, I+1, LEX1+3, LEX1+4 , LEX1+13, LEX1+14, LEX1+19, LEX1+20, LEX1+45, LEX1+46, LEX1+49, EDITCAU1+7, EDITCAU1+8, EDITCAU1+9 , EDITCAU1+11, EDITCAU1+12, EDITCAU1+13, EDITCAU1+14, CI+1, CLEX+4, CLEX+5, CLEX+24, CLEX+25, CLEX+30 , CLEX+31, CLEX+56, CLEX+57, CLEX+60
>> APCDDATE	LEX+8, LEX+12, EDITCAU1+9, EDITCAU1+13
>> APCDIAIE	CLEX+11
APCDIMP	LEX+6, LEX+14~, I+1, LEX1+3, LEX1+4, LEX1+13, LEX1+14, LEX1+16, LEX1+17, LEX1+19 , LEX1+20, LEX1+45, LEX1+46, LEX1+49, EDITCAU1+7, EDITCAU1+15~, CI+1, CLEX+4, CLEX+5, CLEX+18 , CLEX+19, CLEX+20, CLEX+21, CLEX+22, CLEX+24, CLEX+25, CLEX+27, CLEX+28, CLEX+30, CLEX+31 , CLEX+56, CLEX+57, CLEX+60
>> APCDINAD	LEX+8, EDITCAU1+9
>> APCDINPE	LEX+4, EDITCAU1+4, EDITCAU1+6*
>> APCDLOOK	LEX1+9, LEX1+10
>> APCDT90	LEX+1, LEX+2, LEX+3, EDITCAU1+1, EDITCAU1+2, EDITCAU1+3
>> APCDTCLK	LEX1+48, LEX1+50, LEXN+1*
>> APCDTDA	CLEX+9, CLEX+16
APCDTDEL	CLEX+2!, CLEX+11*
>> APCDTDIA	LEX+1, LEX+2, LEX+3, LEX1+5, LEX1+18, EDITCAU1+1, EDITCAU1+2, EDITCAU1+3, CLEX+6, CLEX+29
>> APCDTERR	LEX1+48, LEX1+50, CLEX+59, CLEX+61
>> APCDTFIE	EDITCAU1+1, EDITCAU1+2, EDITCAU1+3, CLEX+9, CLEX+16
>> APCDTIN9	LEX+1, LEX+2, LEX+3, LEX+6, LEX1+6, LEX1+7, LEX1+16, EDITCAU1+1, EDITCAU1+2, EDITCAU1+3 , EDITCAU1+7, CLEX+7, CLEX+8, CLEX+27
>> APCDTNOG	EDITCAU1+6*
>> APCDTNPV	EDITCAU1+6, CLEX+59, CLEX+61, LEXC+1
APCDTPCC	LEX+4, XITL!, EDITCAU1+4, EDITCAU1+6*, XITC!
>> APCDTSKI	LEX1+9, LEX1+10, CLEX+13*
APCDTUPH	CLEX+2!, CLEX+12*
>> APCDUINP	LEX1+11, LEX1+15, LEX1+25, CLEX+15, CLEX+16, CLEX+18, CLEX+19, CLEX+20, CLEX+21, CLEX+22 , CLEX+26, CLEX+36
>> APCDVSIT	LEX+9, LEX+10, LEX+11, EDITCAU1+10, EDITCAU1+11, EDITCAU1+12
>> APCDY	LEX1+30, LEX1+35, LEX1+40, LEX1+45, LEX1+46, CLEX+41, CLEX+46, CLEX+51, CLEX+56, CLEX+57
C	INJ~, INJ+4, INJ+5, INJ+6, INJ+8, INJ+9
D	XITL!, XITC!
DA	LEX1+8!, CLEX+10!
DD	XITL!, XITC!
DIC	LEX1+25!, CLEX+36!
DIC("A"	LEX1+18, CLEX+29
DIC("S"	LEX1+16, LEX1+17, LEX1+25, CLEX+27, CLEX+28, CLEX+36
DIC(0	LEX1+25, CLEX+36
DIPGM	XITL!, XITC!
DIR	LEX1+1!, LEX1+8!, EDITCAU1+5!, CLEX+2!, CLEX+10!
DIR("?"	LEX1+6, CLEX+7
DIR("??"	LEX1+7, CLEX+8
DIR("A"	LEX1+5, CLEX+6
DIR("B"	CLEX+9*
DIR(0	LEX1+5, CLEX+6
>> DIRUT	LEX1+9, CLEX+13
DO	LEX1+47!, XITL!, CLEX+58!, XITC!
DT	LEX+8, LEX+13, EDITCAU1+9, EDITCAU1+14
LEX	LEX1+12!, LEX1+21, CLEX+23!, CLEX+32
LEX("HLP"	LEX1+22, CLEX+33
S	INJ~, INJ+3
U	LEX+10, LEX+11, LEX1+26, LEX1+45, LEX1+46, LEX1+50, ICDONE9+8, ICDONE99+8, ICDONE1+8, EDITCAU1+11 , EDITCAU1+12, CLEX+12, CLEX+37, CLEX+56, CLEX+57, CLEX+61
X	LEX1+15, LEX1+19, LEX1+20, LEX1+22, LEX1+25, XITL!, CLEX+11, CLEX+12, CLEX+26, CLEX+30 , CLEX+31, CLEX+33, CLEX+36, XITC!
Y	LEX1+10, LEX1+11, LEX1+26, LEX1+45, LEX1+46, LEX1+48, LEX1+49, XITL!, CLEX+14, CLEX+15 , CLEX+37, CLEX+56, CLEX+57, CLEX+59, CLEX+60, XITC!

Customize PDF page

Package: Patient Care Component

Routine: APCDCPOV

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: