Routine: AMHVDISP

Package	Total	Call Graph
VA Fileman	2	^%DT ^DIC
IHS Patient	1	KILL^AUPNPAT
Mental Health Social Services	1	$$ALLOWPCC^AMHUTIL
Patient Care Component	1	EN^APCDVD
Patient Care Component Reports	1	$$PRIMPROV^APCLV

Entry Points

Name	Comments	DBIA/ICR reference
VLK	;
RDV
EOJ	; EP - EOJ HOUSE KEEPING - this ep called by the BVP package (View patient record)
GETPAT	;EP GET- PATIENT
GETVISIT	;EP - this entry point called by the BVP package (View patient record)
WRITE	; WRITE VISITS FOR SELECT
XIT	; KILL VARIABLES AND QUIT
SELECT	; SELECT EXISTING VISIT
SRDR
DSPLY	;
VDPASSED	; FOR CALLER PASSING VISIT DATE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No PATIENT selected!" Line Location: AMHVDISP+4
Function Call: WRITE	Prompt: !!,"No VISIT selected!" Line Location: AMHVDISP+6
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300) Variable: X Line Location: RDV+0
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: RDV+0
Function Call: WRITE	Prompt: !!,"PATIENT: ",$P(^DPT(AMHPAT,0),U)," has one or more VISITs on this date.",! Line Location: SELECT+1
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300) Variable: AMHVLI Line Location: SRDR+0
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: SRDR+2
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: SRDR+3
Function Call: WRITE	Prompt: !,AMHVLI," TIME: ",AMHVLT,"LOC: ",AMHVLOC," TYPE: ",$P(AMHVLX,U,3)," CAT: ",$P(AMHVLX,U,7)," CLINIC: ",$S($P(AMHVLX,U,8)]"":$E($P(^DIC(40.7,$P(AMHVLX,U,8),0),U),1,8),1:"<NONE>") Line Location: WRITE+5
Function Call: WRITE	Prompt: !?3,"Hospital Location: ",$P($G(^SC($P(AMHVLX,U,22),0)),U) Line Location: WRITE+7
Function Call: WRITE	Prompt: !?3,"Primary Provider: ",$$PRIMPROV^APCLV(AMHVLKT(AMHVLI),"N") Line Location: WRITE+8
Routine Call	DIC Line Location: GETPAT+4

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	VDPASSED+5, SELECT+2
^AUPNVSIT("AA"	VDPASSED+4, VDPASSED+5
^AUTTLOC - [#9999999.06]	WRITE+3
^DIC(40.7 - [#40.7]	WRITE+5
^DPT - [#2]	SELECT+1
^SC - [#44]	WRITE+7

Name	Field # of Occurrence
^(0	VDPASSED+5, WRITE+3

Name	Field # of Occurrence
%	EOJ+2!
%DT	EOJ+2!, RDV+2*
%X	EOJ+2!
%Y	EOJ+2!
AMHA11	SELECT+2*, WRITE+6, XIT+2!
AMHCAT	EOJ+3!
AMHCLN	EOJ+3!
AMHDATE	EOJ+3!
AMHLOC	EOJ+3!
AMHLOOK	GETVISIT+1, GETVISIT+5!, EOJ+3!, VLK+1, VLK+2*
AMHPAT	AMHVDISP+4, GETPAT+3, GETPAT+6, EOJ+3!, VDPASSED+4, VDPASSED+5, SELECT+1
AMHTYPE	EOJ+3!
AMHVLDC	VDPASSED+2*, VDPASSED+3, XIT+2!
AMHVLDT	VLK+3, VDPASSED+10, XIT+2!
AMHVLI	VDPASSED+2, VDPASSED+7, VDPASSED+10, SELECT+2, SRDR, SRDR+1, SRDR+2, SRDR+3, SRDR+4, WRITE+5 , WRITE+8, XIT+2!
AMHVLID	VDPASSED+3*, VDPASSED+4, XIT+2!
AMHVLK	GETVISIT+2!, VLK+2
AMHVLKT	VDPASSED+1!, VDPASSED+9, XIT+2!
AMHVLKT(	VDPASSED+7*, SELECT+2, SRDR+3, SRDR+4, WRITE+8
AMHVLKT(1	VDPASSED+10
AMHVLL	VDPASSED+3, VDPASSED+4, VDPASSED+5, SELECT+2*, XIT+2!
AMHVLOC	WRITE+2, WRITE+3, WRITE+4*, WRITE+5, WRITE+9!, XIT+2!
AMHVLT	WRITE+1*, WRITE+5, WRITE+9!, XIT+2!
AMHVLV	VDPASSED+2, VDPASSED+5, VDPASSED+6, VDPASSED+7, SELECT+3*, XIT+2!
AMHVLX	SELECT+2*, WRITE+1, WRITE+3, WRITE+5, WRITE+6, WRITE+7, XIT+2!
AMHVSIT	GETVISIT+1*, EOJ+3!
APCDVSIT	AMHVDISP+6, GETVISIT+1, GETVISIT+4, EOJ+3!, VLK+1, VDPASSED+10, SRDR+4
>> AUPNLK("INAC"	GETPAT+2*, EOJ+1!
C	EOJ+2!
DIC	GETPAT+4*!
DIC(0	GETPAT+4*
DIYS	EOJ+2!
DTIME	RDV, SRDR
DUZ	VDPASSED+6
U	VLK+1*, VDPASSED+5, SELECT+1, WRITE+3, WRITE+5, WRITE+6, WRITE+7
X	EOJ+2!, RDV*, RDV+1, RDV+3
Y	GETPAT+5, GETPAT+6, EOJ+2!, VLK+3*, RDV+4!, VDPASSED+2!, XIT+2!