Routine: APCDFHS

Package	Total	Call Graph
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
IHS Patient	1	$$CONC^AUPNSICD
IHS Standard Terminology	1	$$SUBLST^BSTSAPI
IHS VA Utilities	1	EN^XBNEW
Kernel	1	DISP^XQORM1
VA Fileman	1	^DIR

Package	Total	Caller Graph
Patient Care Component	1	APCDFH

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP -- main entry point for
HDR	; -- header code
EOJ	;
GETNARR(APCDDEFV)	;EP - called to get a narrative
EXPND	; -- expand code
BACK	;go back to listman
DISPX	;
INIT	;EP --
EXIT	; -- exit code
GETNARR1	;EP
SELECT	;EP - add an item to the selected list - called from a protocol
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: ! Line Location: SELECT+1
Function Call: WRITE	Prompt: !,"No SNOMED selected." Line Location: SELECT+4
Function Call: WRITE	Prompt: !,"No SNOMED selected." Line Location: SELECT+5
Function Call: WRITE	Prompt: !!," ^ is Not Allowed. Response is required.",! Line Location: GETNARR1+7
Function Call: WRITE	Prompt: " ????" Line Location: GETNARR1+10
Function Call: WRITE	Prompt: !!,"You cannot enter a narrative that contains a '\|' (vertical bar).",! Line Location: GETNARR1+11
Routine Call	VALM Line Location: EN+2
Routine Call	DIR Line Location: SELECT+3 GETNARR1+6

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	EOJ+1!, INIT+2!, INIT+3, INIT+6, INIT+7, SELECT+10!

Name	Field # of Occurrence
>> APCDCI	SELECT+6*, SELECT+9
>> APCDDATE	INIT+10, SELECT+9
APCDDEFV	GETNARR~, GETNARR+6*, GETNARR1+6
>> APCDDI	SELECT+7*
APCDFHSN	EN+1~, EOJ+1!, SELECT+10!
APCDFHSN(	INIT+13*
APCDFHSN("IDX"	INIT+14*, SELECT+6, SELECT+7
APCDHIGH	EN+1~, INIT+5, INIT+16, SELECT+2
>> APCDICD	SELECT+9*
APCDNQV	GETNARR+4~, GETNARR+5, GETNARR+8, GETNARR1+12
APCDTCI	EN+1~, INIT+9*, INIT+10, INIT+12, INIT+14
APCDTDI	EN+1~, INIT+9*, INIT+14
>> APCDTPT	INIT+9*, INIT+12
C	INIT+1~, INIT+5, INIT+8, INIT+12, INIT+13, INIT+14, INIT+16
DA	GETNARR1+4~, GETNARR1+6!
DIR	BACK+5!, SELECT+3!, GETNARR1+4~, GETNARR1+6!
DIR("A"	SELECT+2, GETNARR1+6
DIR("B"	GETNARR1+6*
DIR(0	SELECT+2, GETNARR1+6
>> DIRUT	SELECT+3*, SELECT+5, GETNARR1+8
DT	INIT+10, SELECT+9
>> DUOUT	SELECT+3
I	EN+1~, INIT+1~, INIT+10*, INIT+12, BACK+6!
IN	INIT+1~, INIT+3*, INIT+4
IOF	EN+5
J	INIT+1~, INIT+5, INIT+6, INIT+7, INIT+14
OUT	INIT+1~, INIT+3*, INIT+4
>> T	GETNARR1+5*
U	INIT+9, INIT+10, INIT+14, SELECT+6, SELECT+7, SELECT+9
>> VALMBCK	BACK+2*
>> VALMCNT	INIT+16*
>> VALMHDR(1	HDR+1*
X	INIT+1~, INIT+4, INIT+11, INIT+12, INIT+13, HELP+1, BACK+6!, GETNARR1+9, GETNARR1+10, GETNARR1+11! , GETNARR1+12
Y	INIT+1~, INIT+7*, INIT+9, BACK+6!, SELECT+4, SELECT+6, SELECT+7
Z	BACK+6!