Routine: ACDDEU

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Alcohol Chemical Dependency	3	(DSPVSIT,PAUSE)^ACDDEU (DIQ,DIQ1)^ACDFMC $$DD^ACDFUNC
Kernel	3	^%ZIS ^%ZISC ENDR^%ZISS
VA Fileman	3	NOW^%DTC ^DIE ^DIR
IHS VA Utilities	1	PFTV^XBPFTV

Package	Total	Caller Graph
Alcohol Chemical Dependency	43	ACDAUTO ACDAUTO1 ACDBILLD ACDBILLP ACDBILLS ACDCSD ACDDE ACDDE2 ACDDE3 ACDDE3A ACDDE3B ACDDE3C ACDDEGP ACDDEM ACDDEU ACDDIK ACDFLAT ACDFUL0 ACDFUL2 ACDLVBD ACDPCCL4 ACDPCCL5 ACDPCCL6 ACDPCCLS ACDPCS1M ACDPDA ACDPDIF ACDPFACE ACDPREI2 ACDPSOT ACDPVDSP ACDPVH1M ACDPVHST ACDRR1 ACDRR1P ACDRR1PB ACDRR1PC ACDRR2 ACDRR2P ACDRR3 ACDVSAVE ACDWCD1 ACDWQ

Package

Total

Caller Graph

Alcohol Chemical Dependency

ACDAUTO  ACDAUTO1  ACDBILLD  ACDBILLP  ACDBILLS  ACDCSD  ACDDE  ACDDE2
ACDDE3  ACDDE3A  ACDDE3B  ACDDE3C  ACDDEGP  ACDDEM  ACDDEU  ACDDIK
ACDFLAT  ACDFUL0  ACDFUL2  ACDLVBD  ACDPCCL4  ACDPCCL5  ACDPCCL6  ACDPCCLS
ACDPCS1M  ACDPDA  ACDPDIF  ACDPFACE  ACDPREI2  ACDPSOT  ACDPVDSP  ACDPVH1M
ACDPVHST  ACDRR1  ACDRR1P  ACDRR1PB  ACDRR1PC  ACDRR2  ACDRR2P  ACDRR3
ACDVSAVE  ACDWCD1  ACDWQ

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE	; EP - PAUSE FOR USER
HDR2	;
DSPVSIT(VISIT)	; EP - DISPLAY CDMIS VISIT ENTRY
BCK	; BACKWARD DISPLAY FOR CRTS
FWD	; FORWARD DISPLAY FOR PRINTERS ONLY
GETDTR2	;
DEV	; EP - SELECT OUTPUT DEVICE
GETDTR	; EP-GET DATE RANGE ; returns ACDDTLO and ACDDTHI or ACDQ=1
GETVSITS	; EP - GET CDMIS VISITS FOR THIS CLIENT
DSPCSH	; EP-DISPLAY CDMIS CLIENT SERVICE HISTORY FOR ONE CS VISIT
DSPHIST	; EP - DISPLAY CDMIS VISIT HISTORY
CONF	; EP - CONFIDENTIAL CLIENT DATA HEADER
CHKFIN	; EP - CHECK FOR INITIAL CONTACT TYPE
GETTOB	; get tobacco use info ; utilized by input templates ACD I/I/F ADD and ACD T/D/C/ ADD
DSPV	; EP-DISPLAY CDMIS VISIT ENTRY
HDR	; EP - DISPLAY HEADER

External References

Name	Field # of Occurrence
NOW^%DTC	CONF+3
^%ZIS	DEV+3
^%ZISC	DEV+5
ENDR^%ZISS	CHKFIN+1
DSPVSIT^ACDDEU	CHKFIN+4
PAUSE^ACDDEU	CHKFIN+4, CHKFIN+13
DIQ^ACDFMC	DSPVSIT+3
DIQ1^ACDFMC	DSPV+2
$$DD^ACDFUNC	CONF+3
^DIE	GETTOB+3
^DIR	PAUSE+5, GETDTR2+2, GETDTR2+6, GETTOB+2
PFTV^XBPFTV	DSPCSH+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DEV+5
Function Call: WRITE	Prompt: !,"* CONFIDENTIAL CLIENT INFORMATION UNDER CFR 42 PART 2 *",! Line Location: CONF+1
Function Call: WRITE	Prompt: !,"PRINTED: "_Y_" BY: "_$P($G(^VA(200,DUZ,0)),U)_"@"_ACDSITE,! Line Location: CONF+3
Function Call: WRITE	Prompt: X,! Line Location: CONF+4
Function Call: WRITE	Prompt: X,! Line Location: HDR+3
Function Call: WRITE	Prompt: @IOF,"Signon Program is : ",$P(^DIC(4,DUZ(2),0),U),! Line Location: HDR2+1
Function Call: WRITE	Prompt: "Records that may be added are: THOSE WITHIN YOUR SIGNIN PROGRAM.",!! Line Location: HDR2+3
Function Call: WRITE	Prompt: "ADDING CDMIS VISIT RECORDS...",!! Line Location: HDR2+4
Function Call: WRITE	Prompt: "Editable Records are: THOSE NOT EXTRACTED.",! Line Location: HDR2+7
Function Call: WRITE	Prompt: " THOSE WITHIN YOUR SIGNIN PROGRAM.",!! Line Location: HDR2+8
Function Call: WRITE	Prompt: "EDITING CDMIS VISIT RECORDS...",!! Line Location: HDR2+9
Function Call: WRITE	Prompt: "COMPONENT (CODE) : ",ACDCOMCL,! Line Location: HDR2+12
Function Call: WRITE	Prompt: "COMPONENT (TYPE) : ",ACDCOMTL,! Line Location: HDR2+13
Function Call: WRITE	Prompt: !,"PRIMARY PROVIDER : ",ACDPROVN,! Line Location: HDR2+14
Function Call: WRITE	Prompt: !,"TYPE CONTACT : ",ACDCONTL,! Line Location: HDR2+16
Function Call: WRITE	Prompt: "DEFAULT PROVIDER : ",ACDCSDP,! Line Location: HDR2+17
Function Call: WRITE	Prompt: "VISIT DATE : ",ACDVDTE,! Line Location: HDR2+19
Function Call: WRITE	Prompt: !,"----------",! Line Location: DSPHIST+2
Function Call: WRITE	Prompt: "No CDMIS VISIT history for client ",ACDDFN,! Line Location: DSPHIST+3
Function Call: WRITE	Prompt: "----------",! Line Location: DSPHIST+4
Function Call: WRITE	Prompt: ! Line Location: FWD+1
Function Call: WRITE	Prompt: "CDMIS VISIT history for client ",ACDDFN,!! Line Location: FWD+2
Function Call: WRITE	Prompt: "----------",! Line Location: FWD+3
Function Call: WRITE	Prompt: "----------",! Line Location: FWD+6
Function Call: WRITE	Prompt: !,"----------",! Line Location: BCK+1
Function Call: WRITE	Prompt: "Recent CDMIS VISIT history for client ",ACDDFN,!! Line Location: BCK+2
Function Call: WRITE	Prompt: "----------",! Line Location: BCK+6
Function Call: WRITE	Prompt: ACDPDD(9002172.1,ACDY,.01),?12," - ",ACDPDD(9002172.1,ACDY,1),"/",ACDPDD(9002172.1,ACDY,5),?52,ACDPDD(9002172.1,ACDY,3),?70,$S($P(^ACDVIS(ACDY,0),U,25):" <EXTR>",1:""),! Line Location: DSPV+3
Function Call: WRITE	Prompt: ?15,Y,?19,W,?55,$J(+$P(^ACDCS(Z,0),U,4),5,2)_" h",! Line Location: DSPCSH+8
Function Call: WRITE	Prompt: !,IORVON,"INITIAL type contact already exists for patient ",ACDDFN,!,"in the ",ACDCOMCL,"/",ACDCOMTL," component.",IORVOFF,! Line Location: CHKFIN+4
Function Call: WRITE	Prompt: !,IORVON,"No INITIAL type contact for patient ",ACDDFN,!,"in the ",ACDCOMCL,"/",ACDCOMTL," component.",IORVOFF,!!,"Now searching for a REOPEN.",! Line Location: CHKFIN+8
Function Call: WRITE	Prompt: !,"REOPEN found.",! Line Location: CHKFIN+11
Function Call: WRITE	Prompt: !,IORVON,"No INITIAL or REOPEN found.",IORVOFF,! Line Location: CHKFIN+12
Function Call: WRITE	Prompt: !!,"Ending date before beginning date!",!! Line Location: GETDTR2+10
Routine Call	DIE Line Location: GETTOB+3
Routine Call	DIR Line Location: PAUSE+5 GETDTR2+2 GETDTR2+6 GETTOB+2
Routine Call	%ZIS Line Location: DEV+3

FileNo	Call Tags
^ACDVIS - [#9002172.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACDCS - [#9002172]	DSPCSH+3, DSPCSH+8
^ACDCS("C"	DSPCSH+3
^ACDVIS - [#9002172.1]	FWD+5, DSPV+3, GETVSITS+3
^ACDVIS("D"	GETVSITS+3
^DIC(4 - [#4]	HDR2+1
^TMP("ACD"	DSPHIST+1, FWD+5, BCK+4, DSPCSH+1!, DSPCSH+3, DSPCSH+5, DSPCSH+6, DSPCSH+10!, GETVSITS+1!, GETVSITS+5 , CHKFIN+3, CHKFIN+10
^VA(200 - [#200]	CONF+3

Name	Line Occurrences
BCK	DSPHIST+7
CONF	FWD+1
DSPCSH	FWD+5
DSPV	FWD+5, BCK+4
FWD	DSPHIST+6
GETDTR2	GETDTR+2
HDR2	HDR+1

Name	Field # of Occurrence
^(	CHKFIN+3, CHKFIN+10
^("BWP"	GETVSITS+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CONF+3
>> %ZIS	DEV+3*
>> %ZIS("B"	DEV+3*
ACDCNT	BCK+3, BCK+4, BCK+5!
>> ACDCOMC	CHKFIN+3, CHKFIN+10
>> ACDCOMCL	HDR2+11, HDR2+12, CHKFIN+4, CHKFIN+8
>> ACDCOMT	CHKFIN+3, CHKFIN+10
>> ACDCOMTL	HDR2+13, CHKFIN+4, CHKFIN+8
>> ACDCONTL	HDR2+15, HDR2+16
>> ACDCSDP	HDR2+17
>> ACDDFN	DSPHIST+3, FWD+2, BCK+2, CHKFIN+4, CHKFIN+8
>> ACDDFNP	GETVSITS+3
ACDDTHI	GETDTR+3!, GETDTR2+9*, GETDTR2+10
ACDDTLO	GETDTR+3!, GETDTR2+5, GETDTR2+10, GETDTR2+11
>> ACDINR	CHKFIN+4, CHKFIN+6
>> ACDLPTYP	HDR2+14, HDR2+17
>> ACDMODE	HDR2+2, HDR2+6
ACDPDD	DSPV+4!
ACDPDD(	DSPV+3
>> ACDPGM	GETVSITS+3
>> ACDPROV	HDR2+14
>> ACDPROVN	HDR2+14
>> ACDQ	DEV+2, DEV+4, CHKFIN+4, CHKFIN+7, CHKFIN+11, GETDTR+2, GETDTR+3, GETDTR2+1, GETDTR2+12*
>> ACDSITE	CONF+3
ACDSLAVE	DEV+1!, DEV+5*
>> ACDTCTG	GETVSITS+4
>> ACDVCNT	GETVSITS+2, GETVSITS+5
>> ACDVDTE	HDR2+18, HDR2+19
>> ACDVIEN	FWD+5*, DSPCSH+3
>> ACDX	FWD+4, FWD+5, BCK+3, BCK+4, CHKFIN+2, CHKFIN+3, CHKFIN+9, CHKFIN+10
>> ACDY	FWD+5, BCK+4, DSPV+1, DSPV+3, CHKFIN+2, CHKFIN+3, CHKFIN+4, CHKFIN+5, CHKFIN+9, CHKFIN+10 , CHKFIN+11
DA	DSPVSIT+2, DSPV+1, GETDTR2+2!, GETDTR2+6!
>> DIC	DSPVSIT+2, DSPV+1
>> DIQ	DSPV+1*
DIR	PAUSE+5!, GETDTR2+2!, GETDTR2+6!, GETTOB+2~
DIR("A"	PAUSE+3, GETDTR2+2, GETDTR2+6, GETTOB+2
DIR(0	PAUSE+3, GETDTR2+2, GETDTR2+6, GETTOB+2
DIRUT	PAUSE+4!, GETDTR+2, GETDTR2+3, GETDTR2+7
DR	DSPVSIT+2, DSPV+1, GETTOB+3~*
DUZ	CONF+3
DUZ(2	HDR2+1
IO("S"	DEV+5, PAUSE+2
IOF	DEV+5, HDR2+1
ION	DEV+5
>> IORVOFF	CHKFIN+4, CHKFIN+8, CHKFIN+12
>> IORVON	CHKFIN+1, CHKFIN+4, CHKFIN+8, CHKFIN+12
IOST	PAUSE+1, DSPHIST+6
>> IOT	PAUSE+2
>> POP	DEV+4
U	CONF+3, HDR2+1, FWD+5, DSPV+3, DSPCSH+3, DSPCSH+8, GETVSITS+3, GETVSITS+4, GETVSITS+5, CHKFIN+3 , CHKFIN+10
VISIT	DSPVSIT~, DSPVSIT+1, DSPVSIT+2
>> W	DSPCSH+7, DSPCSH+8
X	CONF+2~, CONF+4, HDR+2, HDR+3, HDR+4!, DSPCSH+3, DSPCSH+6, DSPCSH+7, GETVSITS+3, GETVSITS+4 , GETVSITS+5, CHKFIN+1, CHKFIN+3, CHKFIN+10
Y	CONF+2~, CONF+3, DSPCSH+2, DSPCSH+3, DSPCSH+4, DSPCSH+5, DSPCSH+6, DSPCSH+8, GETVSITS+2, GETVSITS+3* , GETVSITS+5, CHKFIN+2, CHKFIN+3, CHKFIN+9, CHKFIN+10, GETDTR2+4, GETDTR2+5, GETDTR2+8, GETDTR2+9, GETTOB+3
>> Z	DSPCSH+5*, DSPCSH+6, DSPCSH+8
>> ZTQUEUED	PAUSE+2

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDDEU

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 43

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: