Routine: AMQQTXG1

Package	Total	Call Graph
PCC Medical Query	2	^AMQQHEL1 (,RANGES,SHOW)^AMQQTXC
VA Fileman	2	^DIC DQ^DICQ

Entry Points

Name	Comments	DBIA/ICR reference
FC1
PHELP1	; ENTRY POINT FROM AMQQTXG
PLOOKUP	; ENTRY POINT FROM AMQQTXG
RHELP	; ENTRY POINT FROM AMQQTXG
PLK1
FLIST1
FEXIT
FMORE
GHELP1	; ENTRY POINT FROM AMQQTXG
GLOOKUP	; ENTRY POINT FROM AMQQTXG
REXIT
FINCN
FHELP	; ENTRY POINT FROM AMQQTXG
FC
PHELP	; ENTRY POINT FROM AMQQTXG
FLOOKUP	; ENTRY POINT FROM AMQQTXG
RL1
RHELP1	; ENTRY POINT ROM AMQQTXG
RLOOKUP	; ENTRY POINT FROM AMQQTXG

External References

Name	Field # of Occurrence
^AMQQHEL1	RHELP+5
^AMQQTXC	RLOOKUP+7, RLOOKUP+10, RLOOKUP+11, RL1+2, RL1+3
RANGES^AMQQTXC	REXIT
SHOW^AMQQTXC	RHELP1+2
^DIC	PLOOKUP+6
DQ^DICQ	PHELP1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," (none found in database so not selected... if you still want to select this",!," value enter it with quotes about it" Line Location: PLK1+3
Function Call: WRITE	Prompt: !!,"Enter the name of a ",AMQQATNM,"." Line Location: PHELP+1
Function Call: WRITE	Prompt: !,"Enter ""??"" to see your selections or ""???"" to see choices.",!! Line Location: PHELP+2
Function Call: WRITE	Prompt: " (",Z,")" Line Location: GLOOKUP+2
Function Call: WRITE	Prompt: $E($P(Z,":",2),$L(X)+1,99) Line Location: GLOOKUP+4
Function Call: WRITE	Prompt: *7," ??" Line Location: GLOOKUP+5
Function Call: WRITE	Prompt: !!,%,! Line Location: GHELP1+2
Function Call: WRITE	Prompt: !?5,$P(X,";") Line Location: GHELP1+3
Function Call: WRITE	Prompt: !!,"Enter the name of a ",AMQQATN Line Location: FHELP+1
Function Call: WRITE	Prompt: !!,%,! Line Location: FHELP+3
Function Call: WRITE	Prompt: ?5,% Line Location: FHELP+7
Function Call: WRITE	Prompt: "<>" Line Location: FLIST1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: FLIST1+1
Function Call: WRITE	Prompt: 13,?5,13 Line Location: FLIST1+1
Function Call: WRITE	Prompt: " <= Not found in data base",*7 Line Location: FLOOKUP+3
Function Call: WRITE	Prompt: $E(Y,$L(X)+1,99) Line Location: FLOOKUP+5
Function Call: WRITE	Prompt: !?5,N," ",Z Line Location: FINCN+4
Function Call: WRITE	Prompt: !,"TYPE <CR> TO SEE MORE CHOICES, '^' TO STOP, OR" Line Location: FC+0
Function Call: WRITE	Prompt: !,"CHOOSE 1-",N-1,": " Line Location: FC1+0
Function Call: READ	Timeout: DTIME Variable: Y Line Location: FC1+1
Function Call: WRITE	Prompt: !,"Pick a number between 1 and ",N-1,". You can also enter a new name.",! Line Location: FC1+4
Function Call: WRITE	Prompt: " (",X,")" Line Location: FC1+5
Function Call: WRITE	Prompt: " ??",*7 Line Location: FC1+6
Function Call: WRITE	Prompt: ! Line Location: RLOOKUP+9
Function Call: WRITE	Prompt: ! Line Location: RLOOKUP+11
Function Call: WRITE	Prompt: ! Line Location: RL1+2
Function Call: WRITE	Prompt: !!,"A code range has yet to be selected. A display cannot be generated.",! Line Location: RHELP1+1
Routine Call	DIC Line Location: PLOOKUP+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY("AMQQ LOOK"	FLOOKUP+8, FINCN+5, FEXIT!, FC1+5
^UTILITY("AMQQ TAX"	PLOOKUP+3, PHELP1+5, RLOOKUP+7*, RL1+3!

Label References

Name	Line Occurrences
FC	FINCN+3, FC1+4
FC1	FINCN+1, FC1+6
FEXIT	FLOOKUP+1, FLOOKUP+3, FLOOKUP+4, FLOOKUP+5, FINCN+1, FINCN+3
FINCN	FINCN+6
FLIST1	FHELP+7
FLOOKUP	FINCN+3
FMORE	FINCN+1
PLK1	PLOOKUP+8
REXIT	RLOOKUP+6, RLOOKUP+7
RL1	RLOOKUP+6

Naked Globals

Name	Field # of Occurrence
^(	PLOOKUP+3, PHELP1+5, FLOOKUP+5, FC1+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PLOOKUP+3, PLK1+2, PLK1+3, PHELP1+5, GLOOKUP+4, GHELP1+1, GHELP1+2, GHELP1+3, FHELP+2, FHELP+3 , FHELP+4, FHELP+7, FLOOKUP+3, FLOOKUP+4, FLOOKUP+5
AMQQ	REXIT+1!
AMQQ("NO DISP	LAY" , RLOOKUP+3*
AMQQ("NOT TAX	" , RLOOKUP+4*
AMQQA	RLOOKUP+2, RLOOKUP+11, REXIT, REXIT+1!, RL1+1, RL1+2
>> AMQQATN	FHELP+1
>> AMQQATNM	PHELP+1
AMQQCNT	REXIT+1!
AMQQDFN	REXIT+1!
>> AMQQHILO	REXIT, RHELP1+1
AMQQI	REXIT+1!
>> AMQQLINK	PLK1, RHELP+2, RHELP+3, RHELP+4
>> AMQQLMOR	FMORE*
>> AMQQNDB	PLK1+3
AMQQNDBC	PLK1+4!
>> AMQQNECO	PLOOKUP+4
>> AMQQONE	RLOOKUP+2, RLOOKUP+7, RL1+3*
>> AMQQQUIT	REXIT
AMQQR	REXIT+1!
AMQQSAVE	REXIT+1!
AMQQSAVE("X"	RLOOKUP+1*, RLOOKUP+11, RL1+2
>> AMQQSQN	PLOOKUP+3, PHELP1+5
>> AMQQSQSN	PLOOKUP+3, PHELP1+5
>> AMQQSSET	GLOOKUP+1, GLOOKUP+2, GLOOKUP+4, GHELP1+3
AMQQSTP	REXIT+1!
AMQQSUB	RLOOKUP+2, REXIT+1!, RL1
>> AMQQTAX	PLOOKUP+3, PHELP1+5
>> AMQQTAXI	PLOOKUP+8, PLK1+2, FHELP+1, FHELP+6, FLOOKUP+1, FLOOKUP+2
>> AMQQTAXT	PLK1+1
>> AMQQTDIC	PLOOKUP+8, PLK1+2, FHELP+6, FLOOKUP+2
>> AMQQTLOK	PLOOKUP+1, PHELP1+1
>> AMQQTTX	PLK1+1
AMQQTXEX	RLOOKUP+6, REXIT+1!
AMQQTYP	RLOOKUP+5, RLOOKUP+11, REXIT+1!, RL1+2, RL1+3
>> AMQQURGN	RLOOKUP+7, RL1+3
AMQQX	REXIT+1!
D	PHELP1+3*, PHELP1+8!
DIC	PLOOKUP+1, PLOOKUP+5, PLOOKUP+7!, PHELP1+1, PHELP1+6, PHELP1+8!
DIC("S"	PLOOKUP+3, PLOOKUP+5, PHELP1+5, PHELP1+6
DIC(0	PLOOKUP+2, PLOOKUP+4, PHELP1+2*
DIR	REXIT+1!
DTIME	FLIST1+1, FC1+1
DTOUT	PLOOKUP+7!
DUOUT	PLOOKUP+7!
DZ	PHELP1+4*, PHELP1+8!
>> I	FHELP+7*
IOSL	FHELP+7
N	FLOOKUP+6, FLOOKUP+8, FINCN+1, FINCN+2, FINCN+3, FINCN+4, FINCN+5, FEXIT!, FC1, FC1+4
T	FHELP+6, FHELP+7, FLOOKUP+2, FLOOKUP+3, FLOOKUP+4, FLOOKUP+5, FLOOKUP+8, FINCN, FEXIT!
U	PLK1, FHELP+7, FC1+1, FC1+3
>> X	PLOOKUP+8, PLK1, GLOOKUP+1, GLOOKUP+2, GLOOKUP+4, GLOOKUP+6, GHELP1+3, FHELP+5, FHELP+7, FLIST1+1 , FLOOKUP+3, FLOOKUP+4, FLOOKUP+5, FLOOKUP+7, FLOOKUP+8, FINCN+1, FC1+5, FC1+7, RHELP+1, RLOOKUP+1 , RLOOKUP+7, RLOOKUP+8, RLOOKUP+11, RL1+2*, RL1+3
>> Y	PLOOKUP+8, PLK1, PLK1+3, GLOOKUP+1, GLOOKUP+2, GLOOKUP+3, GLOOKUP+4, GLOOKUP+5, GLOOKUP+6, FLOOKUP+5 , FINCN+1, FINCN+3, FC1+1, FC1+2, FC1+3, FC1+4, FC1+5, FC1+6, FC1+7, FC1+8* , RLOOKUP+7, RL1+3
>> Z	GLOOKUP+2, GLOOKUP+4, FLOOKUP+7, FINCN, FINCN+1, FINCN+4, FINCN+5, RHELP+2, RHELP+3, RHELP+4*

Customize PDF page

Package: PCC Medical Query

Routine: AMQQTXG1

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: