Routine: ACDRL

Package	Total	Call Graph
Alcohol Chemical Dependency	6	(ADD,INFORM)^ACDRL01 (XIT,XIT1)^ACDRL1 COUNT^ACDRL3 ^ACDRL4 (SHOW,SHOWP,SHOWR)^ACDRLS CALLDIE^ACDRLU1
VA Fileman	4	DD^%DT C^%DTC ^DIK ^DIR
IHS VA Utilities	1	^XBDBQUE

Package

Total

Call Graph

(ADD,INFORM)^ACDRL01 (XIT,XIT1)^ACDRL1 COUNT^ACDRL3 ^ACDRL4 (SHOW,SHOWP,SHOWR)^ACDRLS CALLDIE^ACDRLU1

DD^%DT C^%DTC ^DIK ^DIR

Package	Total	Caller Graph
Alcohol Chemical Dependency	1	ACDRLP2

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
BD	;get beginning date
TITLE	;
DEL	;EP DELETE LOG ENTRY IF ONE EXISTS AND USER "^" OUT
P11
V1	;if visit, no prev defined report used
P12
P13
COUNT	;count only or detailed report
P1	;if patient, no prev defined report used
ZIS	;call to XBDBQUE
ED	;get ending date
SCREEN	;
P	;patient lister
ADD	;
XIT	;
V	;
START	;
V12
V13
V11
XIT1	;
GETDATES	;
SAVE	;
TYPE	;--- get type of report (patient, date range or search template)

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Routine Call	DIR Line Location: BD+1 ED+1 TITLE+3 TITLE+7 SAVE+4 SAVE+7

FileNo	Call Tags
^ACDRPTD - [#9002171.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACDRPTD - [#9002171.8]	P+3, P11!, P12!, V11!, V12!, DEL+1

Name	Field # of Occurrence
>> ACDBD	BD+3*, ED+1, ED+4
>> ACDBDD	P+3, ED+4*
>> ACDCAND	P+2, P+3, ED+7, SAVE+1
ACDCNTL	SCREEN+1*!
>> ACDCTYP	TITLE+1, TITLE+2, SAVE+2, SAVE+10
>> ACDD	ED+4*
>> ACDDONE	ZIS+2*
>> ACDED	ED+3*, ED+4
>> ACDEDD	P+3, ED+4*
>> ACDEP1	SAVE+4, SAVE+10
>> ACDLENG	TITLE+6*, TITLE+7
>> ACDNAME	SAVE+9*, SAVE+10
>> ACDPACK	SAVE+10
>> ACDPTVS	TYPE+2, SAVE+10
ACDQUIT	START+1!, P+1!, P+7!, P11!, P12!, P13!, ED+6!, ED+8!, V11!, V12! , V13!, TITLE+4*
ACDRDTR	P+4*, P11!, P11+1, ED+5, V11!, SAVE+10
>> ACDRPT	P+3, P11, P12, V11, V12, SAVE+10, DEL+1
>> ACDSAVE	SAVE+3*
>> ACDTCW	P12, V12, TITLE+6, ZIS+1*
>> ACDTITL	TITLE+9*
DA	SAVE+10, DEL+1!
DIC	DEL+1!
>> DIE	SAVE+10*
DIK	DEL+1*!
DIR	BD+1!, ED+1!, TITLE+3!, TITLE+7!, SAVE+4!, SAVE+7!
DIR("?"	TITLE+7*
DIR("A"	BD+1, ED+1, TITLE+3, TITLE+7, SAVE+4, SAVE+7
DIR("B"	TITLE+3, SAVE+4
DIR(0	BD+1, ED+1, TITLE+3, TITLE+7, SAVE+4, SAVE+7
>> DIRUT	P+3, BD+1, BD+2, ED+1, ED+2, TITLE+3, TITLE+4, TITLE+8, SAVE+4, SAVE+5 , SAVE+7*, SAVE+8
>> DR	SAVE+10*
>> DUOUT	BD+1, ED+1, TITLE+3, SAVE+4, SAVE+7
IOM	ZIS+1
U	P+3, DEL+1
X	BD+1!, ED+1!, ED+4, TITLE+3!, TITLE+7!, SAVE+4!, SAVE+7!
>> X1	ED+4*
>> X2	ED+4*
>> XBNS	ZIS+5*
>> XBRC	ZIS+5*
>> XBRP	ZIS+5*
>> XBRX	ZIS+5*
Y	BD+1!, BD+3, ED+1!, ED+3, ED+4, TITLE+3!, TITLE+5, TITLE+7!, TITLE+9, SAVE+4! , SAVE+6, SAVE+7!, SAVE+9

Information