Routine: APCDPLFH

Package	Total	Call Graph
VA Fileman	3	FILE^DICN (,UPDATE)^DIE ^DIR
DRG Grouper	2	($$CODEN,$$ICDDX)^ICDCODE ($$CODEABA,$$ICDDX)^ICDEX
IHS VA Utilities	2	$$VAL^XBDIQ1 EN^XBVK
IHS Patient	1	($$CONC,$$IMP)^AUPNSICD

Package

Total

Call Graph

VA Fileman

FILE^DICN (,UPDATE)^DIE ^DIR

DRG Grouper

($$CODEN,$$ICDDX)^ICDCODE ($$CODEABA,$$ICDDX)^ICDEX

IHS VA Utilities

$$VAL^XBDIQ1 EN^XBVK

IHS Patient

($$CONC,$$IMP)^AUPNSICD

Package	Total	Caller Graph
IHS Standard Terminology	1	BSTSVOF1

Package

Total

Caller Graph

IHS Standard Terminology

BSTSVOF1

Name	Comments	DBIA/ICR reference
SETE	;
LOG
QUEUE	;EP
LOGFH
XIT	;
FH	;
ADDL
ADDLFH

External References

Name	Field # of Occurrence
$$CONC^AUPNSICD	QUEUE+11, FH+9
$$IMP^AUPNSICD	APCDPLFH+6, QUEUE+1
FILE^DICN	LOG+4, LOGFH+4
^DIE	QUEUE+32, ADDL+6, FH+29, ADDLFH+5
UPDATE^DIE	ADDL+17, ADDLFH+15
^DIR	APCDPLFH+8
$$CODEN^ICDCODE	QUEUE+27, ADDL+12, FH+24, ADDLFH+10
$$ICDDX^ICDCODE	QUEUE+19, FH+17
$$CODEABA^ICDEX	QUEUE+26, ADDL+11, FH+23, ADDLFH+9
$$ICDDX^ICDEX	QUEUE+18, FH+16
$$VAL^XBDIQ1	QUEUE+13, FH+11
EN^XBVK	XIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option is used to update the diagnosis on Problem List" Line Location: APCDPLFH+4
Function Call: WRITE	Prompt: !,"and family history entries when you first switch to ICD-10 from ICD-9",!,"or when a DTS upgrade with updated mappings is received.",!! Line Location: APCDPLFH+5
Function Call: WRITE	Prompt: !!,"Your system's ICD files are set to ",$S(APCDIMP=30:"ICD10",1:"ICD9")," when this runs it will ",!,"put ",$S(APCDIMP=30:"ICD10",1:"ICD9")," codes as the diagnosis on the Problem and Family History entries.",!! Line Location: APCDPLFH+7
Function Call: WRITE	Prompt: !!,"Hold on..this may take a few minutes.." Line Location: APCDPLFH+13
Function Call: WRITE	Prompt: !,"Looping through Problem entries....." Line Location: QUEUE+2
Function Call: WRITE	Prompt: !,"Now looping through Family History entries.." Line Location: FH+1
Routine Call	DIE Line Location: ADDL+17 ADDLFH+15
Routine Call	DIE Line Location: QUEUE+32 ADDL+6 FH+29 ADDLFH+5
Routine Call	DIR Line Location: APCDPLFH+8

FileNo	Call Tags
^AUPNPROB - [#9000011]	Classic Fileman Calls
^AUPNFH - [#9000014]	Classic Fileman Calls
^APCDPLMD - [#9001040.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNFH - [#9000014]	FH+3, FH+6, FH+7, FH+10, FH+13, FH+14, ADDLFH+4
^AUPNPROB - [#9000011]	QUEUE+4, QUEUE+7, QUEUE+8, QUEUE+10, QUEUE+12, QUEUE+15, QUEUE+16, ADDL+5

Name	Line Occurrences
ADDL	QUEUE+28, QUEUE+29, QUEUE+30
ADDLFH	FH+25, FH+26, FH+27
LOG	ADDL+3
LOGFH	ADDLFH+3
QUEUE	APCDPLFH+14
SETE	ADDL+18, ADDLFH+16
XIT	APCDPLFH+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCD001E	QUEUE+13, QUEUE+21, FH+11, FH+19
>> APCDCI	QUEUE+8, QUEUE+9, QUEUE+11, LOG+3, FH+7, FH+8, FH+9, LOGFH+3
>> APCDCNT	QUEUE+3, QUEUE+5, QUEUE+6, FH+2, FH+4, FH+5
>> APCDE	ADDL+9*
APCDFDA	ADDL+15!, ADDLFH+13!
APCDFDA(	ADDL+16, ADDLFH+14
>> APCDFNUM	ADDL+8, ADDL+16, ADDLFH+7, ADDLFH+14
>> APCDICDS	QUEUE+11, QUEUE+22, QUEUE+25, ADDL+2, FH+9, FH+20, FH+22, ADDLFH+2
>> APCDIMP	APCDPLFH+6, APCDPLFH+7, QUEUE+1, QUEUE+18, QUEUE+19, QUEUE+26, QUEUE+27, ADDL+11, ADDL+12, FH+16 , FH+17, FH+23, FH+24, ADDLFH+9, ADDLFH+10
>> APCDLOGE	LOG+6, LOGFH+6, SETE+1
>> APCDN01	QUEUE+25, QUEUE+26, QUEUE+27, QUEUE+28, QUEUE+29, QUEUE+30, QUEUE+32, LOG+3, FH+22, FH+23* , FH+24*, FH+25, FH+26, FH+27, FH+29, LOGFH+3
APCDNA	ADDL+1!, ADDL+2, ADDL+3, ADDL+10, LOG+3, ADDLFH+1!, ADDLFH+2, ADDLFH+3, ADDLFH+8, LOGFH+3
>> APCDNODE	ADDL+9*
>> APCDO01	QUEUE+12, QUEUE+30, LOG+3, FH+10, FH+27, LOGFH+3
>> APCDOA	QUEUE+14, QUEUE+20, QUEUE+21, LOG+3, FH+12, FH+18, FH+19, LOGFH+3
>> APCDOLDT	QUEUE+21, QUEUE+22, ADDL+3, FH+19, FH+20, ADDLFH+3
>> APCDP	ADDL+11, ADDL+12, ADDL+13, ADDL+14, ADDL+16, ADDLFH+9, ADDLFH+10, ADDLFH+11, ADDLFH+12, ADDLFH+14
>> APCDX	QUEUE+3, QUEUE+4, QUEUE+7, QUEUE+8, QUEUE+10, QUEUE+11, QUEUE+12, QUEUE+13, QUEUE+15, QUEUE+16 , QUEUE+32, ADDL+5, ADDL+6, ADDL+16, LOG+3, FH+2, FH+3, FH+6, FH+7, FH+9 , FH+10, FH+11, FH+13, FH+14, FH+29, ADDLFH+4, ADDLFH+5, ADDLFH+14, LOGFH+3
>> APCDY	ADDL+10, ADDL+11, ADDL+12, ADDLFH+8, ADDLFH+9, ADDLFH+10
>> APCDZ	ADDL+5, ADDL+6, ADDL+10, ADDLFH+4, ADDLFH+5, ADDLFH+8
D0	LOG+1!, LOGFH+1!
DA	APCDPLFH+8!, QUEUE+32!, ADDL+6!, FH+29!, ADDLFH+5!, SETE+1*
DA(1	ADDL+6, ADDLFH+5
DD	LOG+1!, LOGFH+1!
DIADD	LOG+2, LOG+5!, LOGFH+2, LOGFH+5!
DIC	LOG+1!, LOG+2, LOG+5!, LOGFH+1!, LOGFH+2, LOGFH+5!
DIC("DR"	LOG+3, LOGFH+3
DIC(0	LOG+2, LOGFH+2
DIE	QUEUE+32!, ADDL+6!, FH+29!, ADDLFH+5!, SETE+1*
DIR	APCDPLFH+8!
DIR("A"	APCDPLFH+8*
DIR("B"	APCDPLFH+8*
DIR(0	APCDPLFH+8*
>> DIRUT	APCDPLFH+9
DLAYGO	LOG+2, LOG+5!, LOGFH+2, LOGFH+5!
DO	LOG+1!, LOGFH+1!
DR	QUEUE+32!, ADDL+6!, FH+29!, ADDLFH+5!, SETE+1*
DT	APCDPLFH+6, QUEUE+1, QUEUE+11, LOG+3, FH+9, LOGFH+3
>> ERR("DIERR"	ADDL+18, ADDLFH+16, SETE+1
U	QUEUE+8, QUEUE+10, QUEUE+11, QUEUE+12, QUEUE+16, QUEUE+18, QUEUE+19, FH+7, FH+9, FH+10 , FH+14, FH+16, FH+17
>> X	QUEUE+15, QUEUE+16, LOG+3, FH+13, FH+14, LOGFH+3
>> Y	APCDPLFH+10, QUEUE+16, QUEUE+17, QUEUE+18, QUEUE+19, QUEUE+20, LOG+6, FH+14, FH+15, FH+16* , FH+17*, FH+18, LOGFH+6
>> ZTQUEUED	QUEUE+2, QUEUE+6, FH+1, FH+5

Customize PDF page

Package: Patient Care Component

Routine: APCDPLFH

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: