Routine: APCDAOP

Package	Total	Call Graph
Lexicon Utility	3	LOOK^LEXA CONFIG^LEXSET $$P10ONE^LEXU
VA Fileman	3	^DIC ^DIE ^DIR
Patient Care Component	2	START1^APCDAOP (GETANS,START1)^APCDAPOV
DRG Grouper	1	($$ICDOP,$$IMP)^ICDEX
IHS Patient	1	($$CHKOP,$$IMPOP)^AUPNSICD
IHS VA Utilities	1	EN^XBNEW
Kernel	1	($$DT,$$FMADD)^XLFDT
Patient Care Component Reports	1	($$DSCHDATE,$$VD)^APCLV

Package

Total

Call Graph

Lexicon Utility

LOOK^LEXA CONFIG^LEXSET $$P10ONE^LEXU

VA Fileman

^DIC ^DIE ^DIR

Patient Care Component

START1^APCDAOP (GETANS,START1)^APCDAPOV

DRG Grouper

($$ICDOP,$$IMP)^ICDEX

IHS Patient

($$CHKOP,$$IMPOP)^AUPNSICD

IHS VA Utilities

EN^XBNEW

Kernel

($$DT,$$FMADD)^XLFDT

Patient Care Component Reports

($$DSCHDATE,$$VD)^APCLV

Package	Total	Caller Graph
Patient Care Component	1	APCDAOP

Package

Total

Caller Graph

Patient Care Component

APCDAOP

Entry Points

Name	Comments	DBIA/ICR reference
LEX1	;EP - called from input template
DUAL(APCDDDA,APCDDVS,APCDDDF,APCDDDFE,APCDDDL,APCDDDS)	;EP - CALLED FROM INPUT TEMPLATES
I
LEXN1	;
START1	;EP
N
ENDUAL	;
START	;
XIT
XITL1
TEST	;
ICDONE(ALEX,ALEXVDT)	;EP - Return one ICD code for an expression ; LEX IEN of file 757.01 ; LEXVDT Date to use for screening by codes
CPT	;EP

External References

Name	Field # of Occurrence
START1^APCDAOP	ENDUAL+7
GETANS^APCDAPOV	LEX1+33
START1^APCDAPOV	ENDUAL+8
$$DSCHDATE^APCLV	START1+10
$$VD^APCLV	ENDUAL+5
$$CHKOP^AUPNSICD	ICDONE+8
$$IMPOP^AUPNSICD	I
^DIC	N+15, CPT+2
^DIE	ENDUAL+9
^DIR	N+5, LEX1+10, ENDUAL+11
$$ICDOP^ICDEX	ICDONE+6, LEX1+15, LEX1+16, LEX1+17, LEX1+18, LEX1+19, LEX1+42
$$IMP^ICDEX	START1+8
LOOK^LEXA	LEX1+28, TEST+3
CONFIG^LEXSET	LEX1+6, LEX1+22, TEST+2
$$P10ONE^LEXU	ICDONE+5, LEX1+38
EN^XBNEW	START+2, DUAL+1
$$DT^XLFDT	ICDONE+4
$$FMADD^XLFDT	START1+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Code not selected." Line Location: N+17
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"No ICD Operation Match for that code - notify supervisor.",! Line Location: CPT+7
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"No ICD Operation Match for that code - notify supervisor.",! Line Location: CPT+9
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"The ICD Operation code this CPT maps to is INACTIVE (",$P(^ICD0(APCDLOOK,0),U),") - cannot use!",! Line Location: CPT+10
Function Call: WRITE	Prompt: !,LEX("HLP",X) Line Location: LEX1+30
Function Call: WRITE	Prompt: ! Line Location: LEX1+34
Function Call: WRITE	Prompt: ! Line Location: LEX1+35
Function Call: WRITE	Prompt: ! Line Location: LEX1+36
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: LEX1+41
Function Call: WRITE	Prompt: !!,"lexicon isn't passing back an ICD code." Line Location: LEX1+43
Function Call: WRITE	Prompt: ! Line Location: LEXN1+2
Function Call: WRITE	Prompt: ! Line Location: DUAL+3
Function Call: WRITE	Prompt: !!,"For dual coding." Line Location: ENDUAL+2
Function Call: WRITE	Prompt: !!,"You did not enter an ICD-9 code.",! Line Location: ENDUAL+10
Routine Call	DIE Line Location: ENDUAL+9
Routine Call	DIC Line Location: N+15 CPT+2
Routine Call	DIR Line Location: N+5 LEX1+10 ENDUAL+11

FileNo	Call Tags
^ICD0 - [#80.1]	Classic Fileman Calls
^ICPT - [#81]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	START1+4, START1+9, START1+10, START1+11
^DD(9000010.08	N+12, N+13, CPT+2
^ICD0 - [#80.1]	CPT+10
^ICPT - [#81]	CPT+7, CPT+8
^TMP("LEXFND"	LEX1+4!, LEX1+20!, LEX1+40!
^TMP("LEXHIT"	LEX1+4!, LEX1+20!, LEX1+38, LEX1+40!
^TMP("LEXSCH"	LEX1+4!, LEX1+20!, LEX1+39!, LEX1+40!, TEST+1!

Label References

Name	Line Occurrences
CPT	START1+14
ENDUAL	ENDUAL+14
LEX1	LEX1+29, LEX1+34, LEX1+35, LEX1+36
LEXN1	LEX1+15, LEX1+16, LEX1+17, LEX1+18, LEX1+19
N	START1+8, N+18, N+19
XIT	N+6, N+7, N+16, N+17, CPT+3, CPT+4, CPT+5, CPT+7, CPT+9, CPT+10 , CPT+12
XITL1	LEX1+11, LEX1+12, LEX1+41, LEX1+43

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START1+6~, LEX1+14, LEX1+15, LEX1+16, LEX1+17, LEX1+18, LEX1+19, LEX1+42*, LEX1+43, LEXN1+1
ALEX	ICDONE~, ICDONE+5*, ICDONE+6
ALEXICD	ICDONE+3~, ICDONE+6*, ICDONE+7, ICDONE+8
ALEXVDT	ICDONE~, ICDONE+4*, ICDONE+5, ICDONE+6
>> APCDANS	LEX1+32*
>> APCDCAT	START1+3, START1+4, START1+5*, START1+14
>> APCDCPT	CPT+6, CPT+7, CPT+9, CPT+10
APCDD	START1+6~, START1+7, START1+8, START1+10, START1+11, START1+12, START1+13, I, LEX1+6, LEX1+15 , LEX1+16, LEX1+17, LEX1+18, LEX1+19, LEX1+22, LEX1+28, LEX1+38, LEX1+42
>> APCDDATE	START1+12, ENDUAL+5*
APCDDDA	DUAL~, DUAL+2!, ENDUAL+9
APCDDDF	DUAL~, ENDUAL+9
APCDDDFE	DUAL~, ENDUAL+9
APCDDDL	DUAL~, ENDUAL+3
APCDDDS	DUAL~, ENDUAL+7, ENDUAL+8
APCDDVS	DUAL~, ENDUAL+4, ENDUAL+5
>> APCDIMP	START1+8, I, N+4, LEX1+6, LEX1+15, LEX1+16, LEX1+17, LEX1+18, LEX1+19, LEX1+22 , LEX1+28, LEX1+38, LEX1+42
>> APCDINPE	START1+1*
>> APCDLOOK	START+1, START1+2, N+2, N+6, N+7, N+17, N+18, N+19, N+20, CPT+4 , CPT+5, CPT+7, CPT+8, CPT+9, CPT+10, CPT+11, LEX1+11, LEX1+12, LEX1+41, LEX1+43 , LEXN1+1*, ENDUAL+9
>> APCDPARM	START1+14
>> APCDTDIA	N+3, LEX1+7, ENDUAL+3*
APCDTERR	START1+2!, N+2!, N+17, N+19, CPT+5, CPT+7, CPT+9, CPT+10, LEX1+41, LEX1+43
>> APCDTIN9	START1+8, N+12, N+13, LEX1+8, LEX1+9, ENDUAL+1*
>> APCDTNQP	START+1, N+10, N+20, LEXN1+1
APCDTPCC	START1+1, XIT!, CPT+1, XITL1!
APCDTSKI	START1+2!, N+2!, N+6, N+7, N+18, CPT+4, LEX1+11, LEX1+12
>> APCDUINP	START1+1, N+8, N+11, N+20, LEX1+13*, LEX1+15, LEX1+16, LEX1+17, LEX1+18, LEX1+19 , LEX1+23, LEXN1+1
>> APCDVSIT	START1+4, START1+9, START1+10, START1+11, ENDUAL+4*
>> APCDY	LEX1+34, LEX1+35, LEX1+36, LEX1+38
D	XIT!, XITL1!
DA	N+5!, LEX1+10!, ENDUAL+9*!, ENDUAL+11!
DD	XIT!, XITL1!
DIC	N+9!, N+14, N+15!, CPT+2!
DIC("A"	N+14, CPT+2, LEX1+26*
DIC("W"	N+14*
DIC(0	N+14, CPT+2
DIE	ENDUAL+9*!
DIPGM	XIT!, XITL1!
DIR	N!, N+5!, LEX1+2!, LEX1+10!, ENDUAL+11!
DIR("?"	N+4, LEX1+8
DIR("??"	LEX1+9*
DIR("A"	N+3, LEX1+7, ENDUAL+11*
DIR("B"	ENDUAL+11*
DIR(0	N+3, LEX1+7, ENDUAL+11*
>> DIRUT	N+6, LEX1+11, ENDUAL+13
DO	XIT!, LEX1+39!, XITL1!
DR	ENDUAL+9*!
DT	START1+13, TEST+2, TEST+3
LEX	LEX1+3*, LEX1+4!, LEX1+20!, LEX1+29, LEX1+40!
LEX("HLP"	LEX1+30
U	START1+4, START1+10, START1+11, START1+14, N+17, N+18, N+19, CPT+10, ICDONE+8, LEX1+38 , LEX1+43
X	N+11, N+17, N+18, XIT!, CPT+4, LEX1+23, LEX1+28, LEX1+30*, XITL1!
Y	N+7, N+8, N+16, N+17, N+18, N+19, N+20, XIT!, CPT+3, CPT+4 , CPT+5, CPT+6, CPT+7, CPT+8, LEX1+12, LEX1+13, LEX1+38*, LEX1+41, LEX1+42, XITL1! , ENDUAL+12

Customize PDF page

Package: Patient Care Component

Routine: APCDAOP

Information

Source Information