Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Call Graph | Entry Points | External References | Interaction Calls | FileMan Files Accessed Via FileMan Db Call | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All

Print Page as PDF

Routine: ACDRL0

Package: Alcohol Chemical Dependency

Routine: ACDRL0

Information

ACDRL0 ;IHS/ADC/EDE/KML - SCREEN LOGIC;

Source Information

Source file <ACDRL0.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
Alcohol Chemical Dependency	1	(SPECIAL,Y)^ACDRL01
PCC Medical Query	1	^AMQQGTX0

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
D	;DATE RANGE
F	;FREE TEXT RANGE
ED	;get ending date
N	;
Q	;EP
R	;EP
Y	;
SPECIAL	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4
SPECIAL^ACDRL01	SPECIAL+1
Y^ACDRL01	Y+1
^AMQQGTX0	Q+5
^DIC	Q+3
^DIR	R+2, BD+1, ED+1, N+2, F+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: Q+3
Function Call: WRITE	Prompt: !!,$C(7),"** No ",$P(^ACDTITEM(ACDCRIT,0),U)," selected, all will be included." Line Location: Q+6
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!,"No numeric range entered. All numerics will be included." Line Location: N+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Enter a numeric range in the format nnn-nnn. E.g. 0-5, 0-99, 5-20." Line Location: N+4
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Enter a numeric range in the format nnn-nnn. E.g. 0-5, 0-99, 5-20." Line Location: N+6
Function Call: WRITE	Prompt: !!,"No range entered. All ",ACDTEXT," will be included." Line Location: F+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Enter an free text range in the format AAA:AAA. E.g. 94-01:94-200, CA:CZ, A:Z." Line Location: F+4
Routine Call	DIC Line Location: Q+3
Routine Call	DIR Line Location: R+2 BD+1 ED+1 N+2 F+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMQQ(5 - [#9009075]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACDRPTD - [#9002171.8]	Q+8, Q+9, R+5, R+6, ED+6, ED+7, N+1!, N+7, N+8, N+9* , N+10, F+1!, F+5, F+6*
^ACDTITEM - [#9002171.3]	Q+3, Q+6, R+2, N+5, N+6
^TMP("ACDRL"	Q+2!, Q+6, Q+7!, Q+9, Q+11!
^UTILITY("AMQQ TAX"	Q+2!

Label References

Name	Line Occurrences
BD	ED+2
F	F+4
N	N+4, N+5, N+6
R	R+7

Naked Globals

Name	Field # of Occurrence
^(0	R+2
^(25	N+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACDCNT	R+6, ED+7, F+6*
>> ACDCRIT	Q+3, Q+6, Q+8, Q+9, R+2, R+5, R+6, ED+6, ED+7, N+1 , N+5, N+6, N+7, N+8, N+9, N+10, F+1, F+5, F+6
>> ACDGDB	BD+3*, ED+1, ED+4, ED+7
>> ACDGDE	ED+3*, ED+7
>> ACDGDS	ED+4*
ACDQMAN	Q+4*, Q+5, Q+10!
>> ACDRPT	Q+8, Q+9, R+5, R+6, ED+6, ED+7, N+1, N+7, N+8, N+9 , N+10, F+1, F+5, F+6
>> ACDTEXT	BD+1, ED+1, F+3
DA	Q+3!, R+1!
DD	Q+3!
DIC	Q+1!, Q+3!*
DIC("S"	Q+3*
DIC(0	Q+3*
DICR	Q+3!
DINUM	Q+3!
DIR	Q+1!, R+1!, R+2!, BD+1!, ED+1!, N+2!, F+2!
DIR("A"	R+2, BD+1, ED+1, N+2, F+2*
DIR("B"	ED+1*
DIR(0	R+2, BD+1, ED+1, N+2, F+2*
DIRUT	R+1!, R+2, R+3, BD+1, BD+2, ED+1, ED+2, N+2, F+2*
DTOUT	R+1!
DUOUT	R+1!, R+2, BD+1, ED+1, N+2, F+2
U	Q+3, Q+6, R+2, R+6, ED+7, N+10, F+6
V	Q+10!
X	Q+3!, Q+9, Q+10!, ED+4, N+5*, F+6
>> X1	ED+4*
>> X2	ED+4*
Y	Q+3!, Q+4, Q+9, Q+10!, R+4, R+6, BD+3, ED+1, ED+3, N+3 , N+4, N+5, N+6, N+9, N+10, F+3, F+4
Z	Q+10!

Info | Source | Call Graph | Entry Points | External References | Interaction Calls | FileMan Files Accessed Via FileMan Db Call | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All