Routine: ACDPVDSP

Information

ACDPVDSP ;IHS/ADC/EDE/KML - DISPLAY PATIENT VISIT;

Source Information

Source file <ACDPVDSP.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
Alcohol Chemical Dependency	3	(CONF,DEV,DSPVSIT,GETVSITS,PAUSE)^ACDDEU (DIC,DIQ,DIQ1)^ACDFMC ^ACDKILL
Patient Care Component	1	^APCDVDSP
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
DSPIN	; DISPLAY INITIAL
DSPOT	; DISPLAY CRISIS BRIEF
GETDTRNG	; GET DATE RANGE FOR VISIT
GETPAT	; GET PATIENT
DSPIR	; DISPLAY INFO/REFERRAL
DSPIIF	; DISPLAY IIF ENTRY
START	;
DSPFU	; DISPLAY FOLLOWUP
EOJ	;
PATLOOP	; DISPLAY PATIENTS UNTIL DONE
DISPLAYQ	; EP - FOR TASKMAN
DSPTD	; DISPLAY TDC ENTRY
DSPCS	; DISPLAY CLIENT SERVICES
DISPTAG
DISPLAY	; EP - DISPLAY VISIT AND SUBORDINATE FILE ENTRIES
SELECT	; SELECT A CDMIS VISIT
DSPRE	; DISPLAY REOPEN

External References

Name	Field # of Occurrence
^%ZIS	DISPLAYQ+1
^%ZISC	DISPLAYQ+13, EOJ+1
^%ZTLOAD	DISPTAG+2
CONF^ACDDEU	DISPLAYQ+4
DEV^ACDDEU	PATLOOP+8
DSPVSIT^ACDDEU	DISPLAYQ+6
GETVSITS^ACDDEU	PATLOOP+3
PAUSE^ACDDEU	SELECT+20, DISPLAYQ+7, DSPIIF+4, DSPTD+4, DSPCS+6
DIC^ACDFMC	GETPAT+3
DIQ^ACDFMC	DSPIIF+3, DSPTD+3, DSPCS+5
DIQ1^ACDFMC	SELECT+17
^ACDKILL	EOJ+2
^APCDVDSP	DISPLAYQ+12
^DIR	SELECT+24, GETDTRNG+4, GETDTRNG+7, DISPLAY+3
$$FMTE^XLFDT	GETDTRNG+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+1
Function Call: WRITE	Prompt: ! Line Location: SELECT+2
Function Call: WRITE	Prompt: !,"----------",!,"No CDMIS visits!",!,"----------",! Line Location: SELECT+5
Function Call: WRITE	Prompt: ! Line Location: SELECT+7
Function Call: WRITE	Prompt: ! Line Location: SELECT+9
Function Call: WRITE	Prompt: ACDLC,?5,ACDPDD(9002172.1,ACDY,.01),?18," - ",ACDPDD(9002172.1,ACDY,1),"/",ACDPDD(9002172.1,ACDY,5)," ",ACDPDD(9002172.1,ACDY,3),! Line Location: SELECT+18
Function Call: WRITE	Prompt: !,"No visits in date range",! Line Location: SELECT+23
Function Call: WRITE	Prompt: !,"Patient has ",ACDVCNT," visits between ",$$FMTE^XLFDT(ACDDTLOW,"1")," and ",$$FMTE^XLFDT(ACDDTHI,"1"),".",!,"Enter date range of desired visit.",! Line Location: GETDTRNG+3
Function Call: WRITE	Prompt: !!,"This CDMIS visit has linked PCC visits." Line Location: DISPLAY+2
Function Call: WRITE	Prompt: ! Line Location: DISPLAYQ+5
Function Call: WRITE	Prompt: !,"INVALID TYPE CONTACT",! Line Location: DISPLAYQ+10
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAYQ+13
Function Call: WRITE	Prompt: !,"NO IIF ENTRY TO DISPLAY",! Line Location: DSPIIF+2
Function Call: WRITE	Prompt: !,"NO TDC ENTRY TO DISPLAY",! Line Location: DSPTD+2
Routine Call	DIR Line Location: SELECT+24 GETDTRNG+4 GETDTRNG+7 DISPLAY+3
Routine Call	%ZIS Line Location: DISPLAYQ+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^ACDIIF - [#9002170]	Classic Fileman Calls
^ACDTDC - [#9002171]	Classic Fileman Calls
^ACDCS - [#9002172]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACDCS("C"	DSPCS+3
^ACDIIF("C"	DSPIIF+1
^ACDTDC("C"	DSPTD+1
^ACDVIS - [#9002172.1]	DISPLAY+1, DISPLAYQ+9, DISPLAYQ+12
^DPT - [#2]	GETPAT+6
^TMP("ACD"	SELECT+5, SELECT+12, GETDTRNG+2

Label References

Name	Line Occurrences
@(	DISPLAYQ+11
DISPLAY	PATLOOP+7
DISPLAYQ	DISPTAG+4
DISPTAG	PATLOOP+9
DSPIIF	DSPIN+1, DSPRE+1, DSPFU+1, DSPIR+1, DSPOT+1
EOJ	START+3, DISPLAYQ+14
GETDTRNG	SELECT+7
GETPAT	PATLOOP+1
PATLOOP	START+2
SELECT	PATLOOP+5

Naked Globals

Name	Field # of Occurrence
^(	DISPLAYQ+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACDCONT	DISPLAYQ+11*
>> ACDDFN	GETPAT+6*
>> ACDDFNP	GETPAT+6*
>> ACDDTHI	SELECT+6, SELECT+12, GETDTRNG+2, GETDTRNG+3, GETDTRNG+9*
>> ACDDTLOW	SELECT+6, SELECT+11, SELECT+12, GETDTRNG+2, GETDTRNG+3, GETDTRNG+6*
ACDLC	SELECT+10, SELECT+14, SELECT+15, SELECT+18, SELECT+20, SELECT+23, SELECT+24, SELECT+26!
>> ACDPCCL	DISPLAY+4, DISPLAYQ+12
ACDPCCV	DISPLAYQ+12~*
ACDPDD	SELECT+19!
ACDPDD(	SELECT+18
>> ACDQ	START+2, PATLOOP+2, PATLOOP+4, PATLOOP+6, PATLOOP+8, GETPAT+1, GETPAT+7, SELECT+1, SELECT+7, SELECT+8 , SELECT+12, SELECT+13, SELECT+20, SELECT+22, SELECT+28, GETDTRNG+1, GETDTRNG+10, DISPTAG+4, DSPCS+2, DSPCS+8*
ACDSLAVE	PATLOOP+9, PATLOOP+10!, DISPLAYQ+1, DISPLAYQ+13
>> ACDVCNT	SELECT+7, GETDTRNG+3
>> ACDVIEN	SELECT+3, SELECT+25, SELECT+27, DISPLAY+1, DISPLAYQ+6, DISPLAYQ+9, DISPLAYQ+12, DSPIIF+1, DSPTD+1, DSPCS+3
ACDVLST	SELECT+4!, SELECT+26!
ACDVLST(	SELECT+15*, SELECT+25
>> ACDX	SELECT+11, SELECT+12
>> ACDY	SELECT+12, SELECT+15, SELECT+16, SELECT+18, DSPCS+1, DSPCS+3*, DSPCS+4
>> APCDVDSP	DISPLAYQ+12*
>> AUPNLK("ALL"	GETPAT+2*, GETPAT+4!
DA	SELECT+16, SELECT+24!, GETDTRNG+4!, GETDTRNG+7!, DISPLAY+3!, DSPIIF+1, DSPIIF+2, DSPTD+1, DSPTD+2, DSPCS+4
>> DIC	GETPAT+3, SELECT+16, DSPIIF+1, DSPTD+1, DSPCS+4*
>> DIC("S"	GETPAT+3*
>> DIC(0	GETPAT+3*
>> DIQ	SELECT+16*
DIR	SELECT+24!, GETDTRNG+4!, GETDTRNG+7!, DISPLAY+3!
DIR("A"	SELECT+24, GETDTRNG+4, GETDTRNG+7, DISPLAY+3
DIR("B"	GETDTRNG+7, DISPLAY+3
DIR(0	SELECT+24, GETDTRNG+4, GETDTRNG+7, DISPLAY+3
>> DIRUT	SELECT+20, GETDTRNG+8, DISPLAYQ+8, DISPLAYQ+12, DSPCS+3
>> DR	SELECT+16*
IO	PATLOOP+9, PATLOOP+10*, DISPLAYQ+2, DISPLAYQ+3
IO("Q"	DISPTAG
IO(0	PATLOOP+9, PATLOOP+10, DISPLAYQ+3
IOF	DISPLAYQ+3, DISPLAYQ+13
>> IOP	DISPLAYQ+1*
IOST	DISPLAYQ+4, DISPLAYQ+7, DSPIIF+4, DSPTD+4, DSPCS+6
U	GETPAT+6, DISPLAYQ+9, DISPLAYQ+12
>> X	GETDTRNG+7, DISPLAYQ+9*, DISPLAYQ+10, DISPLAYQ+11
>> Y	GETPAT+5, GETPAT+6, SELECT+25, GETDTRNG+5, GETDTRNG+6, GETDTRNG+7, GETDTRNG+9, DISPLAY+4
>> ZTDESC	DISPTAG+1*
>> ZTDTH	DISPTAG+1*
>> ZTQUEUED	DISPLAYQ+14
>> ZTREQ	DISPLAYQ+14*
>> ZTRTN	DISPTAG+1*
>> ZTSAVE("ACD*"	DISPTAG+1*

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDPVDSP

Call Graph Total: 9