Routine: APCDVLST

Package	Total	Call Graph
VA Fileman	5	DD^%DT C^%DTC ^DIC ($$GET1,EN)^DIQ ^DIR
IHS VA Utilities	2	^XBDBQUE VIEWR^XBLM

Package

Total

Call Graph

DD^%DT C^%DTC ^DIC ($$GET1,EN)^DIQ ^DIR

^XBDBQUE VIEWR^XBLM

Name	Comments	DBIA/ICR reference
RDPV	; Determine to run by Posting date or Visit date
BD	;get beginning date
DISP	;
ERR
V1	;
BROWSE	;
ED	;get ending date
V	; Run by visit date
DRIVER	; Driver
GETPAT	; GET PATIENT
P	; Run by Posting date
BRPR	;
GETDATES	;
EOJ	; EOJ Clean up and xit.
PROC	;EP - called from xbdbque

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: APCDVLST+2
Function Call: WRITE	Prompt: !,"This routine will list all Visits for a Selected Patient in a",!,"specified Posting Date or Visit Date Range.",! Line Location: APCDVLST+2
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: ! Line Location: GETPAT+2
Function Call: WRITE	Prompt: ?5,$$GET1^DIQ(9000010.07,POV,.01),?15,$$GET1^DIQ(9000010.07,POV,.04),! Line Location: DISP+5
Function Call: WRITE	Prompt: !,"An error has occurred in the AMRG cross reference. Please notify your Supervisor" Line Location: P+2
Function Call: WRITE	Prompt: !,"Must be a valid date and be Today or earlier. Time not allowed!" Line Location: ERR+0
Routine Call	DIC Line Location: GETPAT+5
Routine Call	DIR Line Location: RDPV+3 BD+1 ED+1 BRPR+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	DISP+1
^AUPNVPOV("AD"	DISP+5
^AUPNVSIT - [#9000010]	P+4, V1+1
^AUPNVSIT("AA"	V+2, V1+1
^AUPNVSIT("AC"	P+4
^AUPNVSIT("AMRG"	P+1, P+2
^AUTTSITE(1	RDPV+2
^DPT - [#2]	DISP+2

Name	Field # of Occurrence
^(0	P+4

Name	Field # of Occurrence
%	EOJ+2!
%1	EOJ+2!
APCDBD	BD+2, BD+4, ED+1, ED+4, EOJ+2!, V+1
APCDBDD	BD+4*, EOJ+2!, DISP+2
>> APCDBEEP	RDPV+1*
APCDCAT	EOJ+2!
APCDED	ED+3*, EOJ+2!, P+4, V+1
APCDEDD	ED+3*, EOJ+2!, DISP+2
APCDF	DRIVER+1, EOJ+2!, DISP+2, DISP+3
APCDHRN	EOJ+2!, DISP+1*, DISP+2
>> APCDL	P+4*
APCDLST	EOJ+2!, V+1*, V+2
APCDODAT	EOJ+2!, P+1, P+2, P+4, V+1, V+2, V1+1
APCDSD	ED+4*, EOJ+2!, P+1
>> APCDSITE	RDPV+1, RDPV+2
APCDT	EOJ+2!
APCDTYPE	EOJ+2!
APCDVDFN	EOJ+2!, DISP+4, DISP+5, P+2, P+3, P+4, V1+1
APCDVR	EOJ+2!
APCDX	RDPV+5*, BD+1, ED+1, DRIVER+2, EOJ+2!, DISP+2
AUPNDOB	GETPAT+1!
AUPNDOD	GETPAT+1!
>> AUPNLK("INAC"	GETPAT+3*, EOJ+1!
>> AUPNPAT	GETPAT+4, GETPAT+7, DISP+1, DISP+2, P+4, V+2, V1+1
AUPNSEX	GETPAT+1!
DA	BRPR+1!, DISP+4*
DIC	GETPAT+5!, DISP+4
DIC(0	GETPAT+5*
DIR	RDPV+3!, BD+1!, ED+1!, BRPR+1!
DIR("A"	RDPV+3, BD+1, ED+1, BRPR+1
DIR("B"	RDPV+3, ED+1, BRPR+1*
DIR(0	RDPV+3, BD+1, ED+1, BRPR+1
>> DIRUT	RDPV+3, RDPV+4, BD+1, BD+3, ED+1*, ED+2, BRPR+2
>> DR	DISP+4*
>> DUOUT	RDPV+3, BD+1, ED+1
DUZ(2	RDPV+1, RDPV+2, DISP+1
IO("Q"	EOJ+2!
IOF	APCDVLST+2
POV	DISP+5~*
U	DISP+1, DISP+2, P+4, V1+1
>> X	ED+4
>> X1	ED+4*
>> X2	ED+4*
>> XBNS	BRPR+4*
>> XBRC	BRPR+4*
>> XBRP	BRPR+4*
>> XBRX	BRPR+4*
>> Y	RDPV+5, BD+2, BD+4, ED+1, ED+3, GETPAT+6, GETPAT+7, BRPR+3

Information