Routine: AMQQSQA2

Package	Total	Call Graph
PCC Medical Query	1	^AMQQTX
VA Fileman	1	YN^DICN

Package	Total	Caller Graph
PCC Medical Query	1	AMQQSQA1

Entry Points

External References

Name	Field # of Occurrence
^AMQQTX	TAX+11
YN^DICN	Q1+4, Q2+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Do you want to screen each ",AMQQSQAN," according to the",! Line Location: Q1+0
Function Call: WRITE	Prompt: " on the ",@AMQQRV,"SAME",@AMQQNV," visit" Line Location: Q1+2
Function Call: WRITE	Prompt: !!,"If you answer ""YES"" you can screen each ",AMQQSQAN," according to",!,AMQQSQP1," from on the same visit",!! Line Location: Q1+8
Function Call: WRITE	Prompt: !!,"Well then, do you want me to screen each ",AMQQSQAN," according to",! Line Location: Q2+0
Function Call: WRITE	Prompt: " on ",@AMQQRV,"TEMPORALLY RELATED",@AMQQNV," visits" Line Location: Q2+2
Function Call: WRITE	Prompt: !!,"If you answer ""YES"" you can screen ",AMQQSQP1," according to",!,"the value of a temporally related ",AMQQSQAN,!! Line Location: Q2+8
Function Call: WRITE	Prompt: " ??",*7 Line Location: Q2+9
Function Call: WRITE	Prompt: !! Line Location: DATE+0
Function Call: WRITE	Prompt: " ??",*7,!!,"The start of the time frame must preceed the end of the time frame!!!",!! Line Location: DATE+2
Function Call: WRITE	Prompt: $S(AMQQSQNM["PROVIDER":"the providers of record ",1:(AMQQSQNM_" values obtained")) Line Location: QX+0
Function Call: WRITE	Prompt: !,"Enter the relative ",Z,"ing point of the time frame: " Line Location: D1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: D1+1
Function Call: WRITE	Prompt: !!,"Your answer is mandatory" Line Location: D1+2
Function Call: WRITE	Prompt: " (Same day)" Line Location: D1+5
Function Call: WRITE	Prompt: " ??",*7 Line Location: D1+8
Function Call: WRITE	Prompt: " ??",*7 Line Location: D1+10
Function Call: WRITE	Prompt: " ??",*7 Line Location: D1+14
Function Call: WRITE	Prompt: !!,"Answer in the following format: SIGN_NUMBER_TIME UNIT",! Line Location: HELPD+0
Function Call: WRITE	Prompt: "For example: ""-6 MONTHS"" or ""+12 WEEKS""",! Line Location: HELPD+1
Function Call: WRITE	Prompt: "The SIGN is relative to the primary visit with ""-"" designating a time prior to",!,"the visit and ""+"" designating a time after the visit.",! Line Location: HELPD+2
Function Call: WRITE	Prompt: "If you do not enter a SIGN, I will assume it is a '+'",! Line Location: HELPD+3
Function Call: WRITE	Prompt: "The TIME UNIT can be DAYS, WEEKS, MONTHS or YEARS. Abbreviations are OK.",! Line Location: HELPD+4
Function Call: WRITE	Prompt: "Enter '0' to indicate the same day as the primary visit",!!! Line Location: HELPD+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMQQ(1 - [#9009071]	CKTAX+2, V1+3
^AMQQ(4 - [#9009074]	CKTAX+3, V1+4
^AMQQ(5 - [#9009075]	VAR+4, VAR+5, CKTAX, V1, TAX+2
^UTILITY("AMQQ TAX"	TAX+13

Label References

Name	Line Occurrences
AUTO	AMQQSQA2+3
CKTAX	VAR+5, Q1+9
D1	DATE+1, D1+2, D1+4, D1+8, D1+10, D1+15
DATE	DATE+2
DEND	D1+13
DENDK	D1+3
EXIT	AMQQSQA2+3, Q1+7, Q2+7, Q2+9, DATE+1, CKTAX+4
HELPD	D1+2, D1+4
P1	VAR
PLEURAL	P1+2, P1+3
Q1	Q1+8
Q2	Q2+8
QX	Q1+1, Q2+1
TAX	CKTAX+4
V1	VAR+1, AUTO+3

Naked Globals

Name	Field # of Occurrence
^("-"	TAX+13
^(3	TAX+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	VAR+4, VAR+5, Q1+3, Q2+3, CKTAX, CKTAX+1, CKTAX+2, CKTAX+3, CKTAX+4, EXIT! , V1, V1+1, V1+2, V1+3, V1+4, V1+5, D1+13, DEND+2, DEND+3, DEND+4 , TAX+2*, TAX+6, TAX+7, TAX+8, TAX+9, TAX+10
%Y	Q1+5, Q1+7, Q1+8, Q1+9, Q2+5, Q2+7, Q2+8, Q2+9, EXIT!
AMQQATN	TAX~, TAX+5*
AMQQATNM	TAX~, TAX+4*
>> AMQQCOMP	VAR+3, AUTO, AUTO+1*
AMQQDATE	DENDK!
AMQQDATE(1	D1+9*, DEND, DEND+2
AMQQDATE(2	D1+11*, D1+13, DEND+3
AMQQDATE(3	D1+12*, DEND+1
AMQQLINK	TAX~, TAX+10*
>> AMQQMMMM	AMQQSQA2+3, AUTO+1, AUTO+2
>> AMQQNV	Q1+2, Q2+2
>> AMQQQUIT	Q1+7, Q2+7, Q2+9, DATE+1, CKTAX+4, D1+3, TAX+12*
>> AMQQRV	Q1+2, Q2+2
AMQQSBCT	TAX~, TAX+6*
>> AMQQSQAN	Q1, Q1+8, Q2, Q2+8
>> AMQQSQN	VAR+4, CKTAX, CKTAX+1, V1, V1+1, TAX+1
>> AMQQSQNM	V1+2, QX, P1+1, P1+2, TAX+1
>> AMQQSQP1	VAR+2, Q1+8, Q2+8, P1+2, P1+4
>> AMQQSQSJ	VAR+2
>> AMQQSQSN	VAR+5
>> AMQQSQSQ	VAR+2, VAR+5, Q1+9, DATE+2, V1+2, V1+5, DEND, DEND+4, TAX+13, AUTO+2*
AMQQTAX	TAX~, TAX+12, TAX+13
AMQQTDIC	TAX~, TAX+8*
AMQQTLOK	TAX~, TAX+9*
AMQQTNAR	TAX~, TAX+7*
AMQQTTX	TAX~, TAX+3*
>> AMQQURGN	TAX+13
DTIME	D1+1
DTOUT	Q1+5, Q1+6!, Q2+5, Q2+6!
DUOUT	Q1+5, Q1+6!, Q2+5, Q2+6!
U	VAR+2, VAR+4, VAR+5, Q1+5, Q1+7, Q1+9, Q2+5, Q2+7, DATE+2, CKTAX , CKTAX+2, CKTAX+3, V1, V1+2, V1+3, V1+4, V1+5, D1+1, D1+3, DEND , DEND+4, TAX+1, TAX+4, TAX+6, TAX+7, TAX+8, TAX+9, TAX+10, TAX+13, AUTO+2
X	EXIT!, D1+1, D1+2, D1+3, D1+4, D1+5, D1+6, D1+7, D1+8, D1+9* , D1+10, D1+11, D1+12, D1+13, P1~, P1+1, P1+2, P1+4, PLEURAL+1, PLEURAL+2 , PLEURAL+3, PLEURAL+4
Y	Q2+9, EXIT!, D1+13, DEND, DEND+1, DEND+3, DENDK!, P1~, PLEURAL+2, PLEURAL+3 , TAX+1*, TAX+2, TAX+4, TAX+5
Z	DATE+1*, EXIT!, D1, DEND, DEND+4

Customize PDF page

Package: PCC Medical Query

Routine: AMQQSQA2

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
Q1
HELPD
Q2
V1
PLEURAL	; ENTRY POINT FROM MULTIPLE ROUTINES
QX
TAX
CKTAX
DATE
P1
EXIT
AUTO
VAR
DENDK
DEND
D1