Routine: APCDAPOV

Package	Total	Call Graph
IHS Patient	3	$$CHK91^AUPNSIC9 ($$CHK,$$IMP)^AUPNSICD $$IMP^AUPNVUTL
Lexicon Utility	3	LOOK^LEXA CONFIG^LEXSET ($$ICDONE,$$ONE)^LEXU
VA Fileman	3	^DIC ^DIR ^DIWP
DRG Grouper	1	$$ICDDX^ICDEX
IHS VA Utilities	1	EN^XBNEW
Kernel	1	($$DT,$$FMADD)^XLFDT
Patient Care Component	1	START^APCDAPRB
Patient Care Component Reports	1	$$DSCHDATE^APCLV

Package	Total	Caller Graph
Patient Care Component	11	APCDAEDU APCDAOP APCDBPOV APCDCPOV APCDEGP0 APCDEPOV APCDETPD APCDFHD APCDLPOV APCDR07 APCDXPOV
Patient Care Component Reports	4	APCL8A1 APCLNJ11 APCLNJ21 APCLOS41

Entry Points

Name	Comments	DBIA/ICR reference
DISP
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
OLD	;EP - called from CPV input template
GETICD	;
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	;
START1	;EP
CAUSE(C,S)	;EP
XITL
GETANS	;EP - DISPLAY LEX ARRAY
ICDCIJ(ALEX,ALEXVDT)	;EP - Return one ICD code for an expression ; LEX IEN of file 757.01 ; LEXVDT Date to use for screening by codes
START	;
XIT
CINJ	;GET CAUSE OF INJURY CODES FROM LEXICON
LEX	;EP - called from input template
TEST10	;
INJ(C,S)	;EP
LEXN	;
READ	;
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
START^APCDAPRB	OLD+1
$$DSCHDATE^APCLV	START1+6
$$CHK91^AUPNSIC9	ICDONE99+8
$$CHK^AUPNSICD	ICDONE9+8, ICDONE1+7
$$IMP^AUPNSICD	I+1
$$IMP^AUPNVUTL	START1+2
^DIC	LEX+32, OLD+3
^DIR	LEX+9, READ+7
^DIWP	DISP+5
$$ICDDX^ICDEX	LEX+14, LEX+15, LEX+16, LEX+17, LEX+18, LEX+56, CAUSE+2, ICDONE9+6, ICDONE99+6, ICDONE1+5 , ICDCIJ+5
LOOK^LEXA	LEX+26, LEX+27, TEST10+7, CINJ+4
CONFIG^LEXSET	LEX+4, LEX+5, LEX+20, LEX+21, TEST10+4, CINJ+2
$$ICDONE^LEXU	LEX+52, ICDONE9+5, ICDONE99+5
$$ONE^LEXU	LEX+53, ICDONE1+4, DISP+4, ICDCIJ+4, GETICD+1
EN^XBNEW	START+2
$$DT^XLFDT	ICDONE9+4, ICDONE99+4
$$FMADD^XLFDT	START1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LEX("HLP",X) Line Location: LEX+29
Function Call: WRITE	Prompt: ! Line Location: LEX+37
Function Call: WRITE	Prompt: ! Line Location: LEX+42
Function Call: WRITE	Prompt: ! Line Location: LEX+47
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: LEX+55
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: LEX+57
Function Call: WRITE	Prompt: ! Line Location: LEXN+2
Function Call: WRITE	Prompt: !!?5,$P(^TMP("LEXHIT",$J,0),U)," term matches found.",! Line Location: GETANS+3
Function Call: WRITE	Prompt: ! Condition for execution: Z>1 Line Location: DISP+6
Function Call: WRITE	Prompt: ?9,^UTILITY($J,"W",0,Z,0) Line Location: DISP+6
Function Call: WRITE	Prompt: ! Line Location: READ+3
Function Call: WRITE	Prompt: ! Line Location: READ+7
Function Call: WRITE	Prompt: !,Y Line Location: GETICD+2
Routine Call	DIC Line Location: LEX+32 OLD+3
Routine Call	DIR Line Location: LEX+9 READ+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	START1+5, START1+6, START1+7
^DD(9000010.07	OLD+3
^TMP("LEXFND"	LEX+19!, TEST10+1!, CINJ+1!
^TMP("LEXHIT"	LEX+19!, LEX+52, LEX+53, GETANS+2, GETANS+3, GETANS+5, DISP+3, DISP+4
^TMP("LEXSCH"	LEX+3!, LEX+19!, LEX+54!, TEST10+1!, CINJ+1!
^UTILITY($J	DISP+1!, DISP+6

Label References

Name	Line Occurrences
$$CAUSE	ICDCIJ+7
GETANS	LEX+36
I	START1+4
LEX	START1+2, LEX+28, LEX+37, LEX+42, LEX+47
LEXN	LEX+14, LEX+15, LEX+16, LEX+17, LEX+18, LEX+28, LEX+37, LEX+42, LEX+47
READ	DISP+9, DISP+10, DISP+11
XIT	OLD+4, OLD+5, OLD+6
XITL	LEX+10, LEX+11, LEX+55, LEX+57

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LEX+13, LEX+14, LEX+15, LEX+16, LEX+17, LEX+18, LEX+28, LEX+32, LEX+33, LEX+37 , LEX+40, LEX+42, LEX+45, LEX+47, LEX+50, LEX+56, LEX+57, LEXN+1, CAUSE+3~, CAUSE+4* , CAUSE+5, CAUSE+6, CAUSE+7, CAUSE+8, CAUSE+9, CAUSE+10, CAUSE+11, INJ+1~, INJ+2, INJ+3 , INJ+4, INJ+5, INJ+6, INJ+7, ICDONE1+3~, ICDCIJ+3~
ALEVXDT	ICDONE1+3~, ICDCIJ+3~
ALEX	ICDONE9~, ICDONE9+5, ICDONE9+6, ICDONE99~, ICDONE99+5, ICDONE99+6, ICDONE1~, ICDONE1+4, ICDONE1+5, ICDCIJ~ , ICDCIJ+4, ICDCIJ+5
ALEXICD	ICDONE9+3~, ICDONE9+6, ICDONE9+7, ICDONE9+8, ICDONE99+3~, ICDONE99+6, ICDONE99+7, ICDONE99+8, ICDONE1+3~, ICDONE1+5* , ICDONE1+6, ICDONE1+7, ICDCIJ+3~, ICDCIJ+5*, ICDCIJ+6, ICDCIJ+7
ALEXVDT	ICDONE9~, ICDONE9+4, ICDONE9+5, ICDONE9+6, ICDONE99~, ICDONE99+4, ICDONE99+5, ICDONE99+6, ICDONE1~, ICDONE1+4 , ICDONE1+5, ICDCIJ~, ICDCIJ+5
APCDANS	START1+10~, LEX+35*
APCDCNT	GETANS+1~, GETANS+4, DISP+8, DISP+9, DISP+10
>> APCDD	START1+2, START1+3, START1+4, START1+6, START1+7, START1+8, START1+9*, I+1, LEX+4, LEX+5 , LEX+20, LEX+21, LEX+26, LEX+27, LEX+52, LEX+53, LEX+56
>> APCDDATE	START1+4, START1+8, TEST10+3, TEST10+4, TEST10+6, TEST10+7
APCDIMP	START1+2, START1+10~, I+1, LEX+4, LEX+5, LEX+14, LEX+15, LEX+16, LEX+17, LEX+18 , LEX+20, LEX+21, LEX+23, LEX+24, LEX+26, LEX+27, LEX+52, LEX+53, DISP+4
>> APCDINAD	START1+4
>> APCDINPE	START1+1*
>> APCDLOOK	START+1, LEX+10, LEX+11, LEX+55, LEX+57, LEXN+1, OLD+5, OLD+6, OLD+7*
>> APCDNT	DISP+11*
APCDQ	GETANS+1~, GETANS+4*
>> APCDTDIA	LEX+6, LEX+25, OLD+1
>> APCDTERR	LEX+55, LEX+57, OLD+6*
>> APCDTIN9	START1+2, LEX+7, LEX+8, LEX+23
>> APCDTNQP	START+1, LEXN+1, OLD+7*
APCDTOT	GETANS+1~, GETANS+4, DISP+8, DISP+9*, DISP+10, READ+5, READ+6
APCDTPCC	START1+1, XITL!, OLD+2, XIT!
>> APCDTSKI	LEX+10, LEX+11, OLD+5*
>> APCDUINP	LEX+12*, LEX+14, LEX+15, LEX+16, LEX+17, LEX+18, LEX+22, LEX+32, LEXN+1
>> APCDVSIT	START1+5, START1+6, START1+7
APCDX	GETANS+1~, GETANS+4, GETANS+5, DISP+2, DISP+3, DISP+4, DISP+11
>> APCDY	LEX+37, LEX+42, LEX+47, LEX+52, LEX+53, GETANS+4, GETANS+5, DISP+9, DISP+11, READ+2* , READ+8, READ+9, READ+10*
APCDZ	GETANS+1~, DISP+3, DISP+4, DISP+5
C	CAUSE~, CAUSE+2*, CAUSE+6, CAUSE+7, CAUSE+8, CAUSE+9, CAUSE+10, INJ~, INJ+4, INJ+5 , INJ+6, INJ+8, INJ+9
D	XITL!, XIT!
DA	LEX+9!, READ+7!
DD	XITL!, XIT!
DIC	LEX+32!, OLD+3!
DIC("A"	LEX+25, OLD+3
DIC("S"	LEX+23, LEX+24, LEX+32, TEST10+5, CINJ+3*
DIC(0	LEX+32, OLD+3
DIPGM	XITL!, XIT!
DIR	LEX+2!, LEX+9!, READ+1!
DIR("?"	LEX+7*
DIR("??"	LEX+8*
DIR("A"	LEX+6, READ+6
DIR("B"	READ+5*
DIR(0	LEX+6, READ+5
DIRUT	LEX+10, READ+1!, READ+8
>> DIWL	DISP+5*
>> DIWR	DISP+5*
DO	LEX+54!, XITL!, XIT!
DT	START1+4, START1+9, TEST10+3, TEST10+6, CINJ+2, CINJ+4, ICDCIJ+4, GETICD+1
LEX	LEX+19!, LEX+28, TEST10+2!, CINJ+1!
LEX("HLP"	LEX+29
LEX("LIST"	TEST10+1!, CINJ+1!, GETICD+1
>> LEXVDT	DISP+4
MF	GETANS+1~, GETANS+2*, DISP+9, DISP+10, DISP+11, READ+5
S	CAUSE~, CAUSE+5, INJ~, INJ+3
U	START1+6, START1+7, LEX+33, LEX+52, LEX+53, LEX+57, CAUSE+2, ICDONE9+8, ICDONE99+8, ICDONE1+7 , GETANS+2, GETANS+3, DISP+3, DISP+4, ICDCIJ+7, GETICD+1
X	LEX+22, LEX+26, LEX+27, LEX+29, LEX+32, XITL!, DISP+5, OLD+5, OLD+7, XIT!
Y	LEX+11, LEX+12, LEX+33, LEX+52, LEX+53, LEX+55, LEX+56, XITL!, READ+9, READ+10 , OLD+4, OLD+5, OLD+6, OLD+7, XIT!, GETICD+1*, GETICD+2
Z	GETANS+1~, DISP+6*

Customize PDF page

Package: Patient Care Component

Routine: APCDAPOV

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: