Routine: APCDPNAR

Package	Total	Call Graph
IHS VA Utilities	1	$$VAL^XBDIQ1
VA Fileman	1	^DIE

Entry Points

Name	Comments	DBIA/ICR reference
GETVAL	;
EDIT
RDR
WRITE	;
EXIT
EP	; ; APCDSWD=DICTIONARY NUMBER ; APCDSWCR=LINKING CROSS REFERENCE ; APCDSWV=VISIT DFN

Name	Field # of Occurrence
^DIE	EDIT
$$VAL^XBDIQ1	WRITE+2

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EP+21
Function Call: WRITE	Prompt: !!,"This POV has been SNOMED coded, you cannot edit the narrative." Line Location: RDR+3
Function Call: WRITE	Prompt: ! Line Location: EXIT+1
Function Call: WRITE	Prompt: !,APCDSWI," ",APCDSWVA," ",?12,$$VAL^XBDIQ1(APCDSWD,Y,.04) Line Location: WRITE+2
Function Call: WRITE	Prompt: @("$E("_DIC_"Y,0),0)") Line Location: WRITE+3
Function Call: WRITE	Prompt: @("$E("_DIC_"Y,0),0)") Line Location: WRITE+4
Routine Call	DIE Line Location: EDIT

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPOV - [#9000010.07]	RDR+3
^DIC - [#1]	EP+15, EP+16

Name	Field # of Occurrence
^(	WRITE+4
^(0	GETVAL+2

Name	Field # of Occurrence
>> APCDLOOK	EP+8, EP+10, RDR+1*, RDR+3, EDIT
APCDSWAN	EP+24, RDR, RDR+1, EXIT!
APCDSWCR	EP+5, EP+17, EP+18*, EP+19, EP+20, EP+22, EXIT!
APCDSWD	EP+4*, EP+13, EP+14, EP+15, EP+16, EP+17, EP+18, EXIT!, GETVAL+1, WRITE+2 , WRITE+4
APCDSWD2	EXIT!, GETVAL+1, GETVAL+2
APCDSWDA	EP+22*, EXIT!, GETVAL+1, WRITE+4
APCDSWEX	EXIT!, WRITE+4*
APCDSWG	EP+16*, EP+22, EXIT!, GETVAL+1
APCDSWG2	EXIT!, GETVAL+1, GETVAL+2
APCDSWI	EP+22, EP+23, RDR, EXIT!, WRITE+2, WRITE+4
APCDSWL	EXIT!, GETVAL+2, WRITE+4
APCDSWN	EXIT!, WRITE+4*
APCDSWP	EXIT!
APCDSWT	EXIT!
APCDSWT(	RDR+1, WRITE+4*
APCDSWV	EP+6*, EP+11, EP+12, EXIT!
APCDSWV2	EXIT!, GETVAL+1, GETVAL+2
APCDSWVA	EXIT!, GETVAL+2*, WRITE+2
APCDSWZ	EXIT!
>> APCDVFIE	EP+8
>> APCDVSIT	EP+6
DA	EDIT*!
>> DIC	EP+22*, WRITE+3, WRITE+4
DIE	EDIT*!
DR	EDIT*!
DTIME	RDR
P	WRITE+1~
Q	WRITE+1~
U	EP+9*, RDR+3, GETVAL+2
Y	EP+22*, EXIT!, WRITE+2