Routine: ACDWRQ

Information

ACDWRQ ;IHS/ADC/EDE/KML - PROMPTS FOR RPTS CRITERIA AREA/SU/FAC;

Source file <ACDWRQ.m>

Package	Total	Call Graph
Alcohol Chemical Dependency	5	^ACDWAREA ^ACDWFAC ^ACDWSTA ^ACDWSU ^ACDWTRB
VA Fileman	2	^%DT ^DIR

Package	Total	Caller Graph
Alcohol Chemical Dependency	9	ACDDFAC ACDRESET ACDVSAVE ACDWDRV1 ACDWDRV2 ACDWDRV3 ACDWDRV4 ACDWDRV5 ACDWSTAF

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ACDWRQ+13
Function Call: WRITE	Prompt: !!!,"OK, within ",$S($D(ACDAREA):"AREA, ",$D(ACDFAC):"FACILITY, ",$D(ACDSU):"SERVICE UNIT, "),"restrict reports by: " Line Location: TSC+6
Function Call: WRITE	Prompt: !!," Visit start date must be earlier then Visit end date. " Line Location: D+11
Function Call: WRITE	Prompt: " * NOT ALLOWED ",7 Line Location: CNTACT+5
Function Call: WRITE	Prompt: !!,*7,"HEADQUARTERS..............",! Line Location: LOC+5
Function Call: WRITE	Prompt: !!,*7,"Area ...................",! Line Location: LOC+11
Routine Call	DIR Line Location: ACDWRQ+13 TSC+7 CNTACT+5

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOC+2, LOC+8

Name	Field # of Occurrence
>> %DT	D+5*
>> %DT("A"	D+5, D+8
>> ACD6DIG	LOC+2, LOC+5, LOC+8
ACDAREA	ACDWRQ+11!, TSC+6
ACDCOMU	ACDWRQ+11!
ACDCRST	ACDWRQ+11!, CNTACT+4!
ACDCRST(	CNTACT+5*!
ACDCRST(""	CNTACT+6
ACDFAC	ACDWRQ+11!, ACDWRQ+12, 2+5, TSC+6
ACDFAC(	LOC+2, LOC+8
>> ACDFR	D+7*, D+11
>> ACDLOC	LOC+2, LOC+8
ACDPROV	ACDWRQ+11!
>> ACDQUIT	ACDWRQ+12, ACDWRQ+13, 1+2, 2+5, 3+2, TSC+7, D+5, D+6, D+8, D+9 , CNTACT+6*
ACDSTA	ACDWRQ+11!
ACDSU	ACDWRQ+11!, TSC+6
ACDSUB	ACDWRQ+11!
>> ACDTO	D+10*, D+11
ACDTRB	ACDWRQ+11!
>> ACDWDRV(1	CNTACT+3
>> ACDWDRV(3	LOC+2
>> ACDWDRV(5	TSC+5
DIR	CNTACT+4!
DIR("A"	ACDWRQ+13, CNTACT+5
DIR(0	ACDWRQ+13, TSC+7, CNTACT+5*
>> DTOUT	ACDWRQ+13, TSC+7, CNTACT+5
DUZ(2	LOC+2, LOC+8
U	LOC+2, LOC+8
>> X	ACDWRQ+13, TSC+7, CNTACT+5
>> Y	ACDWRQ+13, TSC+7, D+5, D+7, D+8, D+10, CNTACT+5