Routine: APCDXPOV

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

Package

Total

Call Graph

Lexicon Utility

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

VA Fileman

^DIC ^DIE ^DIR

IHS Patient

$$CHK^AUPNSICA $$IMP^AUPNSICD

IHS VA Utilities

$$VAL^XBDIQ1 EN^XBNEW

DRG Grouper

$$ICDDX^ICDEX

Kernel

$$DT^XLFDT

Patient Care Component

GETANS^APCDAPOV

Entry Points

Name	Comments	DBIA/ICR reference
EDIT01	;EP
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
XITL
1	;EDIT .12 OF V HOSP
START	;
LEX	;EP - called from input template
EDIT011	;
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	LEX+39
$$CHK^AUPNSICA	ICDONE9+8, ICDONE1+7
$$IMP^AUPNSICD	I, 1+14
^DIC	LEX+35
^DIE	1+18
^DIR	LEX+11
$$ICDDX^ICDEX	LEX+21, LEX+22, LEX+23, LEX+24, LEX+25, LEX+59, ICDONE9+6, ICDONE1+5
LOOK^LEXA	LEX+29, LEX+30
CONFIG^LEXSET	LEX+4, LEX+5, LEX+16, LEX+17
$$ICDONE^LEXU	LEX+55, ICDONE9+5
$$ONE^LEXU	LEX+56, ICDONE1+4
$$VAL^XBDIQ1	LEX+10, LEX+15, 1+19
EN^XBNEW	START+2, EDIT01+1
$$DT^XLFDT	ICDONE9+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Admitting Diagnosis is Required." Line Location: LEX+20
Function Call: WRITE	Prompt: !,LEX("HLP",X) Line Location: LEX+32
Function Call: WRITE	Prompt: ! Line Location: LEX+40
Function Call: WRITE	Prompt: ! Line Location: LEX+45
Function Call: WRITE	Prompt: ! Line Location: LEX+50
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: LEX+58
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: LEX+60
Function Call: WRITE	Prompt: ! Line Location: LEXN+2
Function Call: WRITE	Prompt: ! Line Location: 1+1
Function Call: WRITE	Prompt: !!,"Please Note: Admitting Diagnosis is Required.",! Line Location: 1+13
Routine Call	DIE Line Location: 1+18
Routine Call	DIC Line Location: LEX+35
Routine Call	DIR Line Location: LEX+11

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

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	START1+5, START1+7, START1+9, START1+10, 1+4, 1+6, 1+8, 1+9
^TMP("LEXHIT"	LEX+55, LEX+56
^TMP("LEXSCH"	LEX+3!, LEX+57!

Name	Line Occurrences
1	1+19
LEX	LEX+20, LEX+31, LEX+40, LEX+45, LEX+50, 1+16
LEXN	LEX+21, LEX+22, LEX+23, LEX+24, LEX+25, LEX+31, LEX+40, LEX+45, LEX+50
XITL	LEX+12, LEX+13, LEX+15, LEX+58, LEX+60

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START1+3~, LEX+19, LEX+21, LEX+22, LEX+23, LEX+24, LEX+25, LEX+31, LEX+35, LEX+36 , LEX+40, LEX+43, LEX+45, LEX+48, LEX+50, LEX+53, LEX+59, LEX+60, LEXN+1, ICDONE1+3~
ALEVXDT	ICDONE1+3~
ALEX	ICDONE9~, ICDONE9+5, ICDONE9+6, ICDONE1~, ICDONE1+4, ICDONE1+5
ALEXICD	ICDONE9+3~, ICDONE9+6, ICDONE9+7, ICDONE9+8, ICDONE1+3~, ICDONE1+5, ICDONE1+6, ICDONE1+7
ALEXVDT	ICDONE9~, ICDONE9+4*, ICDONE9+5, ICDONE9+6, ICDONE1~, ICDONE1+4, ICDONE1+5
>> APCDANS	LEX+38*
>> APCDD	START1+1, START1+7, START1+8, START1+9, START1+10, START1+11, I, LEX+4, LEX+5, LEX+16 , LEX+17, LEX+29, LEX+30, LEX+55, LEX+56, LEX+59, 1+3, 1+6, 1+7, 1+8 , 1+9, 1+10, 1+11, 1+14
>> APCDDATE	START1+8, 1+7
>> APCDHDAT	1+11*
>> APCDIMP	I, LEX+4, LEX+5, LEX+16, LEX+17, LEX+21, LEX+22, LEX+23, LEX+24, LEX+25 , LEX+26, LEX+27, LEX+29, LEX+30, LEX+55, LEX+56, LEX+59, 1+14
APCDINAD	1+15!
>> APCDINPE	START1+1*
>> APCDLOOK	START+1, LEX+12, LEX+13, LEX+58, LEX+60, LEXN+1, 1+15*, 1+18
>> APCDTDA	LEX+10, LEX+15, 1+18, 1+19
>> APCDTDEL	1+15*
>> APCDTDIA	LEX+6, LEX+28, 1+15*
>> APCDTERR	LEX+58, LEX+60
>> APCDTFIE	1+15*
>> APCDTNQP	START+1, LEXN+1
APCDTPCC	START1+1*, XITL!
>> APCDTSKI	LEX+12, LEX+13, 1+17
>> APCDUINP	LEX+14*, LEX+15, LEX+18, LEX+21, LEX+22, LEX+23, LEX+24, LEX+25, LEX+35, LEXN+1
>> APCDVSIT	START1+5, START1+7, 1+4, 1+6
>> APCDY	LEX+40, LEX+45, LEX+50, LEX+55, LEX+56
>> BDGV	START1+9, START1+10, 1+8, 1+9
D	START1+3~, START1+4*, XITL!
DA	LEX+9!, EDIT011+1!, 1+18*!
DD	XITL!
DIC	LEX+35*!
DIC("A"	LEX+28*
DIC("S"	LEX+26, LEX+27, LEX+35*
DIC(0	LEX+35*
DIE	EDIT011+1!, 1+18*!
DIPGM	XITL!
DIR	LEX+2!, LEX+11!, 1+2!
DIR("?"	LEX+7*
DIR("??"	LEX+8*
DIR("A"	LEX+6*
DIR("B"	LEX+10*
DIR(0	LEX+6*
>> DIRUT	LEX+12
DO	LEX+57!, XITL!
DR	EDIT011+1!, 1+18*!
DT	START1+11, 1+10
>> LEX	LEX+31
>> LEX("HLP"	LEX+32
U	START1+7, START1+10, LEX+36, LEX+55, LEX+56, LEX+60, ICDONE9+8, ICDONE1+7, 1+6, 1+9
X	LEX+18, LEX+20, LEX+29, LEX+30, LEX+32, LEX+35*, XITL!
Y	LEX+13, LEX+14, LEX+36, LEX+55, LEX+56, LEX+58, LEX+59, XITL!

Customize PDF page

Package: Patient Care Component

Routine: APCDXPOV

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: