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

Call Graph

IHS Patient

$$CHK91^AUPNSIC9 ($$CHK,$$IMP)^AUPNSICD $$IMP^AUPNVUTL

Lexicon Utility

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

^DIC ^DIR ^DIWP

$$ICDDX^ICDEX

EN^XBNEW

($$DT,$$FMADD)^XLFDT

Patient Care Component

START^APCDAPRB

Patient Care Component Reports

$$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

Package

Total

Caller Graph

Patient Care Component

APCDAEDU APCDAOP APCDBPOV APCDCPOV APCDEGP0 APCDEPOV APCDETPD APCDFHD
APCDLPOV APCDR07 APCDXPOV

Patient Care Component Reports

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

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