Routine: APCDEPOV

Package	Total	Call Graph
VA Fileman	5	EN^DDIOL ^DIC ^DIE ^DIK ^DIR
Patient Care Component	4	GETANS^APCDAPOV RLEX^APCDBPOV CLEX^APCDCPOV PLEX^APCDLPOV
Lexicon Utility	3	LOOK^LEXA CONFIG^LEXSET ($$ICDONE,$$ONE)^LEXU
IHS Patient	2	$$IMP^AUPNSICD $$IMP^AUPNVUTL
IHS VA Utilities	2	$$VAL^XBDIQ1 EN^XBNEW
DRG Grouper	1	$$ICDDX^ICDEX
Kernel	1	$$FMADD^XLFDT
Patient Care Component Reports	1	$$DSCHDATE^APCLV

Package

Total

Call Graph

VA Fileman

EN^DDIOL ^DIC ^DIE ^DIK ^DIR

Patient Care Component

GETANS^APCDAPOV RLEX^APCDBPOV CLEX^APCDCPOV PLEX^APCDLPOV

Lexicon Utility

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

IHS Patient

$$IMP^AUPNSICD $$IMP^AUPNVUTL

IHS VA Utilities

$$VAL^XBDIQ1 EN^XBNEW

DRG Grouper

$$ICDDX^ICDEX

Kernel

$$FMADD^XLFDT

Patient Care Component Reports

$$DSCHDATE^APCLV

Entry Points

Name	Comments	DBIA/ICR reference
ECOD	;
XITL
89	;
NA	;
ECO21	;
1	;EDIT .01 FIELD OF V POV
EDIT011	;
3	;
2	;DUAL CODING .24
4	;PRESENT ON ADMISSION/PRIMARY/SECONDAY H VISITS ONLY
9	;DUAL CODE .25
8	;EP -.09 CAUSE 1
ECOD1	;
POC	;EP
141	;RFB
K	;
ECO31	;
11	;DUAL CODE .26
10	;.18
13	;DUAL CODE .27
12	;.19
15	;POC .21/.28
14	;
17	;
16	;DUAL CODE .28
EDIT01	;EP
ECO3	;
ECO2	;
LEX	;EP - called from input template
LEXN	;
DELETE	;

External References

Name	Field # of Occurrence
GETANS^APCDAPOV	LEX+40
RLEX^APCDBPOV	141+9
CLEX^APCDCPOV	8+7, 9+8, 10+8, 11+8, 12+8, 13+8
PLEX^APCDLPOV	15+8, 16+8
$$DSCHDATE^APCLV	1+6, ECOD1+5, ECO21+5, ECO31+5
$$IMP^AUPNSICD	1+12, 2+1, 8+5, 9+1, 10+5, 11+1, 12+5, 13+1, 141+5, 15+5 , 16+1, ECOD1+11, ECO21+11, ECO31+11
$$IMP^AUPNVUTL	2+6, 9+7, 11+6, 13+6, 16+6
EN^DDIOL	NA+3
^DIC	LEX+36
^DIE	1+19, 2+13, 3+9, NA+5, 4+3, 17+1, 8+11, 9+14, 10+12, 11+14 , 12+12, 13+14, 141+13, 15+12, 16+14, DELETE+13
^DIK	DELETE+8
^DIR	NA+1, LEX+10, DELETE+4, DELETE+10
$$ICDDX^ICDEX	3+8, LEX+18, LEX+19, LEX+20, LEX+21, LEX+22, LEX+60
LOOK^LEXA	LEX+30, LEX+31
CONFIG^LEXSET	LEX+4, LEX+5, LEX+24, LEX+25
$$ICDONE^LEXU	LEX+56
$$ONE^LEXU	LEX+57
$$VAL^XBDIQ1	3+6, 3+10, NA+1, LEX+9, LEX+16
EN^XBNEW	EDIT01+1, ECOD+2, ECO2+2, ECO3+2
$$FMADD^XLFDT	2+6, 9+7, 11+6, 13+6, 16+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: 1+1
Function Call: WRITE	Prompt: !?5,"??" Line Location: 1+20
Function Call: WRITE	Prompt: !,"?? " Line Location: 2+14
Function Call: WRITE	Prompt: !?5,"??" Line Location: 8+12
Function Call: WRITE	Prompt: !,"?? " Line Location: 9+15
Function Call: WRITE	Prompt: !?5,"??" Line Location: 10+13
Function Call: WRITE	Prompt: !,"?? " Line Location: 11+15
Function Call: WRITE	Prompt: !?5,"??" Line Location: 12+13
Function Call: WRITE	Prompt: !,"?? " Line Location: 13+15
Function Call: WRITE	Prompt: !?5,"??" Line Location: 141+14
Function Call: WRITE	Prompt: !?5,"??" Line Location: 15+13
Function Call: WRITE	Prompt: !,"?? " Line Location: 16+15
Function Call: WRITE	Prompt: !,LEX("HLP",X) Line Location: LEX+33
Function Call: WRITE	Prompt: ! Line Location: LEX+41
Function Call: WRITE	Prompt: ! Line Location: LEX+46
Function Call: WRITE	Prompt: ! Line Location: LEX+51
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: LEX+59
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: LEX+61
Function Call: WRITE	Prompt: ! Line Location: LEXN+2
Function Call: WRITE	Prompt: ! Line Location: ECOD1+1
Function Call: WRITE	Prompt: ! Line Location: ECO21+1
Function Call: WRITE	Prompt: ! Line Location: ECO31+1
Routine Call	DIE Line Location: 1+19 2+13 3+9 NA+5 4+3 17+1 8+11 9+14 10+12 11+14 12+12 13+14 141+13 15+12 16+14 DELETE+13
Routine Call	DIC Line Location: LEX+36
Routine Call	DIR Line Location: NA+1 LEX+10 DELETE+4 DELETE+10

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDSITE - [#9001001.2]	2+3, 9+3, 11+3, 13+3, 16+3
^AUPNVPOV - [#9000010.07]	3+5, 3+8
^AUPNVSIT - [#9000010]	1+5, 1+6, 1+7, ECOD1+4, ECOD1+5, ECOD1+6, ECO21+4, ECO21+5, ECO21+6, ECO31+4 , ECO31+5, ECO31+6
^TMP("LEXFND"	LEX+23!
^TMP("LEXHIT"	LEX+23!, LEX+56, LEX+57
^TMP("LEXSCH"	LEX+3!, LEX+23!, LEX+58!

Label References

Name	Line Occurrences
1	1+20
10	89+4, 10+13, ECO21+12
11	10+11, 11+15
12	89+6, 12+13, ECO31+12
13	12+11, 13+15
141	141+14
15	141+6, 141+12, 15+13
16	15+11, 16+15
2	1+18, 2+14
3	2+2, 2+3, 2+9, 2+11
4	3+5, 3+7
8	89+2, 8+12, ECOD1+12
9	8+10, 9+15
DELETE	1+15, 2+8, 8+8, 9+9, 10+9, 11+9, 12+9, 13+9, 141+11, 15+10 , 16+10
K	2+4, 3+4, 4+1, 89+1, 14+1, 8+1, 9+4, 10+1, 11+4, 12+1 , 13+4, 141+1, 15+1, 16+4
LEX	1+14, 2+7, LEX+32, LEX+41, LEX+46, LEX+51
LEXN	LEX+18, LEX+19, LEX+20, LEX+21, LEX+22, LEX+32, LEX+41, LEX+46, LEX+51
NA	NA+3
POC	14+2, ECOD1+13
XITL	LEX+11, LEX+12, LEX+13, LEX+16, LEX+59, LEX+61

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LEX+17, LEX+18, LEX+19, LEX+20, LEX+21, LEX+22, LEX+32, LEX+36, LEX+37, LEX+41 , LEX+44, LEX+46, LEX+49, LEX+51, LEX+54, LEX+60, LEX+61, LEXN+1
>> APCDANS	LEX+39*
>> APCDD	1+3, 1+6, 1+7, 1+8, 1+9, 1+10, 1+12, 2+1, 2+6, 3+8 , 8+3, 8+5, 9+1, 9+7, 10+3, 10+5, 11+1, 11+6, 12+3, 12+5 , 13+1, 13+6, 141+3, 141+5, 15+3, 15+5, 16+1, 16+6, LEX+4, LEX+5 , LEX+24, LEX+25, LEX+30, LEX+31, LEX+56, LEX+57, LEX+60, ECOD1+3, ECOD1+5, ECOD1+6 , ECOD1+7, ECOD1+8, ECOD1+9, ECOD1+11, ECO21+3, ECO21+5, ECO21+6, ECO21+7, ECO21+8, ECO21+9 , ECO21+11, ECO31+3, ECO31+5, ECO31+6, ECO31+7, ECO31+8, ECO31+9, ECO31+11
>> APCDDATE	1+8, ECOD1+7, ECO21+7, ECO31+7
>> APCDHDAT	1+10, 8+3, 10+3, 12+3, 141+3, 15+3, ECOD1+9, ECO21+9, ECO31+9
>> APCDIAIE	1+4*
APCDIMP	1+12, 2+1, 2+2, 2+5, 2+6, K+2!, 8+5, 8+6, 9+1, 9+2 , 9+5, 9+7, 10+5, 10+6, 11+1, 11+2, 11+5, 11+6, 12+5, 12+6 , 13+1, 13+2, 13+5, 13+6, 141+5, 141+6, 15+5, 15+6, 16+1, 16+2 , 16+5, 16+6, LEX+4, LEX+5, LEX+18, LEX+19, LEX+20, LEX+21, LEX+22, LEX+24 , LEX+25, LEX+27, LEX+28, LEX+30, LEX+31, LEX+56, LEX+57, ECOD1+11, ECO21+11, ECO31+11
>> APCDOVRR	EDIT011+2*
>> APCDTDA	1+19, 2+13, 3+5, 3+6, 3+8, 3+9, 3+10, NA+1, NA+5, 4+3 , 17+1, 8+11, 9+14, 10+12, 11+14, 12+12, 13+14, 141+13, 15+12, 16+14 , LEX+9, LEX+16, DELETE+8, DELETE+13
APCDTDEL	1+13, 1+15, 1+16, 2+5, 2+8, 2+9, K+2!, 8+6, 8+8, 9+5 , 9+9, 9+11, 10+6, 10+9, 11+5, 11+9, 11+10, 12+6, 12+9, 13+5 , 13+9, 13+10, 141+7, 141+11, 15+6, 15+10, 16+5, 16+10, 16+11, LEX+2! , LEX+11, DELETE+1, DELETE+7
APCDTDIA	1+13, 2+5, K+2!, 8+6, 9+5, 10+6, 11+5, 12+6, 13+5, 141+7* , 15+6, 16+5, LEX+6, LEX+29
>> APCDTERR	LEX+59, LEX+61
APCDTFIE	1+13, 2+5, K+2!, 8+6, 9+5, 10+6, 11+5, 12+6, 13+5, 141+7* , 15+6, 16+5, LEX+9, LEX+16, DELETE+2, DELETE+13
>> APCDTIMH	4+2*, 4+4
APCDTIN9	2+5, K+2!, 9+5, 11+5, 13+5, 16+5*, LEX+7, LEX+8, LEX+27
APCDTNPV	1+13, 1+18, 1+19, 2+5, 2+11, 2+13, K+2!, 8+6, 8+10, 8+11 , 9+5, 9+12, 9+14, 10+6, 10+11, 10+12, 11+5, 11+12, 11+14, 12+6* , 12+11, 12+12, 13+5, 13+12, 13+14, 141+7, 141+12, 141+13, 15+6, 15+11 , 15+12, 16+5, 16+12, 16+14, LEX+59, LEX+61, LEXN+1*
>> APCDTNQ	3+8, 3+9, NA+4, NA+5
>> APCDTNQP	LEXN+1*
APCDTPCC	XITL!
>> APCDTSKI	1+17, 2+10, LEX+13*
>> APCDTTMP	3+7
APCDTUPH	89+3, 89+5, 89+7, 14+3, K+2!, 8+9, 9+6!, 9+10, 10+7!, 10+10 , 11+7!, 11+11, 12+7!, 12+10, 13+7!, 13+11, 141+8!, 141+10, 15+7!, 15+9 , 16+7!, 16+9
>> APCDUINP	LEX+15*, LEX+16, LEX+18, LEX+19, LEX+20, LEX+21, LEX+22, LEX+26, LEX+36, LEXN+1
>> APCDVSIT	1+5, 1+6, 1+7, ECOD1+4, ECOD1+5, ECOD1+6, ECO21+4, ECO21+5, ECO21+6, ECO31+4 , ECO31+5, ECO31+6
>> APCDY	LEX+41, LEX+46, LEX+51, LEX+56, LEX+57
D	XITL!
DA	EDIT011+1!, 1+19!, 2+12!, 2+13!, 3+9!, NA+1!, NA+5!, 4+3!, 17+1!, K+1! , 8+11!, 9+13!, 9+14!, 10+12!, 11+13!, 11+14!, 12+12!, 13+13!, 13+14!, 141+13! , 15+12!, 16+13!, 16+14!, LEX+10!, DELETE+4!, DELETE+8, DELETE+10!, DELETE+13*!
DD	XITL!
DIC	LEX+36*!
DIC("A"	LEX+29*
DIC("S"	LEX+27, LEX+28, LEX+36*
DIC(0	LEX+36*
DIE	EDIT011+1!, 1+19!, 2+12!, 2+13!, 3+9!, NA+5!, 4+3!, 17+1!, K+1!, 8+11! , 9+13!, 9+14!, 10+12!, 11+13!, 11+14!, 12+12!, 13+13!, 13+14!, 141+13!, 15+12! , 16+13!, 16+14!, DELETE+13!
DIE("NO^"	3+9*
>> DIK	DELETE+8*
DIPGM	XITL!
DIR	1+2!, NA+1!, K+1!, 8+2!, 10+2!, 12+2!, 141+2!, 15+2!, LEX+2!, LEX+10! , DELETE+3!, DELETE+4!, DELETE+9!, DELETE+10!, ECOD1+2!, ECO21+2!, ECO31+2!
DIR("?"	LEX+7*
DIR("??"	LEX+8*
DIR("A"	NA+1, LEX+6, DELETE+4, DELETE+10
DIR("B"	NA+1, LEX+9
DIR(0	NA+1, LEX+6, DELETE+4, DELETE+10
DIRUT	NA+2, 141+2!, LEX+2!, LEX+13, DELETE+6, DELETE+12
DO	LEX+58!, XITL!
DR	EDIT011+1!, 1+19!, 2+12!, 2+13!, 3+9!, NA+5!, 4+3!, 17+1!, K+1!, 8+11! , 9+13!, 9+14!, 10+12!, 11+13!, 11+14!, 12+12!, 13+13!, 13+14!, 141+13!, 15+12! , 16+13!, 16+14!, DELETE+13!
DT	1+9, ECOD1+8, ECO21+8, ECO31+8
DUZ(2	2+3, 9+3, 11+3, 13+3, 16+3
LEX	LEX+23!, LEX+32
LEX("HLP"	LEX+33
U	1+6, 1+7, 2+3, 3+5, 3+8, 9+3, 11+3, 13+3, 16+3, LEX+37 , LEX+56, LEX+57, LEX+61, ECOD1+5, ECOD1+6, ECO21+5, ECO21+6, ECO31+5, ECO31+6
X	NA+3, LEX+11, LEX+12, LEX+26, LEX+30, LEX+31, LEX+33, LEX+36*, XITL!
Y	1+20, 2+14, NA+4, 8+12, 9+15, 10+13, 11+15, 12+13, 13+15, 141+14 , 15+13, 16+15, LEX+15, LEX+37, LEX+56, LEX+57, LEX+59, LEX+60, XITL!, DELETE+5 , DELETE+11

Customize PDF page

Package: Patient Care Component

Routine: APCDEPOV

Information

Source Information