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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AMQQSQA2

Package: PCC Medical Query

Routine: AMQQSQA2


Information

AMQQSQA2 ; IHS/CMI/THL - SUB-SUBQUERIES ;

Source Information

Source file <AMQQSQA2.m>

Call Graph

Call Graph Total: 2

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCC Medical Query 1 AMQQSQA1  

Entry Points

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

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All