Routine: AMQQTXC

Package	Total	Call Graph
PCC Medical Query	2	^AMQQTXC1 ICDCS^AMQQTXG
VA Fileman	2	^DIC YN^DICN
DRG Grouper	1	($$ICDDX,$$ICDOP)^ICDEX

Package	Total	Caller Graph
PCC Medical Query	1	AMQQTXG1

Entry Points

External References

Name	Field # of Occurrence
^AMQQTXC1	AMQQTXC+17, AMQQTXC+18
ICDCS^AMQQTXG	AMQQTXC+5
^DIC	AMQQTXC+13
YN^DICN	ASK2+4
$$ICDDX^ICDEX	DISPLAY+6, DISPLAY+12, DISPLAY+15
$$ICDOP^ICDEX	DISPLAY+6, DISPLAY+13, DISPLAY+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You must indicate the coding system (ICD9 or ICD10).",! Line Location: AMQQTXC+5
Function Call: WRITE	Prompt: !,*7,"Low and high codes of range must both start either with a letter or a number.",! Line Location: L1+1
Function Call: WRITE	Prompt: !,*7,"Low code is higher than high code.",! Line Location: L1+2
Function Call: WRITE	Prompt: !!,"Codes in this range =>",!! Line Location: DISPLAY+2
Function Call: WRITE	Prompt: $P(AMQQ("LOW")," ") Line Location: DISPLAY+4
Function Call: WRITE	Prompt: ?9,$S(AMQQTGBL="^ICPT":$P(@AMQQTGBL@(AMQQDFN,0),U,2),AMQQTGBL="^ICD9":$P($$ICDDX^ICDEX(AMQQDFN),U,4),1:$P($$ICDOP^ICDEX(AMQQDFN,"","","I"),U,5)) Line Location: DISPLAY+6
Function Call: WRITE	Prompt: "." Line Location: DISPLAY+14
Function Call: READ	Prompt: "Press return to continue" Formatting: !! Timeout: DTIME Variable: AMQQR Line Location: DISPLAY+17
Function Call: WRITE	Prompt: ! Line Location: DISPLAY+19
Function Call: READ	Prompt: "<>" Formatting: ! Timeout: DTIME Variable: AMQQR Line Location: A11+1
Function Call: WRITE	Prompt: !,"OK" Line Location: A11+2
Function Call: WRITE	Prompt: " Enter ""^"" to stop display, return to continue" Line Location: A11+3
Function Call: WRITE	Prompt: !!,"Code Range(s) Selected So Far =>",! Line Location: RANGES+3
Function Call: WRITE	Prompt: $P(^ICDS($P(@AMQQHILO@(AMQQ),U,3),0),U,1) Condition for execution: $P(@AMQQHILO@(AMQQ),U,3) Line Location: RANGES+5
Function Call: WRITE	Prompt: ! Line Location: RANGES+6
Function Call: WRITE	Prompt: !,"Enter an Item Number from the table above to display code(s): " Line Location: A+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: A+1
Function Call: WRITE	Prompt: !!,"Enter a number between 1 and ",AMQQ("NUM"),! Line Location: A+2
Function Call: WRITE	Prompt: " ??",*7 Line Location: A+5
Function Call: WRITE	Prompt: !!,"A code range has yet to be selected. A display cannot be generated.",! Line Location: ASK2+1
Function Call: WRITE	Prompt: !!,"Do you want to display the codes from a range you have already selected" Line Location: ASK2+2
Function Call: WRITE	Prompt: !!,"A table of ranges you have selected is displayed above. You may ask for the",!,"codes in one of the ranges to be displayed.",! Line Location: ASK2+7
Routine Call	DIC Line Location: AMQQTXC+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICDS - [#80.4]	RANGES+5
^UTILITY("AMQQ TAX"	DISPLAY+14, A1+1, A1+2!

Label References

Name	Line Occurrences
A	A+2, A+5
A1	DISPLAY+10, DISPLAY+15
A11	A11+3
AA	SHOW+2
ASK2	ASK2+7
DISPLAY	AMQQTXC+18, AA+1
L1	AMQQTXC+18
RANGES	SHOW+1, AA+3
SHOW	ASK2+5

Naked Globals

Name	Field # of Occurrence
^(	DISPLAY+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT!, ASK2+3*, ASK2+5, ASK2+6, ASK2+7
>> AMQQ	DISPLAY+7, DISPLAY+9, DISPLAY+11, DISPLAY+15, RANGES+4, RANGES+5, AA+1*
>> AMQQ("BANG"	RANGES+6, AA+2*, AA+4!
>> AMQQ("HI"	AMQQTXC+17, AMQQTXC+18, L1, L1+2, DISPLAY+11, AA+1*
>> AMQQ("LOW"	AMQQTXC+16, AMQQTXC+17, L1, L1+2, DISPLAY+4, DISPLAY+5, DISPLAY+7, AA+1
>> AMQQ("N"	AA*, AA+1
>> AMQQ("NO DISP	LAY" , AMQQTXC+5, AMQQTXC+15, AMQQTXC+18, L1+1, L1+2
>> AMQQ("NUM"	RANGES+4, RANGES+5, SHOW+2, A+2, A+4
>> AMQQA	AMQQTXC+5, AMQQTXC+15
>> AMQQCNT	DISPLAY+8, A1, A1+3, A11*
>> AMQQDFN	DISPLAY+5, DISPLAY+6, DISPLAY+9, DISPLAY+11*, DISPLAY+12, DISPLAY+13, DISPLAY+14, DISPLAY+15, A1+1, A1+2
>> AMQQHILO	RANGES+5, AA+1, ASK2+1
>> AMQQI	AA+1*
AMQQISYS	AMQQTXC+5!, AMQQTXC+12, DISPLAY+12, DISPLAY+13
>> AMQQNECO	AMQQTXC+9, RANGES+3
>> AMQQONE	AMQQTXC+17
>> AMQQQUIT	AMQQTXC+18, DISPLAY+15
>> AMQQR	DISPLAY+17, DISPLAY+18, A11+1, A11+2, A11+3
>> AMQQSQNM	AMQQTXC+10
>> AMQQTGBL	AMQQTXC+5, AMQQTXC+7, AMQQTXC+11, AMQQTXC+12, AMQQTXC+16, AMQQTXC+18, DISPLAY+5, DISPLAY+6, DISPLAY+9, DISPLAY+11 , DISPLAY+12, DISPLAY+13, DISPLAY+15
AMQQTJMP	DISPLAY+14, DISPLAY+16!, A11+2*
>> AMQQTXEX	A1+1
>> AMQQTYP	AMQQTXC+16, AMQQTXC+17, AMQQTXC+18
>> AMQQURGN	DISPLAY+14, A1+1, A1+2
AMQQXSAV	AMQQTXC+3!, AMQQTXC+5*!, AMQQTXC+6, EXIT!
>> AMQQXX	AMQQTXC+9, RANGES+1
DIC	AMQQTXC+7*, AMQQTXC+14!
DIC("S"	AMQQTXC+10, AMQQTXC+11
DIC(0	AMQQTXC+8, AMQQTXC+9
DR	AMQQTXC+14!
DTIME	DISPLAY+17, A11+1, A+1
>> DUOUT	AMQQTXC+15
>> ICDSYS	AMQQTXC+12*
IOF	DISPLAY+1, RANGES+2
IOSL	DISPLAY+8, A11
U	AMQQTXC+5, AMQQTXC+16, AMQQTXC+18, DISPLAY+6, DISPLAY+12, DISPLAY+13, DISPLAY+15, DISPLAY+17, DISPLAY+18, A11+1 , A11+2, RANGES+5, A+1, A+3
>> X	AMQQTXC+5, AMQQTXC+6, AMQQTXC+15, SHOW+2, A+1, A+2, A+3, A+4, AA
>> Y	AMQQTXC+5*, AMQQTXC+15, AMQQTXC+16, AMQQTXC+18

Customize PDF page

Package: PCC Medical Query

Routine: AMQQTXC

Information

Source Information

Call Graph

Call Graph Total: 5

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
A
RANGES	; ENTRY POINT FROM AMQQTXG1 ; DISPLAY TABLE OF ALL RANGES
AA
A11
SHOW	; ENTRY POINT FROM AMQQTXG1 ; ALLOW USER TO SELECT FROM RANGES TO DISPLAY CODES
ASK2	;ASKS USER IF WANTS TO DISPLAY/PRINT RESULTS TO THIS POINT
A1
EXIT
L1
DISPLAY	;SHOW CODES IN RANGE SELECTED